\ 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
;