a813d4e1f5
Files correlati :cg0500a.msk Ricompilazione Demo : [ ] Commento :cabiata la voce "industriale" in "analitica" git-svn-id: svn://10.65.10.50/trunk@12871 c028cbd2-c16b-5b4b-a496-9718f37d4682
353 lines
6.3 KiB
Plaintext
Executable File
353 lines
6.3 KiB
Plaintext
Executable File
#include "cg0500.h"
|
|
|
|
TOOLBAR "" 0 -3 0 3
|
|
|
|
#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
|
|
MESSAGE EMPTY CLEAR,F_SOLAIVA
|
|
MESSAGE ENABLE,F_SOLAIVA
|
|
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 "1|Fattura" 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
|
|
|
|
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_SOLAIVA
|
|
BEGIN
|
|
PROMPT 34 12 "Movimento di sola IVA"
|
|
FIELD SOLOIVA
|
|
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
|
|
|
|
GROUPBOX DLG_NULL 78 5
|
|
BEGIN
|
|
PROMPT 1 15 "@bCollegamenti"
|
|
END
|
|
|
|
LISTBOX F_M_770 1 48
|
|
BEGIN
|
|
PROMPT 2 16 "Modello 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
|
|
|
|
LIST F_COLL_CESP 1 40
|
|
BEGIN
|
|
PROMPT 2 17 "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
|
|
|
|
BOOLEAN F_MOVIND
|
|
BEGIN
|
|
PROMPT 2 18 "Contabilita' analitica"
|
|
FIELD MOVIND
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
#include "cg0500b.uml"
|