Patch level : 2.1 nopatch

Files correlati     :
Ricompilazione Demo : [ ]
Commento            :

Corretto messaggio append


git-svn-id: svn://10.65.10.50/trunk@12177 c028cbd2-c16b-5b4b-a496-9718f37d4682

ba/ba8400.cpp

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

ba/report.alx

@@ -83,11 +83,16 @@
 ;
 
 : MESSAGE_APPEND ( f1 -- )
-  " "                          \ Inserisco uno spazio  
   #THIS @                      \ Leggo il valore del campo corrente
-  +                            \ Sommo uno spazio all'inizio della stringa
-  SWAP                         \ Riporto in primo piano f1
-  +!                           \ Incrementa f1 col contenuto della stringa
+  DUP EMPTY=                   \ Controlla se e' vuoto
+  IF
+    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 -- )