MOdifiche da Parma
git-svn-id: svn://10.65.10.50/trunk@102 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
e343aadb5e
commit
3d6dff6698
582
cg/cg0500a.uml
582
cg/cg0500a.uml
@ -1,291 +1,291 @@
|
|||||||
#include "cg0500.h"
|
#include "cg0500.h"
|
||||||
|
|
||||||
TOOLBAR "" 0 20 0 2
|
TOOLBAR "" 0 20 0 2
|
||||||
|
|
||||||
#include <toolbar.h>
|
#include <toolbar.h>
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
|
|
||||||
PAGE "" -1 -1 77 20
|
PAGE "" -1 -1 77 20
|
||||||
|
|
||||||
GROUPBOX DLG_NULL -1 3
|
GROUPBOX DLG_NULL -1 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 0 ""
|
PROMPT 1 0 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_COD_CAUS 3
|
STRING F_COD_CAUS 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 3 1 "Codice "
|
PROMPT 3 1 "Codice "
|
||||||
FIELD LF_CAUSALI->CODCAUS
|
FIELD LF_CAUSALI->CODCAUS
|
||||||
KEY 1
|
KEY 1
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
USE LF_CAUSALI
|
USE LF_CAUSALI
|
||||||
INPUT CODCAUS F_COD_CAUS
|
INPUT CODCAUS F_COD_CAUS
|
||||||
DISPLAY "Cod. causale" CODCAUS
|
DISPLAY "Cod. causale" CODCAUS
|
||||||
DISPLAY "Descrizione @50" DESCR
|
DISPLAY "Descrizione @50" DESCR
|
||||||
DISPLAY "Tipo documento" TIPODOC
|
DISPLAY "Tipo documento" TIPODOC
|
||||||
DISPLAY "Codice registro" REG
|
DISPLAY "Codice registro" REG
|
||||||
DISPLAY "Tipo movimento" TIPOMOV
|
DISPLAY "Tipo movimento" TIPOMOV
|
||||||
OUTPUT F_COD_CAUS CODCAUS
|
OUTPUT F_COD_CAUS CODCAUS
|
||||||
OUTPUT F_DESCR DESCR
|
OUTPUT F_DESCR DESCR
|
||||||
HELP "Codice causale"
|
HELP "Codice causale"
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_DESCR 40
|
STRING F_DESCR 40
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 17 1 "Descrizione "
|
PROMPT 17 1 "Descrizione "
|
||||||
FIELD LF_CAUSALI->DESCR
|
FIELD LF_CAUSALI->DESCR
|
||||||
COPY USE F_COD_CAUS
|
COPY USE F_COD_CAUS
|
||||||
INPUT CODCAUS F_COD_CAUS
|
INPUT CODCAUS F_COD_CAUS
|
||||||
INPUT DESCR F_DESCR
|
INPUT DESCR F_DESCR
|
||||||
DISPLAY "Cod. causale" CODCAUS
|
DISPLAY "Cod. causale" CODCAUS
|
||||||
DISPLAY "Descrizione @50" DESCR
|
DISPLAY "Descrizione @50" DESCR
|
||||||
DISPLAY "Tipo documento" TIPODOC
|
DISPLAY "Tipo documento" TIPODOC
|
||||||
DISPLAY "Codice registro" REG
|
DISPLAY "Codice registro" REG
|
||||||
DISPLAY "Tipo movimento" TIPOMOV
|
DISPLAY "Tipo movimento" TIPOMOV
|
||||||
OUTPUT F_COD_CAUS CODCAUS
|
OUTPUT F_COD_CAUS CODCAUS
|
||||||
OUTPUT F_DESCR DESCR
|
OUTPUT F_DESCR DESCR
|
||||||
HELP "Descrizione della causale"
|
HELP "Descrizione della causale"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_TIPO_DOC 2
|
STRING F_TIPO_DOC 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 4 "Tipo doc. "
|
PROMPT 2 4 "Tipo doc. "
|
||||||
FIELD LF_CAUSALI->TIPODOC
|
FIELD LF_CAUSALI->TIPODOC
|
||||||
USE %TPD
|
USE %TPD
|
||||||
INPUT CODTAB F_TIPO_DOC
|
INPUT CODTAB F_TIPO_DOC
|
||||||
DISPLAY "Tipo " CODTAB
|
DISPLAY "Tipo " CODTAB
|
||||||
DISPLAY "Descrizione @50 " S0
|
DISPLAY "Descrizione @50 " S0
|
||||||
OUTPUT F_TIPO_DOC CODTAB
|
OUTPUT F_TIPO_DOC CODTAB
|
||||||
HELP "Tipo documento"
|
HELP "Tipo documento"
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
MESSAGE SHOW, 2@
|
MESSAGE SHOW, 2@
|
||||||
MESSAGE EMPTY HIDE, 2@
|
MESSAGE EMPTY HIDE, 2@
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_COD_REG 3
|
STRING F_COD_REG 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 23 4 "Cod. reg. "
|
PROMPT 23 4 "Cod. reg. "
|
||||||
FIELD LF_CAUSALI->REG
|
FIELD LF_CAUSALI->REG
|
||||||
USE REG
|
USE REG
|
||||||
INPUT CODTAB[1,4] F_ANNOES
|
INPUT CODTAB[1,4] F_ANNOES
|
||||||
INPUT CODTAB[5,7] F_COD_REG
|
INPUT CODTAB[5,7] F_COD_REG
|
||||||
DISPLAY "Anno" CODTAB[1,4]
|
DISPLAY "Anno" CODTAB[1,4]
|
||||||
DISPLAY "Codice registro " CODTAB[5,7]
|
DISPLAY "Codice registro " CODTAB[5,7]
|
||||||
DISPLAY "Tipo" I0
|
DISPLAY "Tipo" I0
|
||||||
DISPLAY "Registro corrispettivi" B0
|
DISPLAY "Registro corrispettivi" B0
|
||||||
DISPLAY "Descrizione @50" S0
|
DISPLAY "Descrizione @50" S0
|
||||||
OUTPUT F_ANNOES CODTAB[1,4]
|
OUTPUT F_ANNOES CODTAB[1,4]
|
||||||
OUTPUT F_COD_REG CODTAB[5,7]
|
OUTPUT F_COD_REG CODTAB[5,7]
|
||||||
OUTPUT F_TIPO_REG I0
|
OUTPUT F_TIPO_REG I0
|
||||||
OUTPUT F_CORRISP B0
|
OUTPUT F_CORRISP B0
|
||||||
HELP "Codice registro"
|
HELP "Codice registro"
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
// Questo rimane sempre nascosto
|
// Questo rimane sempre nascosto
|
||||||
STRING F_TIPO_MOV 2
|
STRING F_TIPO_MOV 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 68 4 ""
|
PROMPT 68 4 ""
|
||||||
FIELD LF_CAUSALI->TIPOMOV
|
FIELD LF_CAUSALI->TIPOMOV
|
||||||
FLAGS "H"
|
FLAGS "H"
|
||||||
END
|
END
|
||||||
|
|
||||||
// Viene mostrato questo se TPD non vuoto e diverso da IN AN PG
|
// Viene mostrato questo se TPD non vuoto e diverso da IN AN PG
|
||||||
LISTBOX F_TIPO_MOV_1 1 20
|
LISTBOX F_TIPO_MOV_1 1 20
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 44 4 "Tipo mov. "
|
PROMPT 44 4 "Tipo mov. "
|
||||||
FIELD LF_CAUSALI->TIPOMOV
|
FIELD LF_CAUSALI->TIPOMOV
|
||||||
HELP "Tipo movimento"
|
HELP "Tipo movimento"
|
||||||
ITEM " |Nessuno" MESSAGE COPY,F_TIPO_MOV
|
ITEM " |Nessuno" MESSAGE COPY,F_TIPO_MOV
|
||||||
ITEM "1|Fattura" MESSAGE COPY,F_TIPO_MOV
|
ITEM "1|Fattura" MESSAGE COPY,F_TIPO_MOV
|
||||||
ITEM "2|Nota credito" MESSAGE COPY,F_TIPO_MOV
|
ITEM "2|Nota credito" MESSAGE COPY,F_TIPO_MOV
|
||||||
// GROUP 2
|
// GROUP 2
|
||||||
END
|
END
|
||||||
|
|
||||||
// Viene mostrato questo se TPD vuoto o uguale a IN AN PG
|
// Viene mostrato questo se TPD vuoto o uguale a IN AN PG
|
||||||
LISTBOX F_TIPO_MOV_2 1 20
|
LISTBOX F_TIPO_MOV_2 1 20
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 44 4 "Tipo mov. "
|
PROMPT 44 4 "Tipo mov. "
|
||||||
FIELD LF_CAUSALI->TIPOMOV
|
FIELD LF_CAUSALI->TIPOMOV
|
||||||
HELP "Inserire il tipo movimento"
|
HELP "Inserire il tipo movimento"
|
||||||
ITEM " |Nessuno" MESSAGE COPY,F_TIPO_MOV
|
ITEM " |Nessuno" MESSAGE COPY,F_TIPO_MOV
|
||||||
ITEM "3|Incasso/pagamento " MESSAGE COPY,F_TIPO_MOV
|
ITEM "3|Incasso/pagamento " MESSAGE COPY,F_TIPO_MOV
|
||||||
ITEM "5|Insoluto" MESSAGE COPY,F_TIPO_MOV
|
ITEM "5|Insoluto" MESSAGE COPY,F_TIPO_MOV
|
||||||
ITEM "6|Pagamento insoluto" MESSAGE COPY,F_TIPO_MOV
|
ITEM "6|Pagamento insoluto" MESSAGE COPY,F_TIPO_MOV
|
||||||
FLAGS "H"
|
FLAGS "H"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_ANNOES 4
|
STRING F_ANNOES 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 6 ""
|
PROMPT 2 6 ""
|
||||||
FLAGS "H"
|
FLAGS "H"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_TIPO_REG 4
|
STRING F_TIPO_REG 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 23 5 ""
|
PROMPT 23 5 ""
|
||||||
FLAGS "H"
|
FLAGS "H"
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_CORRISP
|
BOOLEAN F_CORRISP
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 33 5 ""
|
PROMPT 33 5 ""
|
||||||
FLAGS "H"
|
FLAGS "H"
|
||||||
END
|
END
|
||||||
|
|
||||||
SPREADSHEET F_SHEET_GCS
|
SPREADSHEET F_SHEET_GCS
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 7 ""
|
PROMPT 2 7 ""
|
||||||
ITEM "Tipo conto@21"
|
ITEM "Tipo conto@21"
|
||||||
ITEM "C/F"
|
ITEM "C/F"
|
||||||
ITEM "Gr."
|
ITEM "Gr."
|
||||||
ITEM "Co."
|
ITEM "Co."
|
||||||
ITEM "Sottoc."
|
ITEM "Sottoc."
|
||||||
ITEM "D/A"
|
ITEM "D/A"
|
||||||
ITEM "Descrizione@50"
|
ITEM "Descrizione@50"
|
||||||
ITEM "Descr. agg."
|
ITEM "Descr. agg."
|
||||||
ITEM "Iva"
|
ITEM "Iva"
|
||||||
ITEM "Cod.Iva"
|
ITEM "Cod.Iva"
|
||||||
END
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
|
|
||||||
PAGE "" -1 -1 77 20
|
PAGE "" -1 -1 77 20
|
||||||
|
|
||||||
GROUPBOX DLG_NULL -1 3
|
GROUPBOX DLG_NULL -1 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 0 "Campi obbligatori in caricamento documenti"
|
PROMPT 1 0 "Campi obbligatori in caricamento documenti"
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_DATA_DOC
|
BOOLEAN F_DATA_DOC
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 1 "Data documento"
|
PROMPT 2 1 "Data documento"
|
||||||
FIELD LF_CAUSALI->DATADOC
|
FIELD LF_CAUSALI->DATADOC
|
||||||
HELP ""
|
HELP ""
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_NUM_DOC
|
BOOLEAN F_NUM_DOC
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 34 1 "Numero documento"
|
PROMPT 34 1 "Numero documento"
|
||||||
FIELD LF_CAUSALI->NUMDOC
|
FIELD LF_CAUSALI->NUMDOC
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_AUTO_FAT
|
BOOLEAN F_AUTO_FAT
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 4 "Autofattura art.34"
|
PROMPT 2 4 "Autofattura art.34"
|
||||||
FIELD LF_CAUSALI->AUTOFATT
|
FIELD LF_CAUSALI->AUTOFATT
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
GROUP 2
|
GROUP 2
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_ALLEGAT
|
BOOLEAN F_ALLEGAT
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 34 4 "Documento in allegati"
|
PROMPT 34 4 "Documento in allegati"
|
||||||
FIELD LF_CAUSALI->ALLEG
|
FIELD LF_CAUSALI->ALLEG
|
||||||
GROUP 2
|
GROUP 2
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_FAT_RITARDO
|
BOOLEAN F_FAT_RITARDO
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 6 "Fattura in ritardo"
|
PROMPT 2 6 "Fattura in ritardo"
|
||||||
FIELD LF_CAUSALI->RITFATT
|
FIELD LF_CAUSALI->RITFATT
|
||||||
GROUP 2
|
GROUP 2
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_COD_CAUS_IM 3
|
STRING F_COD_CAUS_IM 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 34 6 "Codice causale per l'incasso immediato "
|
PROMPT 34 6 "Codice causale per l'incasso immediato "
|
||||||
FIELD LF_CAUSALI->CODCAUSIM
|
FIELD LF_CAUSALI->CODCAUSIM
|
||||||
COPY USE F_COD_CAUS
|
COPY USE F_COD_CAUS
|
||||||
INPUT CODCAUS F_COD_CAUS_IM
|
INPUT CODCAUS F_COD_CAUS_IM
|
||||||
COPY DISPLAY F_COD_CAUS
|
COPY DISPLAY F_COD_CAUS
|
||||||
OUTPUT F_COD_CAUS_IM CODCAUS
|
OUTPUT F_COD_CAUS_IM CODCAUS
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
MESSAGE CLEAR, F_M_770
|
MESSAGE CLEAR, F_M_770
|
||||||
GROUP 2
|
GROUP 2
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_OP_INTRACOM
|
BOOLEAN F_OP_INTRACOM
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 8 "Operazione intracomunitaria"
|
PROMPT 2 8 "Operazione intracomunitaria"
|
||||||
FIELD LF_CAUSALI->INTRACOM
|
FIELD LF_CAUSALI->INTRACOM
|
||||||
MESSAGE TRUE "X", F_MOV_VALU | DISABLE, F_MOV_VALU
|
MESSAGE TRUE "X", F_MOV_VALU | DISABLE, F_MOV_VALU
|
||||||
MESSAGE FALSE "", F_MOV_VALU | ENABLE, F_MOV_VALU
|
MESSAGE FALSE "", F_MOV_VALU | ENABLE, F_MOV_VALU
|
||||||
GROUP 2
|
GROUP 2
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_VALINTRA
|
BOOLEAN F_VALINTRA
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 34 8 "Gestione valuta per operazioni intrac."
|
PROMPT 34 8 "Gestione valuta per operazioni intrac."
|
||||||
FIELD LF_CAUSALI->VALINTRA
|
FIELD LF_CAUSALI->VALINTRA
|
||||||
GROUP 2
|
GROUP 2
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_MOV_VALU
|
BOOLEAN F_MOV_VALU
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 10 "Movimento in valuta"
|
PROMPT 2 10 "Movimento in valuta"
|
||||||
FIELD LF_CAUSALI->MOVVAL
|
FIELD LF_CAUSALI->MOVVAL
|
||||||
GROUP 2
|
GROUP 2
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_MOV_SEZ
|
BOOLEAN F_MOV_SEZ
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 34 10 "Movimento solo sezionale"
|
PROMPT 34 10 "Movimento solo sezionale"
|
||||||
FIELD LF_CAUSALI->MOVSEZ
|
FIELD LF_CAUSALI->MOVSEZ
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
LISTBOX F_OP_FINE_ANNO 1 10
|
LISTBOX F_OP_FINE_ANNO 1 10
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 12 "Operazioni di fine anno "
|
PROMPT 2 12 "Operazioni di fine anno "
|
||||||
ITEM " | "
|
ITEM " | "
|
||||||
ITEM "C|Chiusura"
|
ITEM "C|Chiusura"
|
||||||
ITEM "A|Apertura"
|
ITEM "A|Apertura"
|
||||||
FIELD LF_CAUSALI->MOVAP
|
FIELD LF_CAUSALI->MOVAP
|
||||||
FLAGS "H"
|
FLAGS "H"
|
||||||
END
|
END
|
||||||
|
|
||||||
|
|
||||||
LISTBOX F_COLL_CESP 1 40
|
LISTBOX F_COLL_CESP 1 40
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 14 "Collegamento cespiti "
|
PROMPT 2 14 "Collegamento cespiti "
|
||||||
FIELD LF_CAUSALI->COLLCESP
|
FIELD LF_CAUSALI->COLLCESP
|
||||||
HELP "Inserire il tipo di collegamento cespiti"
|
HELP "Inserire il tipo di collegamento cespiti"
|
||||||
ITEM " |Nessuno"
|
ITEM " |Nessuno"
|
||||||
ITEM "A|Acquisto cespite"
|
ITEM "A|Acquisto cespite"
|
||||||
ITEM "B|Rettifica acquisto"
|
ITEM "B|Rettifica acquisto"
|
||||||
ITEM "C|Sostenimento costi"
|
ITEM "C|Sostenimento costi"
|
||||||
ITEM "E|Eliminazione dal processo produttivo"
|
ITEM "E|Eliminazione dal processo produttivo"
|
||||||
ITEM "M|Rivalutazione monetaria"
|
ITEM "M|Rivalutazione monetaria"
|
||||||
ITEM "P|Reinvestimento plusvalenze"
|
ITEM "P|Reinvestimento plusvalenze"
|
||||||
ITEM "R|Rivalutazione economica"
|
ITEM "R|Rivalutazione economica"
|
||||||
ITEM "T|Trasferimento"
|
ITEM "T|Trasferimento"
|
||||||
ITEM "V|Vendita cespite"
|
ITEM "V|Vendita cespite"
|
||||||
ITEM "Z|Rettifica vendita"
|
ITEM "Z|Rettifica vendita"
|
||||||
END
|
END
|
||||||
|
|
||||||
LISTBOX F_M_770 1 40
|
LISTBOX F_M_770 1 40
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 16 "Collegamento Mod.770 "
|
PROMPT 2 16 "Collegamento Mod.770 "
|
||||||
FIELD LF_CAUSALI->M770
|
FIELD LF_CAUSALI->M770
|
||||||
HELP "Inserire il tipo di collegamento Mod.770"
|
HELP "Inserire il tipo di collegamento Mod.770"
|
||||||
ITEM " |Nessuno" MESSAGE ENABLE,F_COD_CAUS_IM
|
ITEM " |Nessuno" MESSAGE ENABLE,F_COD_CAUS_IM
|
||||||
ITEM "1|Ricevuta e/o pagamento fattura percip." MESSAGE CLEAR,F_COD_CAUS_IM
|
ITEM "1|Ricevuta e/o pagamento fattura percip." MESSAGE CLEAR,F_COD_CAUS_IM
|
||||||
ITEM "2|Versamento ritenute percip." MESSAGE CLEAR,F_COD_CAUS_IM
|
ITEM "2|Versamento ritenute percip." MESSAGE CLEAR,F_COD_CAUS_IM
|
||||||
ITEM "3|Versamento ritenute dipendente" MESSAGE CLEAR,F_COD_CAUS_IM
|
ITEM "3|Versamento ritenute dipendente" MESSAGE CLEAR,F_COD_CAUS_IM
|
||||||
ITEM "4|Versamento contributi dipendente" MESSAGE CLEAR,F_COD_CAUS_IM
|
ITEM "4|Versamento contributi dipendente" MESSAGE CLEAR,F_COD_CAUS_IM
|
||||||
ITEM "5|Compensi non soggetti" MESSAGE CLEAR,F_COD_CAUS_IM
|
ITEM "5|Compensi non soggetti" MESSAGE CLEAR,F_COD_CAUS_IM
|
||||||
ITEM "6|Ritenute per operazioni occasionali" MESSAGE CLEAR,F_COD_CAUS_IM
|
ITEM "6|Ritenute per operazioni occasionali" MESSAGE CLEAR,F_COD_CAUS_IM
|
||||||
END
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
|
|
||||||
ENDMASK
|
ENDMASK
|
||||||
|
|
||||||
#include "cg0500b.uml"
|
#include "cg0500b.uml"
|
||||||
|
|||||||
404
cg/cg0500b.uml
404
cg/cg0500b.uml
@ -1,202 +1,202 @@
|
|||||||
|
|
||||||
#include "cg0500.h"
|
#include "cg0500.h"
|
||||||
|
|
||||||
PAGE "" -1 -1 68 11
|
PAGE "" -1 -1 68 11
|
||||||
|
|
||||||
STRING 101 22
|
STRING 101 22
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 1 "Tipo "
|
PROMPT 1 1 "Tipo "
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
LISTBOX 102 1 11
|
LISTBOX 102 1 11
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 33 1 "C/F "
|
PROMPT 33 1 "C/F "
|
||||||
ITEM " |Conto"
|
ITEM " |Conto"
|
||||||
MESSAGE SHOW,105|HIDE,205|HIDE,305
|
MESSAGE SHOW,105|HIDE,205|HIDE,305
|
||||||
ITEM "C|Cliente"
|
ITEM "C|Cliente"
|
||||||
MESSAGE SHOW,205|HIDE,105|HIDE,305
|
MESSAGE SHOW,205|HIDE,105|HIDE,305
|
||||||
ITEM "F|Fornitore"
|
ITEM "F|Fornitore"
|
||||||
MESSAGE SHOW,305|HIDE,105|HIDE,205
|
MESSAGE SHOW,305|HIDE,105|HIDE,205
|
||||||
FLAGS "DG"
|
FLAGS "DG"
|
||||||
GROUP 1
|
GROUP 1
|
||||||
// FLAGS "U"
|
// FLAGS "U"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER 103 3
|
NUMBER 103 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 3 "Gruppo "
|
PROMPT 1 3 "Gruppo "
|
||||||
FIELD LF_RCAUSALI->GRUPPO
|
FIELD LF_RCAUSALI->GRUPPO
|
||||||
USE LF_PCON KEY 1 SELECT (CONTO="") && (SOTTOCONTO="")
|
USE LF_PCON KEY 1 SELECT (CONTO="") && (SOTTOCONTO="")
|
||||||
INPUT GRUPPO 103
|
INPUT GRUPPO 103
|
||||||
DISPLAY "Gruppo" GRUPPO
|
DISPLAY "Gruppo" GRUPPO
|
||||||
DISPLAY "Descrizione@50" DESCR
|
DISPLAY "Descrizione@50" DESCR
|
||||||
DISPLAY "Tipo C/F" TMCF
|
DISPLAY "Tipo C/F" TMCF
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
OUTPUT 103 GRUPPO
|
OUTPUT 103 GRUPPO
|
||||||
OUTPUT 107 DESCR
|
OUTPUT 107 DESCR
|
||||||
// OUTPUT 102 TMCF
|
// OUTPUT 102 TMCF
|
||||||
WARNING "Gruppo inesistente o mancante"
|
WARNING "Gruppo inesistente o mancante"
|
||||||
// CHECKTYPE REQUIRED
|
// CHECKTYPE REQUIRED
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
GROUP 1
|
GROUP 1
|
||||||
ADD RUN CG0 -1
|
ADD RUN CG0 -1
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER 104 3
|
NUMBER 104 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 15 3 "Conto "
|
PROMPT 15 3 "Conto "
|
||||||
FIELD LF_RCAUSALI->CONTO
|
FIELD LF_RCAUSALI->CONTO
|
||||||
USE LF_PCON KEY 1 SELECT (CONTO!="") && (SOTTOCONTO="")
|
USE LF_PCON KEY 1 SELECT (CONTO!="") && (SOTTOCONTO="")
|
||||||
INPUT GRUPPO 103
|
INPUT GRUPPO 103
|
||||||
INPUT CONTO 104
|
INPUT CONTO 104
|
||||||
DISPLAY "Gruppo" GRUPPO
|
DISPLAY "Gruppo" GRUPPO
|
||||||
DISPLAY "Conto" CONTO
|
DISPLAY "Conto" CONTO
|
||||||
DISPLAY "Descrizione@50" DESCR
|
DISPLAY "Descrizione@50" DESCR
|
||||||
DISPLAY "Tipo C/F" TMCF
|
DISPLAY "Tipo C/F" TMCF
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
OUTPUT 102 TMCF
|
OUTPUT 102 TMCF
|
||||||
OUTPUT 104 CONTO
|
OUTPUT 104 CONTO
|
||||||
OUTPUT 103 GRUPPO
|
OUTPUT 103 GRUPPO
|
||||||
OUTPUT 107 DESCR
|
OUTPUT 107 DESCR
|
||||||
WARNING "Conto inesistente o mancante"
|
WARNING "Conto inesistente o mancante"
|
||||||
ADD RUN CG0 -1
|
ADD RUN CG0 -1
|
||||||
GROUP 1
|
GROUP 1
|
||||||
END
|
END
|
||||||
|
|
||||||
// Sottoconto NORMALE
|
// Sottoconto NORMALE
|
||||||
NUMBER 105 6
|
NUMBER 105 6
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 29 3 "Sottoconto "
|
PROMPT 29 3 "Sottoconto "
|
||||||
FIELD LF_RCAUSALI->SOTTOCONTO
|
FIELD LF_RCAUSALI->SOTTOCONTO
|
||||||
USE LF_PCON SELECT SOTTOCONTO!=""
|
USE LF_PCON SELECT SOTTOCONTO!=""
|
||||||
INPUT GRUPPO 103
|
INPUT GRUPPO 103
|
||||||
INPUT CONTO 104
|
INPUT CONTO 104
|
||||||
INPUT SOTTOCONTO 105
|
INPUT SOTTOCONTO 105
|
||||||
DISPLAY "Gruppo" GRUPPO
|
DISPLAY "Gruppo" GRUPPO
|
||||||
DISPLAY "Conto" CONTO
|
DISPLAY "Conto" CONTO
|
||||||
DISPLAY "Sottoconto" SOTTOCONTO
|
DISPLAY "Sottoconto" SOTTOCONTO
|
||||||
DISPLAY "Descrizione@50" DESCR
|
DISPLAY "Descrizione@50" DESCR
|
||||||
OUTPUT 103 GRUPPO
|
OUTPUT 103 GRUPPO
|
||||||
OUTPUT 104 CONTO
|
OUTPUT 104 CONTO
|
||||||
OUTPUT 105 SOTTOCONTO
|
OUTPUT 105 SOTTOCONTO
|
||||||
OUTPUT 107 DESCR
|
OUTPUT 107 DESCR
|
||||||
ADD RUN CG0 -1
|
ADD RUN CG0 -1
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
GROUP 1
|
GROUP 1
|
||||||
END
|
END
|
||||||
|
|
||||||
|
|
||||||
// Sottoconto CLIENTI
|
// Sottoconto CLIENTI
|
||||||
NUMBER 205 6
|
NUMBER 205 6
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 29 3 "Cliente "
|
PROMPT 29 3 "Cliente "
|
||||||
FIELD LF_RCAUSALI->SOTTOCONTO
|
FIELD LF_RCAUSALI->SOTTOCONTO
|
||||||
USE LF_CLIFO KEY 1 SELECT (TIPOCF=="C")
|
USE LF_CLIFO KEY 1 SELECT (TIPOCF=="C")
|
||||||
INPUT TIPOCF "C"
|
INPUT TIPOCF "C"
|
||||||
INPUT CODCF 205
|
INPUT CODCF 205
|
||||||
DISPLAY "Gruppo" GRUPPO
|
DISPLAY "Gruppo" GRUPPO
|
||||||
DISPLAY "Conto" CONTO
|
DISPLAY "Conto" CONTO
|
||||||
DISPLAY "Sottoconto" CODCF
|
DISPLAY "Sottoconto" CODCF
|
||||||
DISPLAY "Ragione sociale@50" RAGSOC
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
DISPLAY "Tipo C/F" TIPOCF
|
DISPLAY "Tipo C/F" TIPOCF
|
||||||
OUTPUT 205 CODCF
|
OUTPUT 205 CODCF
|
||||||
OUTPUT 107 RAGSOC
|
OUTPUT 107 RAGSOC
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
FLAGS "H"
|
FLAGS "H"
|
||||||
MESSAGE COPY,105
|
MESSAGE COPY,105
|
||||||
ADD RUN CG0 -1
|
ADD RUN CG0 -1
|
||||||
GROUP 1
|
GROUP 1
|
||||||
END
|
END
|
||||||
|
|
||||||
// Sottoconto FORNITORI
|
// Sottoconto FORNITORI
|
||||||
NUMBER 305 6
|
NUMBER 305 6
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 29 3 "Fornitore "
|
PROMPT 29 3 "Fornitore "
|
||||||
FIELD LF_RCAUSALI->SOTTOCONTO
|
FIELD LF_RCAUSALI->SOTTOCONTO
|
||||||
USE LF_CLIFO KEY 1 SELECT (TIPOCF=="F")
|
USE LF_CLIFO KEY 1 SELECT (TIPOCF=="F")
|
||||||
INPUT TIPOCF "F"
|
INPUT TIPOCF "F"
|
||||||
INPUT CODCF 305
|
INPUT CODCF 305
|
||||||
DISPLAY "Gruppo" GRUPPO
|
DISPLAY "Gruppo" GRUPPO
|
||||||
DISPLAY "Conto" CONTO
|
DISPLAY "Conto" CONTO
|
||||||
DISPLAY "Sottoconto" CODCF
|
DISPLAY "Sottoconto" CODCF
|
||||||
DISPLAY "Ragione sociale@50" RAGSOC
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
DISPLAY "Tipo C/F" TIPOCF
|
DISPLAY "Tipo C/F" TIPOCF
|
||||||
OUTPUT 305 CODCF
|
OUTPUT 305 CODCF
|
||||||
OUTPUT 107 RAGSOC
|
OUTPUT 107 RAGSOC
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
FLAGS "H"
|
FLAGS "H"
|
||||||
MESSAGE COPY,105
|
MESSAGE COPY,105
|
||||||
ADD RUN CG0 -1
|
ADD RUN CG0 -1
|
||||||
GROUP 1
|
GROUP 1
|
||||||
END
|
END
|
||||||
|
|
||||||
LISTBOX 106 5
|
LISTBOX 106 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 51 3 "Sezione "
|
PROMPT 51 3 "Sezione "
|
||||||
ITEM "D|Dare"
|
ITEM "D|Dare"
|
||||||
ITEM "A|Avere"
|
ITEM "A|Avere"
|
||||||
FIELD LF_RCAUSALI->SEZIONE
|
FIELD LF_RCAUSALI->SEZIONE
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING 107 50
|
STRING 107 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 5 "Descrizione "
|
PROMPT 1 5 "Descrizione "
|
||||||
FIELD LF_RCAUSALI->DESC
|
FIELD LF_RCAUSALI->DESC
|
||||||
GROUP 1
|
GROUP 1
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING 108 3
|
STRING 108 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 7 "Descrizione aggiuntiva "
|
PROMPT 1 7 "Descrizione aggiuntiva "
|
||||||
FIELD LF_RCAUSALI->CODDESC
|
FIELD LF_RCAUSALI->CODDESC
|
||||||
USE %DPN
|
USE %DPN
|
||||||
INPUT CODTAB 108
|
INPUT CODTAB 108
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
DISPLAY "Descrizione @50" S0
|
DISPLAY "Descrizione @50" S0
|
||||||
OUTPUT 108 CODTAB
|
OUTPUT 108 CODTAB
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
GROUP 1
|
GROUP 1
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN 109
|
BOOLEAN 109
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 34 7 "Riga iva "
|
PROMPT 34 7 "Riga iva "
|
||||||
FIELD LF_RCAUSALI->RIGAIVA
|
FIELD LF_RCAUSALI->RIGAIVA
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING 110 4
|
STRING 110 4
|
||||||
BEGIN
|
BEGIN
|
||||||
USE %IVA
|
USE %IVA
|
||||||
PROMPT 48 7 "Codice iva "
|
PROMPT 48 7 "Codice iva "
|
||||||
INPUT CODTAB 110
|
INPUT CODTAB 110
|
||||||
FIELD LF_RCAUSALI->CODIVA
|
FIELD LF_RCAUSALI->CODIVA
|
||||||
DISPLAY "Codice " CODTAB
|
DISPLAY "Codice " CODTAB
|
||||||
DISPLAY "Descrizione @50" S0
|
DISPLAY "Descrizione @50" S0
|
||||||
OUTPUT 110 CODTAB
|
OUTPUT 110 CODTAB
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
GROUP 1
|
GROUP 1
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_OK 9 2
|
BUTTON DLG_OK 9 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -13 -1 ""
|
PROMPT -13 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_CANCEL 9 2
|
BUTTON DLG_CANCEL 9 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -23 -1 ""
|
PROMPT -23 -1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_NULL 9 2
|
BUTTON DLG_NULL 9 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT -33 -1 "Azzera"
|
PROMPT -33 -1 "Azzera"
|
||||||
MESSAGE RESET,1@
|
MESSAGE RESET,1@
|
||||||
END
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
|
|
||||||
ENDMASK
|
ENDMASK
|
||||||
|
|||||||
@ -578,8 +578,8 @@ void TPrimanota_application::mask2rel(const TMask& m)
|
|||||||
if (causale().reg().corrispettivi())
|
if (causale().reg().corrispettivi())
|
||||||
{
|
{
|
||||||
TRectype& rec = _rel->lfile()->curr();
|
TRectype& rec = _rel->lfile()->curr();
|
||||||
rec.put("TIPO", "");
|
rec.put("TIPO", "");
|
||||||
rec.put("CODCF", "");
|
rec.put("CODCF", ""); // Azzera il cliente nei movimenti dei corrispettivi
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user