campo-sirio/cg/cg2803a.uml

#include "cg2800.h"

PAGE "" -1 -1 78 20
     
NUMBER F_CODDITTARIC 5
BEGIN
  PROMPT 1 1 "Ditta ricevente "
  USE LF_NDITTE KEY 1
  INPUT CODDITTA F_CODDITTARIC
  OUTPUT F_RAGSOC RAGSOC
  FLAGS "RDZ"
  CHECKTYPE REQUIRED
END
            
STRING F_RAGSOC 50
BEGIN
  PROMPT 1 2 "Ragione sociale "
  FLAGS "D"
END

NUMBER F_NULTRAS 3
BEGIN
  PROMPT 1 4 "Numero ultimo invio ricevuto "
END

DATE F_DATAULTRAS 
BEGIN
  PROMPT 1 6 "Data ultimo invio ricevuto   "
END

STRING F_STD 1
BEGIN
  PROMPT 1 8 "Stato del trasferimento      "
END

STRING F_USELAB 1
BEGIN
  PROMPT 34 8 ""
END

STRING F_STATO 14
BEGIN                                    
  PROMPT 38 8 ""
END

LIST F_AGGCAUSALI 6
BEGIN           
  PROMPT 1 10 "Aggiornamento causali gia' presenti                "
  ITEM "N|No"
  ITEM "D|Descr."
  ITEM "T|Tutto"
END

LIST F_AGGCLIFO 6
BEGIN           
  PROMPT 1 11 "Aggiornamento Clienti/Fornitori gia' presenti      "
  ITEM "N|No"
  ITEM "D|Descr."
  ITEM "T|Tutto"
END

LIST F_AGGPCON 6
BEGIN           
  PROMPT 1 12 "Aggiornamento voci Piano dei Conti gia' presenti   "
  ITEM "N|No"
  ITEM "D|Descr."
  ITEM "T|Tutto"
END

LIST F_AGGIVD 6
BEGIN           
  PROMPT 1 13 "Aggiornamento classi Piano dei Conti               "
  ITEM "N|No"
  ITEM "T|Tutto"
END

BOOLEAN F_FATTEM 
BEGIN           
  PROMPT 1 14 "Riattribuzione num. protocollo su fatture emesse   "
END

BOOLEAN F_FATTRIC 
BEGIN           
  PROMPT 1 15 "Riattribuzione num. protocollo su fatture ricevute "
END

BUTTON DLG_OK 9 2
BEGIN 
  PROMPT -12 -1 ""
END

BUTTON DLG_QUIT 9 2
BEGIN
  PROMPT -22 -1 ""
END
                         
ENDPAGE

ENDMASK