root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level : 2.1 nopatch

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :

Corretto messaggio append


git-svn-id: svn://10.65.10.50/trunk@12177 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2004-06-10 16:00:47 +00:00
parent 85f78075db
commit c9cbe14868
2 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ba/ba8400.cpp
View File

@ -537,7 +537,7 @@ TFormer_mask::TFormer_mask()
: TAutomask("ba8400a"), _qta_decimals(0) : TAutomask("ba8400a"), _qta_decimals(0)
{ {
#ifdef DBG #ifdef DBG
set(F_FORM, "d:/clienti/dipiu/custom/fatdipiu.frm"); set(F_FORM, "d:/clienti/newcelltop/custom/nctfat.frm");
#endif #endif
} }

13
ba/report.alx
View File

@ -83,11 +83,16 @@
; ;
: MESSAGE_APPEND ( f1 -- ) : MESSAGE_APPEND ( f1 -- )
" " \ Inserisco uno spazio
#THIS @ \ Leggo il valore del campo corrente #THIS @ \ Leggo il valore del campo corrente
+ \ Sommo uno spazio all'inizio della stringa DUP EMPTY= \ Controlla se e' vuoto
SWAP \ Riporto in primo piano f1 IF
+! \ Incrementa f1 col contenuto della stringa DROP \ Scarta il valore nullo
ELSE
" " \ Inserisco uno spazio
+ \ Sommo uno spazio all'inizio della stringa
SWAP \ Riporto in primo piano f1
+! \ Incrementa f1 col contenuto della stringa
THEN
; ;
: MESSAGE_COPY ( f1 ... fn -- ) : MESSAGE_COPY ( f1 ... fn -- )