root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Corretta fromattazione

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@1168 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik 1995-03-24 11:46:05 +00:00
parent 427a9f9178
commit b916d1c43b
23 changed files with 5212 additions and 5212 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

144
cg/cg0400b.uml
View File

@ -1,72 +1,72 @@
#include "cg0400.h" #include "cg0400.h"
PAGE "Stampa riepilogo progressivi IVA" -1 -1 78 16 PAGE "Stampa riepilogo progressivi IVA" -1 -1 78 16
GROUPBOX DLG_NULL 78 3 GROUPBOX DLG_NULL 78 3
BEGIN BEGIN
PROMPT 1 0 "" PROMPT 1 0 ""
END END
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 3 1 "Ditta " PROMPT 3 1 "Ditta "
FLAGS "FRD" FLAGS "FRD"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale @50" RAGSOC DISPLAY "Ragione sociale @50" RAGSOC
OUTPUT F_RAGSOC RAGSOC OUTPUT F_RAGSOC RAGSOC
END END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 17 1 "Ragione " PROMPT 17 1 "Ragione "
FLAGS "D" FLAGS "D"
END END
DATE F_DATASTAMPA DATE F_DATASTAMPA
BEGIN BEGIN
PROMPT 3 4 "Data stampa " PROMPT 3 4 "Data stampa "
HELP "Data in cui viene effettuata la stampa" HELP "Data in cui viene effettuata la stampa"
FLAGS "A" FLAGS "A"
END END
NUMBER F_ANNO 4 NUMBER F_ANNO 4
BEGIN BEGIN
PROMPT 3 6 "Anno riepilogo " PROMPT 3 6 "Anno riepilogo "
FLAGS "A" FLAGS "A"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
LISTBOX F_MESE 9 LISTBOX F_MESE 9
BEGIN BEGIN
PROMPT 3 7 "Mese riepilogo " PROMPT 3 7 "Mese riepilogo "
FLAGS "AM" FLAGS "AM"
END END
BOOLEAN F_STAMPA BOOLEAN F_STAMPA
BEGIN BEGIN
PROMPT 3 9 "Stampa progressivi da inizio anno " PROMPT 3 9 "Stampa progressivi da inizio anno "
END END
/* /*
BUTTON DLG_PRINT 10 2 BUTTON DLG_PRINT 10 2
BEGIN BEGIN
PROMPT -12 -1 "~Stampa" PROMPT -12 -1 "~Stampa"
END END
*/ */
BUTTON DLG_OK 10 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 10 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

632
cg/cg2100s.uml
View File

@ -1,316 +1,316 @@
#include "cg2100.h" #include "cg2100.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
BUTTON DLG_OK 10 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_CANCEL 10 2 BUTTON DLG_CANCEL 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE
PAGE "Pagamento" -1 -1 77 20 PAGE "Pagamento" -1 -1 77 20
GROUPBOX DLG_NULL 78 6 GROUPBOX DLG_NULL 78 6
BEGIN BEGIN
PROMPT 1 0 "@BPartita" PROMPT 1 0 "@BPartita"
END END
NUMBER S_ANNO 4 NUMBER S_ANNO 4
BEGIN BEGIN
PROMPT 2 1 "Anno partita " PROMPT 2 1 "Anno partita "
FLAGS "RD" FLAGS "RD"
END END
STRING S_NUM 7 STRING S_NUM 7
BEGIN BEGIN
PROMPT 38 1 "Numero partita " PROMPT 38 1 "Numero partita "
FLAGS "D" FLAGS "D"
END END
STRING S_DESCR 50 STRING S_DESCR 50
BEGIN BEGIN
PROMPT 2 2 "Descrizione " PROMPT 2 2 "Descrizione "
FLAGS "D" FLAGS "D"
END END
NUMBER S_RATA 4 NUMBER S_RATA 4
BEGIN BEGIN
PROMPT 2 3 "Rata " PROMPT 2 3 "Rata "
FLAGS "D" FLAGS "D"
END END
DATE S_DATASCAD DATE S_DATASCAD
BEGIN BEGIN
PROMPT 20 3 "Data " PROMPT 20 3 "Data "
FLAGS "D" FLAGS "D"
END END
NUMBER S_RESIDUO 15 NUMBER S_RESIDUO 15
BEGIN BEGIN
PROMPT 44 3 "Residuo " PROMPT 44 3 "Residuo "
PICTURE "." PICTURE "."
FLAGS "D" FLAGS "D"
END END
NUMBER S_IMPORTOVAL 15 3 NUMBER S_IMPORTOVAL 15 3
BEGIN BEGIN
PROMPT 2 4 "Importo in valuta " PROMPT 2 4 "Importo in valuta "
PICTURE ".3" PICTURE ".3"
FLAGS "D" FLAGS "D"
END END
NUMBER S_IMPORTO 15 NUMBER S_IMPORTO 15
BEGIN BEGIN
PROMPT 44 4 "Importo in lire " PROMPT 44 4 "Importo in lire "
PICTURE "." PICTURE "."
FLAGS "D" FLAGS "D"
END END
GROUPBOX DLG_NULL 78 13 GROUPBOX DLG_NULL 78 13
BEGIN BEGIN
PROMPT 1 6 "@BPagamento" PROMPT 1 6 "@BPagamento"
END END
NUMBER S_IMPORTOPAG 15 NUMBER S_IMPORTOPAG 15
BEGIN BEGIN
PROMPT 2 7 "Importo pagamento " PROMPT 2 7 "Importo pagamento "
PICTURE "." PICTURE "."
FIELD IMPORTOPAG FIELD IMPORTOPAG
END END
NUMBER S_IMPORTOPAG 15 NUMBER S_IMPORTOPAG 15
BEGIN BEGIN
PROMPT 38 7 "Ritenute professionali " PROMPT 38 7 "Ritenute professionali "
PICTURE "." PICTURE "."
FIELD RITENUTE FIELD RITENUTE
END END
BOOLEAN S_SALDOACC BOOLEAN S_SALDOACC
BEGIN BEGIN
PROMPT 2 8 "Saldo " PROMPT 2 8 "Saldo "
FIELD SALDOACC FIELD SALDOACC
END END
DATE S_DATAPAG DATE S_DATAPAG
BEGIN BEGIN
PROMPT 38 8 "Data pagamento " PROMPT 38 8 "Data pagamento "
FIELD DATAPAG FIELD DATAPAG
END END
STRING S_CODPAG 4 STRING S_CODPAG 4
BEGIN BEGIN
PROMPT 2 9 "Pagamento " PROMPT 2 9 "Pagamento "
FLAGS "UZ" FLAGS "UZ"
USE CPG USE CPG
INPUT CODTAB S_CODPAG INPUT CODTAB S_CODPAG
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
DISPLAY "Tipo" I0 DISPLAY "Tipo" I0
OUTPUT S_CODPAG CODTAB OUTPUT S_CODPAG CODTAB
OUTPUT S_DESPAG S0 OUTPUT S_DESPAG S0
OUTPUT S_TIPOPAG I0 OUTPUT S_TIPOPAG I0
FIELD CODPAG FIELD CODPAG
END END
STRING S_DESPAG 50 STRING S_DESPAG 50
BEGIN BEGIN
PROMPT 24 9 "" PROMPT 24 9 ""
USE CPG KEY 2 USE CPG KEY 2
INPUT S0 S_DESPAG INPUT S0 S_DESPAG
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Tipo" I0 DISPLAY "Tipo" I0
COPY OUTPUT S_CODPAG COPY OUTPUT S_CODPAG
END END
LIST S_TIPOPAG 2 40 LIST S_TIPOPAG 2 40
BEGIN BEGIN
PROMPT 2 10 "Tipo pagamento " PROMPT 2 10 "Tipo pagamento "
ITEM "1|Rimessa Diretta" ITEM "1|Rimessa Diretta"
ITEM "2|Tratta" ITEM "2|Tratta"
ITEM "3|Ricevuta Bancaria" ITEM "3|Ricevuta Bancaria"
ITEM "4|Cessione" ITEM "4|Cessione"
ITEM "5|Paghero'" ITEM "5|Paghero'"
ITEM "6|Lettera di credito" ITEM "6|Lettera di credito"
ITEM "7|Tratta accettata" ITEM "7|Tratta accettata"
ITEM "8|Rapporti interbancari diretti" ITEM "8|Rapporti interbancari diretti"
ITEM "9|Bonifico" ITEM "9|Bonifico"
ITEM "10|Altro" ITEM "10|Altro"
FIELD TIPOPAG FIELD TIPOPAG
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 2 11 "@bConto di contropartita" PROMPT 2 11 "@bConto di contropartita"
END END
LIST S_TIPO 1 12 LIST S_TIPO 1 12
BEGIN BEGIN
PROMPT 2 12 "Tipo " PROMPT 2 12 "Tipo "
ITEM " |Conto" ITEM " |Conto"
ITEM "C|Cliente" ITEM "C|Cliente"
ITEM "F|Fornitore" ITEM "F|Fornitore"
FIELD TIPOCF FIELD TIPOCF
FLAGS "H" FLAGS "H"
END END
NUMBER S_GRUPPO 3 NUMBER S_GRUPPO 3
BEGIN BEGIN
PROMPT 28 11 "Gruppo " PROMPT 28 11 "Gruppo "
FIELD GRUPPO FIELD GRUPPO
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
NUMBER S_CONTO 3 NUMBER S_CONTO 3
BEGIN BEGIN
PROMPT 44 11 "Conto " PROMPT 44 11 "Conto "
FIELD CONTO FIELD CONTO
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
NUMBER S_SOTTOCONTO 6 NUMBER S_SOTTOCONTO 6
BEGIN BEGIN
PROMPT 58 11 "Sottoconto " PROMPT 58 11 "Sottoconto "
FIELD SOTTOCONTO FIELD SOTTOCONTO
USE LF_PCON USE LF_PCON
INPUT GRUPPO S_GRUPPO INPUT GRUPPO S_GRUPPO
INPUT CONTO S_CONTO INPUT CONTO S_CONTO
INPUT SOTTOCONTO S_SOTTOCONTO INPUT SOTTOCONTO S_SOTTOCONTO
DISPLAY "Gruppo" GRUPPO DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
OUTPUT S_GRUPPO GRUPPO OUTPUT S_GRUPPO GRUPPO
OUTPUT S_CONTO CONTO OUTPUT S_CONTO CONTO
OUTPUT S_SOTTOCONTO SOTTOCONTO OUTPUT S_SOTTOCONTO SOTTOCONTO
OUTPUT S_DESCRCONTO DESCR OUTPUT S_DESCRCONTO DESCR
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
STRING S_DESCRCONTO 50 STRING S_DESCRCONTO 50
BEGIN BEGIN
PROMPT 2 12 "Descrizione conto " PROMPT 2 12 "Descrizione conto "
USE LF_PCON KEY 2 USE LF_PCON KEY 2
INPUT DESCR S_DESCRCONTO INPUT DESCR S_DESCRCONTO
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT S_SOTTOCONTO COPY OUTPUT S_SOTTOCONTO
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
STRING S_DESCAGG 50 STRING S_DESCAGG 50
BEGIN BEGIN
PROMPT 2 14 "Descrizione aggiuntiva " PROMPT 2 14 "Descrizione aggiuntiva "
FIELD DESCAGG FIELD DESCAGG
END END
NUMBER S_VSABI 5 NUMBER S_VSABI 5
BEGIN BEGIN
PROMPT 2 15 "Vostra Banca - ABI " PROMPT 2 15 "Vostra Banca - ABI "
FLAGS "Z" FLAGS "Z"
USE %BAN USE %BAN
INPUT CODTAB[1,5] S_VSABI INPUT CODTAB[1,5] S_VSABI
INPUT CODTAB[6,10] S_VSCAB INPUT CODTAB[6,10] S_VSCAB
DISPLAY "ABI@5" CODTAB[1,5] DISPLAY "ABI@5" CODTAB[1,5]
DISPLAY "CAB@5" CODTAB[6,10] DISPLAY "CAB@5" CODTAB[6,10]
DISPLAY "Denominazione@50" S0 DISPLAY "Denominazione@50" S0
OUTPUT S_VSABI CODTAB[1,5] OUTPUT S_VSABI CODTAB[1,5]
OUTPUT S_VSCAB CODTAB[6,10] OUTPUT S_VSCAB CODTAB[6,10]
OUTPUT S_DESCVSABI S0 OUTPUT S_DESCVSABI S0
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FIELD VSABI FIELD VSABI
END END
NUMBER S_VSCAB 5 NUMBER S_VSCAB 5
BEGIN BEGIN
PROMPT 30 15 "CAB " PROMPT 30 15 "CAB "
FLAGS "Z" FLAGS "Z"
COPY ALL S_VSABI COPY ALL S_VSABI
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FIELD VSCAB FIELD VSCAB
END END
STRING S_DESCVSABI 50 32 STRING S_DESCVSABI 50 32
BEGIN BEGIN
PROMPT 42 15 "" PROMPT 42 15 ""
USE %BAN KEY 2 USE %BAN KEY 2
INPUT S0 S_DESCVSABI INPUT S0 S_DESCVSABI
DISPLAY "Denominazione@50" S0 DISPLAY "Denominazione@50" S0
DISPLAY "ABI@5" CODTAB[1,5] DISPLAY "ABI@5" CODTAB[1,5]
DISPLAY "CAB@5" CODTAB[6,10] DISPLAY "CAB@5" CODTAB[6,10]
COPY OUTPUT S_VSABI COPY OUTPUT S_VSABI
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
STRING S_AGENTE 5 STRING S_AGENTE 5
BEGIN BEGIN
PROMPT 2 16 "Agente " PROMPT 2 16 "Agente "
FLAGS "UZ" FLAGS "UZ"
USE AGE USE AGE
INPUT CODTAB S_AGENTE INPUT CODTAB S_AGENTE
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @50" S0 DISPLAY "Descrizione @50" S0
OUTPUT S_AGENTE CODTAB OUTPUT S_AGENTE CODTAB
OUTPUT S_DESCAGENTE S0 OUTPUT S_DESCAGENTE S0
CHECKTYPE NORMAL CHECKTYPE NORMAL
FIELD AGENTE FIELD AGENTE
END END
STRING S_DESCAGENTE 50 STRING S_DESCAGENTE 50
BEGIN BEGIN
PROMPT 24 16 "" PROMPT 24 16 ""
USE AGE KEY 2 USE AGE KEY 2
INPUT S0 S_DESCAGENTE INPUT S0 S_DESCAGENTE
DISPLAY "Descrizione @50" S0 DISPLAY "Descrizione @50" S0
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
COPY OUTPUT S_AGENTE COPY OUTPUT S_AGENTE
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
NUMBER S_NSABI 5 NUMBER S_NSABI 5
BEGIN BEGIN
PROMPT 2 17 "Nostra Banca - ABI " PROMPT 2 17 "Nostra Banca - ABI "
FLAGS "Z" FLAGS "Z"
COPY USE S_VSABI COPY USE S_VSABI
INPUT CODTAB[1,5] S_NSABI INPUT CODTAB[1,5] S_NSABI
INPUT CODTAB[6,10] S_NSCAB INPUT CODTAB[6,10] S_NSCAB
COPY DISPLAY S_VSABI COPY DISPLAY S_VSABI
OUTPUT S_NSABI CODTAB[1,5] OUTPUT S_NSABI CODTAB[1,5]
OUTPUT S_NSCAB CODTAB[6,10] OUTPUT S_NSCAB CODTAB[6,10]
FIELD NSABI FIELD NSABI
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
NUMBER S_VSCAB 5 NUMBER S_VSCAB 5
BEGIN BEGIN
PROMPT 30 17 "CAB " PROMPT 30 17 "CAB "
FLAGS "Z" FLAGS "Z"
COPY ALL S_NSABI COPY ALL S_NSABI
FIELD NSCAB FIELD NSCAB
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
STRING S_DESCNSABI 50 32 STRING S_DESCNSABI 50 32
BEGIN BEGIN
PROMPT 42 15 "" PROMPT 42 15 ""
COPY USE S_DESCVSABI COPY USE S_DESCVSABI
INPUT S0 S_DESCNSABI INPUT S0 S_DESCNSABI
COPY DISPLAY S_DESCVSABI COPY DISPLAY S_DESCVSABI
COPY OUTPUT S_NSABI COPY OUTPUT S_NSABI
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

