018029f5a6
Files correlati : ba8.exe Ricompilazione Demo : [ ] Commento : Correzioni su editor e convertitore di report git-svn-id: svn://10.65.10.50/trunk@12094 c028cbd2-c16b-5b4b-a496-9718f37d4682
50 lines
1.1 KiB
Plaintext
Executable File
50 lines
1.1 KiB
Plaintext
Executable File
\ 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
|
|
;
|