50 lines
1.1 KiB
Plaintext
50 lines
1.1 KiB
Plaintext
|
\ 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
|
||
|
|
;
|