112
cg/cg21rata.uml
View File

@ -1,56 +1,56 @@
PAGE "Rata pagamento" -1 -1 50 8 PAGE "Rata pagamento" -1 -1 50 8
DATE 101 DATE 101
BEGIN BEGIN
PROMPT 1 1 "Scadenza " PROMPT 1 1 "Scadenza "
END END
NUMBER 102 8 3 NUMBER 102 8 3
BEGIN BEGIN
PROMPT 1 2 "Percentuale " PROMPT 1 2 "Percentuale "
PICTURE ".3" PICTURE ".3"
FLAGS "R" FLAGS "R"
END END
NUMBER 103 15 NUMBER 103 15
BEGIN BEGIN
PROMPT 1 3 "Importo " PROMPT 1 3 "Importo "
PICTURE "." PICTURE "."
FLAGS "R" FLAGS "R"
END END
NUMBER 104 2 0 NUMBER 104 2 0
BEGIN BEGIN
PROMPT 1 4 "Tipo pagamento " PROMPT 1 4 "Tipo pagamento "
SHEET "Codice|Tipo pagamento@32" SHEET "Codice|Tipo pagamento@32"
INPUT 104 INPUT 104
ITEM "1|Rimessa diretta o contanti" ITEM "1|Rimessa diretta o contanti"
ITEM "2|Tratta" ITEM "2|Tratta"
ITEM "3|Ricevuta Bancaria" ITEM "3|Ricevuta Bancaria"
ITEM "4|Cessione" ITEM "4|Cessione"
ITEM "5|Paghero'" ITEM "5|Paghero'"
ITEM "6|Lettera di credito" ITEM "6|Lettera di credito"
ITEM "7|Tratta accettata" ITEM "7|Tratta accettata"
ITEM "8|Altro pagamento" ITEM "8|Altro pagamento"
OUTPUT 104 OUTPUT 104
OUTPUT 105 OUTPUT 105
END END
STRING 105 32 STRING 105 32
BEGIN BEGIN
PROMPT 1 5 "Descrizione " PROMPT 1 5 "Descrizione "
FLAGS "D" FLAGS "D"
END END
BUTTON DLG_CANCEL 10 2 BUTTON DLG_CANCEL 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_OK 10 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

1178
cg/cg2400.cpp
View File

File diff suppressed because it is too large Load Diff

34
cg/cg2400.h
View File

@ -1,17 +1,17 @@
// Campi maschera ba7300a // Campi maschera ba7300a
#define F_NOMEID 101 #define F_NOMEID 101
#define F_CODDITTAINV 102 #define F_CODDITTAINV 102
#define F_CODDITTARIC 103 #define F_CODDITTARIC 103
#define F_RAGSOC 104 #define F_RAGSOC 104
#define F_NULTRASDSK 105 #define F_NULTRASDSK 105
#define F_NULTRASTAB 106 #define F_NULTRASTAB 106
#define F_DATAULTRASDSK 107 #define F_DATAULTRASDSK 107
#define F_DATAULTRASTAB 108 #define F_DATAULTRASTAB 108
#define F_STATO 109 #define F_STATO 109
#define F_NOME 110 #define F_NOME 110
// Campi maschera ba7300b // Campi maschera ba7300b
#define F_DRIVE 150 #define F_DRIVE 150
#define F_PATHNAME 151 #define F_PATHNAME 151

170
cg/cg2400a.uml
View File

@ -1,85 +1,85 @@
#include "cg2400.h" #include "cg2400.h"
PAGE "" -1 -1 70 15 PAGE "" -1 -1 70 15
STRING F_NOMEID 10 STRING F_NOMEID 10
BEGIN BEGIN
PROMPT 1 1 "Nome simbolico sistema inviante " PROMPT 1 1 "Nome simbolico sistema inviante "
FLAGS "ZD" FLAGS "ZD"
END END
NUMBER F_CODDITTAINV 5 NUMBER F_CODDITTAINV 5
BEGIN BEGIN
PROMPT 1 2 "Codice ditta inviante " PROMPT 1 2 "Codice ditta inviante "
FLAGS "ZD" FLAGS "ZD"
END END
NUMBER F_CODDITTARIC 5 NUMBER F_CODDITTARIC 5
BEGIN BEGIN
PROMPT 1 4 "Ditta ricevente " PROMPT 1 4 "Ditta ricevente "
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
INPUT CODDITTA F_CODDITTARIC INPUT CODDITTA F_CODDITTARIC
OUTPUT F_RAGSOC RAGSOC OUTPUT F_RAGSOC RAGSOC
FLAGS "RDZ" FLAGS "RDZ"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 1 5 "Ragione sociale " PROMPT 1 5 "Ragione sociale "
FLAGS "D" FLAGS "D"
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 27 7 "Presente su dischetto" PROMPT 27 7 "Presente su dischetto"
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 51 7 "Ultimo intrapreso" PROMPT 51 7 "Ultimo intrapreso"
END END
NUMBER F_NULTRASDSK 3 NUMBER F_NULTRASDSK 3
BEGIN BEGIN
PROMPT 1 8 "Numero invio " PROMPT 1 8 "Numero invio "
FLAGS "D" FLAGS "D"
END END
NUMBER F_NULTRASTAB 3 NUMBER F_NULTRASTAB 3
BEGIN BEGIN
PROMPT 51 8 "" PROMPT 51 8 ""
FLAGS "D" FLAGS "D"
END END
DATE F_DATAULTRASDSK DATE F_DATAULTRASDSK
BEGIN BEGIN
PROMPT 1 9 "Data limite trasferimento " PROMPT 1 9 "Data limite trasferimento "
FLAGS "D" FLAGS "D"
END END
DATE F_DATAULTRASTAB DATE F_DATAULTRASTAB
BEGIN BEGIN
PROMPT 51 9 "" PROMPT 51 9 ""
FLAGS "D" FLAGS "D"
END END
STRING F_STATO 14 STRING F_STATO 14
BEGIN BEGIN
PROMPT 1 10 "Stato del trasferimento " PROMPT 1 10 "Stato del trasferimento "
FLAGS "D" FLAGS "D"
END END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 9 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 9 2 BUTTON DLG_QUIT 9 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

