b4ee199cbc
Files correlati : Ricompilazione Demo : [ ] Commento : Spostato tutto in libreria git-svn-id: svn://10.65.10.50/trunk@12063 c028cbd2-c16b-5b4b-a496-9718f37d4682
47 lines
867 B
Plaintext
Executable File
47 lines
867 B
Plaintext
Executable File
\ Utility
|
|
: KILL_STACK
|
|
BEGIN
|
|
SP
|
|
WHILE
|
|
DROP
|
|
REPEAT
|
|
;
|
|
|
|
\ Messaggi specifici per stampa documenti
|
|
|
|
: MESSAGE_CLIENTE
|
|
KILL_STACK
|
|
;
|
|
|
|
: MESSAGE_DESCRIGA
|
|
#RDOC.DESCR @ \ Legge campo descrizione riga
|
|
#RDOC.DESCLUNGA @ \ Se e' presente una descrizione estesa
|
|
IF
|
|
#RDOC.DESCEST @ \ Legge memo descrizione
|
|
+ \ Lo somma alla descrizione normale
|
|
THEN
|
|
BEGIN \ Ciclo sugli eventuali parametri successivi
|
|
SP 1 > \ Se lo stack e' ancora pieno
|
|
WHILE
|
|
" " + \ Somma uno spazio
|
|
SWAP @ + \ Somma campo successivo alla descrizione
|
|
REPEAT
|
|
#THIS ! \ Setta il campo corrente con la stringa risultante
|
|
;
|
|
|
|
: MESSAGE_DITTA
|
|
KILL_STACK
|
|
;
|
|
|
|
: MESSAGE_RIEPILOGOIVA
|
|
KILL_STACK
|
|
;
|
|
|
|
: MESSAGE_SCADENZE
|
|
KILL_STACK
|
|
;
|
|
|
|
: MESSAGE_TOTIMPONIBILI
|
|
KILL_STACK
|
|
;
|