From 91dee228ce68afaaabc2c919209e5871494855de Mon Sep 17 00:00:00 2001 From: guy Date: Tue, 21 Jun 2011 15:01:30 +0000 Subject: [PATCH] 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 --- cg/cg2100.cpp | 4 +- cg/cg2100.h | 21 +++++-- cg/cg2100b.uml | 54 ++++++++++------- cg/cg2100c.uml | 159 +++++++++++++++++++++++++++++++++---------------- cg/cg7.cpp | 17 ++---- cg/cg7.h | 3 +- cg/cg7200.cpp | 11 ++-- cg/cg7300.cpp | 70 ++++++++++++++++++++++ cg/cglib01.cpp | 4 +- cg/cgtbcon.h | 2 + cg/cgtbcon.uml | 125 ++++++++++++++++++++++++++++++++++++++ cg/f19.dir | 2 +- cg/f19.trr | 3 +- cg/f22.dir | 2 +- cg/f22.trr | 36 +++++------ cg/f23.dir | 2 +- cg/f23.trr | 6 +- 17 files changed, 390 insertions(+), 131 deletions(-) create mode 100755 cg/cg7300.cpp create mode 100755 cg/cgtbcon.h create mode 100755 cg/cgtbcon.uml diff --git a/cg/cg2100.cpp b/cg/cg2100.cpp index 1490a6565..c68669ed6 100755 --- a/cg/cg2100.cpp +++ b/cg/cg2100.cpp @@ -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(); diff --git a/cg/cg2100.h b/cg/cg2100.h index 80d10b601..50dae8cb3 100755 --- a/cg/cg2100.h +++ b/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 diff --git a/cg/cg2100b.uml b/cg/cg2100b.uml index 917f9d1a2..565ac48d3 100755 --- a/cg/cg2100b.uml +++ b/cg/cg2100b.uml @@ -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 diff --git a/cg/cg2100c.uml b/cg/cg2100c.uml index fc60bc0b5..9316162aa 100755 --- a/cg/cg2100c.uml +++ b/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" diff --git a/cg/cg7.cpp b/cg/cg7.cpp index 11939c5cb..c7b2a93eb 100755 --- a/cg/cg7.cpp +++ b/cg/cg7.cpp @@ -1,26 +1,17 @@ #include -#include #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; } diff --git a/cg/cg7.h b/cg/cg7.h index 82a4de366..157afb51c 100755 --- a/cg/cg7.h +++ b/cg/cg7.h @@ -1,2 +1,3 @@ int cg7100(int argc, char* argv[]); -int cg7200(int argc, char* argv[]); \ No newline at end of file +int cg7200(int argc, char* argv[]); +int cg7300(int argc, char* argv[]); diff --git a/cg/cg7200.cpp b/cg/cg7200.cpp index 423e5a4ff..1d58b6981 100755 --- a/cg/cg7200.cpp +++ b/cg/cg7200.cpp @@ -10,10 +10,11 @@ #include #include #include -#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); diff --git a/cg/cg7300.cpp b/cg/cg7300.cpp new file mode 100755 index 000000000..cfc6de80f --- /dev/null +++ b/cg/cg7300.cpp @@ -0,0 +1,70 @@ +// gestione tabelle di modulo e-commerce + +#include +#include + +/////////////////////////////////////////////////////////// +// 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; +} diff --git a/cg/cglib01.cpp b/cg/cglib01.cpp index fb06701ec..4367eec4b 100755 --- a/cg/cglib01.cpp +++ b/cg/cglib01.cpp @@ -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) diff --git a/cg/cgtbcon.h b/cg/cgtbcon.h new file mode 100755 index 000000000..587b9d797 --- /dev/null +++ b/cg/cgtbcon.h @@ -0,0 +1,2 @@ +#define F_CODICE 101 +#define F_DESCRIZIONE 102 diff --git a/cg/cgtbcon.uml b/cg/cgtbcon.uml new file mode 100755 index 000000000..825d8696c --- /dev/null +++ b/cg/cgtbcon.uml @@ -0,0 +1,125 @@ +#include "cgtbcon.h" + +TOOLBAR "topbar" 0 0 0 2 +#include +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 diff --git a/cg/f19.dir b/cg/f19.dir index 886cdc3f2..4f8cb9262 100755 --- a/cg/f19.dir +++ b/cg/f19.dir @@ -1,3 +1,3 @@ 19 0 -$pcon|||153|0|Piano dei conti|NCON|| +$pcon|||154|0|Piano dei conti|NCON|| diff --git a/cg/f19.trr b/cg/f19.trr index ac151f4cb..ead6baa8e 100755 --- a/cg/f19.trr +++ b/cg/f19.trr @@ -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 diff --git a/cg/f22.dir b/cg/f22.dir index baf64c96a..5eb29e4b2 100755 --- a/cg/f22.dir +++ b/cg/f22.dir @@ -1,3 +1,3 @@ 22 0 -$alleg|0|0|224|7|Progressivi allegati IVA|NCF|| +$alleg|0|0|94|0|Comunicazione dati rilevanti|NCF|| diff --git a/cg/f22.trr b/cg/f22.trr index a778b2bbb..383bcc764 100755 --- a/cg/f22.trr +++ b/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 liente 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 diff --git a/cg/f23.dir b/cg/f23.dir index c049349ca..856223cdc 100755 --- a/cg/f23.dir +++ b/cg/f23.dir @@ -1,3 +1,3 @@ 23 0 -$mov|0|0|376|0|Movimenti di prima nota||| +$mov|0|0|400|0|Movimenti di prima nota||| diff --git a/cg/f23.trr b/cg/f23.trr index d4321669d..4ec23a2e9 100755 --- a/cg/f23.trr +++ b/cg/f23.trr @@ -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