Corretta fromattazione

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

View File

@ -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

View File

@ -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

View File

@ -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

File diff suppressed because it is too large Load Diff

View File

@ -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

View File

@ -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

View File

@ -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

File diff suppressed because it is too large Load Diff

View File

@ -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

View File

@ -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

File diff suppressed because it is too large Load Diff

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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;
}

View File

@ -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() {};
};

View File

@ -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

View File

@ -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;
}

View File

@ -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() {};
};

View File

@ -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

View File

@ -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

View File

@ -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