Page 1 of 2
Picture clauses
Posted: Tue Jan 22, 2019 7:15 pm
by FFF
Please bear with me, but in all these years i never needed it, so i'm blank :whistle:
Given a value in table like "JJD1405829178751"
Displayed in a SLE i'd like to see JJD 14 05 829 178 751", possibly edit this and write it back in the condensed form.
I "thought", that's what picture clauses are for, so added "AAA 99 999 999 999" - but the blanks eat the digits which "use" their place. OK, there's "OVERWRITENEVER", but this seems to be the opposite way...
Obviously i could write ACC/ASS to handle this, but i'd like to understand where i err
TIA
Karl
Picture clauses
Posted: Tue Jan 22, 2019 8:33 pm
by Chris
Hi Karl,
Yeah, that should work, I just checked and it is looking good. But apparently you need to save the value in the dbf including the spaces and assign it back to the SLE this way, too. I checked also VO, it has the same behavior.
Chris
Picture clauses
Posted: Tue Jan 22, 2019 9:21 pm
by FFF
Chris,
thx for responding. Duh, don't like to mix datavalue and "view" - the formatting is only a reading help.
But re-reading VO-Help, i'd think that @R AAA 99 99 999 999 999 should work?
"If you use the @R picture function, these characters are inserted between characters of the display value, and are automatically removed when the display value is reassigned to <idVar>; otherwise, they overwrite the corresponding characters of the display value and also affect the value assigned to <idVar>."
?
Karl
Picture clauses
Posted: Tue Jan 22, 2019 9:22 pm
by Karl-Heinz
Hi Karl,
created with XIDE a FieldSpec and the output is:
? fsTest2{}:Transform ( "JJD1405829178751" )
"JJD 14 05 829 178 751"
Code: Select all
CLASS FsTest2 INHERIT FieldSpec
// User code starts here (DO NOT remove this line) ##USER##
CONSTRUCTOR()
LOCAL cPict AS STRING
SUPER( HyperLabel{#FsTest2, "", "", "" }, "C", 16, 0 )
cPict := "@R !!! 99 99 999 999 999"
IF SLen(cPict) > 0
SELF:Picture := cPict
ENDIF
RETURN
END CLASS
Picture clauses
Posted: Tue Jan 22, 2019 9:59 pm
by FFF
Hi Karl-Heinz,
thx for that.
Found it: had an assign in place, which basically does "osle:Textvalue := cVal"
Removing the magic "Text", so: osle:Value := cVal the clause get's respected, with fieldspec as with a "direct" picture!
Strange, as the "Textvalue" help says: "Note that the string is formatted according to the picture clause held in the field specification of the edit field; in turn, edit fields linked to a data server inherit the field specification — and hence picture — from the field of the server"
My sle is NOT directly bound to a server, so i wonder.
Anyway, happy to relieve my old eyes...
Karl
Picture clauses
Posted: Tue Jan 22, 2019 10:16 pm
by Chris
Hi Karl,
I did not check this in particular, but in general, if the contents of the VO help file were always (or at least in more than 90% of the times) accurate, then everybody's job would had been a lot easier
.
When writing or fixing the runtime functions, we always need to first read the VO documentation, then test the behavior of VO to check how much accurate the documentation is (or how much VO is working as documented) and then implement the feature/or fix the existing one always taking into account the inconsistencies we definitely found in the previous step
Chris
Picture clauses
Posted: Wed Jan 23, 2019 9:15 am
by Karl-Heinz
Hi Chris,
there are differences in the Transform() func and the Fieldspec:Transform() Method behaviour. But that´s no X# problem because already VO does it differently. So X# is 100% compatible with VO
e.g. the formatted output of a german IBAN like "DE12345678901234567890" must be "DE12 3456 7890 1234 5678 90". This is possible with a Fieldspec, but not with the Transform() function.
Code: Select all
CLASS FsTest2 INHERIT FieldSpec
// User code starts here (DO NOT remove this line) ##USER##
CONSTRUCTOR()
LOCAL cPict AS STRING
SUPER( HyperLabel{#FsTest2, "", "", "" }, "C", 16, 0 )
cPict := "@R !!! 99 99 999 999 999"
IF SLen(cPict) > 0
SELF:Picture := cPict
ENDIF
RETURN
END CLASS
CLASS fs_C_IBAN INHERIT FieldSpec
// User code starts here (DO NOT remove this line) ##USER##
CONSTRUCTOR()
LOCAL cPict AS STRING
SUPER( HyperLabel{#fs_C_IBAN, "", "", "" }, "C", 22, 0 )
cPict := "@R !!99 9999 9999 9999 9999 99"
IF SLen(cPict) > 0
SELF:Picture := cPict
ENDIF
RETURN
END CLASS
? fs_C_IBAN{}:Transform ( "DE12345678901234567890" )
? Transform ( "@R !!99 9999 9999 9999 9999 99" , "DE12345678901234567890" )
similar behaves Karls "JJD1405829178751" string
? fsTest{}:Transform ( "JJD1405829178751" )
? Transform ("@R !!! 99 99 999 999 999" ,"JJD1405829178751" )
regards
Karl-Heinz
Picture clauses
Posted: Wed Jan 23, 2019 9:50 am
by robert
Karl,
BTW. What happened with the forum software ? The new text formatting and the new forum coloring / layout is cruel !!!
We have a new template.
So you don't like it ?
Robert
Picture clauses
Posted: Wed Jan 23, 2019 11:47 am
by Chris
Robert,
I think I also see the problem Karl-Heinz talks about, when you type a post and reach end of line, the text does not wrap automatically to the next line (as before), instead you get the text scrolled to the right for 10 characters or so and then it does warp to the next line as you keep typing. It is indeed a bit clumpy and happens at least with Firefox. Ah, just noticed it happens only for the first line of text, next lines warp automatically correctly.
Apart from this glitch, I personally like the new layout.
Chris
Picture clauses
Posted: Wed Jan 23, 2019 1:29 pm
by Karl-Heinz
> We have a new template.
> So you don't like it ?
Hi Robert,
The TextBox to type in a message has 7 lines only and the slightly larger preview ( 11 lines ) doesn´t wrap the text but cuts it instead. So it´s hard to keep an overwiew. At least the colored "Facebook" etc. line of buttons i saw the very first time are no longer there and the green background appearance has also been reduced. To arrange the login sles in one line doesn´t look good too.
regards
Karl-Heinz