72
cg/cg2400b.uml
View File

@ -1,36 +1,36 @@
#include "cg2400.h" #include "cg2400.h"
PAGE "" -1 -1 44 8 PAGE "" -1 -1 44 8
LIST F_DRIVE 2 LIST F_DRIVE 2
BEGIN BEGIN
PROMPT 2 2 "Disco " PROMPT 2 2 "Disco "
ITEM "A:|A:" ITEM "A:|A:"
ITEM "B:|B:" ITEM "B:|B:"
ITEM "C:|C:" ITEM "C:|C:"
ITEM "D:|D:" ITEM "D:|D:"
ITEM "E:|E:" ITEM "E:|E:"
ITEM "F:|F:" ITEM "F:|F:"
END END
STRING F_PATHNAME 30 STRING F_PATHNAME 30
BEGIN BEGIN
PROMPT 2 4 "Percorso " PROMPT 2 4 "Percorso "
HELP "Specificare il percorso completo dove ricercare il file di ricezione dati" HELP "Specificare il percorso completo dove ricercare il file di ricezione dati"
FLAGS "U" FLAGS "U"
//VALIDATE FILENAME_FUNC //VALIDATE FILENAME_FUNC
END END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 9 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 9 2 BUTTON DLG_QUIT 9 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

2150
cg/cg2700.cpp
View File

File diff suppressed because it is too large Load Diff

16
cg/cg2700.h
View File

@ -1,8 +1,8 @@
#define F_CODDITTA 101 #define F_CODDITTA 101
#define F_RAGSOC 102 #define F_RAGSOC 102
#define F_LISTA 103 #define F_LISTA 103
#define F_NUMERO 104 #define F_NUMERO 104
#define F_DATALIMITE 105 #define F_DATALIMITE 105
#define F_SDT 106 #define F_SDT 106
#define F_SIGLA 107 #define F_SIGLA 107
#define F_CHIAVE 108 #define F_CHIAVE 108

152
cg/cg2700a.uml
View File

@ -1,77 +1,77 @@
#include "cg2700.h" #include "cg2700.h"
PAGE "" -1 -1 78 17 PAGE "" -1 -1 78 17
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 2 1 "Ditta ricevente " PROMPT 2 1 "Ditta ricevente "
FLAGS "FRD" FLAGS "FRD"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
OUTPUT F_CODDITTA CODDITTA OUTPUT F_CODDITTA CODDITTA
OUTPUT F_RAGSOC RAGSOC OUTPUT F_RAGSOC RAGSOC
END END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 2 2 "Ragione sociale " PROMPT 2 2 "Ragione sociale "
FLAGS "D" FLAGS "D"
END END
RADIOBUTTON F_LISTA 31 RADIOBUTTON F_LISTA 31
BEGIN BEGIN
PROMPT 2 4 "Scelta controllo " PROMPT 2 4 "Scelta controllo "
HELP "Indicare il tipo di controllo" HELP "Indicare il tipo di controllo"
ITEM "1|Lista controllo movim. errati" ITEM "1|Lista controllo movim. errati"
ITEM "2|Lista controllo tutti movim." ITEM "2|Lista controllo tutti movim."
END END
NUMBER F_NUMERO 3 NUMBER F_NUMERO 3
BEGIN BEGIN
PROMPT 2 9 "Numero invio " PROMPT 2 9 "Numero invio "
FLAGS "D" FLAGS "D"
END END
DATE F_DATALIMITE DATE F_DATALIMITE
BEGIN BEGIN
PROMPT 2 10 "Data limite trasferimento " PROMPT 2 10 "Data limite trasferimento "
FLAGS "D" FLAGS "D"
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 2 11 "Stato ricezione " PROMPT 2 11 "Stato ricezione "
END END
STRING F_SDT 1 STRING F_SDT 1
BEGIN BEGIN
PROMPT 31 11 "" PROMPT 31 11 ""
FLAGS "D" FLAGS "D"
END END
STRING F_SIGLA 1 STRING F_SIGLA 1
BEGIN BEGIN
PROMPT 34 11 "" PROMPT 34 11 ""
FLAGS "D" FLAGS "D"
END END
STRING F_CHIAVE 15 STRING F_CHIAVE 15
BEGIN BEGIN
PROMPT 37 11 "" PROMPT 37 11 ""
FLAGS "D" FLAGS "D"
END END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 9 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 9 2 BUTTON DLG_QUIT 9 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

2954
cg/cg2800.cpp
View File

File diff suppressed because it is too large Load Diff

134
cg/cg2800.h
View File

@ -1,68 +1,68 @@
// Campi maschera cg2800a.uml // Campi maschera cg2800a.uml
#define F_NUMREG 101 #define F_NUMREG 101
#define F_NUMRIG 102 #define F_NUMRIG 102
// Campi maschera cg2800b.uml // Campi maschera cg2800b.uml
#define F_DATAREG 103 #define F_DATAREG 103
#define F_DATADOC 104 #define F_DATADOC 104
#define F_ANNO 105 #define F_ANNO 105
#define F_REGIVA 106 #define F_REGIVA 106
#define F_PROTIVA 107 #define F_PROTIVA 107
#define F_NUPROTIVA 108 #define F_NUPROTIVA 108
#define F_CODCAUS 109 #define F_CODCAUS 109
#define F_CODPAG 110 #define F_CODPAG 110
#define F_GRUPPO 111 #define F_GRUPPO 111
#define F_CONTO 112 #define F_CONTO 112
#define F_SOTTOCONTO 113 #define F_SOTTOCONTO 113
#define F_SEZIONE 114 #define F_SEZIONE 114
#define F_IMPORTO 115 #define F_IMPORTO 115
#define F_DESCR 116 #define F_DESCR 116
#define F_GRUPPOC 117 #define F_GRUPPOC 117
#define F_CONTOC 118 #define F_CONTOC 118
#define F_SOTTOC 119 #define F_SOTTOC 119
#define F_NUMDOC 120 #define F_NUMDOC 120
#define F_DESCRREG 121 #define F_DESCRREG 121
#define F_DESCRCAU 122 #define F_DESCRCAU 122
#define F_DESCRPAG 123 #define F_DESCRPAG 123
#define F_DESCRPARTITA 124 #define F_DESCRPARTITA 124
#define F_DESCRCPARTITA 125 #define F_DESCRCPARTITA 125
// Campi maschera cg2800c.uml // Campi maschera cg2800c.uml
#define F_CODCF 150 #define F_CODCF 150
#define F_RAGSOCOCC 151 #define F_RAGSOCOCC 151
#define F_DATA74TER 152 #define F_DATA74TER 152
#define F_INDOCC 153 #define F_INDOCC 153
#define F_LOCALITA 154 #define F_LOCALITA 154
#define F_CAPOCC 155 #define F_CAPOCC 155
#define F_PROVOCC 156 #define F_PROVOCC 156
#define F_IMPONIBILE 157 #define F_IMPONIBILE 157
#define F_IMPOSTA 158 #define F_IMPOSTA 158
#define F_CODIVA 159 #define F_CODIVA 159
#define F_TIPODET 160 #define F_TIPODET 160
#define F_TIPOCR 161 #define F_TIPOCR 161
#define F_RAGSOCCF 162 #define F_RAGSOCCF 162
#define F_DESCRCODIVA 163 #define F_DESCRCODIVA 163
// Campi maschera cg2801a.uml // Campi maschera cg2801a.uml
#define F_CODDITTA 200 #define F_CODDITTA 200
#define F_RAGDITTA 201 #define F_RAGDITTA 201
// Campi maschera cg2803a.uml // Campi maschera cg2803a.uml
#define F_CODDITTARIC 250 #define F_CODDITTARIC 250
#define F_RAGSOC 251 #define F_RAGSOC 251
#define F_NULTRAS 252 #define F_NULTRAS 252
#define F_DATAULTRAS 253 #define F_DATAULTRAS 253
#define F_STD 254 #define F_STD 254
#define F_USELAB 255 #define F_USELAB 255
#define F_STATO 256 #define F_STATO 256
#define F_AGGCAUSALI 257 #define F_AGGCAUSALI 257
#define F_AGGCLIFO 258 #define F_AGGCLIFO 258
#define F_AGGPCON 259 #define F_AGGPCON 259
#define F_AGGIVD 260 #define F_AGGIVD 260
#define F_FATTEM 261 #define F_FATTEM 261
#define F_FATTRIC 262 #define F_FATTRIC 262

64
cg/cg2800a.uml
View File

@ -1,32 +1,32 @@
#include "cg2800.h" #include "cg2800.h"
PAGE "" -1 -1 50 8 PAGE "" -1 -1 50 8
NUMBER F_NUMREG 6 NUMBER F_NUMREG 6
BEGIN BEGIN
PROMPT 2 1 "Numero di registrazione " PROMPT 2 1 "Numero di registrazione "
HELP "Inserire il numero di registrazione che si vuole modificare" HELP "Inserire il numero di registrazione che si vuole modificare"
FLAGS "RZ" FLAGS "RZ"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
NUMBER F_NUMRIG 2 NUMBER F_NUMRIG 2
BEGIN BEGIN
PROMPT 2 3 "Numero di riga " PROMPT 2 3 "Numero di riga "
HELP "Inserire il numero della riga desiderata. Se non viene specificata si entra in modifica della testata" HELP "Inserire il numero della riga desiderata. Se non viene specificata si entra in modifica della testata"
FLAGS "RZ" FLAGS "RZ"
END END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 9 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 9 2 BUTTON DLG_QUIT 9 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

358
cg/cg2800b.uml
View File

