Patch level :2.1 nopatch

Files correlati     :
Ricompilazione Demo : [ ]
Commento            :tolto ve1300.alx dalla directory di ba e spedito in quella di ve


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

ba/ve1300.alx

@@ -1,49 +0,0 @@
-\ Utility
-
-\ Messaggi specifici per stampa documenti
-
-: MESSAGE_DESCRIGA ( ... -- )
-  #RDOC.DESCR @      \ Legge campo descrizione riga
-  #RDOC.DESCLUNGA @  \ Se e' presente una descrizione estesa
-  EMPTY=
-  NEGATE
-  IF
-    #RDOC.DESCEST @  \ Legge memo descrizione 
-    +                \ Lo somma alla descrizione normale
-  THEN
-  BEGIN              \ Ciclo sugli eventuali parametri successivi 
-    SP 1 >           \ Controlla se ci sono altri campi da sommare
-  WHILE              
-	" " +            \ Somma uno spazio
-    SWAP @ +         \ Somma campo successivo alla descrizione
-  REPEAT
-  #THIS !            \ Setta il campo corrente con la stringa risultante
-;
-
-: MESSAGE_CLIENTE ( s1 -- )
-  DOC_CLIENTE        \ user defined word
-;
-
-: MESSAGE_DITTA ( s1 -- )
-  DOC_DITTA          \ user defined word
-;
-
-: MESSAGE_PARENTDOC ( [b1] s1 n1 -- )
-  DOC_PARENT_DOC      \ user defined word
-;
-
-: MESSAGE_PARENTROW ( [b1] s1 n1 -- )
-  DOC_PARENT_ROW      \ user defined word
-;
-
-: MESSAGE_RIEPILOGOIVA ( b1 s1 n1 -- )
-  DOC_RIEPILOGO_IVA
-;
-
-: MESSAGE_SCADENZE ( b1 s1 -- )
-  DOC_SCADENZE
-;
-
-: MESSAGE_TOTIMPONIBILI ( [n1] -- )
-  DOC_TOT_IMPONIBILI
-;