55 lines
1.4 KiB
Plaintext
Executable File
55 lines
1.4 KiB
Plaintext
Executable File
\ Messaggi specifici per stampa documenti (ve1 -2)
|
|
|
|
: MESSAGE_DESCRIGA ( ... -- )
|
|
"34.DESCR" @ \ Legge campo descrizione riga
|
|
"34.DESCLUNGA" @ \ Se e' presente una descrizione estesa
|
|
"X" =
|
|
IF
|
|
"34.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 in ve1.exe
|
|
;
|
|
|
|
: MESSAGE_DITTA ( s1 -- )
|
|
GET_FIRM_DATA \ user defined word in report
|
|
;
|
|
|
|
|
|
: MESSAGE_PARENTDOC ( [b1] s1 n1 -- )
|
|
DOC_PARENT_DOC \ user defined word in ve1.exe
|
|
;
|
|
|
|
: MESSAGE_PARENTROW ( [b1] s1 n1 -- )
|
|
DOC_PARENT_ROW \ user defined word in ve1.exe
|
|
;
|
|
|
|
: MESSAGE_RIEPILOGOIVA ( b1 s1 n1 -- )
|
|
DOC_RIEPILOGO_IVA \ user defined word in ve1.exe
|
|
;
|
|
|
|
: MESSAGE_SCADENZE ( b1 s1 -- )
|
|
DOC_SCADENZE \ user defined word in ve1.exe
|
|
;
|
|
|
|
: MESSAGE_TOTIMPONIBILI ( [n1] -- )
|
|
DOC_TOT_IMPONIBILI \ user defined word in ve1.exe
|
|
;
|
|
|
|
: MESSAGE_LV_DOT ( s1 -- )
|
|
DOC_LV_DOT \ user defined word in ve1.exe
|
|
;
|
|
|
|
: MESSAGE_ADD_ROW ( s1 s2 s3 -- )
|
|
DOC_ADD_ROW \ user defined word in ve1.exe
|
|
; |