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 3 1 "Codice "
  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 40
BEGIN
  PROMPT 17 1 "Descrizione "
  FIELD LF_CAUSALI->DESCR
  COPY USE F_COD_CAUS
  INPUT CODCAUS F_COD_CAUS
  INPUT DESCR F_DESCR
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione @50" DESCR
  DISPLAY "Documento" TIPODOC
  DISPLAY "Registro" REG
  DISPLAY "Movimento" TIPOMOV
  OUTPUT F_COD_CAUS CODCAUS
  OUTPUT F_DESCR DESCR
  HELP "Descrizione della causale"
  MESSAGE COPY, F_DESCR2
END

STRING F_TIPO_DOC 2
BEGIN
  PROMPT 2 4 "Tipo doc. "
  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"
  CHECKTYPE NORMAL
//  MESSAGE SHOW, 2@
//  MESSAGE EMPTY HIDE, 2@
  FLAGS "U"
  ADD NONE
END

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

// Questo rimane sempre nascosto
STRING F_TIPO_MOV 2
BEGIN
  PROMPT 68 4 ""
  FIELD LF_CAUSALI->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. "
  FIELD LF_CAUSALI->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 "Inserire il tipo movimento"
  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 40
BEGIN
  PROMPT 2 6 "Collegamento Mod.770 "
  FIELD LF_CAUSALI->M770
  HELP "Inserire il tipo di collegamento Mod.770"
  ITEM " |Nessuno" 
  ITEM "1|Ricevuta e/o pagamento fattura percip." 
  ITEM "2|Versamento ritenute percip."
  ITEM "3|Versamento ritenute dipendente"
  ITEM "4|Versamento contributi dipendente" 
  ITEM "5|Compensi non soggetti"
  ITEM "6|Ritenute per operazioni occasionali"
END

NUMBER F_ANNOES 4
BEGIN
  PROMPT 2 5 ""
  FLAGS "H"
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 "C/F"
  ITEM "Gr."
  ITEM "Co."
  ITEM "Sottoc.@6"
  ITEM "D/A"
  ITEM "Descrizione conto@50"
  ITEM "Descr. agg."
  ITEM "Iva"
  ITEM "Cod.Iva@4"
END

ENDPAGE

PAGE "" -1 -1 77 20

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 0 "@BCampi obbligatori in immissione documenti"
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 caricamento documenti"
END

BOOLEAN F_DATA_DOC
BEGIN
  PROMPT 2 4 "Data documento"
  FIELD LF_CAUSALI->DATADOC
  HELP ""
  CHECKTYPE NORMAL
END

BOOLEAN F_NUM_DOC
BEGIN
  PROMPT 34 4 "Numero documento"
  FIELD LF_CAUSALI->NUMDOC
  CHECKTYPE NORMAL
END

BOOLEAN F_AUTO_FAT
BEGIN
  PROMPT 2 6 "Autofattura 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"
  FIELD LF_CAUSALI->ALLEG
  GROUP 2
END

BOOLEAN F_FAT_RITARDO
BEGIN
  PROMPT 2 8 "Fattura in ritardo"
  FIELD LF_CAUSALI->RITFATT
  GROUP 2
END

STRING F_COD_CAUS_IM 3
BEGIN
  PROMPT 34 8 "Codice causale per l'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
//  MESSAGE CLEAR, F_M_770
  GROUP 2
END

BOOLEAN F_OP_INTRACOM
BEGIN
  PROMPT 2 10 "Operazione intracomunitaria"
  FIELD LF_CAUSALI->INTRACOM
//  MESSAGE TRUE "X", F_MOV_VALU | DISABLE, F_MOV_VALU
//  MESSAGE FALSE "", F_MOV_VALU | ENABLE, F_MOV_VALU
  GROUP 2
END

BOOLEAN F_VALINTRA
BEGIN
  PROMPT 34 10 "Gestione valuta per operazioni intrac."
  FIELD LF_CAUSALI->VALINTRA
  GROUP 2
END

BOOLEAN F_MOV_VALU
BEGIN
  PROMPT 2 12 "Movimento in valuta"
  FIELD LF_CAUSALI->MOVVAL
  GROUP 2
END

BOOLEAN F_MOV_SEZ
BEGIN
  PROMPT 34 12 "Movimento solo sezionale"
  FIELD LF_CAUSALI->MOVSEZ
  FLAGS "H"
END

LISTBOX F_OP_FINE_ANNO 1 11
BEGIN
  PROMPT 2 14 "Operazioni 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 "Inserire il 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"