@ -1,179 +1,179 @@
#include "cg2800.h" #include "cg2800.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
BUTTON DLG_SAVEREC 10 2 BUTTON DLG_SAVEREC 10 2
BEGIN BEGIN
PROMPT -15 -1 "~Registra" PROMPT -15 -1 "~Registra"
MESSAGE EXIT,K_SAVE MESSAGE EXIT,K_SAVE
END END
BUTTON DLG_CANCEL 10 2 BUTTON DLG_CANCEL 10 2
BEGIN BEGIN
PROMPT -45 -1 "" PROMPT -45 -1 ""
MESSAGE EXIT,K_ESC MESSAGE EXIT,K_ESC
END END
BUTTON DLG_QUIT 10 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -55 -1 "" PROMPT -55 -1 ""
MESSAGE EXIT,K_QUIT MESSAGE EXIT,K_QUIT
END END
ENDPAGE ENDPAGE
PAGE "" -1 -1 78 18 PAGE "" -1 -1 78 18
NUMBER F_NUMREG 6 NUMBER F_NUMREG 6
BEGIN BEGIN
PROMPT 1 1 "Numero registrazione " PROMPT 1 1 "Numero registrazione "
HELP "Inserire il numero di registrazione che si vuole modificare" HELP "Inserire il numero di registrazione che si vuole modificare"
FLAGS "RZ" FLAGS "RZ"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
NUMBER F_NUMRIG 2 NUMBER F_NUMRIG 2
BEGIN BEGIN
PROMPT 40 1 "Numero di riga " PROMPT 40 1 "Numero di riga "
HELP "Inserire il numero della riga desiderata. Se non viene specificata si entra in modifica della testata" HELP "Inserire il numero della riga desiderata. Se non viene specificata si entra in modifica della testata"
FLAGS "RZ" FLAGS "RZ"
END END
DATE F_DATAREG DATE F_DATAREG
BEGIN BEGIN
PROMPT 1 3 "Data registrazione " PROMPT 1 3 "Data registrazione "
END END
LIST F_ANNO 10 LIST F_ANNO 10
BEGIN BEGIN
PROMPT 40 3 "Anno di riferimento " PROMPT 40 3 "Anno di riferimento "
ITEM "0|Corrente" ITEM "0|Corrente"
ITEM "1|Precedente" ITEM "1|Precedente"
END END
DATE F_DATADOC DATE F_DATADOC
BEGIN BEGIN
PROMPT 1 4 "Data del documento " PROMPT 1 4 "Data del documento "
END END
STRING F_NUMDOC 7 STRING F_NUMDOC 7
BEGIN BEGIN
PROMPT 40 4 "Numero docomento " PROMPT 40 4 "Numero docomento "
END END
STRING F_REGIVA 1 STRING F_REGIVA 1
BEGIN BEGIN
PROMPT 1 6 "Registro IVA " PROMPT 1 6 "Registro IVA "
END END
STRING F_DESCRREG 49 STRING F_DESCRREG 49
BEGIN BEGIN
PROMPT 28 6 "" PROMPT 28 6 ""
FLAGS "D" FLAGS "D"
END END
NUMBER F_PROTIVA 5 NUMBER F_PROTIVA 5
BEGIN BEGIN
PROMPT 1 7 "Numero protocollo iva " PROMPT 1 7 "Numero protocollo iva "
FLAGS "R" FLAGS "R"
END END
NUMBER F_NUPROTIVA 5 NUMBER F_NUPROTIVA 5
BEGIN BEGIN
PROMPT 40 7 "Ultimo protoc. riepilog. " PROMPT 40 7 "Ultimo protoc. riepilog. "
FLAGS "R" FLAGS "R"
END END
STRING F_CODCAUS 3 STRING F_CODCAUS 3
BEGIN BEGIN
PROMPT 1 8 "Codice causale " PROMPT 1 8 "Codice causale "
FLAGS "Z" FLAGS "Z"
END END
STRING F_DESCRCAU 49 STRING F_DESCRCAU 49
BEGIN BEGIN
PROMPT 28 8 "" PROMPT 28 8 ""
FLAGS "D" FLAGS "D"
END END
STRING F_CODPAG 2 STRING F_CODPAG 2
BEGIN BEGIN
PROMPT 1 9 "Codice pagamento " PROMPT 1 9 "Codice pagamento "
END END
STRING F_DESCRPAG 49 STRING F_DESCRPAG 49
BEGIN BEGIN
PROMPT 28 9 "" PROMPT 28 9 ""
FLAGS "D" FLAGS "D"
END END
NUMBER F_GRUPPO 2 NUMBER F_GRUPPO 2
BEGIN BEGIN
PROMPT 1 11 "Sottoconto partita " PROMPT 1 11 "Sottoconto partita "
FLAGS "R" FLAGS "R"
END END
NUMBER F_CONTO 2 NUMBER F_CONTO 2
BEGIN BEGIN
PROMPT 29 11 "" PROMPT 29 11 ""
FLAGS "R" FLAGS "R"
END END
NUMBER F_SOTTOCONTO 6 NUMBER F_SOTTOCONTO 6
BEGIN BEGIN
PROMPT 34 11 "" PROMPT 34 11 ""
FLAGS "R" FLAGS "R"
END END
STRING F_DESCRPARTITA 50 STRING F_DESCRPARTITA 50
BEGIN BEGIN
PROMPT 1 12 "Descrizione partita " PROMPT 1 12 "Descrizione partita "
FLAGS "D" FLAGS "D"
END END
LIST F_SEZIONE 7 LIST F_SEZIONE 7
BEGIN BEGIN
PROMPT 1 13 "Sezione " PROMPT 1 13 "Sezione "
ITEM "D|Dare" ITEM "D|Dare"
ITEM "A|Avere" ITEM "A|Avere"
END END
STRING F_DESCR 30 STRING F_DESCR 30
BEGIN BEGIN
PROMPT 1 14 "Descrizione aggiuntiva " PROMPT 1 14 "Descrizione aggiuntiva "
END END
NUMBER F_IMPORTO 15 NUMBER F_IMPORTO 15
BEGIN BEGIN
PROMPT 1 15 "Importo " PROMPT 1 15 "Importo "
FLAGS "R" FLAGS "R"
PICTURE "." PICTURE "."
END END
NUMBER F_GRUPPOC 2 NUMBER F_GRUPPOC 2
BEGIN BEGIN
PROMPT 1 16 "Sottoconto contropart. " PROMPT 1 16 "Sottoconto contropart. "
FLAGS "R" FLAGS "R"
END END
NUMBER F_CONTOC 2 NUMBER F_CONTOC 2
BEGIN BEGIN
PROMPT 29 16 "" PROMPT 29 16 ""
FLAGS "R" FLAGS "R"
END END
NUMBER F_SOTTOC 6 NUMBER F_SOTTOC 6
BEGIN BEGIN
PROMPT 34 16 "" PROMPT 34 16 ""
FLAGS "R" FLAGS "R"
END END
STRING F_DESCRCPARTITA 50 STRING F_DESCRCPARTITA 50
BEGIN BEGIN
PROMPT 1 17 "Descrizione c/partita " PROMPT 1 17 "Descrizione c/partita "
FLAGS "D" FLAGS "D"
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

334
cg/cg2800c.uml
View File

@ -1,167 +1,167 @@
#include "cg2800.h" #include "cg2800.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
BUTTON DLG_SAVEREC 10 2 BUTTON DLG_SAVEREC 10 2
BEGIN BEGIN
PROMPT -15 -1 "~Registra" PROMPT -15 -1 "~Registra"
MESSAGE EXIT,K_SAVE MESSAGE EXIT,K_SAVE
END END
BUTTON DLG_CANCEL 10 2 BUTTON DLG_CANCEL 10 2
BEGIN BEGIN
PROMPT -45 -1 "" PROMPT -45 -1 ""
MESSAGE EXIT,K_ESC MESSAGE EXIT,K_ESC
END END
BUTTON DLG_QUIT 10 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -55 -1 "" PROMPT -55 -1 ""
MESSAGE EXIT,K_QUIT MESSAGE EXIT,K_QUIT
END END
ENDPAGE ENDPAGE
PAGE "" -1 -1 78 18 PAGE "" -1 -1 78 18
NUMBER F_NUMREG 6 NUMBER F_NUMREG 6
BEGIN BEGIN
PROMPT 1 1 "Numero registrazione " PROMPT 1 1 "Numero registrazione "
HELP "Inserire il numero di registrazione che si vuole modificare" HELP "Inserire il numero di registrazione che si vuole modificare"
FLAGS "RZ" FLAGS "RZ"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
NUMBER F_NUMRIG 2 NUMBER F_NUMRIG 2
BEGIN BEGIN
PROMPT 52 1 "Numero di riga " PROMPT 52 1 "Numero di riga "
HELP "Inserire il numero della riga desiderata. Se non viene specificata si entra in modifica della testata" HELP "Inserire il numero della riga desiderata. Se non viene specificata si entra in modifica della testata"
FLAGS "RZ" FLAGS "RZ"
END END
NUMBER F_CODCF 6 NUMBER F_CODCF 6
BEGIN BEGIN
PROMPT 1 3 "Codice C/F " PROMPT 1 3 "Codice C/F "
FLAGS "R" FLAGS "R"
END END
STRING F_RAGSOCCF 50 STRING F_RAGSOCCF 50
BEGIN BEGIN
PROMPT 26 3 "" PROMPT 26 3 ""
FLAGS "D" FLAGS "D"
END END
DATE F_DATA74TER DATE F_DATA74TER
BEGIN BEGIN
PROMPT 1 4 "Data reg. 74TER " PROMPT 1 4 "Data reg. 74TER "
END END
GROUPBOX DLG_NULL 78 5 GROUPBOX DLG_NULL 78 5
BEGIN BEGIN
PROMPT 0 6 "Cliente occasionale" PROMPT 0 6 "Cliente occasionale"
END END
STRING F_RAGSOCOCC 25 STRING F_RAGSOCOCC 25
BEGIN BEGIN
PROMPT 1 7 "Ragione sociale " PROMPT 1 7 "Ragione sociale "
END END
STRING F_INDOCC 22 STRING F_INDOCC 22
BEGIN BEGIN
PROMPT 1 8 "Indirizzo " PROMPT 1 8 "Indirizzo "
END END
STRING F_LOCALITA 18 STRING F_LOCALITA 18
BEGIN BEGIN
PROMPT 1 9 "Localita' " PROMPT 1 9 "Localita' "
END END
STRING F_CAPOCC 5 STRING F_CAPOCC 5
BEGIN BEGIN
PROMPT 46 9 "C.A.P. " PROMPT 46 9 "C.A.P. "
END END
STRING F_PROVOCC 2 STRING F_PROVOCC 2
BEGIN BEGIN
PROMPT 62 9 "Provincia " PROMPT 62 9 "Provincia "
END END
NUMBER F_IMPONIBILE 15 NUMBER F_IMPONIBILE 15
BEGIN BEGIN
PROMPT 1 11 "Imponibile " PROMPT 1 11 "Imponibile "
FLAGS "R" FLAGS "R"
PICTURE "." PICTURE "."
END END
STRING F_CODIVA 2 STRING F_CODIVA 2
BEGIN BEGIN
PROMPT 1 12 "Codice IVA " PROMPT 1 12 "Codice IVA "
FLAGS "Z" FLAGS "Z"
END END
STRING F_DESCRCODIVA 48 STRING F_DESCRCODIVA 48
BEGIN BEGIN
PROMPT 28 12 "" PROMPT 28 12 ""
FLAGS "D" FLAGS "D"
END END
NUMBER F_IMPOSTA 15 NUMBER F_IMPOSTA 15
BEGIN BEGIN
PROMPT 1 13 "Imposta " PROMPT 1 13 "Imposta "
FLAGS "R" FLAGS "R"
PICTURE "." PICTURE "."
END END
NUMBER F_TIPODET 1 NUMBER F_TIPODET 1
BEGIN BEGIN
PROMPT 1 14 "Tipo detraibilita' " PROMPT 1 14 "Tipo detraibilita' "
SHEET "Codice|Tipo detraibilita'@75" SHEET "Codice|Tipo detraibilita'@75"
INPUT F_TIPODET INPUT F_TIPODET
ITEM " |Regime normale" ITEM " |Regime normale"
ITEM "1|IVA indetraibile su acquisti riferiti a ricavi esenti" 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 "3|IVA indicata per passaggi interni al solo fine del calcolo di ventilazione"
ITEM "9|IVA non detraibile per l'articolo 19" ITEM "9|IVA non detraibile per l'articolo 19"
OUTPUT F_TIPODET OUTPUT F_TIPODET
END END
LIST F_TIPOCR 47 LIST F_TIPOCR 47
BEGIN BEGIN
PROMPT 1 15 "Tipo Costo/Ricavo " PROMPT 1 15 "Tipo Costo/Ricavo "
ITEM " |0. Acquisti o vendite in genere" ITEM " |0. Acquisti o vendite in genere"
ITEM "1|1. Acquisti beni per rivendita" ITEM "1|1. Acquisti beni per rivendita"
ITEM "2|2. Acquisti beni ammortizzabili" ITEM "2|2. Acquisti beni ammortizzabili"
ITEM "3|3. Acquisti beni ammortizzabili con detr. 6%" ITEM "3|3. Acquisti beni ammortizzabili con detr. 6%"
ITEM "4|4. Vendita beni strumentali art. 17" ITEM "4|4. Vendita beni strumentali art. 17"
ITEM "5|5. Beni per rivendita da non ventilare" ITEM "5|5. Beni per rivendita da non ventilare"
ITEM "8|8. Altri beni strumentali acquistati in leasing" ITEM "8|8. Altri beni strumentali acquistati in leasing"
ITEM "9|9. Spese generali" ITEM "9|9. Spese generali"
HELP "Tipo Costo/Ricavo del conto" HELP "Tipo Costo/Ricavo del conto"
END END
NUMBER F_GRUPPO 2 NUMBER F_GRUPPO 2
BEGIN BEGIN
PROMPT 1 16 "Sottoconto costo/ricavo " PROMPT 1 16 "Sottoconto costo/ricavo "
FLAGS "R" FLAGS "R"
END END
NUMBER F_CONTO 2 NUMBER F_CONTO 2
BEGIN BEGIN
PROMPT 30 16 "" PROMPT 30 16 ""
FLAGS "R" FLAGS "R"
END END
NUMBER F_SOTTOCONTO 6 NUMBER F_SOTTOCONTO 6
BEGIN BEGIN
PROMPT 35 16 "" PROMPT 35 16 ""
FLAGS "R" FLAGS "R"
END END
STRING F_DESCRPARTITA 50 STRING F_DESCRPARTITA 50
BEGIN BEGIN
PROMPT 1 17 "Descrizione sottoconto " PROMPT 1 17 "Descrizione sottoconto "
FLAGS "D" FLAGS "D"
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

