Patch level :2.1 nopatch

Files correlati     :
Ricompilazione Demo : [ ]
Commento            :aggiunto ve1300.alx al modulo ve. Benvenuto!


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

ve/ve1300.alx

@@ -0,0 +1,49 @@
+\ 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
+;