e63626da48
Files correlati : ve0.exe Ricompilazione Demo : [ ] Commento : 0000199 Dopo aver inserito una descrizione libera nel campo di testa delle note documento. Queste scompaiono dopo aver premuto registra. git-svn-id: svn://10.65.10.50/trunk@12210 c028cbd2-c16b-5b4b-a496-9718f37d4682
47 lines
1.3 KiB
Plaintext
Executable File
47 lines
1.3 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 -- )
|
|
DOC_DITTA \ user defined word in ve1.exe
|
|
;
|
|
|
|
: 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
|
|
;
|