482
cg/cg2801.cpp
View File

@ -1,241 +1,241 @@
#include "cglib04.h" #include "cglib04.h"
#include "cg2801.h" #include "cg2801.h"
bool TDitta_ric::create() bool TDitta_ric::create()
{ {
TApplication::create(); TApplication::create();
_nditte = new TLocalisamfile (LF_PCON); _nditte = new TLocalisamfile (LF_PCON);
dispatch_e_menu (BAR_ITEM(1)); dispatch_e_menu (BAR_ITEM(1));
return TRUE; return TRUE;
} }
bool TDitta_ric::destroy() bool TDitta_ric::destroy()
{ {
delete _nditte; delete _nditte;
return TApplication::destroy(); return TApplication::destroy();
} }
bool TDitta_ric::set() bool TDitta_ric::set()
{ {
TMask msk ("cg2801a"); TMask msk ("cg2801a");
KEY tasto; KEY tasto;
tasto = msk.run(); tasto = msk.run();
if (tasto != K_ENTER) return FALSE; if (tasto != K_ENTER) return FALSE;
_dittaric = msk.get_int(F_CODDITTA); _dittaric = msk.get_int(F_CODDITTA);
if (!esegui_controlli()) return FALSE; if (!esegui_controlli()) return FALSE;
set_firm(_dittaric); set_firm(_dittaric);
return FALSE; return FALSE;
} }
bool TDitta_ric::leggi_trasfer() bool TDitta_ric::leggi_trasfer()
{ {
_trasf = _tras_file.path(_dittaric); _trasf = _tras_file.path(_dittaric);
_trasf << "\\trasfer"; _trasf << "\\trasfer";
_tras_file.open(_trasf); _tras_file.open(_trasf);
if (_tras_file.exist()) if (_tras_file.exist())
{ {
if (_tras_file.read_control_rec()) if (_tras_file.read_control_rec())
{ {
_control_rec = _tras_file.record(); _control_rec = _tras_file.record();
_uselab = _tras_file.ult_file(); _uselab = _tras_file.ult_file();
_key = _tras_file.key(); _key = _tras_file.key();
_sigle_file = _tras_file.sigle_file(); _sigle_file = _tras_file.sigle_file();
_nrec_file = _tras_file.nrec_file(); _nrec_file = _tras_file.nrec_file();
} }
else else
return error_box("Rilevati gravi errori negli archivi:procedura interrotta"); return error_box("Rilevati gravi errori negli archivi:procedura interrotta");
} }
else else
return error_box("Al momento non presenti trasferimenti attivi sulla ditta selezionata"); return error_box("Al momento non presenti trasferimenti attivi sulla ditta selezionata");
return TRUE; return TRUE;
} }
bool TDitta_ric::esegui_controlli() bool TDitta_ric::esegui_controlli()
{ {
TConfig conf(CONFIG_DITTA); TConfig conf(CONFIG_DITTA);
_std = conf.get("FlStTra"); _std = conf.get("FlStTra");
if (!prefhndl->exist(_dittaric)) if (!prefhndl->exist(_dittaric))
return error_box("Codice ditta NON PRESENTE in archivio oppure NON ATTIVATO in contabilita' generale"); return error_box("Codice ditta NON PRESENTE in archivio oppure NON ATTIVATO in contabilita' generale");
if (_std == "") if (_std == "")
{ {
if (!leggi_trasfer()) if (!leggi_trasfer())
return FALSE; return FALSE;
if (_uselab != " ") if (_uselab != " ")
return error_box("Ultimo trasferimento NON COMPLETATO: completarlo"); return error_box("Ultimo trasferimento NON COMPLETATO: completarlo");
} }
else else
return error_box("Ultimo trasferimento NON COMPLETATO: completarlo"); return error_box("Ultimo trasferimento NON COMPLETATO: completarlo");
if (!controlli()) if (!controlli())
return FALSE; return FALSE;
return TRUE; return TRUE;
} }
bool TDitta_ric::controlli() bool TDitta_ric::controlli()
{ {
TString ana_com,pcon_cau,uselab; TString ana_com,pcon_cau,uselab;
bool fatto = FALSE; bool fatto = FALSE;
TConfig conf(CONFIG_DITTA); TConfig conf(CONFIG_DITTA);
ana_com = conf.get("AnCfCm","cg"); ana_com = conf.get("AnCfCm","cg");
pcon_cau = conf.get("PcTcCm","cg"); pcon_cau = conf.get("PcTcCm","cg");
if (ana_com == "X" || pcon_cau == "X") if (ana_com == "X" || pcon_cau == "X")
{ {
if (ana_com == "X") if (ana_com == "X")
{ {
int p = _sigle_file.find('A'); int p = _sigle_file.find('A');
if (p >= 0) if (p >= 0)
{ {
_sigle_file.overwrite(" ",p); _sigle_file.overwrite(" ",p);
_nrec_file.overwrite("000000", p * 6); _nrec_file.overwrite("000000", p * 6);
} }
} }
if (pcon_cau == "X") if (pcon_cau == "X")
{ {
int p = _sigle_file.find('W'); int p = _sigle_file.find('W');
if (p >= 0) if (p >= 0)
{ {
_sigle_file.overwrite(" ",p); _sigle_file.overwrite(" ",p);
_nrec_file.overwrite("000000", p * 6); _nrec_file.overwrite("000000", p * 6);
} }
p = _sigle_file.find('P'); p = _sigle_file.find('P');
if (p >= 0) if (p >= 0)
{ {
_sigle_file.overwrite(" ",p); _sigle_file.overwrite(" ",p);
_nrec_file.overwrite("000000", p * 6); _nrec_file.overwrite("000000", p * 6);
} }
} }
_control_rec.overwrite(_sigle_file,38); _control_rec.overwrite(_sigle_file,38);
_control_rec.overwrite(_nrec_file,47); _control_rec.overwrite(_nrec_file,47);
_tras_file.write_control_rec(_control_rec,256); _tras_file.write_control_rec(_control_rec,256);
leggi_record_controllo(); leggi_record_controllo();
} }
setta_parametri_record("","T",FALSE); setta_parametri_record("","T",FALSE);
int k = 0; int k = 0;
for ( int j = 0; j < _sigle_file.len(); j++) for ( int j = 0; j < _sigle_file.len(); j++)
{ {
TString sigla = _sigle_file.mid(j,1); TString sigla = _sigle_file.mid(j,1);
long nrec = atol(_nrec_file.mid(k,6)); long nrec = atol(_nrec_file.mid(k,6));
if (sigla != "Z" && sigla != "U" && sigla != "B") if (sigla != "Z" && sigla != "U" && sigla != "B")
{ {
if (nrec != 0) if (nrec != 0)
{ {
uselab = sigla; uselab = sigla;
_control_rec.overwrite(uselab,240); _control_rec.overwrite(uselab,240);
_control_rec.overwrite(" ",241); _control_rec.overwrite(" ",241);
fatto = TRUE; fatto = TRUE;
break; break;
} }
} }
k += 6; k += 6;
} }
if (!fatto) if (!fatto)
{ {
int p = _sigle_file.find('Z'); int p = _sigle_file.find('Z');
if (p >= 0) if (p >= 0)
{ {
setta_parametri_record("","C",FALSE); setta_parametri_record("","C",FALSE);
_control_rec.overwrite(" ",240); _control_rec.overwrite(" ",240);
_control_rec.overwrite(" ",241); _control_rec.overwrite(" ",241);
} }
else else
{ {
setta_parametri_record("","*",FALSE); setta_parametri_record("","*",FALSE);
_control_rec.overwrite(" ",240); _control_rec.overwrite(" ",240);
_control_rec.overwrite(" ",241); _control_rec.overwrite(" ",241);
fremove(_trasf); fremove(_trasf);
setta_parametri_record(""," ",FALSE); setta_parametri_record(""," ",FALSE);
} }
} }
char agg_cau = _control_rec.sub(235,236)[0]; char agg_cau = _control_rec.sub(235,236)[0];
char agg_clifo = _control_rec.sub(236,237)[0]; char agg_clifo = _control_rec.sub(236,237)[0];
char agg_pcon = _control_rec.sub(237,238)[0]; char agg_pcon = _control_rec.sub(237,238)[0];
if (agg_cau != ' ') if (agg_cau != ' ')
agg_cau = 'D'; agg_cau = 'D';
if (agg_clifo != ' ') if (agg_clifo != ' ')
agg_clifo = 'D'; agg_clifo = 'D';
if (agg_pcon != ' ') if (agg_pcon != ' ')
agg_pcon = 'D'; agg_pcon = 'D';
TString agg(4); TString agg(4);
agg[0] = agg_cau; agg[0] = agg_cau;
agg[1] = agg_clifo; agg[1] = agg_clifo;
agg[2] = agg_pcon; agg[2] = agg_pcon;
agg[3] = '\0'; agg[3] = '\0';
_control_rec.overwrite(agg,235); _control_rec.overwrite(agg,235);
const int size = 256; const int size = 256;
if (!_tras_file.write_control_rec(_control_rec, size)) if (!_tras_file.write_control_rec(_control_rec, size))
return FALSE; return FALSE;
TConfig cfd (CONFIG_DITTA); TConfig cfd (CONFIG_DITTA);
TString std = cfd.get("FlStTra"); TString std = cfd.get("FlStTra");
if (std == "") if (std == "")
return error_box ("Non risultano TRASFERIMENTI ATTIVI sulla ditta richiesta"); return error_box ("Non risultano TRASFERIMENTI ATTIVI sulla ditta richiesta");
return TRUE; return TRUE;
} }
void TDitta_ric::leggi_record_controllo() void TDitta_ric::leggi_record_controllo()
{ {
_tras_file.read_control_rec(); _tras_file.read_control_rec();
_control_rec = _tras_file.record(); _control_rec = _tras_file.record();
} }
void TDitta_ric::setta_parametri_record(const TString& sigla,const TString& flag,bool uselab) void TDitta_ric::setta_parametri_record(const TString& sigla,const TString& flag,bool uselab)
{ {
TConfig conf (CONFIG_DITTA); TConfig conf (CONFIG_DITTA);
conf.set("FlStTra", flag); conf.set("FlStTra", flag);
if (uselab) if (uselab)
{ {
leggi_record_controllo(); leggi_record_controllo();
_control_rec.overwrite(sigla,240); _control_rec.overwrite(sigla,240);
const int size = 256; const int size = 256;
_tras_file.write_control_rec(_control_rec, size); _tras_file.write_control_rec(_control_rec, size);
} }
} }
bool TDitta_ric::menu(MENU_TAG m) bool TDitta_ric::menu(MENU_TAG m)
{ {
if (m == BAR_ITEM(1)) if (m == BAR_ITEM(1))
return set(); return set();
return FALSE; return FALSE;
} }

