359 lines
7.0 KiB
Plaintext
Executable File
359 lines
7.0 KiB
Plaintext
Executable File
#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 CODCAUS
|
|
KEY 1
|
|
FLAGS "UZ"
|
|
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
|
|
DISPLAY "Inc./Pag." CODCAUSIM
|
|
DISPLAY "770" M770
|
|
DISPLAY "Cespiti" COLLCESP
|
|
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 16 1 "Descriz."
|
|
FIELD 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
|
|
DISPLAY "Inc./Pag." CODCAUSIM
|
|
DISPLAY "770" M770
|
|
DISPLAY "Cespiti" COLLCESP
|
|
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 3 "Tipo documento "
|
|
HELP "Tipo di documento collegato alla causale"
|
|
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
|
|
HELP "Tipo documento"
|
|
WARNING "Tipo documento errato"
|
|
CHECKTYPE NORMAL
|
|
FLAGS "U"
|
|
ADD NONE
|
|
END
|
|
|
|
STRING F_DES_DOC 50
|
|
BEGIN
|
|
PROMPT 24 3 ""
|
|
HELP "Tipo di documento collegato alla causale"
|
|
USE %TPD KEY 2
|
|
INPUT S0 F_DES_DOC
|
|
DISPLAY "Descrizione @50" S0
|
|
DISPLAY "Tipo " CODTAB
|
|
COPY OUTPUT F_TIPO_DOC
|
|
HELP "Tipo documento"
|
|
WARNING "Tipo documento errato"
|
|
CHECKTYPE NORMAL
|
|
ADD NONE
|
|
END
|
|
|
|
STRING F_COD_REG 3
|
|
BEGIN
|
|
PROMPT 2 4 "Cod. registro "
|
|
HELP "Codice registro collegato alla causale"
|
|
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 "
|
|
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 2 5 "Tipo movimento "
|
|
FIELD 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 6 "Collegamento Mod.770 "
|
|
FIELD 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
|
|
|
|
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 DATADOC
|
|
HELP "Data del documento collegato con la causale"
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
BOOLEAN F_NUM_DOC
|
|
BEGIN
|
|
PROMPT 34 4 "Numero documento"
|
|
FIELD 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 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 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 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 "UZ"
|
|
FIELD 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 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 VALINTRA
|
|
GROUP 2
|
|
END
|
|
|
|
BOOLEAN F_MOV_VALU
|
|
BEGIN
|
|
PROMPT 2 12 "Movimento in valuta"
|
|
HELP "Indicare se si utilizzano gli importi in valuta"
|
|
FIELD 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 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 MOVAP
|
|
FLAGS "H"
|
|
END
|
|
|
|
|
|
LISTBOX F_COLL_CESP 1 40
|
|
BEGIN
|
|
PROMPT 2 16 "Collegamento cespiti "
|
|
FIELD 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"
|