campo-sirio/cg/cg0500a.uml

#include "cg0500.h"

TOOLBAR "" 0 20 0 2

#include <toolbar.h>

ENDPAGE

PAGE "Righe" -1 -1 77 20

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 0 ""
END

STRING F_COD_CAUS 3
BEGIN
  PROMPT 2 1 "Codice "
  FIELD CODCAUS
  KEY 1
  FLAGS "UZ"
  USE LF_CAUSALI
  INPUT CODCAUS F_COD_CAUS
  DISPLAY "Cod." CODCAUS
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Documento" TIPODOC
  DISPLAY "Registro" REG
  DISPLAY "Tipo movimento" TIPOMOV
  DISPLAY "Inc./Pag." CODCAUSIM
  DISPLAY "770" M770
  DISPLAY "Cespiti" COLLCESP
  OUTPUT F_COD_CAUS CODCAUS
  OUTPUT F_DESCR DESCR
  CHECKTYPE REQUIRED
  MESSAGE COPY,F_COD_CAUS2
END

STRING F_DESCR 50
BEGIN
  PROMPT 16 1 "Descriz."
  FIELD DESCR
  USE LF_CAUSALI KEY 2
  INPUT DESCR F_DESCR
  DISPLAY "Descrizione @50" DESCR
  DISPLAY "Cod." CODCAUS
  DISPLAY "Documento" TIPODOC
  DISPLAY "Registro" REG
  DISPLAY "Movimento" TIPOMOV
  DISPLAY "Inc./Pag." CODCAUSIM
  DISPLAY "770" M770
  DISPLAY "Cespiti" COLLCESP
  COPY OUTPUT F_COD_CAUS
  CHECKTYPE REQUIRED
  KEY 2
  WARNING "Descrizione assente"
  MESSAGE COPY,F_DESCR2
END

STRING F_TIPO_DOC 2
BEGIN
  PROMPT 2 3 "Tipo documento "
  FIELD TIPODOC
  USE %TPD
  INPUT CODTAB F_TIPO_DOC
  DISPLAY "Tipo " CODTAB
  DISPLAY "Descrizione @50" S0
  OUTPUT F_TIPO_DOC CODTAB
  OUTPUT F_DES_DOC S0
  WARNING "Tipo documento errato"
  CHECKTYPE NORMAL
  FLAGS "U"
  ADD NONE
END

STRING F_DES_DOC 50
BEGIN
  PROMPT 24 3 ""
  USE %TPD KEY 2
  INPUT S0 F_DES_DOC
  DISPLAY "Descrizione @50" S0
  DISPLAY "Tipo " CODTAB
  COPY OUTPUT F_TIPO_DOC
  WARNING "Tipo documento errato"
  CHECKTYPE NORMAL
  ADD NONE
END

STRING F_COD_REG 3
BEGIN
  PROMPT 2 4 "Cod. registro  "
  FIELD 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 "Corrispettivi" B0
  DISPLAY "Descrizione @50" S0
  OUTPUT F_COD_REG CODTAB[5,7]
  OUTPUT F_TIPO_REG I0
  OUTPUT F_CORRISP B0
  OUTPUT F_DES_REG S0
  WARNING "Registro assente o non compatibile col tipo documento"
  CHECKTYPE REQUIRED
  FLAGS "UZ"
END

STRING F_DES_REG 50
BEGIN
  PROMPT 24 4 ""
  USE REG KEY 2
  INPUT S0 F_DES_REG
  DISPLAY "Descrizione @50" S0
  DISPLAY "Anno" CODTAB[1,4]
  DISPLAY "Codice registro " CODTAB[5,7]
  DISPLAY "Tipo" I0
  DISPLAY "Corrispettivi" B0
  COPY OUTPUT F_COD_REG
  CHECKTYPE REQUIRED
END

NUMBER F_ANNOES 4
BEGIN
  PROMPT 2 5 "Anno liquidaz. "
  FLAGS "HA"
END

NUMBER F_TIPO_REG 1
BEGIN
  PROMPT 25 5 "Tipo "
  FLAGS "H"
END

// Questo rimane quasi sempre nascosto
STRING F_TIPO_MOV 1
BEGIN
  PROMPT 2 5 ""
  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 2 5 "Tipo movimento        "
  FIELD TIPOMOV
  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 2 5 "Tipo movimento        "
  FIELD TIPOMOV
  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 6 "Collegamento Mod.770  "
  FIELD M770
  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

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@3"
  ITEM "C/F@3"
  ITEM "Gr."
  ITEM "Co."
  ITEM "Sottoc."
  ITEM "Descrizione Conto@50"
  ITEM "Desc. agg."
  ITEM "Descrizione Aggiuntiva@50"
END

ENDPAGE

PAGE "Parametri" -1 -1 77 20

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 0 ""
END

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

STRING F_DESCR2 50
BEGIN
  PROMPT 16 1 "Descriz."
  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 DATADOC
END

BOOLEAN F_NUM_DOC
BEGIN
  PROMPT 34 4 "Numero documento"
  FIELD NUMDOC
END

BOOLEAN F_AUTO_FAT
BEGIN
  PROMPT 2 6 "Autofattura art.34"
  FIELD AUTOFATT
  GROUP 2
END

BOOLEAN F_ALLEGAT
BEGIN
  PROMPT 34 6 "Doc. non va in allegati fine anno"
  FIELD ALLEG
  GROUP 2
END

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

STRING F_COD_CAUS_IM 3
BEGIN
  PROMPT 34 8 "Codice causale per l'incasso immediato "
  FLAGS "UZ"
  FIELD CODCAUSIM
  USE LF_CAUSALI SELECT REG==""
  INPUT CODCAUS F_COD_CAUS_IM
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Documento" TIPODOC
  OUTPUT F_COD_CAUS_IM CODCAUS
  CHECKTYPE NORMAL
  GROUP 2
END

BOOLEAN F_OP_INTRACOM
BEGIN
  PROMPT 2 10 "Operazione intracomunitaria"
  FIELD INTRACOM
  GROUP 2
END

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

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

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

LIST F_OP_FINE_ANNO 1 11
BEGIN
  PROMPT 2 14 "Operazioni di fine anno "
  ITEM " | "
  ITEM "C|Chiusura"
  ITEM "A|Apertura"
  FIELD MOVAP
  FLAGS "H"
END

LIST F_COLL_CESP 1 40
BEGIN
  PROMPT 2 16 "Collegamento cespiti    "
  FIELD COLLCESP
  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

LIST F_MOVIND 2
BEGIN
  PROMPT 2 17 "Contabilita' industriale "
  ITEM "|No"
  ITEM "1|Si"
  FIELD MOVIND
END

ENDPAGE

ENDMASK

#include "cg0500b.uml"