86
cg/cg2801.h
View File

@ -1,43 +1,43 @@
// Scelta ditta per ricezione // Scelta ditta per ricezione
#include <mask.h> #include <mask.h>
#include <applicat.h> #include <applicat.h>
#include <relation.h> #include <relation.h>
#include <tabutil.h> #include <tabutil.h>
#include <utility.h> #include <utility.h>
#include <config.h> #include <config.h>
#include <urldefid.h> #include <urldefid.h>
#include <execp.h> #include <execp.h>
#include <prefix.h> #include <prefix.h>
#include <lffiles.h> #include <lffiles.h>
#include <nditte.h> #include <nditte.h>
#include "cg2800.h" #include "cg2800.h"
//#include "cglib04.h" //#include "cglib04.h"
class TDitta_ric : public TApplication class TDitta_ric : public TApplication
{ {
TLocalisamfile* _nditte; TLocalisamfile* _nditte;
TTransfer_file _tras_file; TTransfer_file _tras_file;
TString _trasf,_std,_uselab,_record,_nrec_file,_sigle_file,_key; TString _trasf,_std,_uselab,_record,_nrec_file,_sigle_file,_key;
long _dittaric; long _dittaric;
TString _control_rec; TString _control_rec;
public: public:
TString _titolo; TString _titolo;
virtual bool create(); virtual bool create();
virtual bool destroy(); virtual bool destroy();
virtual bool menu(MENU_TAG m); virtual bool menu(MENU_TAG m);
bool set(); bool set();
bool esegui_controlli(); bool esegui_controlli();
bool leggi_trasfer(); bool leggi_trasfer();
bool controlli(); bool controlli();
void leggi_record_controllo(); void leggi_record_controllo();
void setta_parametri_record(const TString& sigla,const TString& flag,bool uselab); void setta_parametri_record(const TString& sigla,const TString& flag,bool uselab);
TDitta_ric() {}; TDitta_ric() {};
}; };

94
cg/cg2801a.uml
View File

@ -1,47 +1,47 @@
#include "cg2800.h" #include "cg2800.h"
PAGE "Selezione Ditta" -1 -1 64 6 PAGE "Selezione Ditta" -1 -1 64 6
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 1 1 "Codice " PROMPT 1 1 "Codice "
HELP "Codice della ditta da attivare" HELP "Codice della ditta da attivare"
FLAGS "FR" FLAGS "FR"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale@50" RAGSOC DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_CODDITTA CODDITTA OUTPUT F_CODDITTA CODDITTA
OUTPUT F_RAGDITTA RAGSOC OUTPUT F_RAGDITTA RAGSOC
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Ditta assente" WARNING "Ditta assente"
KEY 1 KEY 1
GROUP 1 GROUP 1
END END
STRING F_RAGDITTA 50 STRING F_RAGDITTA 50
BEGIN BEGIN
PROMPT 1 2 "Rag. Soc. " PROMPT 1 2 "Rag. Soc. "
USE LF_NDITTE KEY 2 USE LF_NDITTE KEY 2
HELP "Ragione sociale della ditta da selezionare" HELP "Ragione sociale della ditta da selezionare"
INPUT RAGSOC F_RAGDITTA INPUT RAGSOC F_RAGDITTA
DISPLAY "Ragione sociale@50" RAGSOC DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Codice" CODDITTA DISPLAY "Codice" CODDITTA
COPY OUTPUT F_CODDITTA COPY OUTPUT F_CODDITTA
KEY 2 KEY 2
GROUP 1 GROUP 1
END END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 9 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 9 2 BUTTON DLG_QUIT 9 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

726
cg/cg2802.cpp
View File

