Thank You very much for the info
my working solution :
[img:2raxft4h]http://www.pflegeplus.com/IMAGES/MGet2.jpg[/img:2raxft4h]
[color=#0000FF:2raxft4h]Reading the multiline GET
aDat[90] := STRTRAN(("PATIENT")->MEDIKAM1, CRLF, "|")
aDat[91] := STRTRAN(("PATIENT")->MEDIKAM2, CRLF, "|") [/color:2raxft4h]
[color=#008040:2raxft4h]Edit
REDEFINE GET oDat[90] VAR aDat[90] ID 610 ;
OF oFld:aDialogs[ 1 ] FONT oFontsys MULTILINE UPDATE
REDEFINE GET oDat[91] VAR aDat[91] ID 620 ;
OF oFld:aDialogs[ 1 ] FONT oFontsys MULTILINE UPDATE[/color:2raxft4h]
[color=#BF0000:2raxft4h]saving the multiline GET
( force a CRLF at the end )
LOCAL cMedik1 := STRTRAN(aDat[90], "|", CRLF )
LOCAL cMedik2 := STRTRAN(aDat[91], "|", CRLF )
....
....
a missing CRLF at the end :
IF SUBSTR( aDat[90], LEN( TRIM( aDat[90] ) ) - 1, 1 ) <> CRLF
cMedik1 := TRIM( STRTRAN(aDat[90], "|", CRLF ) ) + CRLF
ELSEIF SUBSTR( aDat[91], LEN( TRIM( aDat[91] ) ) - 1, 1 ) <> CRLF
cMedik2 := TRIM( STRTRAN(aDat[91], "|", CRLF ) ) + CRLF
ENDIF
("PATIENT")->MEDIKAM1 := cMedik1
("PATIENT")->MEDIKAM2 := cMedik2 [/color:2raxft4h]
regards
Uwe
↧