Corretta fromattazione
git-svn-id: svn://10.65.10.50/trunk@1168 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
427a9f9178
commit
b916d1c43b
144
cg/cg0400b.uml
144
cg/cg0400b.uml
@ -1,72 +1,72 @@
|
||||
#include "cg0400.h"
|
||||
|
||||
PAGE "Stampa riepilogo progressivi IVA" -1 -1 78 16
|
||||
|
||||
GROUPBOX DLG_NULL 78 3
|
||||
BEGIN
|
||||
PROMPT 1 0 ""
|
||||
END
|
||||
|
||||
NUMBER F_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 3 1 "Ditta "
|
||||
FLAGS "FRD"
|
||||
USE LF_NDITTE KEY 1
|
||||
CHECKTYPE REQUIRED
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
DISPLAY "Codice" CODDITTA
|
||||
DISPLAY "Ragione sociale @50" RAGSOC
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 17 1 "Ragione "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
DATE F_DATASTAMPA
|
||||
BEGIN
|
||||
PROMPT 3 4 "Data stampa "
|
||||
HELP "Data in cui viene effettuata la stampa"
|
||||
FLAGS "A"
|
||||
END
|
||||
|
||||
NUMBER F_ANNO 4
|
||||
BEGIN
|
||||
PROMPT 3 6 "Anno riepilogo "
|
||||
FLAGS "A"
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
LISTBOX F_MESE 9
|
||||
BEGIN
|
||||
PROMPT 3 7 "Mese riepilogo "
|
||||
FLAGS "AM"
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPA
|
||||
BEGIN
|
||||
PROMPT 3 9 "Stampa progressivi da inizio anno "
|
||||
END
|
||||
|
||||
/*
|
||||
BUTTON DLG_PRINT 10 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 "~Stampa"
|
||||
END
|
||||
*/
|
||||
|
||||
BUTTON DLG_OK 10 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 10 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
#include "cg0400.h"
|
||||
|
||||
PAGE "Stampa riepilogo progressivi IVA" -1 -1 78 16
|
||||
|
||||
GROUPBOX DLG_NULL 78 3
|
||||
BEGIN
|
||||
PROMPT 1 0 ""
|
||||
END
|
||||
|
||||
NUMBER F_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 3 1 "Ditta "
|
||||
FLAGS "FRD"
|
||||
USE LF_NDITTE KEY 1
|
||||
CHECKTYPE REQUIRED
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
DISPLAY "Codice" CODDITTA
|
||||
DISPLAY "Ragione sociale @50" RAGSOC
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 17 1 "Ragione "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
DATE F_DATASTAMPA
|
||||
BEGIN
|
||||
PROMPT 3 4 "Data stampa "
|
||||
HELP "Data in cui viene effettuata la stampa"
|
||||
FLAGS "A"
|
||||
END
|
||||
|
||||
NUMBER F_ANNO 4
|
||||
BEGIN
|
||||
PROMPT 3 6 "Anno riepilogo "
|
||||
FLAGS "A"
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
LISTBOX F_MESE 9
|
||||
BEGIN
|
||||
PROMPT 3 7 "Mese riepilogo "
|
||||
FLAGS "AM"
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPA
|
||||
BEGIN
|
||||
PROMPT 3 9 "Stampa progressivi da inizio anno "
|
||||
END
|
||||
|
||||
/*
|
||||
BUTTON DLG_PRINT 10 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 "~Stampa"
|
||||
END
|
||||
*/
|
||||
|
||||
BUTTON DLG_OK 10 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 10 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
632
cg/cg2100s.uml
632
cg/cg2100s.uml
@ -1,316 +1,316 @@
|
||||
#include "cg2100.h"
|
||||
|
||||
TOOLBAR "" 0 20 0 2
|
||||
|
||||
BUTTON DLG_OK 10 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 10 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
|
||||
PAGE "Pagamento" -1 -1 77 20
|
||||
|
||||
GROUPBOX DLG_NULL 78 6
|
||||
BEGIN
|
||||
PROMPT 1 0 "@BPartita"
|
||||
END
|
||||
|
||||
NUMBER S_ANNO 4
|
||||
BEGIN
|
||||
PROMPT 2 1 "Anno partita "
|
||||
FLAGS "RD"
|
||||
END
|
||||
|
||||
STRING S_NUM 7
|
||||
BEGIN
|
||||
PROMPT 38 1 "Numero partita "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING S_DESCR 50
|
||||
BEGIN
|
||||
PROMPT 2 2 "Descrizione "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER S_RATA 4
|
||||
BEGIN
|
||||
PROMPT 2 3 "Rata "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
DATE S_DATASCAD
|
||||
BEGIN
|
||||
PROMPT 20 3 "Data "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER S_RESIDUO 15
|
||||
BEGIN
|
||||
PROMPT 44 3 "Residuo "
|
||||
PICTURE "."
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER S_IMPORTOVAL 15 3
|
||||
BEGIN
|
||||
PROMPT 2 4 "Importo in valuta "
|
||||
PICTURE ".3"
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER S_IMPORTO 15
|
||||
BEGIN
|
||||
PROMPT 44 4 "Importo in lire "
|
||||
PICTURE "."
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
|
||||
GROUPBOX DLG_NULL 78 13
|
||||
BEGIN
|
||||
PROMPT 1 6 "@BPagamento"
|
||||
END
|
||||
|
||||
NUMBER S_IMPORTOPAG 15
|
||||
BEGIN
|
||||
PROMPT 2 7 "Importo pagamento "
|
||||
PICTURE "."
|
||||
FIELD IMPORTOPAG
|
||||
END
|
||||
|
||||
NUMBER S_IMPORTOPAG 15
|
||||
BEGIN
|
||||
PROMPT 38 7 "Ritenute professionali "
|
||||
PICTURE "."
|
||||
FIELD RITENUTE
|
||||
END
|
||||
|
||||
BOOLEAN S_SALDOACC
|
||||
BEGIN
|
||||
PROMPT 2 8 "Saldo "
|
||||
FIELD SALDOACC
|
||||
END
|
||||
|
||||
DATE S_DATAPAG
|
||||
BEGIN
|
||||
PROMPT 38 8 "Data pagamento "
|
||||
FIELD DATAPAG
|
||||
END
|
||||
|
||||
STRING S_CODPAG 4
|
||||
BEGIN
|
||||
PROMPT 2 9 "Pagamento "
|
||||
FLAGS "UZ"
|
||||
USE CPG
|
||||
INPUT CODTAB S_CODPAG
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Tipo" I0
|
||||
OUTPUT S_CODPAG CODTAB
|
||||
OUTPUT S_DESPAG S0
|
||||
OUTPUT S_TIPOPAG I0
|
||||
FIELD CODPAG
|
||||
END
|
||||
|
||||
STRING S_DESPAG 50
|
||||
BEGIN
|
||||
PROMPT 24 9 ""
|
||||
USE CPG KEY 2
|
||||
INPUT S0 S_DESPAG
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Tipo" I0
|
||||
COPY OUTPUT S_CODPAG
|
||||
END
|
||||
|
||||
LIST S_TIPOPAG 2 40
|
||||
BEGIN
|
||||
PROMPT 2 10 "Tipo pagamento "
|
||||
ITEM "1|Rimessa Diretta"
|
||||
ITEM "2|Tratta"
|
||||
ITEM "3|Ricevuta Bancaria"
|
||||
ITEM "4|Cessione"
|
||||
ITEM "5|Paghero'"
|
||||
ITEM "6|Lettera di credito"
|
||||
ITEM "7|Tratta accettata"
|
||||
ITEM "8|Rapporti interbancari diretti"
|
||||
ITEM "9|Bonifico"
|
||||
ITEM "10|Altro"
|
||||
FIELD TIPOPAG
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 2 11 "@bConto di contropartita"
|
||||
END
|
||||
|
||||
LIST S_TIPO 1 12
|
||||
BEGIN
|
||||
PROMPT 2 12 "Tipo "
|
||||
ITEM " |Conto"
|
||||
ITEM "C|Cliente"
|
||||
ITEM "F|Fornitore"
|
||||
FIELD TIPOCF
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
NUMBER S_GRUPPO 3
|
||||
BEGIN
|
||||
PROMPT 28 11 "Gruppo "
|
||||
FIELD GRUPPO
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
NUMBER S_CONTO 3
|
||||
BEGIN
|
||||
PROMPT 44 11 "Conto "
|
||||
FIELD CONTO
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
NUMBER S_SOTTOCONTO 6
|
||||
BEGIN
|
||||
PROMPT 58 11 "Sottoconto "
|
||||
FIELD SOTTOCONTO
|
||||
USE LF_PCON
|
||||
INPUT GRUPPO S_GRUPPO
|
||||
INPUT CONTO S_CONTO
|
||||
INPUT SOTTOCONTO S_SOTTOCONTO
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Sottoconto" SOTTOCONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT S_GRUPPO GRUPPO
|
||||
OUTPUT S_CONTO CONTO
|
||||
OUTPUT S_SOTTOCONTO SOTTOCONTO
|
||||
OUTPUT S_DESCRCONTO DESCR
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING S_DESCRCONTO 50
|
||||
BEGIN
|
||||
PROMPT 2 12 "Descrizione conto "
|
||||
USE LF_PCON KEY 2
|
||||
INPUT DESCR S_DESCRCONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Sottoconto" SOTTOCONTO
|
||||
COPY OUTPUT S_SOTTOCONTO
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING S_DESCAGG 50
|
||||
BEGIN
|
||||
PROMPT 2 14 "Descrizione aggiuntiva "
|
||||
FIELD DESCAGG
|
||||
END
|
||||
|
||||
NUMBER S_VSABI 5
|
||||
BEGIN
|
||||
PROMPT 2 15 "Vostra Banca - ABI "
|
||||
FLAGS "Z"
|
||||
USE %BAN
|
||||
INPUT CODTAB[1,5] S_VSABI
|
||||
INPUT CODTAB[6,10] S_VSCAB
|
||||
DISPLAY "ABI@5" CODTAB[1,5]
|
||||
DISPLAY "CAB@5" CODTAB[6,10]
|
||||
DISPLAY "Denominazione@50" S0
|
||||
OUTPUT S_VSABI CODTAB[1,5]
|
||||
OUTPUT S_VSCAB CODTAB[6,10]
|
||||
OUTPUT S_DESCVSABI S0
|
||||
CHECKTYPE REQUIRED
|
||||
FIELD VSABI
|
||||
END
|
||||
|
||||
NUMBER S_VSCAB 5
|
||||
BEGIN
|
||||
PROMPT 30 15 "CAB "
|
||||
FLAGS "Z"
|
||||
COPY ALL S_VSABI
|
||||
CHECKTYPE REQUIRED
|
||||
FIELD VSCAB
|
||||
END
|
||||
|
||||
STRING S_DESCVSABI 50 32
|
||||
BEGIN
|
||||
PROMPT 42 15 ""
|
||||
USE %BAN KEY 2
|
||||
INPUT S0 S_DESCVSABI
|
||||
DISPLAY "Denominazione@50" S0
|
||||
DISPLAY "ABI@5" CODTAB[1,5]
|
||||
DISPLAY "CAB@5" CODTAB[6,10]
|
||||
COPY OUTPUT S_VSABI
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING S_AGENTE 5
|
||||
BEGIN
|
||||
PROMPT 2 16 "Agente "
|
||||
FLAGS "UZ"
|
||||
USE AGE
|
||||
INPUT CODTAB S_AGENTE
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione @50" S0
|
||||
OUTPUT S_AGENTE CODTAB
|
||||
OUTPUT S_DESCAGENTE S0
|
||||
CHECKTYPE NORMAL
|
||||
FIELD AGENTE
|
||||
END
|
||||
|
||||
STRING S_DESCAGENTE 50
|
||||
BEGIN
|
||||
PROMPT 24 16 ""
|
||||
USE AGE KEY 2
|
||||
INPUT S0 S_DESCAGENTE
|
||||
DISPLAY "Descrizione @50" S0
|
||||
DISPLAY "Codice" CODTAB
|
||||
COPY OUTPUT S_AGENTE
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
|
||||
NUMBER S_NSABI 5
|
||||
BEGIN
|
||||
PROMPT 2 17 "Nostra Banca - ABI "
|
||||
FLAGS "Z"
|
||||
COPY USE S_VSABI
|
||||
INPUT CODTAB[1,5] S_NSABI
|
||||
INPUT CODTAB[6,10] S_NSCAB
|
||||
COPY DISPLAY S_VSABI
|
||||
OUTPUT S_NSABI CODTAB[1,5]
|
||||
OUTPUT S_NSCAB CODTAB[6,10]
|
||||
FIELD NSABI
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
NUMBER S_VSCAB 5
|
||||
BEGIN
|
||||
PROMPT 30 17 "CAB "
|
||||
FLAGS "Z"
|
||||
COPY ALL S_NSABI
|
||||
FIELD NSCAB
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING S_DESCNSABI 50 32
|
||||
BEGIN
|
||||
PROMPT 42 15 ""
|
||||
COPY USE S_DESCVSABI
|
||||
INPUT S0 S_DESCNSABI
|
||||
COPY DISPLAY S_DESCVSABI
|
||||
COPY OUTPUT S_NSABI
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
#include "cg2100.h"
|
||||
|
||||
TOOLBAR "" 0 20 0 2
|
||||
|
||||
BUTTON DLG_OK 10 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 10 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
|
||||
PAGE "Pagamento" -1 -1 77 20
|
||||
|
||||
GROUPBOX DLG_NULL 78 6
|
||||
BEGIN
|
||||
PROMPT 1 0 "@BPartita"
|
||||
END
|
||||
|
||||
NUMBER S_ANNO 4
|
||||
BEGIN
|
||||
PROMPT 2 1 "Anno partita "
|
||||
FLAGS "RD"
|
||||
END
|
||||
|
||||
STRING S_NUM 7
|
||||
BEGIN
|
||||
PROMPT 38 1 "Numero partita "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING S_DESCR 50
|
||||
BEGIN
|
||||
PROMPT 2 2 "Descrizione "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER S_RATA 4
|
||||
BEGIN
|
||||
PROMPT 2 3 "Rata "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
DATE S_DATASCAD
|
||||
BEGIN
|
||||
PROMPT 20 3 "Data "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER S_RESIDUO 15
|
||||
BEGIN
|
||||
PROMPT 44 3 "Residuo "
|
||||
PICTURE "."
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER S_IMPORTOVAL 15 3
|
||||
BEGIN
|
||||
PROMPT 2 4 "Importo in valuta "
|
||||
PICTURE ".3"
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER S_IMPORTO 15
|
||||
BEGIN
|
||||
PROMPT 44 4 "Importo in lire "
|
||||
PICTURE "."
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
|
||||
GROUPBOX DLG_NULL 78 13
|
||||
BEGIN
|
||||
PROMPT 1 6 "@BPagamento"
|
||||
END
|
||||
|
||||
NUMBER S_IMPORTOPAG 15
|
||||
BEGIN
|
||||
PROMPT 2 7 "Importo pagamento "
|
||||
PICTURE "."
|
||||
FIELD IMPORTOPAG
|
||||
END
|
||||
|
||||
NUMBER S_IMPORTOPAG 15
|
||||
BEGIN
|
||||
PROMPT 38 7 "Ritenute professionali "
|
||||
PICTURE "."
|
||||
FIELD RITENUTE
|
||||
END
|
||||
|
||||
BOOLEAN S_SALDOACC
|
||||
BEGIN
|
||||
PROMPT 2 8 "Saldo "
|
||||
FIELD SALDOACC
|
||||
END
|
||||
|
||||
DATE S_DATAPAG
|
||||
BEGIN
|
||||
PROMPT 38 8 "Data pagamento "
|
||||
FIELD DATAPAG
|
||||
END
|
||||
|
||||
STRING S_CODPAG 4
|
||||
BEGIN
|
||||
PROMPT 2 9 "Pagamento "
|
||||
FLAGS "UZ"
|
||||
USE CPG
|
||||
INPUT CODTAB S_CODPAG
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Tipo" I0
|
||||
OUTPUT S_CODPAG CODTAB
|
||||
OUTPUT S_DESPAG S0
|
||||
OUTPUT S_TIPOPAG I0
|
||||
FIELD CODPAG
|
||||
END
|
||||
|
||||
STRING S_DESPAG 50
|
||||
BEGIN
|
||||
PROMPT 24 9 ""
|
||||
USE CPG KEY 2
|
||||
INPUT S0 S_DESPAG
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Tipo" I0
|
||||
COPY OUTPUT S_CODPAG
|
||||
END
|
||||
|
||||
LIST S_TIPOPAG 2 40
|
||||
BEGIN
|
||||
PROMPT 2 10 "Tipo pagamento "
|
||||
ITEM "1|Rimessa Diretta"
|
||||
ITEM "2|Tratta"
|
||||
ITEM "3|Ricevuta Bancaria"
|
||||
ITEM "4|Cessione"
|
||||
ITEM "5|Paghero'"
|
||||
ITEM "6|Lettera di credito"
|
||||
ITEM "7|Tratta accettata"
|
||||
ITEM "8|Rapporti interbancari diretti"
|
||||
ITEM "9|Bonifico"
|
||||
ITEM "10|Altro"
|
||||
FIELD TIPOPAG
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 2 11 "@bConto di contropartita"
|
||||
END
|
||||
|
||||
LIST S_TIPO 1 12
|
||||
BEGIN
|
||||
PROMPT 2 12 "Tipo "
|
||||
ITEM " |Conto"
|
||||
ITEM "C|Cliente"
|
||||
ITEM "F|Fornitore"
|
||||
FIELD TIPOCF
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
NUMBER S_GRUPPO 3
|
||||
BEGIN
|
||||
PROMPT 28 11 "Gruppo "
|
||||
FIELD GRUPPO
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
NUMBER S_CONTO 3
|
||||
BEGIN
|
||||
PROMPT 44 11 "Conto "
|
||||
FIELD CONTO
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
NUMBER S_SOTTOCONTO 6
|
||||
BEGIN
|
||||
PROMPT 58 11 "Sottoconto "
|
||||
FIELD SOTTOCONTO
|
||||
USE LF_PCON
|
||||
INPUT GRUPPO S_GRUPPO
|
||||
INPUT CONTO S_CONTO
|
||||
INPUT SOTTOCONTO S_SOTTOCONTO
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Sottoconto" SOTTOCONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT S_GRUPPO GRUPPO
|
||||
OUTPUT S_CONTO CONTO
|
||||
OUTPUT S_SOTTOCONTO SOTTOCONTO
|
||||
OUTPUT S_DESCRCONTO DESCR
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING S_DESCRCONTO 50
|
||||
BEGIN
|
||||
PROMPT 2 12 "Descrizione conto "
|
||||
USE LF_PCON KEY 2
|
||||
INPUT DESCR S_DESCRCONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Sottoconto" SOTTOCONTO
|
||||
COPY OUTPUT S_SOTTOCONTO
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING S_DESCAGG 50
|
||||
BEGIN
|
||||
PROMPT 2 14 "Descrizione aggiuntiva "
|
||||
FIELD DESCAGG
|
||||
END
|
||||
|
||||
NUMBER S_VSABI 5
|
||||
BEGIN
|
||||
PROMPT 2 15 "Vostra Banca - ABI "
|
||||
FLAGS "Z"
|
||||
USE %BAN
|
||||
INPUT CODTAB[1,5] S_VSABI
|
||||
INPUT CODTAB[6,10] S_VSCAB
|
||||
DISPLAY "ABI@5" CODTAB[1,5]
|
||||
DISPLAY "CAB@5" CODTAB[6,10]
|
||||
DISPLAY "Denominazione@50" S0
|
||||
OUTPUT S_VSABI CODTAB[1,5]
|
||||
OUTPUT S_VSCAB CODTAB[6,10]
|
||||
OUTPUT S_DESCVSABI S0
|
||||
CHECKTYPE REQUIRED
|
||||
FIELD VSABI
|
||||
END
|
||||
|
||||
NUMBER S_VSCAB 5
|
||||
BEGIN
|
||||
PROMPT 30 15 "CAB "
|
||||
FLAGS "Z"
|
||||
COPY ALL S_VSABI
|
||||
CHECKTYPE REQUIRED
|
||||
FIELD VSCAB
|
||||
END
|
||||
|
||||
STRING S_DESCVSABI 50 32
|
||||
BEGIN
|
||||
PROMPT 42 15 ""
|
||||
USE %BAN KEY 2
|
||||
INPUT S0 S_DESCVSABI
|
||||
DISPLAY "Denominazione@50" S0
|
||||
DISPLAY "ABI@5" CODTAB[1,5]
|
||||
DISPLAY "CAB@5" CODTAB[6,10]
|
||||
COPY OUTPUT S_VSABI
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING S_AGENTE 5
|
||||
BEGIN
|
||||
PROMPT 2 16 "Agente "
|
||||
FLAGS "UZ"
|
||||
USE AGE
|
||||
INPUT CODTAB S_AGENTE
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione @50" S0
|
||||
OUTPUT S_AGENTE CODTAB
|
||||
OUTPUT S_DESCAGENTE S0
|
||||
CHECKTYPE NORMAL
|
||||
FIELD AGENTE
|
||||
END
|
||||
|
||||
STRING S_DESCAGENTE 50
|
||||
BEGIN
|
||||
PROMPT 24 16 ""
|
||||
USE AGE KEY 2
|
||||
INPUT S0 S_DESCAGENTE
|
||||
DISPLAY "Descrizione @50" S0
|
||||
DISPLAY "Codice" CODTAB
|
||||
COPY OUTPUT S_AGENTE
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
|
||||
NUMBER S_NSABI 5
|
||||
BEGIN
|
||||
PROMPT 2 17 "Nostra Banca - ABI "
|
||||
FLAGS "Z"
|
||||
COPY USE S_VSABI
|
||||
INPUT CODTAB[1,5] S_NSABI
|
||||
INPUT CODTAB[6,10] S_NSCAB
|
||||
COPY DISPLAY S_VSABI
|
||||
OUTPUT S_NSABI CODTAB[1,5]
|
||||
OUTPUT S_NSCAB CODTAB[6,10]
|
||||
FIELD NSABI
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
NUMBER S_VSCAB 5
|
||||
BEGIN
|
||||
PROMPT 30 17 "CAB "
|
||||
FLAGS "Z"
|
||||
COPY ALL S_NSABI
|
||||
FIELD NSCAB
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING S_DESCNSABI 50 32
|
||||
BEGIN
|
||||
PROMPT 42 15 ""
|
||||
COPY USE S_DESCVSABI
|
||||
INPUT S0 S_DESCNSABI
|
||||
COPY DISPLAY S_DESCVSABI
|
||||
COPY OUTPUT S_NSABI
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
112
cg/cg21rata.uml
112
cg/cg21rata.uml
@ -1,56 +1,56 @@
|
||||
PAGE "Rata pagamento" -1 -1 50 8
|
||||
|
||||
DATE 101
|
||||
BEGIN
|
||||
PROMPT 1 1 "Scadenza "
|
||||
END
|
||||
|
||||
NUMBER 102 8 3
|
||||
BEGIN
|
||||
PROMPT 1 2 "Percentuale "
|
||||
PICTURE ".3"
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
NUMBER 103 15
|
||||
BEGIN
|
||||
PROMPT 1 3 "Importo "
|
||||
PICTURE "."
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
NUMBER 104 2 0
|
||||
BEGIN
|
||||
PROMPT 1 4 "Tipo pagamento "
|
||||
SHEET "Codice|Tipo pagamento@32"
|
||||
INPUT 104
|
||||
ITEM "1|Rimessa diretta o contanti"
|
||||
ITEM "2|Tratta"
|
||||
ITEM "3|Ricevuta Bancaria"
|
||||
ITEM "4|Cessione"
|
||||
ITEM "5|Paghero'"
|
||||
ITEM "6|Lettera di credito"
|
||||
ITEM "7|Tratta accettata"
|
||||
ITEM "8|Altro pagamento"
|
||||
OUTPUT 104
|
||||
OUTPUT 105
|
||||
END
|
||||
|
||||
STRING 105 32
|
||||
BEGIN
|
||||
PROMPT 1 5 "Descrizione "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 10 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 10 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
PAGE "Rata pagamento" -1 -1 50 8
|
||||
|
||||
DATE 101
|
||||
BEGIN
|
||||
PROMPT 1 1 "Scadenza "
|
||||
END
|
||||
|
||||
NUMBER 102 8 3
|
||||
BEGIN
|
||||
PROMPT 1 2 "Percentuale "
|
||||
PICTURE ".3"
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
NUMBER 103 15
|
||||
BEGIN
|
||||
PROMPT 1 3 "Importo "
|
||||
PICTURE "."
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
NUMBER 104 2 0
|
||||
BEGIN
|
||||
PROMPT 1 4 "Tipo pagamento "
|
||||
SHEET "Codice|Tipo pagamento@32"
|
||||
INPUT 104
|
||||
ITEM "1|Rimessa diretta o contanti"
|
||||
ITEM "2|Tratta"
|
||||
ITEM "3|Ricevuta Bancaria"
|
||||
ITEM "4|Cessione"
|
||||
ITEM "5|Paghero'"
|
||||
ITEM "6|Lettera di credito"
|
||||
ITEM "7|Tratta accettata"
|
||||
ITEM "8|Altro pagamento"
|
||||
OUTPUT 104
|
||||
OUTPUT 105
|
||||
END
|
||||
|
||||
STRING 105 32
|
||||
BEGIN
|
||||
PROMPT 1 5 "Descrizione "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 10 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 10 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
|
1178
cg/cg2400.cpp
1178
cg/cg2400.cpp
File diff suppressed because it is too large
Load Diff
34
cg/cg2400.h
34
cg/cg2400.h
@ -1,17 +1,17 @@
|
||||
// Campi maschera ba7300a
|
||||
|
||||
#define F_NOMEID 101
|
||||
#define F_CODDITTAINV 102
|
||||
#define F_CODDITTARIC 103
|
||||
#define F_RAGSOC 104
|
||||
#define F_NULTRASDSK 105
|
||||
#define F_NULTRASTAB 106
|
||||
#define F_DATAULTRASDSK 107
|
||||
#define F_DATAULTRASTAB 108
|
||||
#define F_STATO 109
|
||||
#define F_NOME 110
|
||||
|
||||
// Campi maschera ba7300b
|
||||
|
||||
#define F_DRIVE 150
|
||||
#define F_PATHNAME 151
|
||||
// Campi maschera ba7300a
|
||||
|
||||
#define F_NOMEID 101
|
||||
#define F_CODDITTAINV 102
|
||||
#define F_CODDITTARIC 103
|
||||
#define F_RAGSOC 104
|
||||
#define F_NULTRASDSK 105
|
||||
#define F_NULTRASTAB 106
|
||||
#define F_DATAULTRASDSK 107
|
||||
#define F_DATAULTRASTAB 108
|
||||
#define F_STATO 109
|
||||
#define F_NOME 110
|
||||
|
||||
// Campi maschera ba7300b
|
||||
|
||||
#define F_DRIVE 150
|
||||
#define F_PATHNAME 151
|
||||
|
170
cg/cg2400a.uml
170
cg/cg2400a.uml
@ -1,85 +1,85 @@
|
||||
#include "cg2400.h"
|
||||
|
||||
PAGE "" -1 -1 70 15
|
||||
|
||||
STRING F_NOMEID 10
|
||||
BEGIN
|
||||
PROMPT 1 1 "Nome simbolico sistema inviante "
|
||||
FLAGS "ZD"
|
||||
END
|
||||
|
||||
NUMBER F_CODDITTAINV 5
|
||||
BEGIN
|
||||
PROMPT 1 2 "Codice ditta inviante "
|
||||
FLAGS "ZD"
|
||||
END
|
||||
|
||||
NUMBER F_CODDITTARIC 5
|
||||
BEGIN
|
||||
PROMPT 1 4 "Ditta ricevente "
|
||||
USE LF_NDITTE KEY 1
|
||||
INPUT CODDITTA F_CODDITTARIC
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
FLAGS "RDZ"
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 1 5 "Ragione sociale "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 27 7 "Presente su dischetto"
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 51 7 "Ultimo intrapreso"
|
||||
END
|
||||
|
||||
NUMBER F_NULTRASDSK 3
|
||||
BEGIN
|
||||
PROMPT 1 8 "Numero invio "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_NULTRASTAB 3
|
||||
BEGIN
|
||||
PROMPT 51 8 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
DATE F_DATAULTRASDSK
|
||||
BEGIN
|
||||
PROMPT 1 9 "Data limite trasferimento "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
DATE F_DATAULTRASTAB
|
||||
BEGIN
|
||||
PROMPT 51 9 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_STATO 14
|
||||
BEGIN
|
||||
PROMPT 1 10 "Stato del trasferimento "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 9 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
#include "cg2400.h"
|
||||
|
||||
PAGE "" -1 -1 70 15
|
||||
|
||||
STRING F_NOMEID 10
|
||||
BEGIN
|
||||
PROMPT 1 1 "Nome simbolico sistema inviante "
|
||||
FLAGS "ZD"
|
||||
END
|
||||
|
||||
NUMBER F_CODDITTAINV 5
|
||||
BEGIN
|
||||
PROMPT 1 2 "Codice ditta inviante "
|
||||
FLAGS "ZD"
|
||||
END
|
||||
|
||||
NUMBER F_CODDITTARIC 5
|
||||
BEGIN
|
||||
PROMPT 1 4 "Ditta ricevente "
|
||||
USE LF_NDITTE KEY 1
|
||||
INPUT CODDITTA F_CODDITTARIC
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
FLAGS "RDZ"
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 1 5 "Ragione sociale "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 27 7 "Presente su dischetto"
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 51 7 "Ultimo intrapreso"
|
||||
END
|
||||
|
||||
NUMBER F_NULTRASDSK 3
|
||||
BEGIN
|
||||
PROMPT 1 8 "Numero invio "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_NULTRASTAB 3
|
||||
BEGIN
|
||||
PROMPT 51 8 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
DATE F_DATAULTRASDSK
|
||||
BEGIN
|
||||
PROMPT 1 9 "Data limite trasferimento "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
DATE F_DATAULTRASTAB
|
||||
BEGIN
|
||||
PROMPT 51 9 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_STATO 14
|
||||
BEGIN
|
||||
PROMPT 1 10 "Stato del trasferimento "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 9 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
@ -1,36 +1,36 @@
|
||||
#include "cg2400.h"
|
||||
|
||||
PAGE "" -1 -1 44 8
|
||||
|
||||
LIST F_DRIVE 2
|
||||
BEGIN
|
||||
PROMPT 2 2 "Disco "
|
||||
ITEM "A:|A:"
|
||||
ITEM "B:|B:"
|
||||
ITEM "C:|C:"
|
||||
ITEM "D:|D:"
|
||||
ITEM "E:|E:"
|
||||
ITEM "F:|F:"
|
||||
END
|
||||
|
||||
STRING F_PATHNAME 30
|
||||
BEGIN
|
||||
PROMPT 2 4 "Percorso "
|
||||
HELP "Specificare il percorso completo dove ricercare il file di ricezione dati"
|
||||
FLAGS "U"
|
||||
//VALIDATE FILENAME_FUNC
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 9 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
#include "cg2400.h"
|
||||
|
||||
PAGE "" -1 -1 44 8
|
||||
|
||||
LIST F_DRIVE 2
|
||||
BEGIN
|
||||
PROMPT 2 2 "Disco "
|
||||
ITEM "A:|A:"
|
||||
ITEM "B:|B:"
|
||||
ITEM "C:|C:"
|
||||
ITEM "D:|D:"
|
||||
ITEM "E:|E:"
|
||||
ITEM "F:|F:"
|
||||
END
|
||||
|
||||
STRING F_PATHNAME 30
|
||||
BEGIN
|
||||
PROMPT 2 4 "Percorso "
|
||||
HELP "Specificare il percorso completo dove ricercare il file di ricezione dati"
|
||||
FLAGS "U"
|
||||
//VALIDATE FILENAME_FUNC
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 9 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
2150
cg/cg2700.cpp
2150
cg/cg2700.cpp
File diff suppressed because it is too large
Load Diff
16
cg/cg2700.h
16
cg/cg2700.h
@ -1,8 +1,8 @@
|
||||
#define F_CODDITTA 101
|
||||
#define F_RAGSOC 102
|
||||
#define F_LISTA 103
|
||||
#define F_NUMERO 104
|
||||
#define F_DATALIMITE 105
|
||||
#define F_SDT 106
|
||||
#define F_SIGLA 107
|
||||
#define F_CHIAVE 108
|
||||
#define F_CODDITTA 101
|
||||
#define F_RAGSOC 102
|
||||
#define F_LISTA 103
|
||||
#define F_NUMERO 104
|
||||
#define F_DATALIMITE 105
|
||||
#define F_SDT 106
|
||||
#define F_SIGLA 107
|
||||
#define F_CHIAVE 108
|
||||
|
152
cg/cg2700a.uml
152
cg/cg2700a.uml
@ -1,77 +1,77 @@
|
||||
#include "cg2700.h"
|
||||
|
||||
PAGE "" -1 -1 78 17
|
||||
|
||||
NUMBER F_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 2 1 "Ditta ricevente "
|
||||
FLAGS "FRD"
|
||||
USE LF_NDITTE KEY 1
|
||||
CHECKTYPE REQUIRED
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
OUTPUT F_CODDITTA CODDITTA
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 2 2 "Ragione sociale "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
RADIOBUTTON F_LISTA 31
|
||||
BEGIN
|
||||
PROMPT 2 4 "Scelta controllo "
|
||||
HELP "Indicare il tipo di controllo"
|
||||
ITEM "1|Lista controllo movim. errati"
|
||||
ITEM "2|Lista controllo tutti movim."
|
||||
END
|
||||
|
||||
NUMBER F_NUMERO 3
|
||||
BEGIN
|
||||
PROMPT 2 9 "Numero invio "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
DATE F_DATALIMITE
|
||||
BEGIN
|
||||
PROMPT 2 10 "Data limite trasferimento "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 2 11 "Stato ricezione "
|
||||
END
|
||||
|
||||
STRING F_SDT 1
|
||||
BEGIN
|
||||
PROMPT 31 11 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_SIGLA 1
|
||||
BEGIN
|
||||
PROMPT 34 11 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_CHIAVE 15
|
||||
BEGIN
|
||||
PROMPT 37 11 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 9 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
#include "cg2700.h"
|
||||
|
||||
PAGE "" -1 -1 78 17
|
||||
|
||||
NUMBER F_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 2 1 "Ditta ricevente "
|
||||
FLAGS "FRD"
|
||||
USE LF_NDITTE KEY 1
|
||||
CHECKTYPE REQUIRED
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
OUTPUT F_CODDITTA CODDITTA
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 2 2 "Ragione sociale "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
RADIOBUTTON F_LISTA 31
|
||||
BEGIN
|
||||
PROMPT 2 4 "Scelta controllo "
|
||||
HELP "Indicare il tipo di controllo"
|
||||
ITEM "1|Lista controllo movim. errati"
|
||||
ITEM "2|Lista controllo tutti movim."
|
||||
END
|
||||
|
||||
NUMBER F_NUMERO 3
|
||||
BEGIN
|
||||
PROMPT 2 9 "Numero invio "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
DATE F_DATALIMITE
|
||||
BEGIN
|
||||
PROMPT 2 10 "Data limite trasferimento "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 2 11 "Stato ricezione "
|
||||
END
|
||||
|
||||
STRING F_SDT 1
|
||||
BEGIN
|
||||
PROMPT 31 11 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_SIGLA 1
|
||||
BEGIN
|
||||
PROMPT 34 11 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_CHIAVE 15
|
||||
BEGIN
|
||||
PROMPT 37 11 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 9 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
2954
cg/cg2800.cpp
2954
cg/cg2800.cpp
File diff suppressed because it is too large
Load Diff
134
cg/cg2800.h
134
cg/cg2800.h
@ -1,68 +1,68 @@
|
||||
// Campi maschera cg2800a.uml
|
||||
|
||||
#define F_NUMREG 101
|
||||
#define F_NUMRIG 102
|
||||
|
||||
// Campi maschera cg2800b.uml
|
||||
|
||||
#define F_DATAREG 103
|
||||
#define F_DATADOC 104
|
||||
#define F_ANNO 105
|
||||
#define F_REGIVA 106
|
||||
#define F_PROTIVA 107
|
||||
#define F_NUPROTIVA 108
|
||||
#define F_CODCAUS 109
|
||||
#define F_CODPAG 110
|
||||
#define F_GRUPPO 111
|
||||
#define F_CONTO 112
|
||||
#define F_SOTTOCONTO 113
|
||||
#define F_SEZIONE 114
|
||||
#define F_IMPORTO 115
|
||||
#define F_DESCR 116
|
||||
#define F_GRUPPOC 117
|
||||
#define F_CONTOC 118
|
||||
#define F_SOTTOC 119
|
||||
#define F_NUMDOC 120
|
||||
#define F_DESCRREG 121
|
||||
#define F_DESCRCAU 122
|
||||
#define F_DESCRPAG 123
|
||||
#define F_DESCRPARTITA 124
|
||||
#define F_DESCRCPARTITA 125
|
||||
|
||||
// Campi maschera cg2800c.uml
|
||||
|
||||
#define F_CODCF 150
|
||||
#define F_RAGSOCOCC 151
|
||||
#define F_DATA74TER 152
|
||||
#define F_INDOCC 153
|
||||
#define F_LOCALITA 154
|
||||
#define F_CAPOCC 155
|
||||
#define F_PROVOCC 156
|
||||
#define F_IMPONIBILE 157
|
||||
#define F_IMPOSTA 158
|
||||
#define F_CODIVA 159
|
||||
#define F_TIPODET 160
|
||||
#define F_TIPOCR 161
|
||||
#define F_RAGSOCCF 162
|
||||
#define F_DESCRCODIVA 163
|
||||
|
||||
// Campi maschera cg2801a.uml
|
||||
|
||||
#define F_CODDITTA 200
|
||||
#define F_RAGDITTA 201
|
||||
|
||||
// Campi maschera cg2803a.uml
|
||||
|
||||
#define F_CODDITTARIC 250
|
||||
#define F_RAGSOC 251
|
||||
#define F_NULTRAS 252
|
||||
#define F_DATAULTRAS 253
|
||||
#define F_STD 254
|
||||
#define F_USELAB 255
|
||||
#define F_STATO 256
|
||||
#define F_AGGCAUSALI 257
|
||||
#define F_AGGCLIFO 258
|
||||
#define F_AGGPCON 259
|
||||
#define F_AGGIVD 260
|
||||
#define F_FATTEM 261
|
||||
// Campi maschera cg2800a.uml
|
||||
|
||||
#define F_NUMREG 101
|
||||
#define F_NUMRIG 102
|
||||
|
||||
// Campi maschera cg2800b.uml
|
||||
|
||||
#define F_DATAREG 103
|
||||
#define F_DATADOC 104
|
||||
#define F_ANNO 105
|
||||
#define F_REGIVA 106
|
||||
#define F_PROTIVA 107
|
||||
#define F_NUPROTIVA 108
|
||||
#define F_CODCAUS 109
|
||||
#define F_CODPAG 110
|
||||
#define F_GRUPPO 111
|
||||
#define F_CONTO 112
|
||||
#define F_SOTTOCONTO 113
|
||||
#define F_SEZIONE 114
|
||||
#define F_IMPORTO 115
|
||||
#define F_DESCR 116
|
||||
#define F_GRUPPOC 117
|
||||
#define F_CONTOC 118
|
||||
#define F_SOTTOC 119
|
||||
#define F_NUMDOC 120
|
||||
#define F_DESCRREG 121
|
||||
#define F_DESCRCAU 122
|
||||
#define F_DESCRPAG 123
|
||||
#define F_DESCRPARTITA 124
|
||||
#define F_DESCRCPARTITA 125
|
||||
|
||||
// Campi maschera cg2800c.uml
|
||||
|
||||
#define F_CODCF 150
|
||||
#define F_RAGSOCOCC 151
|
||||
#define F_DATA74TER 152
|
||||
#define F_INDOCC 153
|
||||
#define F_LOCALITA 154
|
||||
#define F_CAPOCC 155
|
||||
#define F_PROVOCC 156
|
||||
#define F_IMPONIBILE 157
|
||||
#define F_IMPOSTA 158
|
||||
#define F_CODIVA 159
|
||||
#define F_TIPODET 160
|
||||
#define F_TIPOCR 161
|
||||
#define F_RAGSOCCF 162
|
||||
#define F_DESCRCODIVA 163
|
||||
|
||||
// Campi maschera cg2801a.uml
|
||||
|
||||
#define F_CODDITTA 200
|
||||
#define F_RAGDITTA 201
|
||||
|
||||
// Campi maschera cg2803a.uml
|
||||
|
||||
#define F_CODDITTARIC 250
|
||||
#define F_RAGSOC 251
|
||||
#define F_NULTRAS 252
|
||||
#define F_DATAULTRAS 253
|
||||
#define F_STD 254
|
||||
#define F_USELAB 255
|
||||
#define F_STATO 256
|
||||
#define F_AGGCAUSALI 257
|
||||
#define F_AGGCLIFO 258
|
||||
#define F_AGGPCON 259
|
||||
#define F_AGGIVD 260
|
||||
#define F_FATTEM 261
|
||||
#define F_FATTRIC 262
|
@ -1,32 +1,32 @@
|
||||
#include "cg2800.h"
|
||||
|
||||
PAGE "" -1 -1 50 8
|
||||
|
||||
NUMBER F_NUMREG 6
|
||||
BEGIN
|
||||
PROMPT 2 1 "Numero di registrazione "
|
||||
HELP "Inserire il numero di registrazione che si vuole modificare"
|
||||
FLAGS "RZ"
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
NUMBER F_NUMRIG 2
|
||||
BEGIN
|
||||
PROMPT 2 3 "Numero di riga "
|
||||
HELP "Inserire il numero della riga desiderata. Se non viene specificata si entra in modifica della testata"
|
||||
FLAGS "RZ"
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 9 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
#include "cg2800.h"
|
||||
|
||||
PAGE "" -1 -1 50 8
|
||||
|
||||
NUMBER F_NUMREG 6
|
||||
BEGIN
|
||||
PROMPT 2 1 "Numero di registrazione "
|
||||
HELP "Inserire il numero di registrazione che si vuole modificare"
|
||||
FLAGS "RZ"
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
NUMBER F_NUMRIG 2
|
||||
BEGIN
|
||||
PROMPT 2 3 "Numero di riga "
|
||||
HELP "Inserire il numero della riga desiderata. Se non viene specificata si entra in modifica della testata"
|
||||
FLAGS "RZ"
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 9 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
358
cg/cg2800b.uml
358
cg/cg2800b.uml
@ -1,179 +1,179 @@
|
||||
#include "cg2800.h"
|
||||
|
||||
TOOLBAR "" 0 20 0 2
|
||||
|
||||
BUTTON DLG_SAVEREC 10 2
|
||||
BEGIN
|
||||
PROMPT -15 -1 "~Registra"
|
||||
MESSAGE EXIT,K_SAVE
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 10 2
|
||||
BEGIN
|
||||
PROMPT -45 -1 ""
|
||||
MESSAGE EXIT,K_ESC
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 10 2
|
||||
BEGIN
|
||||
PROMPT -55 -1 ""
|
||||
MESSAGE EXIT,K_QUIT
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "" -1 -1 78 18
|
||||
|
||||
NUMBER F_NUMREG 6
|
||||
BEGIN
|
||||
PROMPT 1 1 "Numero registrazione "
|
||||
HELP "Inserire il numero di registrazione che si vuole modificare"
|
||||
FLAGS "RZ"
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
NUMBER F_NUMRIG 2
|
||||
BEGIN
|
||||
PROMPT 40 1 "Numero di riga "
|
||||
HELP "Inserire il numero della riga desiderata. Se non viene specificata si entra in modifica della testata"
|
||||
FLAGS "RZ"
|
||||
END
|
||||
|
||||
DATE F_DATAREG
|
||||
BEGIN
|
||||
PROMPT 1 3 "Data registrazione "
|
||||
END
|
||||
|
||||
LIST F_ANNO 10
|
||||
BEGIN
|
||||
PROMPT 40 3 "Anno di riferimento "
|
||||
ITEM "0|Corrente"
|
||||
ITEM "1|Precedente"
|
||||
END
|
||||
|
||||
DATE F_DATADOC
|
||||
BEGIN
|
||||
PROMPT 1 4 "Data del documento "
|
||||
END
|
||||
|
||||
STRING F_NUMDOC 7
|
||||
BEGIN
|
||||
PROMPT 40 4 "Numero docomento "
|
||||
END
|
||||
|
||||
STRING F_REGIVA 1
|
||||
BEGIN
|
||||
PROMPT 1 6 "Registro IVA "
|
||||
END
|
||||
|
||||
STRING F_DESCRREG 49
|
||||
BEGIN
|
||||
PROMPT 28 6 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_PROTIVA 5
|
||||
BEGIN
|
||||
PROMPT 1 7 "Numero protocollo iva "
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
NUMBER F_NUPROTIVA 5
|
||||
BEGIN
|
||||
PROMPT 40 7 "Ultimo protoc. riepilog. "
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
STRING F_CODCAUS 3
|
||||
BEGIN
|
||||
PROMPT 1 8 "Codice causale "
|
||||
FLAGS "Z"
|
||||
END
|
||||
|
||||
STRING F_DESCRCAU 49
|
||||
BEGIN
|
||||
PROMPT 28 8 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_CODPAG 2
|
||||
BEGIN
|
||||
PROMPT 1 9 "Codice pagamento "
|
||||
END
|
||||
|
||||
STRING F_DESCRPAG 49
|
||||
BEGIN
|
||||
PROMPT 28 9 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_GRUPPO 2
|
||||
BEGIN
|
||||
PROMPT 1 11 "Sottoconto partita "
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
NUMBER F_CONTO 2
|
||||
BEGIN
|
||||
PROMPT 29 11 ""
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
NUMBER F_SOTTOCONTO 6
|
||||
BEGIN
|
||||
PROMPT 34 11 ""
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
STRING F_DESCRPARTITA 50
|
||||
BEGIN
|
||||
PROMPT 1 12 "Descrizione partita "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
LIST F_SEZIONE 7
|
||||
BEGIN
|
||||
PROMPT 1 13 "Sezione "
|
||||
ITEM "D|Dare"
|
||||
ITEM "A|Avere"
|
||||
END
|
||||
|
||||
STRING F_DESCR 30
|
||||
BEGIN
|
||||
PROMPT 1 14 "Descrizione aggiuntiva "
|
||||
END
|
||||
|
||||
NUMBER F_IMPORTO 15
|
||||
BEGIN
|
||||
PROMPT 1 15 "Importo "
|
||||
FLAGS "R"
|
||||
PICTURE "."
|
||||
END
|
||||
|
||||
NUMBER F_GRUPPOC 2
|
||||
BEGIN
|
||||
PROMPT 1 16 "Sottoconto contropart. "
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
NUMBER F_CONTOC 2
|
||||
BEGIN
|
||||
PROMPT 29 16 ""
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
NUMBER F_SOTTOC 6
|
||||
BEGIN
|
||||
PROMPT 34 16 ""
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
STRING F_DESCRCPARTITA 50
|
||||
BEGIN
|
||||
PROMPT 1 17 "Descrizione c/partita "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
#include "cg2800.h"
|
||||
|
||||
TOOLBAR "" 0 20 0 2
|
||||
|
||||
BUTTON DLG_SAVEREC 10 2
|
||||
BEGIN
|
||||
PROMPT -15 -1 "~Registra"
|
||||
MESSAGE EXIT,K_SAVE
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 10 2
|
||||
BEGIN
|
||||
PROMPT -45 -1 ""
|
||||
MESSAGE EXIT,K_ESC
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 10 2
|
||||
BEGIN
|
||||
PROMPT -55 -1 ""
|
||||
MESSAGE EXIT,K_QUIT
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "" -1 -1 78 18
|
||||
|
||||
NUMBER F_NUMREG 6
|
||||
BEGIN
|
||||
PROMPT 1 1 "Numero registrazione "
|
||||
HELP "Inserire il numero di registrazione che si vuole modificare"
|
||||
FLAGS "RZ"
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
NUMBER F_NUMRIG 2
|
||||
BEGIN
|
||||
PROMPT 40 1 "Numero di riga "
|
||||
HELP "Inserire il numero della riga desiderata. Se non viene specificata si entra in modifica della testata"
|
||||
FLAGS "RZ"
|
||||
END
|
||||
|
||||
DATE F_DATAREG
|
||||
BEGIN
|
||||
PROMPT 1 3 "Data registrazione "
|
||||
END
|
||||
|
||||
LIST F_ANNO 10
|
||||
BEGIN
|
||||
PROMPT 40 3 "Anno di riferimento "
|
||||
ITEM "0|Corrente"
|
||||
ITEM "1|Precedente"
|
||||
END
|
||||
|
||||
DATE F_DATADOC
|
||||
BEGIN
|
||||
PROMPT 1 4 "Data del documento "
|
||||
END
|
||||
|
||||
STRING F_NUMDOC 7
|
||||
BEGIN
|
||||
PROMPT 40 4 "Numero docomento "
|
||||
END
|
||||
|
||||
STRING F_REGIVA 1
|
||||
BEGIN
|
||||
PROMPT 1 6 "Registro IVA "
|
||||
END
|
||||
|
||||
STRING F_DESCRREG 49
|
||||
BEGIN
|
||||
PROMPT 28 6 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_PROTIVA 5
|
||||
BEGIN
|
||||
PROMPT 1 7 "Numero protocollo iva "
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
NUMBER F_NUPROTIVA 5
|
||||
BEGIN
|
||||
PROMPT 40 7 "Ultimo protoc. riepilog. "
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
STRING F_CODCAUS 3
|
||||
BEGIN
|
||||
PROMPT 1 8 "Codice causale "
|
||||
FLAGS "Z"
|
||||
END
|
||||
|
||||
STRING F_DESCRCAU 49
|
||||
BEGIN
|
||||
PROMPT 28 8 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_CODPAG 2
|
||||
BEGIN
|
||||
PROMPT 1 9 "Codice pagamento "
|
||||
END
|
||||
|
||||
STRING F_DESCRPAG 49
|
||||
BEGIN
|
||||
PROMPT 28 9 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_GRUPPO 2
|
||||
BEGIN
|
||||
PROMPT 1 11 "Sottoconto partita "
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
NUMBER F_CONTO 2
|
||||
BEGIN
|
||||
PROMPT 29 11 ""
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
NUMBER F_SOTTOCONTO 6
|
||||
BEGIN
|
||||
PROMPT 34 11 ""
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
STRING F_DESCRPARTITA 50
|
||||
BEGIN
|
||||
PROMPT 1 12 "Descrizione partita "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
LIST F_SEZIONE 7
|
||||
BEGIN
|
||||
PROMPT 1 13 "Sezione "
|
||||
ITEM "D|Dare"
|
||||
ITEM "A|Avere"
|
||||
END
|
||||
|
||||
STRING F_DESCR 30
|
||||
BEGIN
|
||||
PROMPT 1 14 "Descrizione aggiuntiva "
|
||||
END
|
||||
|
||||
NUMBER F_IMPORTO 15
|
||||
BEGIN
|
||||
PROMPT 1 15 "Importo "
|
||||
FLAGS "R"
|
||||
PICTURE "."
|
||||
END
|
||||
|
||||
NUMBER F_GRUPPOC 2
|
||||
BEGIN
|
||||
PROMPT 1 16 "Sottoconto contropart. "
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
NUMBER F_CONTOC 2
|
||||
BEGIN
|
||||
PROMPT 29 16 ""
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
NUMBER F_SOTTOC 6
|
||||
BEGIN
|
||||
PROMPT 34 16 ""
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
STRING F_DESCRCPARTITA 50
|
||||
BEGIN
|
||||
PROMPT 1 17 "Descrizione c/partita "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
334
cg/cg2800c.uml
334
cg/cg2800c.uml
@ -1,167 +1,167 @@
|
||||
#include "cg2800.h"
|
||||
|
||||
TOOLBAR "" 0 20 0 2
|
||||
|
||||
BUTTON DLG_SAVEREC 10 2
|
||||
BEGIN
|
||||
PROMPT -15 -1 "~Registra"
|
||||
MESSAGE EXIT,K_SAVE
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 10 2
|
||||
BEGIN
|
||||
PROMPT -45 -1 ""
|
||||
MESSAGE EXIT,K_ESC
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 10 2
|
||||
BEGIN
|
||||
PROMPT -55 -1 ""
|
||||
MESSAGE EXIT,K_QUIT
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "" -1 -1 78 18
|
||||
|
||||
NUMBER F_NUMREG 6
|
||||
BEGIN
|
||||
PROMPT 1 1 "Numero registrazione "
|
||||
HELP "Inserire il numero di registrazione che si vuole modificare"
|
||||
FLAGS "RZ"
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
NUMBER F_NUMRIG 2
|
||||
BEGIN
|
||||
PROMPT 52 1 "Numero di riga "
|
||||
HELP "Inserire il numero della riga desiderata. Se non viene specificata si entra in modifica della testata"
|
||||
FLAGS "RZ"
|
||||
END
|
||||
|
||||
NUMBER F_CODCF 6
|
||||
BEGIN
|
||||
PROMPT 1 3 "Codice C/F "
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
STRING F_RAGSOCCF 50
|
||||
BEGIN
|
||||
PROMPT 26 3 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
DATE F_DATA74TER
|
||||
BEGIN
|
||||
PROMPT 1 4 "Data reg. 74TER "
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 5
|
||||
BEGIN
|
||||
PROMPT 0 6 "Cliente occasionale"
|
||||
END
|
||||
|
||||
STRING F_RAGSOCOCC 25
|
||||
BEGIN
|
||||
PROMPT 1 7 "Ragione sociale "
|
||||
END
|
||||
|
||||
STRING F_INDOCC 22
|
||||
BEGIN
|
||||
PROMPT 1 8 "Indirizzo "
|
||||
END
|
||||
|
||||
STRING F_LOCALITA 18
|
||||
BEGIN
|
||||
PROMPT 1 9 "Localita' "
|
||||
END
|
||||
|
||||
STRING F_CAPOCC 5
|
||||
BEGIN
|
||||
PROMPT 46 9 "C.A.P. "
|
||||
END
|
||||
|
||||
STRING F_PROVOCC 2
|
||||
BEGIN
|
||||
PROMPT 62 9 "Provincia "
|
||||
END
|
||||
|
||||
NUMBER F_IMPONIBILE 15
|
||||
BEGIN
|
||||
PROMPT 1 11 "Imponibile "
|
||||
FLAGS "R"
|
||||
PICTURE "."
|
||||
END
|
||||
|
||||
STRING F_CODIVA 2
|
||||
BEGIN
|
||||
PROMPT 1 12 "Codice IVA "
|
||||
FLAGS "Z"
|
||||
END
|
||||
|
||||
STRING F_DESCRCODIVA 48
|
||||
BEGIN
|
||||
PROMPT 28 12 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_IMPOSTA 15
|
||||
BEGIN
|
||||
PROMPT 1 13 "Imposta "
|
||||
FLAGS "R"
|
||||
PICTURE "."
|
||||
END
|
||||
|
||||
NUMBER F_TIPODET 1
|
||||
BEGIN
|
||||
PROMPT 1 14 "Tipo detraibilita' "
|
||||
SHEET "Codice|Tipo detraibilita'@75"
|
||||
INPUT F_TIPODET
|
||||
ITEM " |Regime normale"
|
||||
ITEM "1|IVA indetraibile su acquisti riferiti a ricavi esenti"
|
||||
ITEM "3|IVA indicata per passaggi interni al solo fine del calcolo di ventilazione"
|
||||
ITEM "9|IVA non detraibile per l'articolo 19"
|
||||
OUTPUT F_TIPODET
|
||||
END
|
||||
|
||||
LIST F_TIPOCR 47
|
||||
BEGIN
|
||||
PROMPT 1 15 "Tipo Costo/Ricavo "
|
||||
ITEM " |0. Acquisti o vendite in genere"
|
||||
ITEM "1|1. Acquisti beni per rivendita"
|
||||
ITEM "2|2. Acquisti beni ammortizzabili"
|
||||
ITEM "3|3. Acquisti beni ammortizzabili con detr. 6%"
|
||||
ITEM "4|4. Vendita beni strumentali art. 17"
|
||||
ITEM "5|5. Beni per rivendita da non ventilare"
|
||||
ITEM "8|8. Altri beni strumentali acquistati in leasing"
|
||||
ITEM "9|9. Spese generali"
|
||||
HELP "Tipo Costo/Ricavo del conto"
|
||||
END
|
||||
|
||||
NUMBER F_GRUPPO 2
|
||||
BEGIN
|
||||
PROMPT 1 16 "Sottoconto costo/ricavo "
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
NUMBER F_CONTO 2
|
||||
BEGIN
|
||||
PROMPT 30 16 ""
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
NUMBER F_SOTTOCONTO 6
|
||||
BEGIN
|
||||
PROMPT 35 16 ""
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
STRING F_DESCRPARTITA 50
|
||||
BEGIN
|
||||
PROMPT 1 17 "Descrizione sottoconto "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
#include "cg2800.h"
|
||||
|
||||
TOOLBAR "" 0 20 0 2
|
||||
|
||||
BUTTON DLG_SAVEREC 10 2
|
||||
BEGIN
|
||||
PROMPT -15 -1 "~Registra"
|
||||
MESSAGE EXIT,K_SAVE
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 10 2
|
||||
BEGIN
|
||||
PROMPT -45 -1 ""
|
||||
MESSAGE EXIT,K_ESC
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 10 2
|
||||
BEGIN
|
||||
PROMPT -55 -1 ""
|
||||
MESSAGE EXIT,K_QUIT
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "" -1 -1 78 18
|
||||
|
||||
NUMBER F_NUMREG 6
|
||||
BEGIN
|
||||
PROMPT 1 1 "Numero registrazione "
|
||||
HELP "Inserire il numero di registrazione che si vuole modificare"
|
||||
FLAGS "RZ"
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
NUMBER F_NUMRIG 2
|
||||
BEGIN
|
||||
PROMPT 52 1 "Numero di riga "
|
||||
HELP "Inserire il numero della riga desiderata. Se non viene specificata si entra in modifica della testata"
|
||||
FLAGS "RZ"
|
||||
END
|
||||
|
||||
NUMBER F_CODCF 6
|
||||
BEGIN
|
||||
PROMPT 1 3 "Codice C/F "
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
STRING F_RAGSOCCF 50
|
||||
BEGIN
|
||||
PROMPT 26 3 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
DATE F_DATA74TER
|
||||
BEGIN
|
||||
PROMPT 1 4 "Data reg. 74TER "
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 5
|
||||
BEGIN
|
||||
PROMPT 0 6 "Cliente occasionale"
|
||||
END
|
||||
|
||||
STRING F_RAGSOCOCC 25
|
||||
BEGIN
|
||||
PROMPT 1 7 "Ragione sociale "
|
||||
END
|
||||
|
||||
STRING F_INDOCC 22
|
||||
BEGIN
|
||||
PROMPT 1 8 "Indirizzo "
|
||||
END
|
||||
|
||||
STRING F_LOCALITA 18
|
||||
BEGIN
|
||||
PROMPT 1 9 "Localita' "
|
||||
END
|
||||
|
||||
STRING F_CAPOCC 5
|
||||
BEGIN
|
||||
PROMPT 46 9 "C.A.P. "
|
||||
END
|
||||
|
||||
STRING F_PROVOCC 2
|
||||
BEGIN
|
||||
PROMPT 62 9 "Provincia "
|
||||
END
|
||||
|
||||
NUMBER F_IMPONIBILE 15
|
||||
BEGIN
|
||||
PROMPT 1 11 "Imponibile "
|
||||
FLAGS "R"
|
||||
PICTURE "."
|
||||
END
|
||||
|
||||
STRING F_CODIVA 2
|
||||
BEGIN
|
||||
PROMPT 1 12 "Codice IVA "
|
||||
FLAGS "Z"
|
||||
END
|
||||
|
||||
STRING F_DESCRCODIVA 48
|
||||
BEGIN
|
||||
PROMPT 28 12 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_IMPOSTA 15
|
||||
BEGIN
|
||||
PROMPT 1 13 "Imposta "
|
||||
FLAGS "R"
|
||||
PICTURE "."
|
||||
END
|
||||
|
||||
NUMBER F_TIPODET 1
|
||||
BEGIN
|
||||
PROMPT 1 14 "Tipo detraibilita' "
|
||||
SHEET "Codice|Tipo detraibilita'@75"
|
||||
INPUT F_TIPODET
|
||||
ITEM " |Regime normale"
|
||||
ITEM "1|IVA indetraibile su acquisti riferiti a ricavi esenti"
|
||||
ITEM "3|IVA indicata per passaggi interni al solo fine del calcolo di ventilazione"
|
||||
ITEM "9|IVA non detraibile per l'articolo 19"
|
||||
OUTPUT F_TIPODET
|
||||
END
|
||||
|
||||
LIST F_TIPOCR 47
|
||||
BEGIN
|
||||
PROMPT 1 15 "Tipo Costo/Ricavo "
|
||||
ITEM " |0. Acquisti o vendite in genere"
|
||||
ITEM "1|1. Acquisti beni per rivendita"
|
||||
ITEM "2|2. Acquisti beni ammortizzabili"
|
||||
ITEM "3|3. Acquisti beni ammortizzabili con detr. 6%"
|
||||
ITEM "4|4. Vendita beni strumentali art. 17"
|
||||
ITEM "5|5. Beni per rivendita da non ventilare"
|
||||
ITEM "8|8. Altri beni strumentali acquistati in leasing"
|
||||
ITEM "9|9. Spese generali"
|
||||
HELP "Tipo Costo/Ricavo del conto"
|
||||
END
|
||||
|
||||
NUMBER F_GRUPPO 2
|
||||
BEGIN
|
||||
PROMPT 1 16 "Sottoconto costo/ricavo "
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
NUMBER F_CONTO 2
|
||||
BEGIN
|
||||
PROMPT 30 16 ""
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
NUMBER F_SOTTOCONTO 6
|
||||
BEGIN
|
||||
PROMPT 35 16 ""
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
STRING F_DESCRPARTITA 50
|
||||
BEGIN
|
||||
PROMPT 1 17 "Descrizione sottoconto "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
482
cg/cg2801.cpp
482
cg/cg2801.cpp
@ -1,241 +1,241 @@
|
||||
#include "cglib04.h"
|
||||
#include "cg2801.h"
|
||||
|
||||
bool TDitta_ric::create()
|
||||
{
|
||||
TApplication::create();
|
||||
|
||||
_nditte = new TLocalisamfile (LF_PCON);
|
||||
|
||||
dispatch_e_menu (BAR_ITEM(1));
|
||||
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool TDitta_ric::destroy()
|
||||
{
|
||||
delete _nditte;
|
||||
|
||||
return TApplication::destroy();
|
||||
}
|
||||
|
||||
bool TDitta_ric::set()
|
||||
{
|
||||
TMask msk ("cg2801a");
|
||||
KEY tasto;
|
||||
|
||||
tasto = msk.run();
|
||||
|
||||
if (tasto != K_ENTER) return FALSE;
|
||||
|
||||
_dittaric = msk.get_int(F_CODDITTA);
|
||||
|
||||
if (!esegui_controlli()) return FALSE;
|
||||
|
||||
set_firm(_dittaric);
|
||||
|
||||
return FALSE;
|
||||
}
|
||||
|
||||
bool TDitta_ric::leggi_trasfer()
|
||||
{
|
||||
_trasf = _tras_file.path(_dittaric);
|
||||
_trasf << "\\trasfer";
|
||||
|
||||
_tras_file.open(_trasf);
|
||||
|
||||
if (_tras_file.exist())
|
||||
{
|
||||
if (_tras_file.read_control_rec())
|
||||
{
|
||||
_control_rec = _tras_file.record();
|
||||
_uselab = _tras_file.ult_file();
|
||||
_key = _tras_file.key();
|
||||
_sigle_file = _tras_file.sigle_file();
|
||||
_nrec_file = _tras_file.nrec_file();
|
||||
}
|
||||
else
|
||||
return error_box("Rilevati gravi errori negli archivi:procedura interrotta");
|
||||
}
|
||||
else
|
||||
return error_box("Al momento non presenti trasferimenti attivi sulla ditta selezionata");
|
||||
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool TDitta_ric::esegui_controlli()
|
||||
{
|
||||
TConfig conf(CONFIG_DITTA);
|
||||
|
||||
_std = conf.get("FlStTra");
|
||||
|
||||
if (!prefhndl->exist(_dittaric))
|
||||
return error_box("Codice ditta NON PRESENTE in archivio oppure NON ATTIVATO in contabilita' generale");
|
||||
|
||||
if (_std == "")
|
||||
{
|
||||
if (!leggi_trasfer())
|
||||
return FALSE;
|
||||
|
||||
if (_uselab != " ")
|
||||
return error_box("Ultimo trasferimento NON COMPLETATO: completarlo");
|
||||
}
|
||||
else
|
||||
return error_box("Ultimo trasferimento NON COMPLETATO: completarlo");
|
||||
|
||||
if (!controlli())
|
||||
return FALSE;
|
||||
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool TDitta_ric::controlli()
|
||||
{
|
||||
TString ana_com,pcon_cau,uselab;
|
||||
bool fatto = FALSE;
|
||||
|
||||
TConfig conf(CONFIG_DITTA);
|
||||
|
||||
ana_com = conf.get("AnCfCm","cg");
|
||||
pcon_cau = conf.get("PcTcCm","cg");
|
||||
|
||||
if (ana_com == "X" || pcon_cau == "X")
|
||||
{
|
||||
if (ana_com == "X")
|
||||
{
|
||||
int p = _sigle_file.find('A');
|
||||
if (p >= 0)
|
||||
{
|
||||
_sigle_file.overwrite(" ",p);
|
||||
_nrec_file.overwrite("000000", p * 6);
|
||||
}
|
||||
}
|
||||
|
||||
if (pcon_cau == "X")
|
||||
{
|
||||
int p = _sigle_file.find('W');
|
||||
if (p >= 0)
|
||||
{
|
||||
_sigle_file.overwrite(" ",p);
|
||||
_nrec_file.overwrite("000000", p * 6);
|
||||
}
|
||||
|
||||
p = _sigle_file.find('P');
|
||||
if (p >= 0)
|
||||
{
|
||||
_sigle_file.overwrite(" ",p);
|
||||
_nrec_file.overwrite("000000", p * 6);
|
||||
}
|
||||
}
|
||||
|
||||
_control_rec.overwrite(_sigle_file,38);
|
||||
_control_rec.overwrite(_nrec_file,47);
|
||||
_tras_file.write_control_rec(_control_rec,256);
|
||||
leggi_record_controllo();
|
||||
}
|
||||
|
||||
setta_parametri_record("","T",FALSE);
|
||||
|
||||
int k = 0;
|
||||
|
||||
for ( int j = 0; j < _sigle_file.len(); j++)
|
||||
{
|
||||
TString sigla = _sigle_file.mid(j,1);
|
||||
long nrec = atol(_nrec_file.mid(k,6));
|
||||
|
||||
if (sigla != "Z" && sigla != "U" && sigla != "B")
|
||||
{
|
||||
if (nrec != 0)
|
||||
{
|
||||
uselab = sigla;
|
||||
_control_rec.overwrite(uselab,240);
|
||||
_control_rec.overwrite(" ",241);
|
||||
fatto = TRUE;
|
||||
break;
|
||||
}
|
||||
}
|
||||
k += 6;
|
||||
}
|
||||
|
||||
if (!fatto)
|
||||
{
|
||||
int p = _sigle_file.find('Z');
|
||||
if (p >= 0)
|
||||
{
|
||||
setta_parametri_record("","C",FALSE);
|
||||
_control_rec.overwrite(" ",240);
|
||||
_control_rec.overwrite(" ",241);
|
||||
}
|
||||
else
|
||||
{
|
||||
setta_parametri_record("","*",FALSE);
|
||||
_control_rec.overwrite(" ",240);
|
||||
_control_rec.overwrite(" ",241);
|
||||
fremove(_trasf);
|
||||
setta_parametri_record(""," ",FALSE);
|
||||
}
|
||||
}
|
||||
|
||||
char agg_cau = _control_rec.sub(235,236)[0];
|
||||
char agg_clifo = _control_rec.sub(236,237)[0];
|
||||
char agg_pcon = _control_rec.sub(237,238)[0];
|
||||
|
||||
if (agg_cau != ' ')
|
||||
agg_cau = 'D';
|
||||
if (agg_clifo != ' ')
|
||||
agg_clifo = 'D';
|
||||
if (agg_pcon != ' ')
|
||||
agg_pcon = 'D';
|
||||
|
||||
TString agg(4);
|
||||
|
||||
agg[0] = agg_cau;
|
||||
agg[1] = agg_clifo;
|
||||
agg[2] = agg_pcon;
|
||||
agg[3] = '\0';
|
||||
|
||||
_control_rec.overwrite(agg,235);
|
||||
|
||||
const int size = 256;
|
||||
|
||||
if (!_tras_file.write_control_rec(_control_rec, size))
|
||||
return FALSE;
|
||||
|
||||
TConfig cfd (CONFIG_DITTA);
|
||||
|
||||
TString std = cfd.get("FlStTra");
|
||||
if (std == "")
|
||||
return error_box ("Non risultano TRASFERIMENTI ATTIVI sulla ditta richiesta");
|
||||
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
void TDitta_ric::leggi_record_controllo()
|
||||
{
|
||||
_tras_file.read_control_rec();
|
||||
_control_rec = _tras_file.record();
|
||||
}
|
||||
|
||||
void TDitta_ric::setta_parametri_record(const TString& sigla,const TString& flag,bool uselab)
|
||||
{
|
||||
TConfig conf (CONFIG_DITTA);
|
||||
|
||||
conf.set("FlStTra", flag);
|
||||
|
||||
if (uselab)
|
||||
{
|
||||
leggi_record_controllo();
|
||||
_control_rec.overwrite(sigla,240);
|
||||
|
||||
const int size = 256;
|
||||
|
||||
_tras_file.write_control_rec(_control_rec, size);
|
||||
}
|
||||
}
|
||||
|
||||
bool TDitta_ric::menu(MENU_TAG m)
|
||||
{
|
||||
if (m == BAR_ITEM(1))
|
||||
return set();
|
||||
return FALSE;
|
||||
}
|
||||
#include "cglib04.h"
|
||||
#include "cg2801.h"
|
||||
|
||||
bool TDitta_ric::create()
|
||||
{
|
||||
TApplication::create();
|
||||
|
||||
_nditte = new TLocalisamfile (LF_PCON);
|
||||
|
||||
dispatch_e_menu (BAR_ITEM(1));
|
||||
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool TDitta_ric::destroy()
|
||||
{
|
||||
delete _nditte;
|
||||
|
||||
return TApplication::destroy();
|
||||
}
|
||||
|
||||
bool TDitta_ric::set()
|
||||
{
|
||||
TMask msk ("cg2801a");
|
||||
KEY tasto;
|
||||
|
||||
tasto = msk.run();
|
||||
|
||||
if (tasto != K_ENTER) return FALSE;
|
||||
|
||||
_dittaric = msk.get_int(F_CODDITTA);
|
||||
|
||||
if (!esegui_controlli()) return FALSE;
|
||||
|
||||
set_firm(_dittaric);
|
||||
|
||||
return FALSE;
|
||||
}
|
||||
|
||||
bool TDitta_ric::leggi_trasfer()
|
||||
{
|
||||
_trasf = _tras_file.path(_dittaric);
|
||||
_trasf << "\\trasfer";
|
||||
|
||||
_tras_file.open(_trasf);
|
||||
|
||||
if (_tras_file.exist())
|
||||
{
|
||||
if (_tras_file.read_control_rec())
|
||||
{
|
||||
_control_rec = _tras_file.record();
|
||||
_uselab = _tras_file.ult_file();
|
||||
_key = _tras_file.key();
|
||||
_sigle_file = _tras_file.sigle_file();
|
||||
_nrec_file = _tras_file.nrec_file();
|
||||
}
|
||||
else
|
||||
return error_box("Rilevati gravi errori negli archivi:procedura interrotta");
|
||||
}
|
||||
else
|
||||
return error_box("Al momento non presenti trasferimenti attivi sulla ditta selezionata");
|
||||
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool TDitta_ric::esegui_controlli()
|
||||
{
|
||||
TConfig conf(CONFIG_DITTA);
|
||||
|
||||
_std = conf.get("FlStTra");
|
||||
|
||||
if (!prefhndl->exist(_dittaric))
|
||||
return error_box("Codice ditta NON PRESENTE in archivio oppure NON ATTIVATO in contabilita' generale");
|
||||
|
||||
if (_std == "")
|
||||
{
|
||||
if (!leggi_trasfer())
|
||||
return FALSE;
|
||||
|
||||
if (_uselab != " ")
|
||||
return error_box("Ultimo trasferimento NON COMPLETATO: completarlo");
|
||||
}
|
||||
else
|
||||
return error_box("Ultimo trasferimento NON COMPLETATO: completarlo");
|
||||
|
||||
if (!controlli())
|
||||
return FALSE;
|
||||
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool TDitta_ric::controlli()
|
||||
{
|
||||
TString ana_com,pcon_cau,uselab;
|
||||
bool fatto = FALSE;
|
||||
|
||||
TConfig conf(CONFIG_DITTA);
|
||||
|
||||
ana_com = conf.get("AnCfCm","cg");
|
||||
pcon_cau = conf.get("PcTcCm","cg");
|
||||
|
||||
if (ana_com == "X" || pcon_cau == "X")
|
||||
{
|
||||
if (ana_com == "X")
|
||||
{
|
||||
int p = _sigle_file.find('A');
|
||||
if (p >= 0)
|
||||
{
|
||||
_sigle_file.overwrite(" ",p);
|
||||
_nrec_file.overwrite("000000", p * 6);
|
||||
}
|
||||
}
|
||||
|
||||
if (pcon_cau == "X")
|
||||
{
|
||||
int p = _sigle_file.find('W');
|
||||
if (p >= 0)
|
||||
{
|
||||
_sigle_file.overwrite(" ",p);
|
||||
_nrec_file.overwrite("000000", p * 6);
|
||||
}
|
||||
|
||||
p = _sigle_file.find('P');
|
||||
if (p >= 0)
|
||||
{
|
||||
_sigle_file.overwrite(" ",p);
|
||||
_nrec_file.overwrite("000000", p * 6);
|
||||
}
|
||||
}
|
||||
|
||||
_control_rec.overwrite(_sigle_file,38);
|
||||
_control_rec.overwrite(_nrec_file,47);
|
||||
_tras_file.write_control_rec(_control_rec,256);
|
||||
leggi_record_controllo();
|
||||
}
|
||||
|
||||
setta_parametri_record("","T",FALSE);
|
||||
|
||||
int k = 0;
|
||||
|
||||
for ( int j = 0; j < _sigle_file.len(); j++)
|
||||
{
|
||||
TString sigla = _sigle_file.mid(j,1);
|
||||
long nrec = atol(_nrec_file.mid(k,6));
|
||||
|
||||
if (sigla != "Z" && sigla != "U" && sigla != "B")
|
||||
{
|
||||
if (nrec != 0)
|
||||
{
|
||||
uselab = sigla;
|
||||
_control_rec.overwrite(uselab,240);
|
||||
_control_rec.overwrite(" ",241);
|
||||
fatto = TRUE;
|
||||
break;
|
||||
}
|
||||
}
|
||||
k += 6;
|
||||
}
|
||||
|
||||
if (!fatto)
|
||||
{
|
||||
int p = _sigle_file.find('Z');
|
||||
if (p >= 0)
|
||||
{
|
||||
setta_parametri_record("","C",FALSE);
|
||||
_control_rec.overwrite(" ",240);
|
||||
_control_rec.overwrite(" ",241);
|
||||
}
|
||||
else
|
||||
{
|
||||
setta_parametri_record("","*",FALSE);
|
||||
_control_rec.overwrite(" ",240);
|
||||
_control_rec.overwrite(" ",241);
|
||||
fremove(_trasf);
|
||||
setta_parametri_record(""," ",FALSE);
|
||||
}
|
||||
}
|
||||
|
||||
char agg_cau = _control_rec.sub(235,236)[0];
|
||||
char agg_clifo = _control_rec.sub(236,237)[0];
|
||||
char agg_pcon = _control_rec.sub(237,238)[0];
|
||||
|
||||
if (agg_cau != ' ')
|
||||
agg_cau = 'D';
|
||||
if (agg_clifo != ' ')
|
||||
agg_clifo = 'D';
|
||||
if (agg_pcon != ' ')
|
||||
agg_pcon = 'D';
|
||||
|
||||
TString agg(4);
|
||||
|
||||
agg[0] = agg_cau;
|
||||
agg[1] = agg_clifo;
|
||||
agg[2] = agg_pcon;
|
||||
agg[3] = '\0';
|
||||
|
||||
_control_rec.overwrite(agg,235);
|
||||
|
||||
const int size = 256;
|
||||
|
||||
if (!_tras_file.write_control_rec(_control_rec, size))
|
||||
return FALSE;
|
||||
|
||||
TConfig cfd (CONFIG_DITTA);
|
||||
|
||||
TString std = cfd.get("FlStTra");
|
||||
if (std == "")
|
||||
return error_box ("Non risultano TRASFERIMENTI ATTIVI sulla ditta richiesta");
|
||||
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
void TDitta_ric::leggi_record_controllo()
|
||||
{
|
||||
_tras_file.read_control_rec();
|
||||
_control_rec = _tras_file.record();
|
||||
}
|
||||
|
||||
void TDitta_ric::setta_parametri_record(const TString& sigla,const TString& flag,bool uselab)
|
||||
{
|
||||
TConfig conf (CONFIG_DITTA);
|
||||
|
||||
conf.set("FlStTra", flag);
|
||||
|
||||
if (uselab)
|
||||
{
|
||||
leggi_record_controllo();
|
||||
_control_rec.overwrite(sigla,240);
|
||||
|
||||
const int size = 256;
|
||||
|
||||
_tras_file.write_control_rec(_control_rec, size);
|
||||
}
|
||||
}
|
||||
|
||||
bool TDitta_ric::menu(MENU_TAG m)
|
||||
{
|
||||
if (m == BAR_ITEM(1))
|
||||
return set();
|
||||
return FALSE;
|
||||
}
|
||||
|
86
cg/cg2801.h
86
cg/cg2801.h
@ -1,43 +1,43 @@
|
||||
// Scelta ditta per ricezione
|
||||
|
||||
#include <mask.h>
|
||||
#include <applicat.h>
|
||||
#include <relation.h>
|
||||
#include <tabutil.h>
|
||||
#include <utility.h>
|
||||
#include <config.h>
|
||||
#include <urldefid.h>
|
||||
#include <execp.h>
|
||||
#include <prefix.h>
|
||||
#include <lffiles.h>
|
||||
#include <nditte.h>
|
||||
|
||||
#include "cg2800.h"
|
||||
//#include "cglib04.h"
|
||||
|
||||
class TDitta_ric : public TApplication
|
||||
{
|
||||
TLocalisamfile* _nditte;
|
||||
TTransfer_file _tras_file;
|
||||
|
||||
TString _trasf,_std,_uselab,_record,_nrec_file,_sigle_file,_key;
|
||||
long _dittaric;
|
||||
TString _control_rec;
|
||||
|
||||
public:
|
||||
TString _titolo;
|
||||
|
||||
virtual bool create();
|
||||
virtual bool destroy();
|
||||
virtual bool menu(MENU_TAG m);
|
||||
|
||||
bool set();
|
||||
|
||||
bool esegui_controlli();
|
||||
bool leggi_trasfer();
|
||||
bool controlli();
|
||||
void leggi_record_controllo();
|
||||
void setta_parametri_record(const TString& sigla,const TString& flag,bool uselab);
|
||||
|
||||
TDitta_ric() {};
|
||||
};
|
||||
// Scelta ditta per ricezione
|
||||
|
||||
#include <mask.h>
|
||||
#include <applicat.h>
|
||||
#include <relation.h>
|
||||
#include <tabutil.h>
|
||||
#include <utility.h>
|
||||
#include <config.h>
|
||||
#include <urldefid.h>
|
||||
#include <execp.h>
|
||||
#include <prefix.h>
|
||||
#include <lffiles.h>
|
||||
#include <nditte.h>
|
||||
|
||||
#include "cg2800.h"
|
||||
//#include "cglib04.h"
|
||||
|
||||
class TDitta_ric : public TApplication
|
||||
{
|
||||
TLocalisamfile* _nditte;
|
||||
TTransfer_file _tras_file;
|
||||
|
||||
TString _trasf,_std,_uselab,_record,_nrec_file,_sigle_file,_key;
|
||||
long _dittaric;
|
||||
TString _control_rec;
|
||||
|
||||
public:
|
||||
TString _titolo;
|
||||
|
||||
virtual bool create();
|
||||
virtual bool destroy();
|
||||
virtual bool menu(MENU_TAG m);
|
||||
|
||||
bool set();
|
||||
|
||||
bool esegui_controlli();
|
||||
bool leggi_trasfer();
|
||||
bool controlli();
|
||||
void leggi_record_controllo();
|
||||
void setta_parametri_record(const TString& sigla,const TString& flag,bool uselab);
|
||||
|
||||
TDitta_ric() {};
|
||||
};
|
||||
|
@ -1,47 +1,47 @@
|
||||
#include "cg2800.h"
|
||||
|
||||
PAGE "Selezione Ditta" -1 -1 64 6
|
||||
|
||||
NUMBER F_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 1 1 "Codice "
|
||||
HELP "Codice della ditta da attivare"
|
||||
FLAGS "FR"
|
||||
USE LF_NDITTE KEY 1
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
DISPLAY "Codice" CODDITTA
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
OUTPUT F_CODDITTA CODDITTA
|
||||
OUTPUT F_RAGDITTA RAGSOC
|
||||
CHECKTYPE NORMAL
|
||||
WARNING "Ditta assente"
|
||||
KEY 1
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_RAGDITTA 50
|
||||
BEGIN
|
||||
PROMPT 1 2 "Rag. Soc. "
|
||||
USE LF_NDITTE KEY 2
|
||||
HELP "Ragione sociale della ditta da selezionare"
|
||||
INPUT RAGSOC F_RAGDITTA
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
DISPLAY "Codice" CODDITTA
|
||||
COPY OUTPUT F_CODDITTA
|
||||
KEY 2
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 9 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
#include "cg2800.h"
|
||||
|
||||
PAGE "Selezione Ditta" -1 -1 64 6
|
||||
|
||||
NUMBER F_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 1 1 "Codice "
|
||||
HELP "Codice della ditta da attivare"
|
||||
FLAGS "FR"
|
||||
USE LF_NDITTE KEY 1
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
DISPLAY "Codice" CODDITTA
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
OUTPUT F_CODDITTA CODDITTA
|
||||
OUTPUT F_RAGDITTA RAGSOC
|
||||
CHECKTYPE NORMAL
|
||||
WARNING "Ditta assente"
|
||||
KEY 1
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_RAGDITTA 50
|
||||
BEGIN
|
||||
PROMPT 1 2 "Rag. Soc. "
|
||||
USE LF_NDITTE KEY 2
|
||||
HELP "Ragione sociale della ditta da selezionare"
|
||||
INPUT RAGSOC F_RAGDITTA
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
DISPLAY "Codice" CODDITTA
|
||||
COPY OUTPUT F_CODDITTA
|
||||
KEY 2
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 9 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
726
cg/cg2802.cpp
726
cg/cg2802.cpp
@ -1,363 +1,363 @@
|
||||
#include "cglib04.h"
|
||||
#include "cg2802.h"
|
||||
|
||||
HIDDEN int date2esc(const TDate& d, int* prevesc)
|
||||
{
|
||||
if (prevesc) *prevesc = 0;
|
||||
TTable esc("ESC");
|
||||
for (int err = esc.first(); err == NOERR; err = esc.next())
|
||||
{
|
||||
const TDate ia(esc.get("D0")); // Data inizio esercizio
|
||||
const TDate fa(esc.get("D1")); // Data fine esercizio
|
||||
const anno = esc.get_int("CODTAB");
|
||||
if (d >= ia && d <= fa)
|
||||
return anno;
|
||||
if (prevesc) *prevesc = anno;
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
bool TAnn_mov::create()
|
||||
{
|
||||
TApplication::create();
|
||||
|
||||
_pcon = new TLocalisamfile (LF_PCON);
|
||||
_clifo = new TLocalisamfile (LF_CLIFO);
|
||||
|
||||
TString80 tmpmov = "%";
|
||||
tmpmov << get_firm_dir();
|
||||
tmpmov << "\\" << TEMP_MOV;
|
||||
TString80 tmprmov = "%";
|
||||
tmprmov << get_firm_dir();
|
||||
tmprmov << "\\" << TEMP_RMOV;
|
||||
TString80 tmprmoviva = "%";
|
||||
tmprmoviva << get_firm_dir();
|
||||
tmprmoviva << "\\" << TEMP_RMOVIVA;
|
||||
|
||||
_tmov = new TIsamtempfile(LF_MOV, tmpmov, 0);
|
||||
_trmov = new TIsamtempfile(LF_RMOV, tmprmov, 0);
|
||||
_tiva = new TIsamtempfile(LF_RMOVIVA, tmprmoviva, 0);
|
||||
|
||||
_rec_mov = new TRectype (LF_MOV);
|
||||
|
||||
dispatch_e_menu (BAR_ITEM(1));
|
||||
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool TAnn_mov::destroy()
|
||||
{
|
||||
delete _pcon;
|
||||
delete _clifo;
|
||||
|
||||
delete _tmov;
|
||||
delete _trmov;
|
||||
delete _tiva;
|
||||
|
||||
delete _rec_mov;
|
||||
|
||||
return TApplication::destroy();
|
||||
}
|
||||
|
||||
bool TAnn_mov::set()
|
||||
{
|
||||
_dittaric = get_firm();
|
||||
|
||||
if (!esegui_controlli()) return FALSE;
|
||||
|
||||
if (!video())
|
||||
return FALSE;
|
||||
|
||||
return FALSE;
|
||||
}
|
||||
|
||||
bool TAnn_mov::video()
|
||||
{
|
||||
TMask msk ("cg2802a");
|
||||
KEY tasto;
|
||||
|
||||
do
|
||||
{
|
||||
tasto = msk.run();
|
||||
|
||||
if (tasto != K_ENTER) return FALSE;
|
||||
|
||||
if (esiste_testata_mov(msk))
|
||||
{
|
||||
TMask mask ("cg2802b");
|
||||
|
||||
mask.set_handler(F_REGIVA, codice_registro_hnd);
|
||||
mask.set_handler(F_CODCAUS, codice_causale_hnd);
|
||||
|
||||
setta_campi_maschera(mask);
|
||||
|
||||
tasto = mask.run();
|
||||
|
||||
switch (tasto)
|
||||
{
|
||||
case K_ESC :
|
||||
break;
|
||||
|
||||
case K_QUIT :
|
||||
break;
|
||||
|
||||
case K_SAVE :
|
||||
{
|
||||
annulla(mask);
|
||||
}
|
||||
break;
|
||||
|
||||
default:
|
||||
break;
|
||||
}
|
||||
}
|
||||
}
|
||||
while (tasto != K_QUIT); //K_ENTER
|
||||
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool TAnn_mov::esiste_testata_mov(TMask& m)
|
||||
{
|
||||
long nrec;
|
||||
|
||||
_numreg = m.get_long(F_NUMREG);
|
||||
|
||||
_tmov->setkey(1);
|
||||
_tmov->zero();
|
||||
_tmov->put(MOV_NUMREG, _numreg);
|
||||
|
||||
if (_tmov->read() == NOERR)
|
||||
{
|
||||
nrec = _tmov->get_long(MOV_NUMGIO);
|
||||
nrec += _tras_file.start('Z');
|
||||
|
||||
_tras_file.read_rec_trasfer(nrec);
|
||||
_record = _tras_file.read_rec();
|
||||
|
||||
char annullato = _record.sub(248,249)[0];
|
||||
|
||||
if (annullato == 'A')
|
||||
return error_box("Registrazione presente ma gia' ANNULLATA in precedenza");
|
||||
|
||||
*_rec_mov = _tmov->curr();
|
||||
}
|
||||
else
|
||||
return error_box("Registrazione richiesta NON PRESENTE tra i movimenti in trasferimento");
|
||||
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
void TAnn_mov::setta_campi_maschera(TMask& m)
|
||||
{
|
||||
TDate datareg (_rec_mov->get_date(MOV_DATAREG));
|
||||
TDate datadoc (_rec_mov->get_date(MOV_DATADOC));
|
||||
TString numdoc = _rec_mov->get (MOV_NUMDOC);
|
||||
TString regiva = _rec_mov->get (MOV_REG);
|
||||
regiva.trim();
|
||||
long protiva = _rec_mov->get_long(MOV_PROTIVA);
|
||||
TString codcaus = _rec_mov->get (MOV_CODCAUS);
|
||||
|
||||
m.set(F_NUMREG, _numreg);
|
||||
m.set(F_DATAREG, datareg.string());
|
||||
m.set(F_DATADOC, datadoc.string());
|
||||
m.set(F_NUMDOC, numdoc);
|
||||
m.set(F_REGIVA, regiva);
|
||||
m.set(F_PROTIVA, protiva);
|
||||
m.set(F_CODCAUS, codcaus);
|
||||
|
||||
m.disable(F_NUMREG);
|
||||
m.disable(F_DATAREG);
|
||||
m.disable(F_DATADOC);
|
||||
m.disable(F_NUMDOC);
|
||||
m.disable(F_REGIVA);
|
||||
m.disable(F_PROTIVA);
|
||||
m.disable(F_CODCAUS);
|
||||
}
|
||||
|
||||
void TAnn_mov::annulla(TMask& m)
|
||||
{
|
||||
TRectype* rec_rmov,* rec_riva;
|
||||
rec_rmov = new TRectype (LF_RMOV);
|
||||
|
||||
long numreg = m.get_long(F_NUMREG);
|
||||
|
||||
_trmov->setkey(1);
|
||||
_trmov->zero();
|
||||
_trmov->put(RMV_NUMREG, numreg);
|
||||
*rec_rmov = _trmov->curr();
|
||||
|
||||
for (_trmov->read(); !_trmov->eof(); _trmov->next())
|
||||
{
|
||||
if (_trmov->curr() > *rec_rmov) break;
|
||||
|
||||
long numrec = _trmov->get_int(RMV_ANNOES);
|
||||
numrec += _tras_file.start('Z');
|
||||
|
||||
_tras_file.read_rec_trasfer(numrec); //Leggo il record della prima nota
|
||||
|
||||
_tras_file.put("A","Z1",51,numrec);
|
||||
|
||||
_tras_file.write(numrec);
|
||||
}
|
||||
|
||||
delete rec_rmov;
|
||||
|
||||
rec_riva = new TRectype (LF_RMOVIVA);
|
||||
|
||||
_tiva->setkey(1);
|
||||
_tiva->zero();
|
||||
_tiva->put(RMI_NUMREG, numreg);
|
||||
*rec_riva = _tiva->curr();
|
||||
|
||||
for (_tiva->read(); !_tiva->eof(); _tiva->next())
|
||||
{
|
||||
if (_tiva->curr() > *rec_riva) break;
|
||||
|
||||
long numrec = _tiva->get_int(RMI_ANNOES);
|
||||
numrec += _tras_file.start('U');
|
||||
|
||||
_tras_file.read_rec_trasfer(numrec); //Leggo il record della prima nota
|
||||
|
||||
_tras_file.put("A","U1",51,numrec);
|
||||
|
||||
_tras_file.write(numrec);
|
||||
}
|
||||
|
||||
delete rec_riva;
|
||||
}
|
||||
|
||||
bool TAnn_mov::leggi_trasfer()
|
||||
{
|
||||
_trasf = _tras_file.path(_dittaric);
|
||||
_trasf << "\\trasfer";
|
||||
|
||||
_tras_file.open(_trasf);
|
||||
|
||||
if (_tras_file.exist())
|
||||
{
|
||||
if (_tras_file.read_control_rec())
|
||||
_control_rec = _tras_file.record();
|
||||
else
|
||||
return error_box("Rilevati gravi errori negli archivi:procedura interrotta");
|
||||
}
|
||||
else
|
||||
return error_box("Al momento non presenti trasferimenti attivi sulla ditta selezionata");
|
||||
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool TAnn_mov::codice_registro_hnd(TMask_field& f, KEY k)
|
||||
{
|
||||
TTable reg ("REG");
|
||||
TString descr,dep;
|
||||
|
||||
if (k == K_TAB)
|
||||
{
|
||||
TString codreg = f.get();
|
||||
char cr = codreg[0];
|
||||
TDate datareg (f.mask().get(F_DATAREG));
|
||||
int anno = date2esc(datareg);
|
||||
|
||||
if (isdigit(cr))
|
||||
dep.format("%04d%03c", anno, cr);
|
||||
else
|
||||
dep.format("%04d%-3c", anno, cr);
|
||||
|
||||
reg.zero();
|
||||
reg.put("CODTAB", dep);
|
||||
if (reg.read() == NOERR)
|
||||
{
|
||||
descr = reg.get("S0");
|
||||
f.mask().set(F_DESCRREG, descr);
|
||||
}
|
||||
}
|
||||
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool TAnn_mov::codice_causale_hnd(TMask_field& f, KEY k)
|
||||
{
|
||||
TLocalisamfile cau (LF_CAUSALI);
|
||||
TString descr;
|
||||
|
||||
if (k == K_TAB)
|
||||
{
|
||||
TString codcau = f.get();
|
||||
|
||||
cau.setkey(1);
|
||||
cau.zero();
|
||||
cau.put("CODCAUS", codcau);
|
||||
if (cau.read() == NOERR)
|
||||
{
|
||||
descr = cau.get("DESCR");
|
||||
f.mask().set(F_DESCRCAU, descr);
|
||||
}
|
||||
}
|
||||
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool TAnn_mov::esegui_controlli()
|
||||
{
|
||||
TConfig conf(CONFIG_DITTA);
|
||||
|
||||
_std = conf.get("FlStTra");
|
||||
|
||||
if (!prefhndl->exist(_dittaric))
|
||||
return error_box("Rilevati GRAVI ERRORI negli archivi: procedura interrotta");
|
||||
|
||||
if (!leggi_trasfer())
|
||||
return FALSE;
|
||||
|
||||
if (!controlli())
|
||||
return FALSE;
|
||||
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool TAnn_mov::controlli()
|
||||
{
|
||||
if (_std == "M")
|
||||
return error_box("Variazione NON POSSIBILE: trasferimento movimenti gia' iniziato");
|
||||
|
||||
if (_std == "*")
|
||||
{
|
||||
warning_box("Trasferimento interamente completato: proseguire per cancellare il file");
|
||||
fremove(_trasf);
|
||||
setta_parametri_record(""," ",FALSE);
|
||||
return FALSE;
|
||||
}
|
||||
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
void TAnn_mov::leggi_record_controllo()
|
||||
{
|
||||
_tras_file.read_control_rec();
|
||||
_control_rec = _tras_file.record();
|
||||
}
|
||||
|
||||
void TAnn_mov::setta_parametri_record(const TString& sigla,const TString& flag,bool uselab)
|
||||
{
|
||||
TConfig conf (CONFIG_DITTA);
|
||||
|
||||
conf.set("FlStTra", flag);
|
||||
|
||||
if (uselab)
|
||||
{
|
||||
leggi_record_controllo();
|
||||
_control_rec.overwrite(sigla,240);
|
||||
|
||||
const int size = 256;
|
||||
|
||||
_tras_file.write_control_rec(_control_rec, size);
|
||||
}
|
||||
}
|
||||
|
||||
bool TAnn_mov::menu(MENU_TAG m)
|
||||
{
|
||||
if (m == BAR_ITEM(1))
|
||||
return set();
|
||||
return FALSE;
|
||||
}
|
||||
#include "cglib04.h"
|
||||
#include "cg2802.h"
|
||||
|
||||
HIDDEN int date2esc(const TDate& d, int* prevesc)
|
||||
{
|
||||
if (prevesc) *prevesc = 0;
|
||||
TTable esc("ESC");
|
||||
for (int err = esc.first(); err == NOERR; err = esc.next())
|
||||
{
|
||||
const TDate ia(esc.get("D0")); // Data inizio esercizio
|
||||
const TDate fa(esc.get("D1")); // Data fine esercizio
|
||||
const anno = esc.get_int("CODTAB");
|
||||
if (d >= ia && d <= fa)
|
||||
return anno;
|
||||
if (prevesc) *prevesc = anno;
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
bool TAnn_mov::create()
|
||||
{
|
||||
TApplication::create();
|
||||
|
||||
_pcon = new TLocalisamfile (LF_PCON);
|
||||
_clifo = new TLocalisamfile (LF_CLIFO);
|
||||
|
||||
TString80 tmpmov = "%";
|
||||
tmpmov << get_firm_dir();
|
||||
tmpmov << "\\" << TEMP_MOV;
|
||||
TString80 tmprmov = "%";
|
||||
tmprmov << get_firm_dir();
|
||||
tmprmov << "\\" << TEMP_RMOV;
|
||||
TString80 tmprmoviva = "%";
|
||||
tmprmoviva << get_firm_dir();
|
||||
tmprmoviva << "\\" << TEMP_RMOVIVA;
|
||||
|
||||
_tmov = new TIsamtempfile(LF_MOV, tmpmov, 0);
|
||||
_trmov = new TIsamtempfile(LF_RMOV, tmprmov, 0);
|
||||
_tiva = new TIsamtempfile(LF_RMOVIVA, tmprmoviva, 0);
|
||||
|
||||
_rec_mov = new TRectype (LF_MOV);
|
||||
|
||||
dispatch_e_menu (BAR_ITEM(1));
|
||||
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool TAnn_mov::destroy()
|
||||
{
|
||||
delete _pcon;
|
||||
delete _clifo;
|
||||
|
||||
delete _tmov;
|
||||
delete _trmov;
|
||||
delete _tiva;
|
||||
|
||||
delete _rec_mov;
|
||||
|
||||
return TApplication::destroy();
|
||||
}
|
||||
|
||||
bool TAnn_mov::set()
|
||||
{
|
||||
_dittaric = get_firm();
|
||||
|
||||
if (!esegui_controlli()) return FALSE;
|
||||
|
||||
if (!video())
|
||||
return FALSE;
|
||||
|
||||
return FALSE;
|
||||
}
|
||||
|
||||
bool TAnn_mov::video()
|
||||
{
|
||||
TMask msk ("cg2802a");
|
||||
KEY tasto;
|
||||
|
||||
do
|
||||
{
|
||||
tasto = msk.run();
|
||||
|
||||
if (tasto != K_ENTER) return FALSE;
|
||||
|
||||
if (esiste_testata_mov(msk))
|
||||
{
|
||||
TMask mask ("cg2802b");
|
||||
|
||||
mask.set_handler(F_REGIVA, codice_registro_hnd);
|
||||
mask.set_handler(F_CODCAUS, codice_causale_hnd);
|
||||
|
||||
setta_campi_maschera(mask);
|
||||
|
||||
tasto = mask.run();
|
||||
|
||||
switch (tasto)
|
||||
{
|
||||
case K_ESC :
|
||||
break;
|
||||
|
||||
case K_QUIT :
|
||||
break;
|
||||
|
||||
case K_SAVE :
|
||||
{
|
||||
annulla(mask);
|
||||
}
|
||||
break;
|
||||
|
||||
default:
|
||||
break;
|
||||
}
|
||||
}
|
||||
}
|
||||
while (tasto != K_QUIT); //K_ENTER
|
||||
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool TAnn_mov::esiste_testata_mov(TMask& m)
|
||||
{
|
||||
long nrec;
|
||||
|
||||
_numreg = m.get_long(F_NUMREG);
|
||||
|
||||
_tmov->setkey(1);
|
||||
_tmov->zero();
|
||||
_tmov->put(MOV_NUMREG, _numreg);
|
||||
|
||||
if (_tmov->read() == NOERR)
|
||||
{
|
||||
nrec = _tmov->get_long(MOV_NUMGIO);
|
||||
nrec += _tras_file.start('Z');
|
||||
|
||||
_tras_file.read_rec_trasfer(nrec);
|
||||
_record = _tras_file.read_rec();
|
||||
|
||||
char annullato = _record.sub(248,249)[0];
|
||||
|
||||
if (annullato == 'A')
|
||||
return error_box("Registrazione presente ma gia' ANNULLATA in precedenza");
|
||||
|
||||
*_rec_mov = _tmov->curr();
|
||||
}
|
||||
else
|
||||
return error_box("Registrazione richiesta NON PRESENTE tra i movimenti in trasferimento");
|
||||
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
void TAnn_mov::setta_campi_maschera(TMask& m)
|
||||
{
|
||||
TDate datareg (_rec_mov->get_date(MOV_DATAREG));
|
||||
TDate datadoc (_rec_mov->get_date(MOV_DATADOC));
|
||||
TString numdoc = _rec_mov->get (MOV_NUMDOC);
|
||||
TString regiva = _rec_mov->get (MOV_REG);
|
||||
regiva.trim();
|
||||
long protiva = _rec_mov->get_long(MOV_PROTIVA);
|
||||
TString codcaus = _rec_mov->get (MOV_CODCAUS);
|
||||
|
||||
m.set(F_NUMREG, _numreg);
|
||||
m.set(F_DATAREG, datareg.string());
|
||||
m.set(F_DATADOC, datadoc.string());
|
||||
m.set(F_NUMDOC, numdoc);
|
||||
m.set(F_REGIVA, regiva);
|
||||
m.set(F_PROTIVA, protiva);
|
||||
m.set(F_CODCAUS, codcaus);
|
||||
|
||||
m.disable(F_NUMREG);
|
||||
m.disable(F_DATAREG);
|
||||
m.disable(F_DATADOC);
|
||||
m.disable(F_NUMDOC);
|
||||
m.disable(F_REGIVA);
|
||||
m.disable(F_PROTIVA);
|
||||
m.disable(F_CODCAUS);
|
||||
}
|
||||
|
||||
void TAnn_mov::annulla(TMask& m)
|
||||
{
|
||||
TRectype* rec_rmov,* rec_riva;
|
||||
rec_rmov = new TRectype (LF_RMOV);
|
||||
|
||||
long numreg = m.get_long(F_NUMREG);
|
||||
|
||||
_trmov->setkey(1);
|
||||
_trmov->zero();
|
||||
_trmov->put(RMV_NUMREG, numreg);
|
||||
*rec_rmov = _trmov->curr();
|
||||
|
||||
for (_trmov->read(); !_trmov->eof(); _trmov->next())
|
||||
{
|
||||
if (_trmov->curr() > *rec_rmov) break;
|
||||
|
||||
long numrec = _trmov->get_int(RMV_ANNOES);
|
||||
numrec += _tras_file.start('Z');
|
||||
|
||||
_tras_file.read_rec_trasfer(numrec); //Leggo il record della prima nota
|
||||
|
||||
_tras_file.put("A","Z1",51,numrec);
|
||||
|
||||
_tras_file.write(numrec);
|
||||
}
|
||||
|
||||
delete rec_rmov;
|
||||
|
||||
rec_riva = new TRectype (LF_RMOVIVA);
|
||||
|
||||
_tiva->setkey(1);
|
||||
_tiva->zero();
|
||||
_tiva->put(RMI_NUMREG, numreg);
|
||||
*rec_riva = _tiva->curr();
|
||||
|
||||
for (_tiva->read(); !_tiva->eof(); _tiva->next())
|
||||
{
|
||||
if (_tiva->curr() > *rec_riva) break;
|
||||
|
||||
long numrec = _tiva->get_int(RMI_ANNOES);
|
||||
numrec += _tras_file.start('U');
|
||||
|
||||
_tras_file.read_rec_trasfer(numrec); //Leggo il record della prima nota
|
||||
|
||||
_tras_file.put("A","U1",51,numrec);
|
||||
|
||||
_tras_file.write(numrec);
|
||||
}
|
||||
|
||||
delete rec_riva;
|
||||
}
|
||||
|
||||
bool TAnn_mov::leggi_trasfer()
|
||||
{
|
||||
_trasf = _tras_file.path(_dittaric);
|
||||
_trasf << "\\trasfer";
|
||||
|
||||
_tras_file.open(_trasf);
|
||||
|
||||
if (_tras_file.exist())
|
||||
{
|
||||
if (_tras_file.read_control_rec())
|
||||
_control_rec = _tras_file.record();
|
||||
else
|
||||
return error_box("Rilevati gravi errori negli archivi:procedura interrotta");
|
||||
}
|
||||
else
|
||||
return error_box("Al momento non presenti trasferimenti attivi sulla ditta selezionata");
|
||||
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool TAnn_mov::codice_registro_hnd(TMask_field& f, KEY k)
|
||||
{
|
||||
TTable reg ("REG");
|
||||
TString descr,dep;
|
||||
|
||||
if (k == K_TAB)
|
||||
{
|
||||
TString codreg = f.get();
|
||||
char cr = codreg[0];
|
||||
TDate datareg (f.mask().get(F_DATAREG));
|
||||
int anno = date2esc(datareg);
|
||||
|
||||
if (isdigit(cr))
|
||||
dep.format("%04d%03c", anno, cr);
|
||||
else
|
||||
dep.format("%04d%-3c", anno, cr);
|
||||
|
||||
reg.zero();
|
||||
reg.put("CODTAB", dep);
|
||||
if (reg.read() == NOERR)
|
||||
{
|
||||
descr = reg.get("S0");
|
||||
f.mask().set(F_DESCRREG, descr);
|
||||
}
|
||||
}
|
||||
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool TAnn_mov::codice_causale_hnd(TMask_field& f, KEY k)
|
||||
{
|
||||
TLocalisamfile cau (LF_CAUSALI);
|
||||
TString descr;
|
||||
|
||||
if (k == K_TAB)
|
||||
{
|
||||
TString codcau = f.get();
|
||||
|
||||
cau.setkey(1);
|
||||
cau.zero();
|
||||
cau.put("CODCAUS", codcau);
|
||||
if (cau.read() == NOERR)
|
||||
{
|
||||
descr = cau.get("DESCR");
|
||||
f.mask().set(F_DESCRCAU, descr);
|
||||
}
|
||||
}
|
||||
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool TAnn_mov::esegui_controlli()
|
||||
{
|
||||
TConfig conf(CONFIG_DITTA);
|
||||
|
||||
_std = conf.get("FlStTra");
|
||||
|
||||
if (!prefhndl->exist(_dittaric))
|
||||
return error_box("Rilevati GRAVI ERRORI negli archivi: procedura interrotta");
|
||||
|
||||
if (!leggi_trasfer())
|
||||
return FALSE;
|
||||
|
||||
if (!controlli())
|
||||
return FALSE;
|
||||
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool TAnn_mov::controlli()
|
||||
{
|
||||
if (_std == "M")
|
||||
return error_box("Variazione NON POSSIBILE: trasferimento movimenti gia' iniziato");
|
||||
|
||||
if (_std == "*")
|
||||
{
|
||||
warning_box("Trasferimento interamente completato: proseguire per cancellare il file");
|
||||
fremove(_trasf);
|
||||
setta_parametri_record(""," ",FALSE);
|
||||
return FALSE;
|
||||
}
|
||||
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
void TAnn_mov::leggi_record_controllo()
|
||||
{
|
||||
_tras_file.read_control_rec();
|
||||
_control_rec = _tras_file.record();
|
||||
}
|
||||
|
||||
void TAnn_mov::setta_parametri_record(const TString& sigla,const TString& flag,bool uselab)
|
||||
{
|
||||
TConfig conf (CONFIG_DITTA);
|
||||
|
||||
conf.set("FlStTra", flag);
|
||||
|
||||
if (uselab)
|
||||
{
|
||||
leggi_record_controllo();
|
||||
_control_rec.overwrite(sigla,240);
|
||||
|
||||
const int size = 256;
|
||||
|
||||
_tras_file.write_control_rec(_control_rec, size);
|
||||
}
|
||||
}
|
||||
|
||||
bool TAnn_mov::menu(MENU_TAG m)
|
||||
{
|
||||
if (m == BAR_ITEM(1))
|
||||
return set();
|
||||
return FALSE;
|
||||
}
|
||||
|
110
cg/cg2802.h
110
cg/cg2802.h
@ -1,55 +1,55 @@
|
||||
// Annullamento movimenti da ricevere
|
||||
|
||||
#include <mask.h>
|
||||
#include <applicat.h>
|
||||
#include <relation.h>
|
||||
#include <tabutil.h>
|
||||
#include <utility.h>
|
||||
#include <config.h>
|
||||
#include <urldefid.h>
|
||||
#include <execp.h>
|
||||
#include <prefix.h>
|
||||
#include <lffiles.h>
|
||||
#include <nditte.h>
|
||||
|
||||
#include "cg2800.h"
|
||||
|
||||
HIDDEN int date2esc(const TDate& d, int* prevesc = NULL);
|
||||
|
||||
class TAnn_mov : public TApplication
|
||||
{
|
||||
TIsamtempfile* _tmov,* _trmov,* _tiva;
|
||||
TLocalisamfile* _pcon,* _clifo;
|
||||
TRectype* _rec_mov;
|
||||
TTransfer_file _tras_file;
|
||||
|
||||
TString _trasf,_std,_uselab,_record,_nrec_file,_sigle_file,_key;
|
||||
long _dittaric,_numreg;
|
||||
TString _control_rec;
|
||||
|
||||
public:
|
||||
TString _titolo;
|
||||
|
||||
virtual bool create();
|
||||
virtual bool destroy();
|
||||
virtual bool menu(MENU_TAG m);
|
||||
|
||||
bool set();
|
||||
|
||||
bool esegui_controlli();
|
||||
bool leggi_trasfer();
|
||||
bool controlli();
|
||||
void leggi_record_controllo();
|
||||
bool video();
|
||||
void annulla(TMask& m);
|
||||
bool esiste_testata_mov(TMask& m);
|
||||
|
||||
void setta_campi_maschera(TMask& m);
|
||||
|
||||
void setta_parametri_record(const TString& sigla,const TString& flag,bool uselab);
|
||||
|
||||
static bool codice_registro_hnd (TMask_field& f, KEY k);
|
||||
static bool codice_causale_hnd (TMask_field& f, KEY k);
|
||||
|
||||
TAnn_mov() {};
|
||||
};
|
||||
// Annullamento movimenti da ricevere
|
||||
|
||||
#include <mask.h>
|
||||
#include <applicat.h>
|
||||
#include <relation.h>
|
||||
#include <tabutil.h>
|
||||
#include <utility.h>
|
||||
#include <config.h>
|
||||
#include <urldefid.h>
|
||||
#include <execp.h>
|
||||
#include <prefix.h>
|
||||
#include <lffiles.h>
|
||||
#include <nditte.h>
|
||||
|
||||
#include "cg2800.h"
|
||||
|
||||
HIDDEN int date2esc(const TDate& d, int* prevesc = NULL);
|
||||
|
||||
class TAnn_mov : public TApplication
|
||||
{
|
||||
TIsamtempfile* _tmov,* _trmov,* _tiva;
|
||||
TLocalisamfile* _pcon,* _clifo;
|
||||
TRectype* _rec_mov;
|
||||
TTransfer_file _tras_file;
|
||||
|
||||
TString _trasf,_std,_uselab,_record,_nrec_file,_sigle_file,_key;
|
||||
long _dittaric,_numreg;
|
||||
TString _control_rec;
|
||||
|
||||
public:
|
||||
TString _titolo;
|
||||
|
||||
virtual bool create();
|
||||
virtual bool destroy();
|
||||
virtual bool menu(MENU_TAG m);
|
||||
|
||||
bool set();
|
||||
|
||||
bool esegui_controlli();
|
||||
bool leggi_trasfer();
|
||||
bool controlli();
|
||||
void leggi_record_controllo();
|
||||
bool video();
|
||||
void annulla(TMask& m);
|
||||
bool esiste_testata_mov(TMask& m);
|
||||
|
||||
void setta_campi_maschera(TMask& m);
|
||||
|
||||
void setta_parametri_record(const TString& sigla,const TString& flag,bool uselab);
|
||||
|
||||
static bool codice_registro_hnd (TMask_field& f, KEY k);
|
||||
static bool codice_causale_hnd (TMask_field& f, KEY k);
|
||||
|
||||
TAnn_mov() {};
|
||||
};
|
||||
|
@ -1,25 +1,25 @@
|
||||
#include "cg2800.h"
|
||||
|
||||
PAGE "" -1 -1 50 6
|
||||
|
||||
NUMBER F_NUMREG 6
|
||||
BEGIN
|
||||
PROMPT 2 1 "Numero di registrazione "
|
||||
HELP "Inserire il numero di registrazione che si vuole modificare"
|
||||
FLAGS "RZ"
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 9 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
#include "cg2800.h"
|
||||
|
||||
PAGE "" -1 -1 50 6
|
||||
|
||||
NUMBER F_NUMREG 6
|
||||
BEGIN
|
||||
PROMPT 2 1 "Numero di registrazione "
|
||||
HELP "Inserire il numero di registrazione che si vuole modificare"
|
||||
FLAGS "RZ"
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 9 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
172
cg/cg2802b.uml
172
cg/cg2802b.uml
@ -1,86 +1,86 @@
|
||||
#include "cg2800.h"
|
||||
|
||||
TOOLBAR "" 0 20 0 2
|
||||
|
||||
BUTTON DLG_SAVEREC 10 2
|
||||
BEGIN
|
||||
PROMPT -15 -1 "~Registra"
|
||||
MESSAGE EXIT,K_SAVE
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 10 2
|
||||
BEGIN
|
||||
PROMPT -45 -1 ""
|
||||
MESSAGE EXIT,K_ESC
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 10 2
|
||||
BEGIN
|
||||
PROMPT -55 -1 ""
|
||||
MESSAGE EXIT,K_QUIT
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "" -1 -1 78 18
|
||||
|
||||
NUMBER F_NUMREG 6
|
||||
BEGIN
|
||||
PROMPT 1 1 "Numero registrazione "
|
||||
HELP "Inserire il numero di registrazione che si vuole modificare"
|
||||
FLAGS "RZ"
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
DATE F_DATAREG
|
||||
BEGIN
|
||||
PROMPT 1 3 "Data registrazione "
|
||||
END
|
||||
|
||||
STRING F_NUMDOC 7
|
||||
BEGIN
|
||||
PROMPT 1 5 "Numero docomento "
|
||||
END
|
||||
|
||||
DATE F_DATADOC
|
||||
BEGIN
|
||||
PROMPT 1 6 "Data del documento "
|
||||
END
|
||||
|
||||
STRING F_REGIVA 1
|
||||
BEGIN
|
||||
PROMPT 1 8 "Registro IVA "
|
||||
END
|
||||
|
||||
STRING F_DESCRREG 49
|
||||
BEGIN
|
||||
PROMPT 28 8 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_PROTIVA 5
|
||||
BEGIN
|
||||
PROMPT 1 9 "Numero protocollo iva "
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
STRING F_CODCAUS 3
|
||||
BEGIN
|
||||
PROMPT 1 11 "Codice causale "
|
||||
FLAGS "Z"
|
||||
END
|
||||
|
||||
STRING F_DESCRCAU 49
|
||||
BEGIN
|
||||
PROMPT 28 11 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_DESCR 30
|
||||
BEGIN
|
||||
PROMPT 1 13 "Descrizione aggiuntiva "
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
#include "cg2800.h"
|
||||
|
||||
TOOLBAR "" 0 20 0 2
|
||||
|
||||
BUTTON DLG_SAVEREC 10 2
|
||||
BEGIN
|
||||
PROMPT -15 -1 "~Registra"
|
||||
MESSAGE EXIT,K_SAVE
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 10 2
|
||||
BEGIN
|
||||
PROMPT -45 -1 ""
|
||||
MESSAGE EXIT,K_ESC
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 10 2
|
||||
BEGIN
|
||||
PROMPT -55 -1 ""
|
||||
MESSAGE EXIT,K_QUIT
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "" -1 -1 78 18
|
||||
|
||||
NUMBER F_NUMREG 6
|
||||
BEGIN
|
||||
PROMPT 1 1 "Numero registrazione "
|
||||
HELP "Inserire il numero di registrazione che si vuole modificare"
|
||||
FLAGS "RZ"
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
DATE F_DATAREG
|
||||
BEGIN
|
||||
PROMPT 1 3 "Data registrazione "
|
||||
END
|
||||
|
||||
STRING F_NUMDOC 7
|
||||
BEGIN
|
||||
PROMPT 1 5 "Numero docomento "
|
||||
END
|
||||
|
||||
DATE F_DATADOC
|
||||
BEGIN
|
||||
PROMPT 1 6 "Data del documento "
|
||||
END
|
||||
|
||||
STRING F_REGIVA 1
|
||||
BEGIN
|
||||
PROMPT 1 8 "Registro IVA "
|
||||
END
|
||||
|
||||
STRING F_DESCRREG 49
|
||||
BEGIN
|
||||
PROMPT 28 8 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_PROTIVA 5
|
||||
BEGIN
|
||||
PROMPT 1 9 "Numero protocollo iva "
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
STRING F_CODCAUS 3
|
||||
BEGIN
|
||||
PROMPT 1 11 "Codice causale "
|
||||
FLAGS "Z"
|
||||
END
|
||||
|
||||
STRING F_DESCRCAU 49
|
||||
BEGIN
|
||||
PROMPT 28 11 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_DESCR 30
|
||||
BEGIN
|
||||
PROMPT 1 13 "Descrizione aggiuntiva "
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
200
cg/cg2803a.uml
200
cg/cg2803a.uml
@ -1,100 +1,100 @@
|
||||
#include "cg2800.h"
|
||||
|
||||
PAGE "" -1 -1 78 20
|
||||
|
||||
NUMBER F_CODDITTARIC 5
|
||||
BEGIN
|
||||
PROMPT 1 1 "Ditta ricevente "
|
||||
USE LF_NDITTE KEY 1
|
||||
INPUT CODDITTA F_CODDITTARIC
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
FLAGS "RDZ"
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 1 2 "Ragione sociale "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_NULTRAS 3
|
||||
BEGIN
|
||||
PROMPT 1 4 "Numero ultimo invio ricevuto "
|
||||
END
|
||||
|
||||
DATE F_DATAULTRAS
|
||||
BEGIN
|
||||
PROMPT 1 6 "Data ultimo invio ricevuto "
|
||||
END
|
||||
|
||||
STRING F_STD 1
|
||||
BEGIN
|
||||
PROMPT 1 8 "Stato del trasferimento "
|
||||
END
|
||||
|
||||
STRING F_USELAB 1
|
||||
BEGIN
|
||||
PROMPT 34 8 ""
|
||||
END
|
||||
|
||||
STRING F_STATO 14
|
||||
BEGIN
|
||||
PROMPT 38 8 ""
|
||||
END
|
||||
|
||||
LIST F_AGGCAUSALI 6
|
||||
BEGIN
|
||||
PROMPT 1 10 "Aggiornamento causali gia' presenti "
|
||||
ITEM "N|No"
|
||||
ITEM "D|Descr."
|
||||
ITEM "T|Tutto"
|
||||
END
|
||||
|
||||
LIST F_AGGCLIFO 6
|
||||
BEGIN
|
||||
PROMPT 1 11 "Aggiornamento Clienti/Fornitori gia' presenti "
|
||||
ITEM "N|No"
|
||||
ITEM "D|Descr."
|
||||
ITEM "T|Tutto"
|
||||
END
|
||||
|
||||
LIST F_AGGPCON 6
|
||||
BEGIN
|
||||
PROMPT 1 12 "Aggiornamento voci Piano dei Conti gia' presenti "
|
||||
ITEM "N|No"
|
||||
ITEM "D|Descr."
|
||||
ITEM "T|Tutto"
|
||||
END
|
||||
|
||||
LIST F_AGGIVD 6
|
||||
BEGIN
|
||||
PROMPT 1 13 "Aggiornamento classi Piano dei Conti "
|
||||
ITEM "N|No"
|
||||
ITEM "D|Descr."
|
||||
ITEM "T|Tutto"
|
||||
END
|
||||
|
||||
BOOLEAN F_FATTEM
|
||||
BEGIN
|
||||
PROMPT 1 14 "Riattribuzione num. protocollo su fatture emesse "
|
||||
END
|
||||
|
||||
BOOLEAN F_FATTRIC
|
||||
BEGIN
|
||||
PROMPT 1 15 "Riattribuzione num. protocollo su fatture ricevute "
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 9 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
#include "cg2800.h"
|
||||
|
||||
PAGE "" -1 -1 78 20
|
||||
|
||||
NUMBER F_CODDITTARIC 5
|
||||
BEGIN
|
||||
PROMPT 1 1 "Ditta ricevente "
|
||||
USE LF_NDITTE KEY 1
|
||||
INPUT CODDITTA F_CODDITTARIC
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
FLAGS "RDZ"
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 1 2 "Ragione sociale "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_NULTRAS 3
|
||||
BEGIN
|
||||
PROMPT 1 4 "Numero ultimo invio ricevuto "
|
||||
END
|
||||
|
||||
DATE F_DATAULTRAS
|
||||
BEGIN
|
||||
PROMPT 1 6 "Data ultimo invio ricevuto "
|
||||
END
|
||||
|
||||
STRING F_STD 1
|
||||
BEGIN
|
||||
PROMPT 1 8 "Stato del trasferimento "
|
||||
END
|
||||
|
||||
STRING F_USELAB 1
|
||||
BEGIN
|
||||
PROMPT 34 8 ""
|
||||
END
|
||||
|
||||
STRING F_STATO 14
|
||||
BEGIN
|
||||
PROMPT 38 8 ""
|
||||
END
|
||||
|
||||
LIST F_AGGCAUSALI 6
|
||||
BEGIN
|
||||
PROMPT 1 10 "Aggiornamento causali gia' presenti "
|
||||
ITEM "N|No"
|
||||
ITEM "D|Descr."
|
||||
ITEM "T|Tutto"
|
||||
END
|
||||
|
||||
LIST F_AGGCLIFO 6
|
||||
BEGIN
|
||||
PROMPT 1 11 "Aggiornamento Clienti/Fornitori gia' presenti "
|
||||
ITEM "N|No"
|
||||
ITEM "D|Descr."
|
||||
ITEM "T|Tutto"
|
||||
END
|
||||
|
||||
LIST F_AGGPCON 6
|
||||
BEGIN
|
||||
PROMPT 1 12 "Aggiornamento voci Piano dei Conti gia' presenti "
|
||||
ITEM "N|No"
|
||||
ITEM "D|Descr."
|
||||
ITEM "T|Tutto"
|
||||
END
|
||||
|
||||
LIST F_AGGIVD 6
|
||||
BEGIN
|
||||
PROMPT 1 13 "Aggiornamento classi Piano dei Conti "
|
||||
ITEM "N|No"
|
||||
ITEM "D|Descr."
|
||||
ITEM "T|Tutto"
|
||||
END
|
||||
|
||||
BOOLEAN F_FATTEM
|
||||
BEGIN
|
||||
PROMPT 1 14 "Riattribuzione num. protocollo su fatture emesse "
|
||||
END
|
||||
|
||||
BOOLEAN F_FATTRIC
|
||||
BEGIN
|
||||
PROMPT 1 15 "Riattribuzione num. protocollo su fatture ricevute "
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 9 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
Loading…
x
Reference in New Issue
Block a user