@ -1,363 +1,363 @@
#include "cglib04.h" #include "cglib04.h"
#include "cg2802.h" #include "cg2802.h"
HIDDEN int date2esc(const TDate& d, int* prevesc) HIDDEN int date2esc(const TDate& d, int* prevesc)
{ {
if (prevesc) *prevesc = 0; if (prevesc) *prevesc = 0;
TTable esc("ESC"); TTable esc("ESC");
for (int err = esc.first(); err == NOERR; err = esc.next()) for (int err = esc.first(); err == NOERR; err = esc.next())
{ {
const TDate ia(esc.get("D0")); // Data inizio esercizio const TDate ia(esc.get("D0")); // Data inizio esercizio
const TDate fa(esc.get("D1")); // Data fine esercizio const TDate fa(esc.get("D1")); // Data fine esercizio
const anno = esc.get_int("CODTAB"); const anno = esc.get_int("CODTAB");
if (d >= ia && d <= fa) if (d >= ia && d <= fa)
return anno; return anno;
if (prevesc) *prevesc = anno; if (prevesc) *prevesc = anno;
} }
return 0; return 0;
} }
bool TAnn_mov::create() bool TAnn_mov::create()
{ {
TApplication::create(); TApplication::create();
_pcon = new TLocalisamfile (LF_PCON); _pcon = new TLocalisamfile (LF_PCON);
_clifo = new TLocalisamfile (LF_CLIFO); _clifo = new TLocalisamfile (LF_CLIFO);
TString80 tmpmov = "%"; TString80 tmpmov = "%";
tmpmov << get_firm_dir(); tmpmov << get_firm_dir();
tmpmov << "\\" << TEMP_MOV; tmpmov << "\\" << TEMP_MOV;
TString80 tmprmov = "%"; TString80 tmprmov = "%";
tmprmov << get_firm_dir(); tmprmov << get_firm_dir();
tmprmov << "\\" << TEMP_RMOV; tmprmov << "\\" << TEMP_RMOV;
TString80 tmprmoviva = "%"; TString80 tmprmoviva = "%";
tmprmoviva << get_firm_dir(); tmprmoviva << get_firm_dir();
tmprmoviva << "\\" << TEMP_RMOVIVA; tmprmoviva << "\\" << TEMP_RMOVIVA;
_tmov = new TIsamtempfile(LF_MOV, tmpmov, 0); _tmov = new TIsamtempfile(LF_MOV, tmpmov, 0);
_trmov = new TIsamtempfile(LF_RMOV, tmprmov, 0); _trmov = new TIsamtempfile(LF_RMOV, tmprmov, 0);
_tiva = new TIsamtempfile(LF_RMOVIVA, tmprmoviva, 0); _tiva = new TIsamtempfile(LF_RMOVIVA, tmprmoviva, 0);
_rec_mov = new TRectype (LF_MOV); _rec_mov = new TRectype (LF_MOV);
dispatch_e_menu (BAR_ITEM(1)); dispatch_e_menu (BAR_ITEM(1));
return TRUE; return TRUE;
} }
bool TAnn_mov::destroy() bool TAnn_mov::destroy()
{ {
delete _pcon; delete _pcon;
delete _clifo; delete _clifo;
delete _tmov; delete _tmov;
delete _trmov; delete _trmov;
delete _tiva; delete _tiva;
delete _rec_mov; delete _rec_mov;
return TApplication::destroy(); return TApplication::destroy();
} }
bool TAnn_mov::set() bool TAnn_mov::set()
{ {
_dittaric = get_firm(); _dittaric = get_firm();
if (!esegui_controlli()) return FALSE; if (!esegui_controlli()) return FALSE;
if (!video()) if (!video())
return FALSE; return FALSE;
return FALSE; return FALSE;
} }
bool TAnn_mov::video() bool TAnn_mov::video()
{ {
TMask msk ("cg2802a"); TMask msk ("cg2802a");
KEY tasto; KEY tasto;
do do
{ {
tasto = msk.run(); tasto = msk.run();
if (tasto != K_ENTER) return FALSE; if (tasto != K_ENTER) return FALSE;
if (esiste_testata_mov(msk)) if (esiste_testata_mov(msk))
{ {
TMask mask ("cg2802b"); TMask mask ("cg2802b");
mask.set_handler(F_REGIVA, codice_registro_hnd); mask.set_handler(F_REGIVA, codice_registro_hnd);
mask.set_handler(F_CODCAUS, codice_causale_hnd); mask.set_handler(F_CODCAUS, codice_causale_hnd);
setta_campi_maschera(mask); setta_campi_maschera(mask);
tasto = mask.run(); tasto = mask.run();
switch (tasto) switch (tasto)
{ {
case K_ESC : case K_ESC :
break; break;
case K_QUIT : case K_QUIT :
break; break;
case K_SAVE : case K_SAVE :
{ {
annulla(mask); annulla(mask);
} }
break; break;
default: default:
break; break;
} }
} }
} }
while (tasto != K_QUIT); //K_ENTER while (tasto != K_QUIT); //K_ENTER
return TRUE; return TRUE;
} }
bool TAnn_mov::esiste_testata_mov(TMask& m) bool TAnn_mov::esiste_testata_mov(TMask& m)
{ {
long nrec; long nrec;
_numreg = m.get_long(F_NUMREG); _numreg = m.get_long(F_NUMREG);
_tmov->setkey(1); _tmov->setkey(1);
_tmov->zero(); _tmov->zero();
_tmov->put(MOV_NUMREG, _numreg); _tmov->put(MOV_NUMREG, _numreg);
if (_tmov->read() == NOERR) if (_tmov->read() == NOERR)
{ {
nrec = _tmov->get_long(MOV_NUMGIO); nrec = _tmov->get_long(MOV_NUMGIO);
nrec += _tras_file.start('Z'); nrec += _tras_file.start('Z');
_tras_file.read_rec_trasfer(nrec); _tras_file.read_rec_trasfer(nrec);
_record = _tras_file.read_rec(); _record = _tras_file.read_rec();
char annullato = _record.sub(248,249)[0]; char annullato = _record.sub(248,249)[0];
if (annullato == 'A') if (annullato == 'A')
return error_box("Registrazione presente ma gia' ANNULLATA in precedenza"); return error_box("Registrazione presente ma gia' ANNULLATA in precedenza");
*_rec_mov = _tmov->curr(); *_rec_mov = _tmov->curr();
} }
else else
return error_box("Registrazione richiesta NON PRESENTE tra i movimenti in trasferimento"); return error_box("Registrazione richiesta NON PRESENTE tra i movimenti in trasferimento");
return TRUE; return TRUE;
} }
void TAnn_mov::setta_campi_maschera(TMask& m) void TAnn_mov::setta_campi_maschera(TMask& m)
{ {
TDate datareg (_rec_mov->get_date(MOV_DATAREG)); TDate datareg (_rec_mov->get_date(MOV_DATAREG));
TDate datadoc (_rec_mov->get_date(MOV_DATADOC)); TDate datadoc (_rec_mov->get_date(MOV_DATADOC));
TString numdoc = _rec_mov->get (MOV_NUMDOC); TString numdoc = _rec_mov->get (MOV_NUMDOC);
TString regiva = _rec_mov->get (MOV_REG); TString regiva = _rec_mov->get (MOV_REG);
regiva.trim(); regiva.trim();
long protiva = _rec_mov->get_long(MOV_PROTIVA); long protiva = _rec_mov->get_long(MOV_PROTIVA);
TString codcaus = _rec_mov->get (MOV_CODCAUS); TString codcaus = _rec_mov->get (MOV_CODCAUS);
m.set(F_NUMREG, _numreg); m.set(F_NUMREG, _numreg);
m.set(F_DATAREG, datareg.string()); m.set(F_DATAREG, datareg.string());
m.set(F_DATADOC, datadoc.string()); m.set(F_DATADOC, datadoc.string());
m.set(F_NUMDOC, numdoc); m.set(F_NUMDOC, numdoc);
m.set(F_REGIVA, regiva); m.set(F_REGIVA, regiva);
m.set(F_PROTIVA, protiva); m.set(F_PROTIVA, protiva);
m.set(F_CODCAUS, codcaus); m.set(F_CODCAUS, codcaus);
m.disable(F_NUMREG); m.disable(F_NUMREG);
m.disable(F_DATAREG); m.disable(F_DATAREG);
m.disable(F_DATADOC); m.disable(F_DATADOC);
m.disable(F_NUMDOC); m.disable(F_NUMDOC);
m.disable(F_REGIVA); m.disable(F_REGIVA);
m.disable(F_PROTIVA); m.disable(F_PROTIVA);
m.disable(F_CODCAUS); m.disable(F_CODCAUS);
} }
void TAnn_mov::annulla(TMask& m) void TAnn_mov::annulla(TMask& m)
{ {
TRectype* rec_rmov,* rec_riva; TRectype* rec_rmov,* rec_riva;
rec_rmov = new TRectype (LF_RMOV); rec_rmov = new TRectype (LF_RMOV);
long numreg = m.get_long(F_NUMREG); long numreg = m.get_long(F_NUMREG);
_trmov->setkey(1); _trmov->setkey(1);
_trmov->zero(); _trmov->zero();
_trmov->put(RMV_NUMREG, numreg); _trmov->put(RMV_NUMREG, numreg);
*rec_rmov = _trmov->curr(); *rec_rmov = _trmov->curr();
for (_trmov->read(); !_trmov->eof(); _trmov->next()) for (_trmov->read(); !_trmov->eof(); _trmov->next())
{ {
if (_trmov->curr() > *rec_rmov) break; if (_trmov->curr() > *rec_rmov) break;
long numrec = _trmov->get_int(RMV_ANNOES); long numrec = _trmov->get_int(RMV_ANNOES);
numrec += _tras_file.start('Z'); numrec += _tras_file.start('Z');
_tras_file.read_rec_trasfer(numrec); //Leggo il record della prima nota _tras_file.read_rec_trasfer(numrec); //Leggo il record della prima nota
_tras_file.put("A","Z1",51,numrec); _tras_file.put("A","Z1",51,numrec);
_tras_file.write(numrec); _tras_file.write(numrec);
} }
delete rec_rmov; delete rec_rmov;
rec_riva = new TRectype (LF_RMOVIVA); rec_riva = new TRectype (LF_RMOVIVA);
_tiva->setkey(1); _tiva->setkey(1);
_tiva->zero(); _tiva->zero();
_tiva->put(RMI_NUMREG, numreg); _tiva->put(RMI_NUMREG, numreg);
*rec_riva = _tiva->curr(); *rec_riva = _tiva->curr();
for (_tiva->read(); !_tiva->eof(); _tiva->next()) for (_tiva->read(); !_tiva->eof(); _tiva->next())
{ {
if (_tiva->curr() > *rec_riva) break; if (_tiva->curr() > *rec_riva) break;
long numrec = _tiva->get_int(RMI_ANNOES); long numrec = _tiva->get_int(RMI_ANNOES);
numrec += _tras_file.start('U'); numrec += _tras_file.start('U');
_tras_file.read_rec_trasfer(numrec); //Leggo il record della prima nota _tras_file.read_rec_trasfer(numrec); //Leggo il record della prima nota
_tras_file.put("A","U1",51,numrec); _tras_file.put("A","U1",51,numrec);
_tras_file.write(numrec); _tras_file.write(numrec);
} }
delete rec_riva; delete rec_riva;
} }
bool TAnn_mov::leggi_trasfer() bool TAnn_mov::leggi_trasfer()
{ {
_trasf = _tras_file.path(_dittaric); _trasf = _tras_file.path(_dittaric);
_trasf << "\\trasfer"; _trasf << "\\trasfer";
_tras_file.open(_trasf); _tras_file.open(_trasf);
if (_tras_file.exist()) if (_tras_file.exist())
{ {
if (_tras_file.read_control_rec()) if (_tras_file.read_control_rec())
_control_rec = _tras_file.record(); _control_rec = _tras_file.record();
else else
return error_box("Rilevati gravi errori negli archivi:procedura interrotta"); return error_box("Rilevati gravi errori negli archivi:procedura interrotta");
} }
else else
return error_box("Al momento non presenti trasferimenti attivi sulla ditta selezionata"); return error_box("Al momento non presenti trasferimenti attivi sulla ditta selezionata");
return TRUE; return TRUE;
} }
bool TAnn_mov::codice_registro_hnd(TMask_field& f, KEY k) bool TAnn_mov::codice_registro_hnd(TMask_field& f, KEY k)
{ {
TTable reg ("REG"); TTable reg ("REG");
TString descr,dep; TString descr,dep;
if (k == K_TAB) if (k == K_TAB)
{ {
TString codreg = f.get(); TString codreg = f.get();
char cr = codreg[0]; char cr = codreg[0];
TDate datareg (f.mask().get(F_DATAREG)); TDate datareg (f.mask().get(F_DATAREG));
int anno = date2esc(datareg); int anno = date2esc(datareg);
if (isdigit(cr)) if (isdigit(cr))
dep.format("%04d%03c", anno, cr); dep.format("%04d%03c", anno, cr);
else else
dep.format("%04d%-3c", anno, cr); dep.format("%04d%-3c", anno, cr);
reg.zero(); reg.zero();
reg.put("CODTAB", dep); reg.put("CODTAB", dep);
if (reg.read() == NOERR) if (reg.read() == NOERR)
{ {
descr = reg.get("S0"); descr = reg.get("S0");
f.mask().set(F_DESCRREG, descr); f.mask().set(F_DESCRREG, descr);
} }
} }
return TRUE; return TRUE;
} }
bool TAnn_mov::codice_causale_hnd(TMask_field& f, KEY k) bool TAnn_mov::codice_causale_hnd(TMask_field& f, KEY k)
{ {
TLocalisamfile cau (LF_CAUSALI); TLocalisamfile cau (LF_CAUSALI);
TString descr; TString descr;
if (k == K_TAB) if (k == K_TAB)
{ {
TString codcau = f.get(); TString codcau = f.get();
cau.setkey(1); cau.setkey(1);
cau.zero(); cau.zero();
cau.put("CODCAUS", codcau); cau.put("CODCAUS", codcau);
if (cau.read() == NOERR) if (cau.read() == NOERR)
{ {
descr = cau.get("DESCR"); descr = cau.get("DESCR");
f.mask().set(F_DESCRCAU, descr); f.mask().set(F_DESCRCAU, descr);
} }
} }
return TRUE; return TRUE;
} }
bool TAnn_mov::esegui_controlli() bool TAnn_mov::esegui_controlli()
{ {
TConfig conf(CONFIG_DITTA); TConfig conf(CONFIG_DITTA);
_std = conf.get("FlStTra"); _std = conf.get("FlStTra");
if (!prefhndl->exist(_dittaric)) if (!prefhndl->exist(_dittaric))
return error_box("Rilevati GRAVI ERRORI negli archivi: procedura interrotta"); return error_box("Rilevati GRAVI ERRORI negli archivi: procedura interrotta");
if (!leggi_trasfer()) if (!leggi_trasfer())
return FALSE; return FALSE;
if (!controlli()) if (!controlli())
return FALSE; return FALSE;
return TRUE; return TRUE;
} }
bool TAnn_mov::controlli() bool TAnn_mov::controlli()
{ {
if (_std == "M") if (_std == "M")
return error_box("Variazione NON POSSIBILE: trasferimento movimenti gia' iniziato"); return error_box("Variazione NON POSSIBILE: trasferimento movimenti gia' iniziato");
if (_std == "*") if (_std == "*")
{ {
warning_box("Trasferimento interamente completato: proseguire per cancellare il file"); warning_box("Trasferimento interamente completato: proseguire per cancellare il file");
fremove(_trasf); fremove(_trasf);
setta_parametri_record(""," ",FALSE); setta_parametri_record(""," ",FALSE);
return FALSE; return FALSE;
} }
return TRUE; return TRUE;
} }
void TAnn_mov::leggi_record_controllo() void TAnn_mov::leggi_record_controllo()
{ {
_tras_file.read_control_rec(); _tras_file.read_control_rec();
_control_rec = _tras_file.record(); _control_rec = _tras_file.record();
} }
void TAnn_mov::setta_parametri_record(const TString& sigla,const TString& flag,bool uselab) void TAnn_mov::setta_parametri_record(const TString& sigla,const TString& flag,bool uselab)
{ {
TConfig conf (CONFIG_DITTA); TConfig conf (CONFIG_DITTA);
conf.set("FlStTra", flag); conf.set("FlStTra", flag);
if (uselab) if (uselab)
{ {
leggi_record_controllo(); leggi_record_controllo();
_control_rec.overwrite(sigla,240); _control_rec.overwrite(sigla,240);
const int size = 256; const int size = 256;
_tras_file.write_control_rec(_control_rec, size); _tras_file.write_control_rec(_control_rec, size);
} }
} }
bool TAnn_mov::menu(MENU_TAG m) bool TAnn_mov::menu(MENU_TAG m)
{ {
if (m == BAR_ITEM(1)) if (m == BAR_ITEM(1))
return set(); return set();
return FALSE; return FALSE;
} }

