Patch level : 10.0
Files correlati : cg2.exe cg2100b.msk cg2100c.msk cg7.exe f19.* f22.* f23.* Ricompilazione Demo : [ ] Commento : git-svn-id: svn://10.65.10.50/branches/R_10_00@22303 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
6c4e5a6086
commit
91dee228ce
@ -318,13 +318,13 @@ bool TPrimanota_application::read_caus(const char* cod, int year)
|
||||
numrif.set_justify(iva == iva_acquisti ? _num_for : _num_cli);
|
||||
numrif.set_trim(!numrif.right_justified());
|
||||
activate_numrif(*m, false);
|
||||
const TCausale & c = causale();
|
||||
const TCausale& c = causale();
|
||||
|
||||
const bool av = c.reg().agenzia_viaggi();
|
||||
m->show(F_DATA74TER, av);
|
||||
if (!av) m->reset(F_DATA74TER);
|
||||
|
||||
const TRegistro & r = c.reg();
|
||||
const TRegistro& r = c.reg();
|
||||
|
||||
const bool reg_vendite = r.iva() == iva_vendite && !r.corrispettivi();
|
||||
|
||||
|
21
cg/cg2100.h
21
cg/cg2100.h
@ -18,18 +18,26 @@
|
||||
#define F_ANNOES 115
|
||||
#define F_DATACOMP 116
|
||||
#define F_ANNOIVA 117
|
||||
|
||||
#define F_CLIFO 150
|
||||
#define F_CLIENTE 151
|
||||
#define F_RAGSOCCLIENTE 152
|
||||
#define F_STATOPAIV 153
|
||||
#define F_PIVACLIENTE 154
|
||||
#define F_COFICLIENTE 155
|
||||
#define F_STATOPAIV 153
|
||||
#define F_PIVACLIENTE 154
|
||||
#define F_COFICLIENTE 155
|
||||
#define F_RICALTCLIENTE 156
|
||||
#define F_FORNITORE 161
|
||||
#define F_CONTRATTOC 157
|
||||
|
||||
#define F_FORNITORE 161
|
||||
#define F_RAGSOCFORNITORE 162
|
||||
#define F_PIVAFORNITORE 164
|
||||
#define F_COFIFORNITORE 165
|
||||
#define F_PIVAFORNITORE 164
|
||||
#define F_COFIFORNITORE 165
|
||||
#define F_RICALTFORNITORE 166
|
||||
#define F_CONTRATTOF 167
|
||||
|
||||
#define F_NOPROFIT 168
|
||||
#define F_DESNOPROFIT 169
|
||||
|
||||
#define F_GRUPPOCLIFO 170
|
||||
#define F_CONTOCLIFO 171
|
||||
#define F_DARDOC 172
|
||||
@ -43,6 +51,7 @@
|
||||
#define F_NUMRIF 125
|
||||
#define F_LINKDOC 126
|
||||
#define F_MASTRINO 127
|
||||
|
||||
#define F_PROVVISORIO 129
|
||||
#define F_OCCASEDIT 131
|
||||
#define F_SOLAIVA 132
|
||||
|
@ -7,32 +7,14 @@ ENDPAGE
|
||||
|
||||
PAGE "Testata" -1 -1 77 20
|
||||
|
||||
GROUPBOX DLG_NULL 78 3
|
||||
GROUPBOX DLG_NULL 78 4
|
||||
BEGIN
|
||||
PROMPT 1 0 "@BMovimento di sola contabilita'"
|
||||
END
|
||||
|
||||
NUMBER F_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 3 1 "Ditta "
|
||||
FLAGS "DFR"
|
||||
USE LF_NDITTE KEY 1
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
OUTPUT K_CODDITTA CODDITTA
|
||||
OUTPUT K_RAGSOC RAGSOC
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 50 52
|
||||
BEGIN
|
||||
PROMPT 17 1 "Ragione "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_NUMREG 7
|
||||
BEGIN
|
||||
PROMPT 56 3 "Operazione n. "
|
||||
PROMPT 56 1 "Operazione n. "
|
||||
FIELD NUMREG
|
||||
FLAGS "DGR"
|
||||
MESSAGE COPY,K_NUMREG
|
||||
@ -40,7 +22,7 @@ END
|
||||
|
||||
DATE F_DATAREG
|
||||
BEGIN
|
||||
PROMPT 1 3 "Data operazione "
|
||||
PROMPT 1 1 "Data operazione "
|
||||
FIELD DATAREG
|
||||
CHECKTYPE REQUIRED
|
||||
MESSAGE COPY,K_DATAREG
|
||||
@ -49,7 +31,7 @@ END
|
||||
|
||||
DATE F_DATACOMP
|
||||
BEGIN
|
||||
PROMPT 1 4 "Data di competenza "
|
||||
PROMPT 1 2 "Data di competenza "
|
||||
FIELD DATACOMP
|
||||
MESSAGE COPY,K_DATACOMP
|
||||
FLAGS "G"
|
||||
@ -57,7 +39,7 @@ END
|
||||
|
||||
NUMBER F_ANNOES 4
|
||||
BEGIN
|
||||
PROMPT 56 4 "Codice esercizio "
|
||||
PROMPT 56 2 "Codice esercizio "
|
||||
FIELD ANNOES
|
||||
MESSAGE COPY,K_ANNOES
|
||||
FLAGS "DGZ"
|
||||
@ -273,6 +255,32 @@ BEGIN
|
||||
GROUP 5 6
|
||||
END
|
||||
|
||||
STRING F_NOPROFIT 6
|
||||
BEGIN
|
||||
PROMPT 1 19 "Gest. No-profit "
|
||||
USE &NPENT
|
||||
INPUT CODTAB F_NOPROFIT
|
||||
DISPLAY "Codice@6" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_NOPROFIT CODTAB
|
||||
OUTPUT F_DESNOPROFIT S0
|
||||
CHECKTYPE NORMAL
|
||||
FIELD NOPROFIT
|
||||
END
|
||||
|
||||
STRING F_DESNOPROFIT 50 48
|
||||
BEGIN
|
||||
PROMPT 27 19 ""
|
||||
USE &NPENT KEY 2
|
||||
INPUT S0 F_DESNOPROFIT
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Codice@6" CODTAB
|
||||
COPY OUTPUT F_NOPROFIT
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Righe" -1 -1 77 20
|
||||
|
159
cg/cg2100c.uml
159
cg/cg2100c.uml
@ -19,30 +19,14 @@ BEGIN
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 3
|
||||
GROUPBOX DLG_NULL 78 6
|
||||
BEGIN
|
||||
PROMPT 1 0 "@BMovimento IVA"
|
||||
END
|
||||
|
||||
NUMBER F_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 3 1 "Ditta "
|
||||
FLAGS "DFGR"
|
||||
USE LF_NDITTE KEY 1
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 17 1 "Ragione "
|
||||
FLAGS "DG"
|
||||
END
|
||||
|
||||
NUMBER F_NUMREG 7
|
||||
BEGIN
|
||||
PROMPT 56 3 "Operazione n. "
|
||||
PROMPT 56 1 "Operazione n. "
|
||||
FIELD NUMREG
|
||||
FLAGS "DGR"
|
||||
KEY 1
|
||||
@ -51,7 +35,7 @@ END
|
||||
|
||||
DATE F_DATAREG
|
||||
BEGIN
|
||||
PROMPT 1 3 "Data operazione "
|
||||
PROMPT 2 1 "Data operazione "
|
||||
FIELD DATAREG
|
||||
MESSAGE COPY,H_DATAREG|COPY,F_ANNOIVA,7,10
|
||||
CHECKTYPE REQUIRED
|
||||
@ -59,21 +43,21 @@ END
|
||||
|
||||
NUMBER F_ANNOIVA 4
|
||||
BEGIN
|
||||
PROMPT 31 3 "Anno IVA "
|
||||
PROMPT 31 1 "Anno IVA "
|
||||
FIELD ANNOIVA
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
DATE F_DATACOMP
|
||||
BEGIN
|
||||
PROMPT 1 4 "Data competenza "
|
||||
PROMPT 2 2 "Data competenza "
|
||||
FIELD DATACOMP
|
||||
FLAGS "G"
|
||||
END
|
||||
|
||||
NUMBER F_ANNOES 4
|
||||
BEGIN
|
||||
PROMPT 31 4 "Codice esercizio "
|
||||
PROMPT 31 2 "Codice esercizio "
|
||||
FIELD ANNOES
|
||||
FLAGS "DGZ"
|
||||
MESSAGE COPY,H_ANNOES
|
||||
@ -81,14 +65,14 @@ END
|
||||
|
||||
STRING F_CODREG 3
|
||||
BEGIN
|
||||
PROMPT 56 4 "Registro IVA "
|
||||
PROMPT 56 2 "Registro IVA "
|
||||
FLAGS "DUZ"
|
||||
FIELD REG
|
||||
END
|
||||
|
||||
STRING F_CODCAUS 3
|
||||
BEGIN
|
||||
PROMPT 1 5 "Causale "
|
||||
PROMPT 2 3 "Causale "
|
||||
FLAGS "UZ"
|
||||
FIELD CODCAUS
|
||||
USE LF_CAUSALI SELECT REG!=""
|
||||
@ -108,7 +92,7 @@ END
|
||||
|
||||
STRING F_DESCRCAUS 50
|
||||
BEGIN
|
||||
PROMPT 25 5 ""
|
||||
PROMPT 25 3 ""
|
||||
USE LF_CAUSALI KEY 2 SELECT REG!=""
|
||||
INPUT DESCR F_DESCRCAUS
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
@ -123,7 +107,7 @@ END
|
||||
|
||||
DATE F_DATADOC
|
||||
BEGIN
|
||||
PROMPT 1 6 "Data documento "
|
||||
PROMPT 2 4 "Data documento "
|
||||
FIELD DATADOC
|
||||
WARNING "Inserire una data documento non superiore alla data dell'operazione"
|
||||
VALIDATE DATE_CMP_FUNC <= F_DATAREG
|
||||
@ -131,14 +115,14 @@ END
|
||||
|
||||
STRING F_TIPODOC 2
|
||||
BEGIN
|
||||
PROMPT 31 6 "Tipo documento "
|
||||
PROMPT 31 4 "Tipo documento "
|
||||
FIELD TIPODOC
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_NUMDOC 7
|
||||
BEGIN
|
||||
PROMPT 50 6 "Documento n. "
|
||||
PROMPT 50 4 "Documento n. "
|
||||
FIELD NUMDOC
|
||||
FLAGS "U"
|
||||
WARNING "La causale o il saldaconto richiedono il numero documento"
|
||||
@ -146,19 +130,19 @@ END
|
||||
|
||||
BUTTON F_LINKDOC 3 1
|
||||
BEGIN
|
||||
PROMPT 73 6 "Doc."
|
||||
PROMPT 73 4 "Doc."
|
||||
END
|
||||
|
||||
LIST F_SOLAIVA 1 3
|
||||
BEGIN
|
||||
PROMPT 1 7 "Movimento di sola IVA "
|
||||
PROMPT 1 6 "Movimento di sola IVA "
|
||||
ITEM " |No"
|
||||
ITEM "X|Si"
|
||||
END
|
||||
|
||||
LIST F_PROVVISORIO 1 22
|
||||
BEGIN
|
||||
PROMPT 31 7 "Movimento provvisorio "
|
||||
PROMPT 31 6 "Movimento provvisorio "
|
||||
FIELD PROVVIS
|
||||
ITEM " |No (movimento normale)"
|
||||
ITEM "P|Si (cancellabile)"
|
||||
@ -169,7 +153,7 @@ END
|
||||
|
||||
STRING F_DESCAGG 5
|
||||
BEGIN
|
||||
PROMPT 1 8 "Descrizione "
|
||||
PROMPT 1 7 "Descrizione "
|
||||
FLAGS "UZ"
|
||||
USE %DPN
|
||||
INPUT CODTAB F_DESCAGG
|
||||
@ -182,7 +166,7 @@ END
|
||||
|
||||
STRING F_DESCR 50
|
||||
BEGIN
|
||||
PROMPT 25 8 ""
|
||||
PROMPT 25 7 ""
|
||||
FIELD DESCR
|
||||
USE %DPN KEY 2
|
||||
INPUT S0 F_DESCR
|
||||
@ -193,13 +177,13 @@ END
|
||||
|
||||
NUMBER F_PROTIVA 6
|
||||
BEGIN
|
||||
PROMPT 1 9 "Protocollo IVA "
|
||||
PROMPT 1 8 "Protocollo IVA "
|
||||
FIELD PROTIVA
|
||||
END
|
||||
|
||||
NUMBER F_RIEPILOGO 6
|
||||
BEGIN
|
||||
PROMPT 25 9 "Riepilogo al n."
|
||||
PROMPT 25 8 "Riepilogo al n."
|
||||
FIELD UPROTIVA
|
||||
NUM_EXPR {(#F_RIEPILOGO==0)||(#F_RIEPILOGO>=#F_PROTIVA)}
|
||||
WARNING "Inserire un riepilogo non inferiore al protocollo IVA (Obbigatorio se il cliete/fornitore ha codice inserimento in allegati uguale a 3)"
|
||||
@ -207,14 +191,14 @@ END
|
||||
|
||||
LIST F_DIFFERITA 1 19
|
||||
BEGIN
|
||||
PROMPT 48 9 "Liquid. "
|
||||
PROMPT 48 8 "Liquid. "
|
||||
ITEM " |periodo in corso"
|
||||
ITEM "X|periodo precedente"
|
||||
END
|
||||
|
||||
NUMBER F_CLIENTE 6
|
||||
BEGIN
|
||||
PROMPT 1 10 "Cliente "
|
||||
PROMPT 1 9 "Cliente "
|
||||
FIELD CODCF
|
||||
GROUP 1
|
||||
USE LF_CLIFO KEY 1
|
||||
@ -239,7 +223,7 @@ END
|
||||
|
||||
NUMBER F_FORNITORE 6
|
||||
BEGIN
|
||||
PROMPT 1 10 "Fornitore "
|
||||
PROMPT 1 9 "Fornitore "
|
||||
FIELD CODCF
|
||||
GROUP 2
|
||||
USE LF_CLIFO KEY 1
|
||||
@ -264,7 +248,7 @@ END
|
||||
|
||||
STRING F_RAGSOCFORNITORE 50
|
||||
BEGIN
|
||||
PROMPT 25 10 ""
|
||||
PROMPT 25 9 ""
|
||||
GROUP 2
|
||||
USE LF_CLIFO KEY 2
|
||||
INPUT TIPOCF "F"
|
||||
@ -281,7 +265,7 @@ END
|
||||
|
||||
STRING F_RAGSOCCLIENTE 50
|
||||
BEGIN
|
||||
PROMPT 25 10 ""
|
||||
PROMPT 25 9 ""
|
||||
GROUP 1
|
||||
USE LF_CLIFO KEY 2
|
||||
INPUT TIPOCF "C"
|
||||
@ -294,7 +278,7 @@ END
|
||||
|
||||
STRING F_COFICLIENTE 16
|
||||
BEGIN
|
||||
PROMPT 1 11 "C.F. "
|
||||
PROMPT 1 10 "C.F. "
|
||||
GROUP 1
|
||||
USE LF_CLIFO KEY 4
|
||||
INPUT TIPOCF "C"
|
||||
@ -311,7 +295,7 @@ END
|
||||
|
||||
STRING F_COFIFORNITORE 16
|
||||
BEGIN
|
||||
PROMPT 1 11 "C.F. "
|
||||
PROMPT 1 10 "C.F. "
|
||||
GROUP 2
|
||||
USE LF_CLIFO KEY 4
|
||||
INPUT TIPOCF "F"
|
||||
@ -324,7 +308,7 @@ END
|
||||
|
||||
STRING F_PIVACLIENTE 12
|
||||
BEGIN
|
||||
PROMPT 26 11 "P.I. "
|
||||
PROMPT 26 10 "P.I. "
|
||||
GROUP 1
|
||||
USE LF_CLIFO KEY 5
|
||||
INPUT TIPOCF "C"
|
||||
@ -342,7 +326,7 @@ END
|
||||
|
||||
STRING F_PIVAFORNITORE 12
|
||||
BEGIN
|
||||
PROMPT 26 11 "P.I. "
|
||||
PROMPT 26 10 "P.I. "
|
||||
GROUP 2
|
||||
USE LF_CLIFO KEY 5
|
||||
INPUT TIPOCF "F"
|
||||
@ -356,7 +340,7 @@ END
|
||||
|
||||
STRING F_STATOPAIV 2
|
||||
BEGIN
|
||||
PROMPT 48 11 ""
|
||||
PROMPT 46 10 ""
|
||||
FLAGS "U"
|
||||
USE %SCE
|
||||
INPUT CODTAB F_STATOPAIV
|
||||
@ -368,7 +352,7 @@ END
|
||||
|
||||
STRING F_RICALTCLIENTE 30 18
|
||||
BEGIN
|
||||
PROMPT 54 11 "Alt. "
|
||||
PROMPT 52 10 "Alt. "
|
||||
USE LF_CLIFO KEY 6
|
||||
INPUT TIPOCF "C"
|
||||
INPUT RICALT F_RICALTCLIENTE
|
||||
@ -386,7 +370,7 @@ END
|
||||
|
||||
STRING F_RICALTFORNITORE 30 18
|
||||
BEGIN
|
||||
PROMPT 54 11 "Alt. "
|
||||
PROMPT 52 10 "Alt. "
|
||||
USE LF_CLIFO KEY 6
|
||||
INPUT TIPOCF "F"
|
||||
INPUT RICALT F_RICALTFORNITORE
|
||||
@ -402,17 +386,15 @@ BEGIN
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
|
||||
|
||||
BUTTON F_OCCASEDIT 56
|
||||
BEGIN
|
||||
PROMPT 1 11 "Dati anagrafici del cliente o fornitore occasionale"
|
||||
PROMPT 1 10 "Dati anagrafici del cliente o fornitore occasionale"
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
STRING F_CODPAG 4
|
||||
BEGIN
|
||||
PROMPT 1 12 "Codice Pagamento "
|
||||
PROMPT 1 11 "Codice Pagamento "
|
||||
FIELD CODPAG
|
||||
FLAGS "U#"
|
||||
USE %CPG
|
||||
@ -428,7 +410,7 @@ END
|
||||
|
||||
STRING F_DESPAG 50
|
||||
BEGIN
|
||||
PROMPT 27 12 ""
|
||||
PROMPT 25 11 ""
|
||||
USE %CPG KEY 2
|
||||
INPUT S0 F_DESPAG
|
||||
DISPLAY "Descrizione@60" S0
|
||||
@ -437,6 +419,54 @@ BEGIN
|
||||
ADD RUN ba3 -6
|
||||
END
|
||||
|
||||
STRING F_CONTRATTOC 18
|
||||
BEGIN
|
||||
PROMPT 1 12 "Contratto "
|
||||
FLAGS "U"
|
||||
FIELD CONTRATTO
|
||||
USE &CON
|
||||
INPUT CODTAB[1,1] "C"
|
||||
INPUT CODTAB[2,7] F_CLIENTE SELECT
|
||||
INPUT CODTAB[8,25] F_CONTRATTOC
|
||||
DISPLAY "Contratto" CODTAB[8,]
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_CONTRATTOC CODTAB[8,]
|
||||
CHECKTYPE NORMAL
|
||||
HELP "Inserire un codice contratto di importo non inferiore a 3000 Euro"
|
||||
ADD RUN cg7 -2 &CON
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 40 12 "rilevante per Legge 122 del 30-07-2010"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_CONTRATTOF 18
|
||||
BEGIN
|
||||
PROMPT 1 12 "Contratto "
|
||||
FLAGS "U"
|
||||
FIELD CONTRATTO
|
||||
USE &CON
|
||||
INPUT CODTAB[1,1] "F"
|
||||
INPUT CODTAB[2,7] F_FORNITORE SELECT
|
||||
INPUT CODTAB[8,25] F_CONTRATTOF
|
||||
DISPLAY "Contratto" CODTAB[8,]
|
||||
COPY DISPLAY F_CONTRATTOC
|
||||
OUTPUT F_CONTRATTOF CODTAB[8,]
|
||||
CHECKTYPE NORMAL
|
||||
HELP "Inserire un codice contratto di importo non inferiore a 3000 Euro"
|
||||
ADD RUN cg7 -2 &CON
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 40 12 "rilevante per Legge 122 del 30-07-2010"
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING SK_VALUTA 3
|
||||
BEGIN
|
||||
PROMPT 1 13 "Valuta "
|
||||
@ -614,6 +644,31 @@ BEGIN
|
||||
DRIVENBY F_VALUTAINTRA
|
||||
END
|
||||
|
||||
STRING F_NOPROFIT 6
|
||||
BEGIN
|
||||
PROMPT 1 19 "Gest. No-profit "
|
||||
USE &NPENT
|
||||
INPUT CODTAB F_NOPROFIT
|
||||
DISPLAY "Codice@6" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_NOPROFIT CODTAB
|
||||
OUTPUT F_DESNOPROFIT S0
|
||||
CHECKTYPE NORMAL
|
||||
FIELD NOPROFIT
|
||||
END
|
||||
|
||||
STRING F_DESNOPROFIT 50 48
|
||||
BEGIN
|
||||
PROMPT 27 19 ""
|
||||
USE &NPENT KEY 2
|
||||
INPUT S0 F_DESNOPROFIT
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Codice@6" CODTAB
|
||||
COPY OUTPUT F_NOPROFIT
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
|
||||
BUTTON F_ADJUST_PRORATA 40
|
||||
BEGIN
|
||||
PROMPT 1 -1 "Corre~zione automatica righe contabili"
|
||||
|
17
cg/cg7.cpp
17
cg/cg7.cpp
@ -1,26 +1,17 @@
|
||||
#include <xvt.h>
|
||||
#include <checks.h>
|
||||
|
||||
#include "cg7.h"
|
||||
|
||||
#define usage "Error - usage : %s -{0|1}"
|
||||
|
||||
int main(int argc,char** argv)
|
||||
|
||||
{
|
||||
int rt = -1 ;
|
||||
const int r = (argc > 1) ? atoi(&argv[1][1]) : -1;
|
||||
|
||||
switch (r)
|
||||
{
|
||||
case 0:
|
||||
rt = cg7100(argc, argv) ; break; //gestore stampe generico modulo FE (stampe particolari CG)
|
||||
break;
|
||||
case 1:
|
||||
rt = cg7200(argc, argv) ; break; //lista fatture per imponibile
|
||||
break;
|
||||
default:
|
||||
error_box(usage, argv[0]) ; break;
|
||||
case 0: cg7100(argc, argv); break; // gestore stampe generico modulo FE (stampe particolari CG)
|
||||
case 1: cg7200(argc, argv); break; // lista fatture per imponibile
|
||||
default: cg7300(argc, argv); break; // gestore tabelle di modulo CG
|
||||
}
|
||||
return rt;
|
||||
return 0;
|
||||
}
|
||||
|
3
cg/cg7.h
3
cg/cg7.h
@ -1,2 +1,3 @@
|
||||
int cg7100(int argc, char* argv[]);
|
||||
int cg7200(int argc, char* argv[]);
|
||||
int cg7200(int argc, char* argv[]);
|
||||
int cg7300(int argc, char* argv[]);
|
||||
|
@ -10,10 +10,11 @@
|
||||
#include <mov.h>
|
||||
#include <occas.h>
|
||||
#include <rmoviva.h>
|
||||
#include "../ba/ba8500.h"
|
||||
|
||||
|
||||
#include "cglib01.h"
|
||||
#include "cg7200a.h"
|
||||
#include "../ba/ba8500.h"
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// Recordset
|
||||
@ -87,7 +88,6 @@ protected:
|
||||
public:
|
||||
void elabora();
|
||||
TPrint_x_imponibile_mask();
|
||||
virtual ~TPrint_x_imponibile_mask() {}
|
||||
};
|
||||
|
||||
bool TPrint_x_imponibile_mask::convalida_clifo(const char tipocf, const long codcf)
|
||||
@ -103,9 +103,9 @@ bool TPrint_x_imponibile_mask::convalida_clifo(const char tipocf, const long cod
|
||||
//solo per clifo esteri (alleg = 5)
|
||||
if (alleg_clifo == 5)
|
||||
{
|
||||
if (tipocf == 'F') //tutti i fornitori esteri vanno esclusi (importazioni)
|
||||
if (tipocf == 'F') // tutti i fornitori esteri vanno esclusi (importazioni)
|
||||
return false;
|
||||
else //vanno esclusi solo i clienti esteri di stati pirata
|
||||
else // vanno esclusi solo i clienti esteri di stati pirata
|
||||
{
|
||||
const TString& stato_clifo = rec_clifo.get(CLI_STATOCF);
|
||||
const TRectype& rec_sta = cache().get("%STA", stato_clifo);
|
||||
@ -131,7 +131,6 @@ bool TPrint_x_imponibile_mask::aggiungi_movimento(const TRectype& rec, TPrint_x_
|
||||
if (tipodoc == "SC" && rec.get_date(MOV_DATAREG) <= TDate(30, 4, 2011))
|
||||
return false;
|
||||
|
||||
|
||||
const TString& keytok = rec.get(MOV_NUMREG);
|
||||
TRecord_array righe_iva(keytok, LF_RMOVIVA);
|
||||
|
||||
@ -202,7 +201,7 @@ bool TPrint_x_imponibile_mask::aggiungi_movimento(const TRectype& rec, TPrint_x_
|
||||
output_recordset.set("Codcf", codcf);
|
||||
TString80 ragsoc;
|
||||
TString16 piva, cofi;
|
||||
const TString16 ocfpi = rec.get(MOV_OCFPI); //è uno stupido cliente occasionale?
|
||||
const TString16 ocfpi = rec.get(MOV_OCFPI); // è uno stupido cliente occasionale?
|
||||
if (ocfpi.full())
|
||||
{
|
||||
const TRectype& rec_occas = cache().get(LF_OCCAS, ocfpi);
|
||||
|
70
cg/cg7300.cpp
Executable file
70
cg/cg7300.cpp
Executable file
@ -0,0 +1,70 @@
|
||||
// gestione tabelle di modulo e-commerce
|
||||
|
||||
#include <automask.h>
|
||||
#include <modtbapp.h>
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// Maschera generica di gestione tabelle di modulo CG
|
||||
///////////////////////////////////////////////////////////
|
||||
|
||||
class TCG_table_mask : public TAutomask
|
||||
{
|
||||
protected:
|
||||
virtual bool on_field_event(TOperable_field &o, TField_event e, long jolly);
|
||||
|
||||
public:
|
||||
TCG_table_mask(const char* name) : TAutomask(name) {}
|
||||
};
|
||||
|
||||
bool TCG_table_mask::on_field_event(TOperable_field &o, TField_event e, long jolly)
|
||||
{
|
||||
return true;
|
||||
}
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// Applicazione generica di gestione tabelle e-commerce
|
||||
///////////////////////////////////////////////////////////
|
||||
|
||||
// applicazione per la gestione delle tabelle di lavanderia
|
||||
class TCG_table_app : public TTable_module_application
|
||||
{
|
||||
protected: // TRelation_application
|
||||
virtual TMask* user_create_mask();
|
||||
virtual int write(const TMask& m);
|
||||
virtual int rewrite(const TMask& m);
|
||||
|
||||
public:
|
||||
};
|
||||
|
||||
// Ridefinire questo metodo per le eventuali maschere speciali
|
||||
// che abbiano controlli speciali da effettuare nella on_field_event
|
||||
TMask* TCG_table_app::user_create_mask()
|
||||
{
|
||||
const TString4 name = get_relation()->file(0).name();
|
||||
if (name == "???")
|
||||
return new TCG_table_mask("???");
|
||||
// Le maschere normali sono gia' gestite dalla TTable_module_application
|
||||
return TTable_module_application::user_create_mask();
|
||||
}
|
||||
|
||||
|
||||
// Ridefinizione del metodo write
|
||||
int TCG_table_app::write(const TMask& m)
|
||||
{
|
||||
const TString4 name = get_relation()->file(0).name();
|
||||
return TTable_module_application::write(m);
|
||||
}
|
||||
|
||||
// Ridefinizione del metodo rewrite
|
||||
int TCG_table_app::rewrite(const TMask& m)
|
||||
{
|
||||
const TString4 name = get_relation()->file(0).name();
|
||||
return TTable_module_application::rewrite(m);
|
||||
}
|
||||
|
||||
int cg7300(int argc, char* argv[])
|
||||
{
|
||||
TCG_table_app a;
|
||||
a.run(argc, argv, TR("Tabella modulo Contabilità"));
|
||||
return 0;
|
||||
}
|
@ -952,7 +952,7 @@ bool TBill::find()
|
||||
|
||||
bool TBill::read(TRectype &r)
|
||||
{
|
||||
bool ok = FALSE;
|
||||
bool ok = false;
|
||||
|
||||
if (tipo() <= ' ' || sottoconto() <= 0)
|
||||
{
|
||||
@ -961,7 +961,7 @@ bool TBill::read(TRectype &r)
|
||||
if (!pcon.empty())
|
||||
{
|
||||
r = pcon;
|
||||
ok = TRUE;
|
||||
ok = true;
|
||||
}
|
||||
}
|
||||
if (ok)
|
||||
|
2
cg/cgtbcon.h
Executable file
2
cg/cgtbcon.h
Executable file
@ -0,0 +1,2 @@
|
||||
#define F_CODICE 101
|
||||
#define F_DESCRIZIONE 102
|
125
cg/cgtbcon.uml
Executable file
125
cg/cgtbcon.uml
Executable file
@ -0,0 +1,125 @@
|
||||
#include "cgtbcon.h"
|
||||
|
||||
TOOLBAR "topbar" 0 0 0 2
|
||||
#include <relapbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Contratti per invio dati rilevanti" 0 2 0 0
|
||||
|
||||
GROUPBOX DLG_NULL 78 5
|
||||
BEGIN
|
||||
PROMPT 1 1 "@bEstremi"
|
||||
END
|
||||
|
||||
LIST F_TIPOCF 1 9
|
||||
BEGIN
|
||||
PROMPT 2 2 ""
|
||||
ITEM "F|Fornitore"
|
||||
ITEM "C|Cliente"
|
||||
FIELD CODTAB[1,1]
|
||||
KEY 1
|
||||
END
|
||||
|
||||
NUMBER F_CODCF 6
|
||||
BEGIN
|
||||
PROMPT 14 2 ""
|
||||
USE LF_CLIFO
|
||||
INPUT TIPOCF F_TIPOCF SELECT
|
||||
INPUT CODCF F_CODCF
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
OUTPUT F_CODCF CODCF
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
CHECKTYPE REQUIRED
|
||||
FIELD CODTAB[2,7]
|
||||
KEY 1
|
||||
MESSAGE EMPTY ENABLE,F_RAGSOC
|
||||
MESSAGE DISABLE,F_RAGSOC
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 24 2 ""
|
||||
USE LF_CLIFO KEY 2
|
||||
INPUT TIPOCF F_TIPOCF SELECT
|
||||
INPUT RAGSOC F_RAGSOC
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
DISPLAY "Codice" CODCF
|
||||
COPY OUTPUT F_CODCF
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_CONTRATTO 18
|
||||
BEGIN
|
||||
PROMPT 2 3 "Codice contratto "
|
||||
FLAGS "U"
|
||||
FIELD CODTAB[8,25]
|
||||
USE &CON
|
||||
JOIN LF_CLIFO INTO TIPOCF=CODTAB[1,1] CODCF=CODTAB[2,7]
|
||||
INPUT CODTAB[1,1] F_TIPOCF SELECT
|
||||
INPUT CODTAB[2,7] F_CODCF
|
||||
INPUT CODTAB[8,25] F_CONTRATTO
|
||||
DISPLAY "Contratto" CODTAB[8,]
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Tipo" CODTAB[1,1]
|
||||
DISPLAY "Cli/For" LF_CLIFO->CODCF
|
||||
DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
|
||||
OUTPUT F_CODCF CODTAB[2,7]
|
||||
OUTPUT F_CONTRATTO CODTAB[8,]
|
||||
OUTPUT F_DESCRIZIONE S0
|
||||
CHECKTYPE REQUIRED
|
||||
KEY 1
|
||||
END
|
||||
|
||||
STRING F_DESCRIZIONE 50
|
||||
BEGIN
|
||||
PROMPT 2 4 "Descrizione "
|
||||
FIELD S0
|
||||
USE &CON KEY 2 SELECT (CODTAB[1,1]==#F_TIPOCF)&&(STR(CODTAB[2,7]=#F_CODCF))
|
||||
JOIN LF_CLIFO INTO TIPOCF=CODTAB[1,1] CODCF=CODTAB[2,7]
|
||||
INPUT S0 F_DESCRIZIONE
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Contratto" CODTAB[8,]
|
||||
DISPLAY "Tipo" CODTAB[1,1]
|
||||
DISPLAY "Cli/For" LF_CLIFO->CODCF
|
||||
DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
|
||||
CHECKTYPE REQUIRED
|
||||
COPY OUTPUT F_CONTRATTO
|
||||
KEY 2
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 5
|
||||
BEGIN
|
||||
PROMPT 1 6 "@bDurata ed importo"
|
||||
END
|
||||
|
||||
DATA F_INIZIO
|
||||
BEGIN
|
||||
PROMPT 2 7 "Inizio "
|
||||
HELP "Data inizio contratto"
|
||||
FIELD D0
|
||||
END
|
||||
|
||||
DATA F_FINE
|
||||
BEGIN
|
||||
PROMPT 24 7 "Fine "
|
||||
HELP "Data fine contratto"
|
||||
FIELD D1
|
||||
VALIDATE DATE_CMP_FUNC >= #F_INIZIO
|
||||
WARNING "La data finale deve essere successiva a quella iniziale"
|
||||
END
|
||||
|
||||
CURRENCY F_IMPORTO 15
|
||||
BEGIN
|
||||
PROMPT 2 8 "Totale "
|
||||
HELP "Inserire un importo non inferiore a 3000 Euro"
|
||||
FIELD R0
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 2 9 "Importo non inferiore a 3000 Euro (Legge n.122 del 30-07-2010)"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
@ -1,3 +1,3 @@
|
||||
19
|
||||
0
|
||||
$pcon|||153|0|Piano dei conti|NCON||
|
||||
$pcon|||154|0|Piano dei conti|NCON||
|
||||
|
@ -1,5 +1,5 @@
|
||||
19
|
||||
27
|
||||
28
|
||||
GRUPPO|2|3|0|Codice del gruppo
|
||||
CONTO|2|3|0|Codice del conto
|
||||
SOTTOCONTO|3|6|0|Codice del sottoconto
|
||||
@ -27,6 +27,7 @@ CMSNEEDED|8|1|0|Codice cdc/commessa obbligatorio in prima nota
|
||||
CODCMS|1|20|0|Codice cdc/commessa predefinito
|
||||
FASCMS|1|10|0|Codice fase predefinito
|
||||
ANALITICA|8|1|0|Flag per trasferimento in analitica
|
||||
SERVIZI|8|1|0|Flag Servizi/Merce per invio dati rilevanti
|
||||
2
|
||||
GRUPPO+CONTO+SOTTOCONTO|
|
||||
UPPER(DESCR)|X
|
||||
|
@ -1,3 +1,3 @@
|
||||
22
|
||||
0
|
||||
$alleg|0|0|224|7|Progressivi allegati IVA|NCF||
|
||||
$alleg|0|0|94|0|Comunicazione dati rilevanti|NCF||
|
||||
|
36
cg/f22.trr
36
cg/f22.trr
@ -1,23 +1,19 @@
|
||||
22
|
||||
18
|
||||
ANNO|9|4|0|Anno IVA
|
||||
13
|
||||
ANNO|2|4|0|Anno IVA
|
||||
CODATT|1|5|0|Codice attivita'
|
||||
PROGR|3|7|0|Progressivo
|
||||
TIPOCF|1|1|0|Tipo <C>liente <F>ornitore
|
||||
CODCF|3|6|0|Codice
|
||||
IMMESSO|8|1|0|Immesso / calcolato
|
||||
IMPESC|4|18|2|Imponibile esercizio in corso
|
||||
IVAESC|4|18|2|IVA esercizio in corso
|
||||
NIESC|4|18|2|Non imponibili esercizio in corso
|
||||
E8ESC|4|18|2|Esenti art.8 esercizio in corso
|
||||
NALLESC|4|18|2|Non in allegato esercizio in corso
|
||||
NDOCESC|2|4|0|Numero documenti esercizio in corso
|
||||
IMPESP|4|18|2|Imponibilie esercizio precedente
|
||||
IVAESP|4|18|2|IVA esercizio precedente
|
||||
NIESP|4|18|2|Non imponibili esercizio precedente
|
||||
E8ESP|4|18|2|Esenti art.8 esercizio precedente
|
||||
NALLESP|4|18|2|Non in allegato esercizio precedente
|
||||
NDOCESP|2|4|0|Numero documenti esercizio precedente
|
||||
PROG101102|4|18|2|Progressivo mod.101/102
|
||||
2
|
||||
ANNO+CODATT+TIPOCF+CODCF+IMMESSO|
|
||||
ANNO+TIPOCF+CODCF|X
|
||||
CODCF|3|6|0|Codice Cliente/Fornitore
|
||||
OCFPI|1|16|0|Codice occasionale
|
||||
NUMREG|3|7|0|Numero di registrazione originale
|
||||
IGNORA|8|1|0|Riga da ignorare
|
||||
DATAREG|5|8|0|Data registrazione
|
||||
CORRISP|4|18|3|Corrispettivo
|
||||
IMPOSTA|4|18|3|Imposta
|
||||
TIPIMP|2|1|0|Tipo imponibile
|
||||
TIPOPE|2|1|0|Tipo operazione
|
||||
3
|
||||
ANNO+CODATT+PROGR|
|
||||
ANNO+CODATT+TIPOCF+CODCF+OCFPI+PROGR|
|
||||
NUMREG|X
|
||||
|
@ -1,3 +1,3 @@
|
||||
23
|
||||
0
|
||||
$mov|0|0|376|0|Movimenti di prima nota|||
|
||||
$mov|0|0|400|0|Movimenti di prima nota|||
|
||||
|
@ -1,5 +1,5 @@
|
||||
23
|
||||
47
|
||||
49
|
||||
ANNOES|9|4|0|Codice esercizio
|
||||
NUMREG|3|7|0|Numero di operazione
|
||||
DATAREG|5|8|0|Data operazione
|
||||
@ -28,7 +28,7 @@ TOTDOC|4|18|3|Totale documento
|
||||
TOTDOCVAL|4|18|3|Totale documento in valuta
|
||||
RITFIS|4|18|3|Ritenute fiscali
|
||||
RITSOC|4|18|3|Ritenute sociali
|
||||
PROVVIS|1|1|0|Tipo movimento (" " Normale, "P" Provvisorio cancellabile, "C" Provvisorio da cepiti)
|
||||
PROVVIS|1|1|0|Tipo movimento (" " Normale, "P" Provvisorio cancellabile, "C" Provvisorio cespiti)
|
||||
CODVALI|1|3|0|Codice valuta intra-comunitaria
|
||||
CAMBIOI|4|15|6|Cambio della valuta intra-comunitaria
|
||||
CORRLIRE|4|18|3|Corrispettivo in lire intra-comunitario
|
||||
@ -47,6 +47,8 @@ DCODNUM|1|4|0|Documento originale CODNUM
|
||||
DNDOC|3|7|0|Documento originale NDOC
|
||||
DATAINC|5|8|0|Data di incasso per liquidazione differita
|
||||
LIQDIFF|8|1|0|Flag di movimento a liquidazione differita
|
||||
CONTRATTO|1|18|0|Contratto con importo > 3000 Euro
|
||||
NOPROFIT|1|6|0|Tipo di ente NO-PROFIT
|
||||
4
|
||||
NUMREG|
|
||||
DATAREG+NUMREG|X
|
||||
|
Loading…
x
Reference in New Issue
Block a user