campo-sirio/cg/cg0500a.uml

#include "cg0500.h"

TOOLBAR "" 0 20 0 2

#include <toolbar.h>

ENDPAGE

PAGE "" -1 -1 77 20

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 0 ""
END

STRING F_COD_CAUS 3
BEGIN
  PROMPT 2 1 "Codice "
  HELP "Codice identificativo della causale"
  FIELD LF_CAUSALI->CODCAUS
  KEY 1
  FLAGS "U"
  USE LF_CAUSALI
  INPUT CODCAUS F_COD_CAUS
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione @50" DESCR
  DISPLAY "Documento" TIPODOC
  DISPLAY "Registro" REG
  DISPLAY "Tipo movimento" TIPOMOV
  OUTPUT F_COD_CAUS CODCAUS
  OUTPUT F_DESCR DESCR
  HELP "Codice causale"
  CHECKTYPE REQUIRED
  MESSAGE COPY, F_COD_CAUS2
END

STRING F_DESCR 50
BEGIN
  PROMPT 15 1 "Descriz. "
  FIELD LF_CAUSALI->DESCR
  USE LF_CAUSALI KEY 2
  INPUT DESCR F_DESCR
  DISPLAY "Descrizione @50" DESCR
  DISPLAY "Codice" CODCAUS
  DISPLAY "Documento" TIPODOC
  DISPLAY "Registro" REG
  DISPLAY "Movimento" TIPOMOV
  COPY OUTPUT F_COD_CAUS
  CHECKTYPE REQUIRED
  KEY 2
  WARNING "Descrizione assente"
  HELP "Descrizione della causale"
  MESSAGE COPY, F_DESCR2
END

STRING F_TIPO_DOC 2
BEGIN
  PROMPT 2 4 "Tipo doc. "
  HELP "Tipo di documento collegato alla causale"
  FIELD LF_CAUSALI->TIPODOC
  USE %TPD
  INPUT CODTAB F_TIPO_DOC
  DISPLAY "Tipo " CODTAB
  DISPLAY "Descrizione @50 " S0
  OUTPUT F_TIPO_DOC CODTAB
  HELP "Tipo documento"
  WARNING "Tipo documento errato"
  CHECKTYPE NORMAL
  FLAGS "U"
  ADD NONE
END

STRING F_COD_REG 3
BEGIN
  PROMPT 23 4 "Cod. reg. "
  HELP "Codice registro collegato alla causale"
  FIELD LF_CAUSALI->REG
  USE REG
  INPUT CODTAB[1,4] F_ANNOES SELECT
  INPUT CODTAB[5,7] F_COD_REG
  DISPLAY "Anno" CODTAB[1,4]
  DISPLAY "Codice registro " CODTAB[5,7]
  DISPLAY "Tipo" I0
  DISPLAY "Corrispettivi" B0
  DISPLAY "Descrizione @50" S0
  OUTPUT F_COD_REG CODTAB[5,7]
  OUTPUT F_TIPO_REG I0
  OUTPUT F_CORRISP B0
  WARNING "Registro assente o non compatibile col tipo documento"
  CHECKTYPE NORMAL
  FLAGS "DU"
END

// Questo rimane quasi sempre nascosto
STRING F_TIPO_MOV 2
BEGIN
  PROMPT 68 4 ""
  FIELD TIPOMOV
  FLAGS "H"
END

// Viene mostrato questo se TPD non vuoto e diverso da IN AN PG
LISTBOX F_TIPO_MOV_1 1 20
BEGIN
  PROMPT 44 4 "Tipo mov. "
  HELP "Tipo di movimento generato dalla causale"
  FIELD TIPOMOV
  HELP "Tipo movimento"
  ITEM " |Nessuno"   MESSAGE COPY,F_TIPO_MOV
  ITEM "1|Fattura"  MESSAGE COPY,F_TIPO_MOV
  ITEM "2|Nota credito"  MESSAGE COPY,F_TIPO_MOV
//  GROUP 2
END

// Viene mostrato questo se TPD vuoto o uguale a IN AN PG
LISTBOX F_TIPO_MOV_2 1 20
BEGIN
  PROMPT 44 4 "Tipo mov. "
  FIELD LF_CAUSALI->TIPOMOV
  HELP "Tipo di movimento generato dalla causale"
  ITEM " |Nessuno"  MESSAGE COPY,F_TIPO_MOV
  ITEM "3|Incasso/pagamento "  MESSAGE COPY,F_TIPO_MOV
  ITEM "5|Insoluto"  MESSAGE COPY,F_TIPO_MOV
  ITEM "6|Pagamento insoluto"  MESSAGE COPY,F_TIPO_MOV
  FLAGS "H"   
END

LISTBOX F_M_770 1 48
BEGIN
  PROMPT 2 5 "Collegamento Mod.770  "
  FIELD LF_CAUSALI->M770
  HELP "Tipo di collegamento Mod.770"
  ITEM " |Nessuno" 
  ITEM "1|Ricevuta e/o pagamento fattura percipiente" 
  ITEM "2|Versamento ritenute percipiente"
  ITEM "3|Versamento ritenute dipendente"
  ITEM "4|Versamento contributi dipendente" 
  ITEM "5|Compensi non soggetti"
  ITEM "6|Ritenute per prestazioni occasionali"
END

NUMBER F_ANNOES 4
BEGIN
  PROMPT 2 5 ""
  FLAGS "AH"
END