110
cg/cg2802.h
View File

@ -1,55 +1,55 @@
// Annullamento movimenti da ricevere // Annullamento movimenti da ricevere
#include <mask.h> #include <mask.h>
#include <applicat.h> #include <applicat.h>
#include <relation.h> #include <relation.h>
#include <tabutil.h> #include <tabutil.h>
#include <utility.h> #include <utility.h>
#include <config.h> #include <config.h>
#include <urldefid.h> #include <urldefid.h>
#include <execp.h> #include <execp.h>
#include <prefix.h> #include <prefix.h>
#include <lffiles.h> #include <lffiles.h>
#include <nditte.h> #include <nditte.h>
#include "cg2800.h" #include "cg2800.h"
HIDDEN int date2esc(const TDate& d, int* prevesc = NULL); HIDDEN int date2esc(const TDate& d, int* prevesc = NULL);
class TAnn_mov : public TApplication class TAnn_mov : public TApplication
{ {
TIsamtempfile* _tmov,* _trmov,* _tiva; TIsamtempfile* _tmov,* _trmov,* _tiva;
TLocalisamfile* _pcon,* _clifo; TLocalisamfile* _pcon,* _clifo;
TRectype* _rec_mov; TRectype* _rec_mov;
TTransfer_file _tras_file; TTransfer_file _tras_file;
TString _trasf,_std,_uselab,_record,_nrec_file,_sigle_file,_key; TString _trasf,_std,_uselab,_record,_nrec_file,_sigle_file,_key;
long _dittaric,_numreg; long _dittaric,_numreg;
TString _control_rec; TString _control_rec;
public: public:
TString _titolo; TString _titolo;
virtual bool create(); virtual bool create();
virtual bool destroy(); virtual bool destroy();
virtual bool menu(MENU_TAG m); virtual bool menu(MENU_TAG m);
bool set(); bool set();
bool esegui_controlli(); bool esegui_controlli();
bool leggi_trasfer(); bool leggi_trasfer();
bool controlli(); bool controlli();
void leggi_record_controllo(); void leggi_record_controllo();
bool video(); bool video();
void annulla(TMask& m); void annulla(TMask& m);
bool esiste_testata_mov(TMask& m); bool esiste_testata_mov(TMask& m);
void setta_campi_maschera(TMask& m); void setta_campi_maschera(TMask& m);
void setta_parametri_record(const TString& sigla,const TString& flag,bool uselab); 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_registro_hnd (TMask_field& f, KEY k);
static bool codice_causale_hnd (TMask_field& f, KEY k); static bool codice_causale_hnd (TMask_field& f, KEY k);
TAnn_mov() {}; TAnn_mov() {};
}; };

50
cg/cg2802a.uml
View File

@ -1,25 +1,25 @@
#include "cg2800.h" #include "cg2800.h"
PAGE "" -1 -1 50 6 PAGE "" -1 -1 50 6
NUMBER F_NUMREG 6 NUMBER F_NUMREG 6
BEGIN BEGIN
PROMPT 2 1 "Numero di registrazione " PROMPT 2 1 "Numero di registrazione "
HELP "Inserire il numero di registrazione che si vuole modificare" HELP "Inserire il numero di registrazione che si vuole modificare"
FLAGS "RZ" FLAGS "RZ"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 9 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 9 2 BUTTON DLG_QUIT 9 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

172
cg/cg2802b.uml
View File

@ -1,86 +1,86 @@
#include "cg2800.h" #include "cg2800.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
BUTTON DLG_SAVEREC 10 2 BUTTON DLG_SAVEREC 10 2
BEGIN BEGIN
PROMPT -15 -1 "~Registra" PROMPT -15 -1 "~Registra"
MESSAGE EXIT,K_SAVE MESSAGE EXIT,K_SAVE
END END
BUTTON DLG_CANCEL 10 2 BUTTON DLG_CANCEL 10 2
BEGIN BEGIN
PROMPT -45 -1 "" PROMPT -45 -1 ""
MESSAGE EXIT,K_ESC MESSAGE EXIT,K_ESC
END END
BUTTON DLG_QUIT 10 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -55 -1 "" PROMPT -55 -1 ""
MESSAGE EXIT,K_QUIT MESSAGE EXIT,K_QUIT
END END
ENDPAGE ENDPAGE
PAGE "" -1 -1 78 18 PAGE "" -1 -1 78 18
NUMBER F_NUMREG 6 NUMBER F_NUMREG 6
BEGIN BEGIN
PROMPT 1 1 "Numero registrazione " PROMPT 1 1 "Numero registrazione "
HELP "Inserire il numero di registrazione che si vuole modificare" HELP "Inserire il numero di registrazione che si vuole modificare"
FLAGS "RZ" FLAGS "RZ"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
DATE F_DATAREG DATE F_DATAREG
BEGIN BEGIN
PROMPT 1 3 "Data registrazione " PROMPT 1 3 "Data registrazione "
END END
STRING F_NUMDOC 7 STRING F_NUMDOC 7
BEGIN BEGIN
PROMPT 1 5 "Numero docomento " PROMPT 1 5 "Numero docomento "
END END
DATE F_DATADOC DATE F_DATADOC
BEGIN BEGIN
PROMPT 1 6 "Data del documento " PROMPT 1 6 "Data del documento "
END END
STRING F_REGIVA 1 STRING F_REGIVA 1
BEGIN BEGIN
PROMPT 1 8 "Registro IVA " PROMPT 1 8 "Registro IVA "
END END
STRING F_DESCRREG 49 STRING F_DESCRREG 49
BEGIN BEGIN
PROMPT 28 8 "" PROMPT 28 8 ""
FLAGS "D" FLAGS "D"
END END
NUMBER F_PROTIVA 5 NUMBER F_PROTIVA 5
BEGIN BEGIN
PROMPT 1 9 "Numero protocollo iva " PROMPT 1 9 "Numero protocollo iva "
FLAGS "R" FLAGS "R"
END END
STRING F_CODCAUS 3 STRING F_CODCAUS 3
BEGIN BEGIN
PROMPT 1 11 "Codice causale " PROMPT 1 11 "Codice causale "
FLAGS "Z" FLAGS "Z"
END END
STRING F_DESCRCAU 49 STRING F_DESCRCAU 49
BEGIN BEGIN
PROMPT 28 11 "" PROMPT 28 11 ""
FLAGS "D" FLAGS "D"
END END
STRING F_DESCR 30 STRING F_DESCR 30
BEGIN BEGIN
PROMPT 1 13 "Descrizione aggiuntiva " PROMPT 1 13 "Descrizione aggiuntiva "
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

200
cg/cg2803a.uml
View File

@ -1,100 +1,100 @@
#include "cg2800.h" #include "cg2800.h"
PAGE "" -1 -1 78 20 PAGE "" -1 -1 78 20
NUMBER F_CODDITTARIC 5 NUMBER F_CODDITTARIC 5
BEGIN BEGIN
PROMPT 1 1 "Ditta ricevente " PROMPT 1 1 "Ditta ricevente "
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
INPUT CODDITTA F_CODDITTARIC INPUT CODDITTA F_CODDITTARIC
OUTPUT F_RAGSOC RAGSOC OUTPUT F_RAGSOC RAGSOC
FLAGS "RDZ" FLAGS "RDZ"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 1 2 "Ragione sociale " PROMPT 1 2 "Ragione sociale "
FLAGS "D" FLAGS "D"
END END
NUMBER F_NULTRAS 3 NUMBER F_NULTRAS 3
BEGIN BEGIN
PROMPT 1 4 "Numero ultimo invio ricevuto " PROMPT 1 4 "Numero ultimo invio ricevuto "
END END
DATE F_DATAULTRAS DATE F_DATAULTRAS
BEGIN BEGIN
PROMPT 1 6 "Data ultimo invio ricevuto " PROMPT 1 6 "Data ultimo invio ricevuto "
END END
STRING F_STD 1 STRING F_STD 1
BEGIN BEGIN
PROMPT 1 8 "Stato del trasferimento " PROMPT 1 8 "Stato del trasferimento "
END END
STRING F_USELAB 1 STRING F_USELAB 1
BEGIN BEGIN
PROMPT 34 8 "" PROMPT 34 8 ""
END END
STRING F_STATO 14 STRING F_STATO 14
BEGIN BEGIN
PROMPT 38 8 "" PROMPT 38 8 ""
END END
LIST F_AGGCAUSALI 6 LIST F_AGGCAUSALI 6
BEGIN BEGIN
PROMPT 1 10 "Aggiornamento causali gia' presenti " PROMPT 1 10 "Aggiornamento causali gia' presenti "
ITEM "N|No" ITEM "N|No"
ITEM "D|Descr." ITEM "D|Descr."
ITEM "T|Tutto" ITEM "T|Tutto"
END END
LIST F_AGGCLIFO 6 LIST F_AGGCLIFO 6
BEGIN BEGIN
PROMPT 1 11 "Aggiornamento Clienti/Fornitori gia' presenti " PROMPT 1 11 "Aggiornamento Clienti/Fornitori gia' presenti "
ITEM "N|No" ITEM "N|No"
ITEM "D|Descr." ITEM "D|Descr."
ITEM "T|Tutto" ITEM "T|Tutto"
END END
LIST F_AGGPCON 6 LIST F_AGGPCON 6
BEGIN BEGIN
PROMPT 1 12 "Aggiornamento voci Piano dei Conti gia' presenti " PROMPT 1 12 "Aggiornamento voci Piano dei Conti gia' presenti "
ITEM "N|No" ITEM "N|No"
ITEM "D|Descr." ITEM "D|Descr."
ITEM "T|Tutto" ITEM "T|Tutto"
END END
LIST F_AGGIVD 6 LIST F_AGGIVD 6
BEGIN BEGIN
PROMPT 1 13 "Aggiornamento classi Piano dei Conti " PROMPT 1 13 "Aggiornamento classi Piano dei Conti "
ITEM "N|No" ITEM "N|No"
ITEM "D|Descr." ITEM "D|Descr."
ITEM "T|Tutto" ITEM "T|Tutto"
END END
BOOLEAN F_FATTEM BOOLEAN F_FATTEM
BEGIN BEGIN
PROMPT 1 14 "Riattribuzione num. protocollo su fatture emesse " PROMPT 1 14 "Riattribuzione num. protocollo su fatture emesse "
END END
BOOLEAN F_FATTRIC BOOLEAN F_FATTRIC
BEGIN BEGIN
PROMPT 1 15 "Riattribuzione num. protocollo su fatture ricevute " PROMPT 1 15 "Riattribuzione num. protocollo su fatture ricevute "
END END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 9 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 9 2 BUTTON DLG_QUIT 9 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK