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

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

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_STATOPAIV     153
-#define F_PIVACLIENTE 154
+#define F_PIVACLIENTE   154
-#define F_COFICLIENTE 155
+#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_PIVAFORNITORE   164
-#define F_COFIFORNITORE 165
+#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

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

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"

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:
+  case  0: cg7100(argc, argv); break;    // gestore stampe generico modulo FE (stampe particolari CG)
-    rt = cg7100(argc, argv) ; break;    //gestore stampe generico modulo FE (stampe particolari CG)
+  case  1: cg7200(argc, argv); break;    // lista fatture per imponibile
-    break;
+  default: cg7300(argc, argv); break;    // gestore tabelle di modulo CG
-  case 1:
-    rt = cg7200(argc, argv) ; break;    //lista fatture per imponibile
-    break;
-  default:
-    error_box(usage, argv[0]) ; break;
   }
-  return rt;
+  return 0;
 }

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[]);

cg/cg7200.cpp

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

cg/cg7300.cpp

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

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)

cg/cgtbcon.h

@@ -0,0 +1,2 @@
+#define F_CODICE       101
+#define F_DESCRIZIONE  102

cg/cgtbcon.uml

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

cg/f19.dir

@@ -1,3 +1,3 @@
 19
 0
-$pcon|||153|0|Piano dei conti|NCON||
+$pcon|||154|0|Piano dei conti|NCON||

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

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

cg/f22.trr

@@ -1,23 +1,19 @@
 22
-18
+13
-ANNO|9|4|0|Anno IVA
+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
+CODCF|3|6|0|Codice Cliente/Fornitore
-IMMESSO|8|1|0|Immesso / calcolato
+OCFPI|1|16|0|Codice occasionale
-IMPESC|4|18|2|Imponibile esercizio in corso
+NUMREG|3|7|0|Numero di registrazione originale
-IVAESC|4|18|2|IVA esercizio in corso
+IGNORA|8|1|0|Riga da ignorare
-NIESC|4|18|2|Non imponibili esercizio in corso
+DATAREG|5|8|0|Data registrazione
-E8ESC|4|18|2|Esenti art.8 esercizio in corso
+CORRISP|4|18|3|Corrispettivo
-NALLESC|4|18|2|Non in allegato esercizio in corso
+IMPOSTA|4|18|3|Imposta
-NDOCESC|2|4|0|Numero documenti esercizio in corso
+TIPIMP|2|1|0|Tipo imponibile
-IMPESP|4|18|2|Imponibilie esercizio precedente
+TIPOPE|2|1|0|Tipo operazione
-IVAESP|4|18|2|IVA esercizio precedente
+3
-NIESP|4|18|2|Non imponibili esercizio precedente
+ANNO+CODATT+PROGR| 
-E8ESP|4|18|2|Esenti art.8 esercizio precedente
+ANNO+CODATT+TIPOCF+CODCF+OCFPI+PROGR| 
-NALLESP|4|18|2|Non in allegato esercizio precedente
+NUMREG|X
-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

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

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