NUMBER F_TIPO_REG 1
BEGIN
  PROMPT 23 5 ""
  FLAGS "H"
END

BOOLEAN F_CORRISP
BEGIN
  PROMPT 33 5 ""
  FLAGS "H"
END

SPREADSHEET F_SHEET_GCS
BEGIN
  PROMPT 0 7 ""
  ITEM "Tipo conto@21F"
  ITEM "D/A"
  ITEM "C/F"
  ITEM "Gr."
  ITEM "Co."
  ITEM "Sottoc.@6"
  ITEM "Descrizione Conto@50"
  ITEM "Desc. agg.@5"
  ITEM "Descrizione Aggiuntiva@50"
END

ENDPAGE

PAGE "" -1 -1 77 20

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 0 ""
END

STRING F_COD_CAUS2 3
BEGIN
  PROMPT 3 1 "Codice "
  FLAGS "D"
END

STRING F_DESCR2 40
BEGIN
  PROMPT 17 1 "Descrizione "
  FLAGS "D"
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 3 "@BCampi obbligatori in immissione documenti"
END

BOOLEAN F_DATA_DOC
BEGIN
  PROMPT 2 4 "Data documento"
  FIELD LF_CAUSALI->DATADOC
  HELP "Data del documento collegato con la causale"
  CHECKTYPE NORMAL
END

BOOLEAN F_NUM_DOC
BEGIN
  PROMPT 34 4 "Numero documento"
  FIELD LF_CAUSALI->NUMDOC
  HELP "Numero del documento collegato con la causale"
  CHECKTYPE NORMAL
END

BOOLEAN F_AUTO_FAT
BEGIN
  PROMPT 2 6 "Autofattura art.34"
  HELP "Indicare se si tratta di autofattura ex art.34"
  FIELD LF_CAUSALI->AUTOFATT 
  CHECKTYPE NORMAL
  GROUP 2
END

BOOLEAN F_ALLEGAT
BEGIN
  PROMPT 34 6 "Doc. non va in allegati fine anno"
  HELP "Indicare se non inserire negli allegati IVA del documento"
  FIELD LF_CAUSALI->ALLEG
  GROUP 2
END

BOOLEAN F_FAT_RITARDO
BEGIN
  PROMPT 2 8 "Fattura in ritardo"
  HELP "Indicare se le fatture vengono registrate al ricevimento"
  FIELD LF_CAUSALI->RITFATT
  GROUP 2
END

STRING F_COD_CAUS_IM 3
BEGIN
  PROMPT 34 8 "Codice causale per l'incasso immediato "
  HELP "Codice causale nel caso di incasso immediato"
  FLAGS "U"
  FIELD LF_CAUSALI->CODCAUSIM
  COPY USE F_COD_CAUS
  INPUT CODCAUS F_COD_CAUS_IM
  COPY DISPLAY F_COD_CAUS
  OUTPUT F_COD_CAUS_IM CODCAUS
  CHECKTYPE NORMAL
  GROUP 2
END

BOOLEAN F_OP_INTRACOM
BEGIN
  PROMPT 2 10 "Operazione intracomunitaria"
  HELP "Indicare se gestire le fatture intracomunitarie"
  FIELD LF_CAUSALI->INTRACOM
  GROUP 2
END

BOOLEAN F_VALINTRA
BEGIN
  PROMPT 34 10 "Gestione valuta per operazioni intrac."
  HELP "Indicare se registrare l'importo delle fatture CEE in valute"
  FIELD LF_CAUSALI->VALINTRA
  MESSAGE FALSE " ",F_MOV_VALU|ENABLE,F_MOV_VALU
  MESSAGE TRUE  "X",F_MOV_VALU|DISABLE,F_MOV_VALU
  GROUP 2
END

BOOLEAN F_MOV_VALU
BEGIN
  PROMPT 2 12 "Movimento in valuta"
  HELP "Indicare se si utilizzano gli importi in valuta"
  FIELD LF_CAUSALI->MOVVAL
  GROUP 2
END

BOOLEAN F_MOV_SEZ
BEGIN
  PROMPT 34 12 "Movimento solo sezionale"
  HELP "Indicare se si tratta solo di moviemto di sezione"
  FIELD LF_CAUSALI->MOVSEZ
  FLAGS "H"
END

LISTBOX F_OP_FINE_ANNO 1 11
BEGIN
  PROMPT 2 14 "Operazioni di fine anno "
  HELP "Tipo di movimento di fine anno"
  ITEM " | "
  ITEM "C|Chiusura"
  ITEM "A|Apertura"
  FIELD LF_CAUSALI->MOVAP
  FLAGS "H"
END


LISTBOX F_COLL_CESP 1 40
BEGIN
  PROMPT 2 16 "Collegamento cespiti "
  FIELD LF_CAUSALI->COLLCESP
  HELP "Tipo di collegamento cespiti"
  ITEM " |Nessuno"
  ITEM "A|Acquisto cespite"
  ITEM "B|Rettifica acquisto"
  ITEM "C|Sostenimento costi"
  ITEM "E|Eliminazione dal processo produttivo"
  ITEM "M|Rivalutazione monetaria"
  ITEM "P|Reinvestimento plusvalenze"
  ITEM "R|Rivalutazione economica"
  ITEM "T|Trasferimento"
  ITEM "V|Vendita cespite"
  ITEM "Z|Rettifica vendita"
END

ENDPAGE

ENDMASK

#include "cg0500b.uml"