Patch level : 10.0 290

Files correlati     :  
Commento            :

Quadro VE versione 1

git-svn-id: svn://10.65.10.50/branches/R_10_00@23322 c028cbd2-c16b-5b4b-a496-9718f37d4682

src/cg/cg4301.cpp

@@ -1178,7 +1178,7 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt)
           const TString& iva_vpn = _iva->get("S10");
           if (iva_vpn.full())
           {
-            const real imponibile_orig = _rmoviva->get(RMI_IMPONIBILE);
+            const real impZonibile_orig = _rmoviva->get(RMI_IMPONIBILE);
             cessioni_cd1_1s += imponibile_orig;
        	    cessioni_cd1_1 += imponibile_orig;
           }
@@ -3872,6 +3872,7 @@ void TLiquidazione_app::write_liq(int month, const char* codatts)
   
   real credito_utilizzabile = ZERO;
 	const bool utilizza_credito_autorizzato = lia.get_bool("B6");
+  real credito_autorizzato_F24; 
 
   if (month < 13) // va bene anche se differita sommando deltam (che e' 0 normalmente)
   {
@@ -3900,14 +3901,12 @@ void TLiquidazione_app::write_liq(int month, const char* codatts)
 				credito_utilizzabile += credito_autorizzato(month + deltam);
 
 			credito_utilizzabile -= cred_util_F24; 
+		  credito_autorizzato_F24 = lim.get_real("R20");
 			if (utilizza_credito_autorizzato)
-			{
+				credito_utilizzabile += credito_autorizzato_F24; 
-	      const real cred_aut_F24 = lim.get_real("R20");
+//			risultato += credito_autorizzato_F24;
-
+//			res_debt += credito_autorizzato_F24;
-				credito_utilizzabile += cred_aut_F24; 
+			
-			}
-
-
       if (credito_utilizzabile < ZERO)
 				credito_utilizzabile = ZERO;
       if (risul > ZERO)
@@ -4249,7 +4248,7 @@ void TLiquidazione_app::write_liq(int month, const char* codatts)
     round_imposta(fdiffinc_iva_acq);
     
     res_cred  = iva_acq + versamenti + vers_int + cred_prec - cred_trasf + acc_dec + credito_utilizzato_iva + crediti_speciali + fdiffinc_iva_acq;
-    res_debt  = iva_vend + rimborsi + debt_precd + imposta_non_versata + fdiffinc_iva;  
+    res_debt  = iva_vend + rimborsi + debt_precd + imposta_non_versata + fdiffinc_iva + credito_autorizzato_F24;  
     
     /* Obsolescenza pura nel 2014
     if (atoi(_year) < 1998) // Non vale piu' dal 1998 in poi; iva_acq e' gia' ok e cosi' res_cred.

src/cg/cg4304.cpp

@@ -2689,6 +2689,8 @@ void TLiquidazione_app::set_grand_2000(_DescrItem& d, int &rw)
 			if (credito_utilizzabile < ZERO)
 				credito_utilizzabile = ZERO;
 
+			set_row(rw++,  FR("@11g@bPROSPETTO COMPENSAZIONI@r"));
+			rw++;
 			set_row(rw++,FR("@11gCredito compensabile da liquidazione precedente@58g%r"), &credito_utilizzabile);
 			if (credito_autorizzato_F24 > ZERO)
 			{
@@ -2707,12 +2709,11 @@ void TLiquidazione_app::set_grand_2000(_DescrItem& d, int &rw)
 			const real credito_utilizzato_annuale_F24 = TLiquidazione_app::credito_utilizzato_F24(13);
 			const real credito_autorizzato_annuale_F24 = credito_autorizzato(13);
 
+			set_row(rw++,  FR("@11g@bPROSPETTO COMPENSAZIONI@r"));
+			rw++;
 			set_row(rw++,FR("@11gCredito compensabile da liquidazione precedente@58g%r"), &credito_utilizzabile);
-			if (credito_autorizzato_annuale_F24 > ZERO)
+			credito_utilizzabile += credito_autorizzato_annuale_F24;
-			{
+			set_row(rw++,FR("@11gCredito IVA autorizzato in F24@58g%r"), &credito_autorizzato_annuale_F24);   
-				credito_utilizzabile += credito_autorizzato_annuale_F24;
-				set_row(rw++,FR("@11gCredito IVA autorizzato in F24@58g%r"), &credito_autorizzato_annuale_F24);   
-			}
 			set_row(rw++, FR("@11gCredito IVA compensabile detratto@75g%r"), &credito_utilizzato_annuale_IVA);          
 			credito_utilizzabile -= credito_utilizzato_annuale_IVA; 
 			set_row(rw++, FR("@11gCredito IVA compensabile detratto in F24@75g%r"), &credito_utilizzato_annuale_F24);          

src/cg/cg7400a.h

@@ -1,5 +1,15 @@
-#define F_YEAR        101
+#define F_YEAR					201
-#define F_CODDITTA    102  
+#define F_DITTE				  202  
-#define F_RAGSOC      103
+#define F_REPORTS   		203
-#define F_REPORT	   	104
+
-#define F_DESREPORT		105
+#define DLG_ALLFIRMS		251
+#define DLG_ALLREPORTS	252
+
+#define S_CHKDITTA			101
+#define S_CODDITTA			102
+#define S_RAGSOC				103
+
+#define S_CHKREPORT			101
+#define S_CODEREPORT		102
+#define S_DESCREPORT		103
+#define S_NAMEREPORT		104

src/cg/cg7400a.uml

@@ -16,27 +16,25 @@ PAGE "Quadro VC" 0 0 0 0
 
 NUMBER F_YEAR 4
 BEGIN
-  PROMPT 3 3 "Anno   "
+  PROMPT 3 2 "Anno   "
   FLAGS "A"
 END
           
-NUMBER F_CODDITTA 5
+SPREADSHEET F_DITTE 66 8
 BEGIN
-  PROMPT 3 6 "Ditta  "
+  PROMPT 7 4 " "
-  FLAGS "B"
+  ITEM ""
-  FIELD #CODDITTA
+  ITEM "Codice"
+  ITEM "Ragione Sociale@50"
 END
 
-STRING F_RAGSOC 50
+SPREADSHEET F_REPORTS 83 10
 BEGIN
-  PROMPT 20 6 ""
+  PROMPT 1 14 ""
-  FLAGS "B"
+  ITEM ""
-END
+  ITEM "Codice"
-
+  ITEM "Descrizione@60"
-STRING F_REPORT 2
+  ITEM "Nome@6"
-BEGIN
-  PROMPT 3 9 "Report "
-  FLAGS "B"
 END
 
 STRING F_DESREPORT 70
@@ -48,3 +46,76 @@ END
 ENDPAGE
 
 ENDMASK
+
+PAGE "Ditte" -1 -1 78 6
+
+BOOLEAN S_CHKDITTA
+BEGIN
+	PROMPT 3 2 "Selezionata"
+END
+
+NUMBER S_CODDITTA
+  PROMPT 3 4 "Ditta  "
+END
+
+STRING S_RAGSOC 50
+BEGIN
+  PROMPT 20 4 ""
+END
+
+ENDPAGE
+
+TOOLBAR "topbar" 0 0 0 2
+
+BUTTON DLG_OK 2 2
+BEGIN
+  PROMPT 1 1 ""
+END
+
+BUTTON DLG_CANCEL 10 2
+BEGIN
+  PROMPT 2 1 ""
+END
+
+ENDPAGE
+PAGE "Reports" -1 -1 78 6
+
+BOOLEAN S_CHKREPORT
+BEGIN
+	PROMPT 3 2 "Selezionata"
+END
+
+STRING S_CODEREPORT 2
+BEGIN
+  PROMPT 3 4 "Codice "
+
+END
+
+STRING S_NAMEREPORT 7
+BEGIN
+  PROMPT 3 6 "Report "
+END
+
+STRING S_DESCREPORT 60
+BEGIN
+  PROMPT 20 6 ""
+  FLAGS "D"
+END
+
+ENDPAGE
+
+TOOLBAR "topbar" 0 0 0 2
+
+BUTTON DLG_OK 2 2
+BEGIN
+  PROMPT 1 1 ""
+END
+
+BUTTON DLG_CANCEL 10 2
+BEGIN
+  PROMPT 2 1 ""
+END
+
+ENDPAGE
+
+ENDMASK

src/cg/cg7401.cpp

@@ -10,11 +10,8 @@
 
 #include "cg7400a.h"
 
-TQuadro_IVA_selfirm_mask::TQuadro_IVA_selfirm_mask(const char * maskname)
+TQuadro_IVA_mask::TQuadro_IVA_mask(const char * maskname)
-												 : TAutomask(maskname),
+							   : TAutomask(maskname), _last_row_ditte(0), _last_row_reports(0)
-												   _ditte(-1, -1, -4, -4, TR("Selezione Ditte"), HR("@1|Codice|Ragione Sociale@50")),
-													 _reports(-1, -1, -4, -4, TR("Selezione Reports"), HR("@1|Codice|Report@7|Nome@70")),
-													 _last_row_ditte(0), _last_row_reports(0)
 {
   const TDate oggi(TODAY);                    
 
@@ -23,224 +20,163 @@ TQuadro_IVA_selfirm_mask::TQuadro_IVA_selfirm_mask(const char * maskname)
   build_report_sheet();                             
 }
 
-long TQuadro_IVA_selfirm_mask::get_ditta()
+long TQuadro_IVA_mask::get_ditta()
 {
-	for (int i =_last_row_ditte + 1; i <_ditte.items(); i++)
+	TSheet_field & sf = sfield(F_DITTE);
+
+	for (int i =_last_row_ditte + 1; i <sf.items(); i++)
 	{
-		if (_ditte.checked(i))
+		TToken_string & row = sf.row(i);
+		const TString4 select = row.get(sf.cid2index(S_CHKDITTA));
+
+		if (select == "X")
 		{
 			_last_row_ditte = i;
-			return _ditte.row(i).get_long(1);
+			return row.get_long(sf.cid2index(S_CODDITTA));
 		}
 	}
 	_last_row_ditte = -1;
 	return 0L;
 }
 
-const char * TQuadro_IVA_selfirm_mask::get_report()
+static TProgram_report __stop;
+
+TProgram_report * TQuadro_IVA_mask::get_report()
 {
-	for (int i =_last_row_reports + 1; i <_reports.items(); i++)
+	TSheet_field & sf = sfield(F_REPORTS);
+
+	for (int i =_last_row_reports + 1; i <sf.items(); i++)
 	{
-		if (_reports.checked(i))
+		TToken_string & row = sf.row(i);
+		const TString4 select = row.get(sf.cid2index(S_CHKREPORT));
+
+		if (select == "X")
 		{
 			_last_row_reports = i;
-			return _reports.row(i).get(2);
+			return & get_report(i);
 		}
 	}
 	_last_row_reports = -1;
-	return "";
+	return &__stop;
 }
 
-void TQuadro_IVA_selfirm_mask::build_ditte_sheet()
+void TQuadro_IVA_mask::build_ditte_sheet()
 {
-  _ditte.destroy();
+	TSheet_field & sf = sfield(F_DITTE);
+
+	sf.destroy();
   TPointer_array firms; 
 
 	TPrefix::firms(firms);
-  reset(F_CODDITTA);
-  reset(F_RAGSOC);
   FOR_EACH_ARRAY_ITEM(firms, i, obj)
   {
-    TToken_string* d = new TToken_string(63);
     const long codditta = firms.get_long(i);
 		TString key; key.format("%05ld%04d", codditta, _year);
-
 		const bool good = cache().get("%LIA", key).full();
+	  TToken_string & row = sf.row(sf.items());
+		const int pos = sf.items() - 1;
 
-		d->add(good && empty(F_CODDITTA)? "X" : "");
+		row.add(good ? "X" : "");
-    d->add(codditta);
+    row.add(codditta);
-    d->add(cache().get(LF_NDITTE, codditta, NDT_RAGSOC));
+    row.add(cache().get(LF_NDITTE, codditta, NDT_RAGSOC));
-    const long pos = _ditte.add(d);  
 
-		if (good)
+		if (!good)
-    {
+      sf.disable_row(pos);
-			if (empty(F_CODDITTA))
-			{
-		    set(F_CODDITTA, d->get(1));
-				set(F_RAGSOC,   d->get(2));
-			}
-    }
-    else
-      _ditte.disable_row(pos);
   }
+	sf.force_update();
 }
 
-void TQuadro_IVA_selfirm_mask::build_report_sheet()
+void TQuadro_IVA_mask::build_report_sheet()
 {
   TToken_string d(80);
 	const char quadro = source_file()[3];
+	TSheet_field & sf = sfield(F_REPORTS);
 
-	_reports.destroy();
+	sf.destroy();
-
 	switch (quadro)
 	{
 		case '4':
-		  _reports.add("|1|cg7400b|Prova");
+			{
+			  TToken_string & row = sf.row(sf.items());	row.add("|1|Prova|cg7400b");
+			}
 			break;
 		case '5' :
-		  _reports.add("|1|cg7500b|Stampa esportazioni");
+			{
-		  _reports.add("|2|cg7500c|Stampa cessioni Intracomunitarie");
+			  TToken_string & row1 = sf.row(sf.items()); row1.add("|1|Stampa esportazioni|cg7500b");
-		  _reports.add("|3|cg7500d|Stampa cessioni verso San Marino");
+				TToken_string & row2 = sf.row(sf.items()); row2.add("|2|Stampa cessioni Intracomunitarie|cg7500c");
-		  _reports.add("|4|cg7500e|Stampa operazioni assimilate");
+				TToken_string & row3 = sf.row(sf.items()); row3.add("|3|Stampa cessioni verso San Marino|cg7500d");
-		  _reports.add("|5|cg7500f|Stampa operazioni non imp. in seguito a dich. d'intenti");
+				TToken_string & row4 = sf.row(sf.items()); row4.add("|4|Stampa operazioni assimilate|cg7500e");
-		  _reports.add("|6|cg7500g|Stampa altre operazioni non imponibili");
+				TToken_string & row5 = sf.row(sf.items()); row5.add("|5|Stampa operazioni non imp. in seguito a dich. d'intenti|cg7500f");
-		  _reports.add("|7|cg7500h|Stampa esenti art. 10");
+				TToken_string & row6 = sf.row(sf.items()); row6.add("|6|Stampa altre operazioni non imponibili|cg7500g");
-		  _reports.add("|8|cg7500i|Stampa operazioni non sogg. ai sensi art.7 da uno a septies");
+				TToken_string & row7 = sf.row(sf.items()); row7.add("|7|Stampa esenti art. 10|cg7500h");
-		  _reports.add("|9|cg7500l|Stampa operazioni reverse charge");
+				TToken_string & row8 = sf.row(sf.items()); row8.add("|8|Stampa operazioni non sogg. ai sensi art.7 da uno a septies|cg7500i");
-		  _reports.add("|10|cg7500m|Stampa operazioni terremotati");
+				TToken_string & row9 = sf.row(sf.items()); row9.add("|9|Stampa operazioni reverse charge|cg7500l");
-		  _reports.add("|11|cg7500n|Stampa operazioni effettuate con PA ai sensi art.17");
+				TToken_string & row10 = sf.row(sf.items()); row10.add("|10|Stampa operazioni terremotati|cg7500m");
+				TToken_string & row11 = sf.row(sf.items()); row11.add("|11|Stampa operazioni effettuate con PA ai sensi art.17|cg7500n");
+			}
 			break;
 		default :
 			break;
 	}
+	__stop.load("STOP");
+	const int items = sf.items();
+
+	for (int i = 0; i < items; i++)
+	{
+		TToken_string & row =  sf.row(i);
+		TProgram_report *rep = new TProgram_report;
+		TFilename repname(row.get(sf.cid2index(S_NAMEREPORT)));
+
+		repname.ext("rep");
+		if (repname.exist() || repname.custom_path())
+			rep->load(repname);
+		_reports.add(rep);
+	}
 }
 
-bool TQuadro_IVA_selfirm_mask::select_button()
+bool TQuadro_IVA_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
-{     
-  if (_ditte.run() == K_ENTER)
-  {
-    TToken_string& row = _ditte.row(_ditte.selected()); 
-    set(F_CODDITTA, row.get(1));
-    set(F_RAGSOC, row.get(2));
-    return true;        
-  }
-  return false;
-}
-
-bool TQuadro_IVA_selfirm_mask::select_report()
-{     
-  if (_reports.run() == K_ENTER)
-  {
-    TToken_string& row = _reports.row(_ditte.selected()); 
-    set(F_REPORT, row.get(1));
-    set(F_DESREPORT, row.get(3));
-    return true;        
-  }
-  return false;
-}
-
-bool TQuadro_IVA_selfirm_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
 {                                                  
   switch (o.dlg())
   {
-    case F_CODDITTA:
-      if (e == fe_button)
-        return select_button();
-      
-      if (e == fe_modify)
-      {
-        bool found = false;
-        TString16 ditta = o.get();
-
-        for (int i = 0; i < _ditte.items(); i++)
-        { 
-          TToken_string& row = _ditte.row(i);
-					
-          if (ditta == row.get(1))
-          { 
-						row.add("X",0);
-						_ditte.check(i);
-            if (_ditte.row_enabled(i))
-            {
-              set(F_CODDITTA, row.get(1));
-              set(F_RAGSOC, row.get(2));
-              found = true;
-            }
-            else 
-            { 
-              warning_box(FR("Non sono definiti i parametri liquidazione per la ditta %ld"),
-                          atol(ditta));
-              o.reset(); 
-            }
-            break;
-          }
-        }
-        if (!found)
-          o.reset();
-        return found;
-      }
-      break;
-    case F_RAGSOC:
-      if (e == fe_button)
-        return select_button();
-      if (e == fe_modify)
-      {
-        bool found = false;
-        TString8 ditta = o.get();
-        for (int i = 0; i < _ditte.items(); i++)
-        { 
-          TToken_string& row = _ditte.row(i);
-          TString ts(row.get(1));
-          if (ts.find(ditta) != -1)
-          { 
-            if (_ditte.row_enabled(i))
-            {
-              set(F_CODDITTA, row.get(0));
-              set(F_RAGSOC, row.get(1));
-              found = true;
-              break;
-            }
-          }
-        }
-        if (!found) o.reset(); 
-        return found;  
-      }
-      break;
     case F_YEAR:
       if (e == fe_modify)
       {
         _year = atoi(o.get());
         build_ditte_sheet();  
-        set(F_CODDITTA, "");  
-        set(F_RAGSOC, "");  
       }
       break;
-    case F_REPORT:
+		case DLG_ALLFIRMS:
-      if (e == fe_button)
+			if (e == fe_button)
-        return select_report();
+			{
-      if (e == fe_modify)
+				TSheet_field & sf = sfield(F_DITTE);
-      {
+				bool check = false;
-        bool found = false;
+				int rows = sf.items();
-        const int codice = atoi(o.get()) - 1;
 
-        if (codice >= 0 && codice < _reports.items())
+				for (int i = 0; !check && i < rows; i++)
-        { 
+					check |= (sf.row(i).get(sf.cid2index(S_CHKDITTA))[0] == 'X') ;
-          TToken_string& row = _reports.row(codice);
+
-					
+				for (int i = 0; i < rows; i++)
-					row.add("X",0);
+					sf.row(i).add(check ? " " : "X", sf.cid2index(S_CHKDITTA));
-					_reports.check(codice);
+				sf.force_update();
-          set(F_REPORT, row.get(1));
-          set(F_DESREPORT, row.get(3));
-          found = true;
-				}
-				else
-          o.reset();
-	      return found;
 			}
-			return true;
 			break;
-     default:
+		case DLG_ALLREPORTS:
-     break;
+			if (e == fe_button)
+			{
+				TSheet_field & sf = sfield(F_REPORTS);
+				bool check = false;
+				int rows = sf.items();
+
+				for (int i = 0; !check && i < rows; i++)
+					check |= (sf.row(i).get(sf.cid2index(S_CHKREPORT))[0] == 'X');
+
+				for (int i = 0; i < rows; i++)
+					sf.row(i).add(check ? " " : "X", sf.cid2index(S_CHKREPORT));
+				sf.force_update();
+			}
+			break;
+    default:
+			break;
   }
   return true;
 } 
@@ -326,22 +262,25 @@ void TQuadro_IVA_app::print()
 			book.add(rep);
 		}
 		
-		TFilename repname;
 
 		_mask->restart_reports();
-		while ((repname = _mask->get_report()).full())
+		TProgram_report * rep = _mask->get_report();
+		TFilename repname = rep->filename();
+
+		repname.ext("");
+		while (repname != "STOP")
 		{
-			repname.ext("rep");
+			if (rep->filename().full())
-			if (repname.exist() || repname.custom_path())
 			{
-				TProgram_report rep;
+				TISAM_recordset * set = (TISAM_recordset *) rep->recordset();
-				
-				rep.load(repname);
-				TRecordset * set = rep.recordset();
 		
 				set->set_var("#ANNO", year);
-				book.add(rep);
+				book.add(*rep);
+				set->unfreeze();
 			}
+			rep = _mask->get_report();
+			repname = rep->filename();
+			repname.ext("");
 		}
 	}
 	book.print_or_preview();
@@ -352,7 +291,7 @@ void TQuadro_IVA_app::main_loop()
   const long oldditta = get_firm();
 	KEY k;
 	
-	_mask = new TQuadro_IVA_selfirm_mask(_name);
+	_mask = new TQuadro_IVA_mask(_name);
 
   while ((k = _mask->run()) != K_QUIT)
 		print();

src/cg/cg7401.h

@@ -5,17 +5,14 @@
 #include <reputils.h>
 #include <sheet.h>
 
-class TQuadro_IVA_selfirm_mask : public TAutomask
+class TQuadro_IVA_mask : public TAutomask
 {
-  TArray_sheet	_ditte;
-  TArray_sheet	_reports;
   int						_year;
 	long					_last_row_ditte;
 	long					_last_row_reports;
+	TArray				_reports;
   
 protected:
-  bool select_button();
-  bool select_report();
   void build_ditte_sheet();
 	void build_report_sheet();
 
@@ -24,11 +21,12 @@ public:
 	void restart_ditte() { _last_row_ditte = -1;}
 	void restart_reports() { _last_row_reports = -1;}
 	long get_ditta();
-	const char * get_report();
+	TProgram_report * get_report();
+	TProgram_report & get_report(const int code) const { return (TProgram_report &) _reports[code];}
   virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
 
-	TQuadro_IVA_selfirm_mask(const char * mask_name);
+	TQuadro_IVA_mask(const char * mask_name);
-	~TQuadro_IVA_selfirm_mask() {}
+	~TQuadro_IVA_mask() {}
 };
 
 class TQuadro_IVA_recordset : public TISAM_recordset
@@ -56,7 +54,7 @@ public:
   
 class TQuadro_IVA_app : public TSkeleton_application
 {
-	TQuadro_IVA_selfirm_mask * _mask;
+	TQuadro_IVA_mask * _mask;
 	TFilename _name;
 	const TString20 _print_title;
 
@@ -68,6 +66,7 @@ protected:
 public:
 	virtual TQuadro_IVA_recordset * app_recordset(const char* use, const int year) pure;
   virtual bool firm_change_enabled() const { return false; }
+	TQuadro_IVA_mask * mask() const { return _mask; }
 
 	TQuadro_IVA_app(const char * print_title, const char * name)
 		            : _print_title(print_title), _name(name) {}

src/cg/cg7500.cpp

@@ -7,19 +7,52 @@
 #include "cgpim.h"
 
 #include "cg7500a.h"
+#include "rmoviva.h"
+
+#define	REP_EXPORT			1
+#define	REP_INTRA  			2
+#define	REP_SANMARINO		3
+#define	REP_OPASSIMIL		4
+#define	REP_DICHINT			5
+#define	REP_ALTREOP			6
+#define	REP_ART10				7
+#define	REP_ART7				8
+#define	REP_REVCHARGE		9
+#define	REP_TERREM			10
+#define	REP_PAART17			11
 
 enum tipo_sospensione { nessuna, normale, vol_affari, liquidazione };
 
 class TQuadro_VE_recordset : public TQuadro_IVA_recordset
 {
+	TQuadro_IVA_mask * _mask;
+
 protected:
-		virtual void load(const long year);
+	const real TQuadro_VE_recordset::evaluate_recordset(const int code, const int year);
+	virtual void load(const long year);
 
 public:
-  TQuadro_VE_recordset(const char* use, const int year) : TQuadro_IVA_recordset(use, year) {load(year);}
+	TQuadro_VE_recordset(TQuadro_IVA_mask * mask, const char* use, const int year) : TQuadro_IVA_recordset(use, year), _mask(mask) {load(year);}
 	virtual ~TQuadro_VE_recordset() {}
 };
 
+const real TQuadro_VE_recordset::evaluate_recordset(const int code, const int year)
+{
+	real	val;
+	TProgram_report & rep = _mask->get_report(code - 1);
+	TISAM_recordset * set = (TISAM_recordset *) rep.recordset();
+		
+	set->set_var("#ANNO", format("%d", year));
+
+	if (set->items() > 0)
+		for (set->move_first(); !set->eof(); set->move_next())
+			val += set->get(RMI_IMPONIBILE).as_real();
+
+	set->freeze();
+	return val;
+}
+
+
 void TQuadro_VE_recordset::load(const long year)
 {
 	TAssoc_array imponibile_agricolo;
@@ -108,26 +141,6 @@ void TQuadro_VE_recordset::load(const long year)
 									field = (TString *) imposta.objptr(aliquota);
 									add_value(field, iva);
 								}
-
-								const int tipo_plafond = ivar.get_int("S3");
-								const bool plafond = tipo_plafond > 0;
-
-								if (plafond)
-								{
-									switch (tipo_plafond)
-									{
-									case 1:
-									case 2:
-										add_value(TString8("V30.2"), imp);
-										break;
-									case 3:
-										add_value(TString8("V30.5"), imp);
-										break;
-									default:
-										// San Marino ??? VE30.4
-										break;
-									}
-								}
 							}
 							break;
 						case acq_simp:
@@ -172,30 +185,57 @@ void TQuadro_VE_recordset::load(const long year)
 
           };
 
-					const bool non_imponibile = ivar.get("S1") == "NI";
+					const TString4 tipo_aliquota = ivar.get("S1");
-					const TString tipo_iva11_ven = ivar.get("S2");
+					const TString4 tipo_iva11_ven = ivar.get("S2");
+					const bool non_imponibile = (tipo_aliquota == "NI");
+					const bool esente = (tipo_aliquota == "ES");
+					const bool reverse = (tipo_aliquota >= "31" && tipo_aliquota >= "38");
+					const bool terremotati = tipo_aliquota >= "25";
 
 					if (non_imponibile)
 					{
-						if (false)
+						if (tipo_iva11_ven == "21")
-						{
+							add_value("VE31.1", imp);
-							/// add_value("VE31.1", imp); non imponibile dich intenti ???
-						}
 						else
-							add_value(TString8("VE32.1"), imp);
+							if (tipo_iva11_ven == "22")
+								add_value(TString8("VE32.1"), imp);
 					}
-					if (tipo_iva11_ven.starts_with("B"))
+					if (esente)
-						add_value(TString8("VE33.1"), imp);
+					{
-					// VE34.1 non imp art 7 7 sexties lo abbiamo ??
+						if ((tipo_iva11_ven == "B1") ||
-					// VE35.2 9 reverse charge causale -> movimenti ??
+								(tipo_iva11_ven == "B2") ||
-					// VE36.1 terremotati lo abbiamo ??
+								(tipo_iva11_ven == "B3") ||
-					// VE37.1 2 iva sospensione 
+								(tipo_iva11_ven == "B4") ||
-					// VE38.1 art 17 ter pubblica amministrazione movimenti ??
+								(tipo_iva11_ven == "B5"))
-					// VE39 iva sospensione incassata
+							add_value(TString8("VE33.1"), imp);
-				}        
+						else
+							if ((tipo_iva11_ven == "B6"))
+								add_value(TString8("VE34.1"), imp);
+					}
+
+					if (reverse)
+					{
+						const int tipo_reverse = atoi(tipo_iva11_ven);
+						
+						switch (tipo_reverse)
+						{
+							case 31 : add_value(TString8("VE35.2"), imp); break;
+							case 32 : add_value(TString8("VE35.3"), imp); break;
+							case 33 : add_value(TString8("VE35.4"), imp); break;
+							case 34 : add_value(TString8("VE35.5"), imp); break;
+							case 35 : add_value(TString8("VE35.6"), imp); break;
+							case 36 : add_value(TString8("VE35.7"), imp); break;
+							case 37 : add_value(TString8("VE35.8"), imp); break;
+							case 38 : add_value(TString8("VE35.9"), imp); break;
+							default : break;
+						}
+					}
+					if (terremotati)
+						add_value(TString8("VE36.1"), imp);
+				} 
 			}
 		}
-	}
+}
 
 	query = "USE LIM\n FROM CODTAB==";
 
@@ -210,14 +250,35 @@ void TQuadro_VE_recordset::load(const long year)
 
 	}
 
-	if (!good)
+	real val = evaluate_recordset(REP_EXPORT, year);
-    warning_box(FR("Risultati liquidazione non presenti o da ricalcolare per l'anno %d."), year);
+	
+	good |= val > ZERO;
+	add_value(TString8("VE30.2"), val);
+	val = evaluate_recordset(REP_INTRA, year);
+	good |= val > ZERO;
+	add_value(TString8("VE30.3"), val);
+	val = evaluate_recordset(REP_SANMARINO, year);
+	good |= val > ZERO;
+	add_value(TString8("VE30.4"), val);
+	val = evaluate_recordset(REP_OPASSIMIL, year);
+	good |= val > ZERO;
+	add_value(TString8("VE30.5"), val);
+
+// VE37.1 2 iva sospensione 
+
+	val = evaluate_recordset(REP_PAART17, year); // liquidazione
+	good |= val > ZERO;
+	add_value(TString8("VE38.1"), val);
+
+// VE39.1 iva sospensione incassata
+// if (!good)
+//     warning_box(FR("Risultati liquidazione non presenti o da ricalcolare per l'anno %d."), year);
 } 
 
 class TQuadro_VE_app : public TQuadro_IVA_app
 {
 public:
-	virtual TQuadro_IVA_recordset * app_recordset(const char* use, const int year) { return new TQuadro_VE_recordset(use, year); }
+	virtual TQuadro_IVA_recordset * app_recordset(const char* use, const int year) { return new TQuadro_VE_recordset(mask(), use, year); }
 	TQuadro_VE_app() : TQuadro_IVA_app("Stampa Quadro VE", "cg7500a") {}
 	virtual ~TQuadro_VE_app() {}
 

src/cg/cg7500a.h

@@ -1,6 +1,12 @@
-#define F_YEAR        101
+#define F_YEAR        201
-#define F_CODDITTA    102  
+#define F_DITTE       202  
-#define F_RAGSOC      103
+#define F_REPORTS	   	203
-#define F_REPORT	  	104
-#define F_DESREPORT		105
 
+#define S_CHKDITTA    101
+#define S_CODDITTA    102
+#define S_RAGSOC      103
+
+#define S_CHKREPORT   101
+#define S_CODEREPORT  102
+#define S_DESCREPORT  103
+#define S_NAMEREPORT  104

src/cg/cg7500a.uml

@@ -1,7 +1,19 @@
-#include "cg7500a.h"
+#include "cg7400a.h"
  
 TOOLBAR "Toolbar" 0 0 0 2
 
+BUTTON DLG_ALLFIRMS 2 2
+BEGIN
+  PROMPT 2 1 "Tutte le ditte"
+  PICTURE TOOL_CHECK
+END
+
+BUTTON DLG_ALLREPORTS 2 2
+BEGIN
+  PROMPT 2 1 "Tutte le stampe"
+  PICTURE TOOL_SETPRINT
+END
+
 #include <printbar.h>
 
 ENDPAGE
@@ -10,33 +22,105 @@ PAGE "Quadro VE" 0 0 0 0
 
 NUMBER F_YEAR 4
 BEGIN
-  PROMPT 3 3 "Anno   "
+  PROMPT 3 2 "Anno   "
   FLAGS "A"
 END
           
-NUMBER F_CODDITTA 5
+SPREADSHEET F_DITTE 66 8
 BEGIN
-  PROMPT 3 6 "Ditta  "
+  PROMPT 7 4 " "
-  FLAGS "B"
+  ITEM ""
-  FIELD #CODDITTA
+  ITEM "Codice"
+  ITEM "Ragione Sociale@50"
 END
 
-STRING F_RAGSOC 50
+SPREADSHEET F_REPORTS 83 10
 BEGIN
-  PROMPT 20 6 ""
+  PROMPT 1 14 ""
-  FLAGS "B"
+  ITEM ""
-END
+  ITEM "Codice"
-
+  ITEM "Descrizione@60"
-STRING F_REPORT 2
+  ITEM "Nome@6"
-BEGIN
+END
-  PROMPT 3 9 "Report "
+
-  FLAGS "B"
+ENDPAGE
-END
+
-
+ENDMASK
-STRING F_DESREPORT 70
+
-BEGIN
+PAGE "Ditte" -1 -1 78 6
-  PROMPT 8 11 ""
+
-  FLAGS "D"
+BOOLEAN S_CHKDITTA
+BEGIN
+	PROMPT 3 2 "Selezionata"
+END
+
+NUMBER S_CODDITTA 5
+BEGIN
+  PROMPT 3 4 "Ditta  "
+  FLAGS "D"
+END
+
+STRING S_RAGSOC 50
+BEGIN
+  PROMPT 20 4 ""
+  FLAGS "D"
+END
+
+ENDPAGE
+
+TOOLBAR "topbar" 0 0 0 2
+
+BUTTON DLG_OK 2 2
+BEGIN
+  PROMPT 1 1 ""
+END
+
+BUTTON DLG_CANCEL 10 2
+BEGIN
+  PROMPT 2 1 ""
+END
+
+ENDPAGE
+
+ENDMASK
+
+PAGE "Reports" -1 -1 78 6
+
+BOOLEAN S_CHKREPORT
+BEGIN
+	PROMPT 3 2 "Selezionata"
+END
+
+STRING S_CODEREPORT 2
+BEGIN
+  PROMPT 3 4 "Codice "
+  FLAGS "D"
+END
+
+STRING S_NAMEREPORT 7
+BEGIN
+  PROMPT 3 6 "Report "
+  FLAGS "D"
+END
+
+STRING S_DESCREPORT 60
+BEGIN
+  PROMPT 20 6 ""
+  FLAGS "D"
+END
+
+ENDPAGE
+
+TOOLBAR "topbar" 0 0 0 2
+
+BUTTON DLG_OK 2 2
+BEGIN
+  PROMPT 1 1 ""
+END
+
+BUTTON DLG_CANCEL 10 2
+BEGIN
+  PROMPT 2 1 ""
 END
 
 ENDPAGE

src/cg/cg7500b.rep

@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8" ?>
-<report name="cg7500b" orientation="2" lpi="6">
+<report name="cg7500b" orientation="1" lpi="6">
  <description>Dichiarazione IVA Quadro VE - Esportazioni</description>
  <font face="Arial" size="8" />
  <section type="Head" pattern="1">
-  <field x="130" type="Stringa" align="right" width="30" pattern="1">
+  <field x="88" type="Stringa" align="right" width="30" pattern="1">
    <source>"Pag. " +#PAGE</source>
   </field>
   <field x="2" y="0.5" type="Testo" align="right" width="7" pattern="1" text="Num.Reg" />
@@ -16,12 +16,9 @@
   <field x="38" y="0.5" type="Testo" width="7" pattern="1" text="N. Doc." />
   <field x="46" y="0.5" type="Testo" width="4" pattern="1" text="Caus" />
   <field x="51" y="0.5" type="Testo" width="50" pattern="1" text="Cliente Ragione Sociale" />
-  <field x="102" y="0.5" type="Testo" align="right" width="18" pattern="1" text="Imponibile" />
+  <field x="92" y="0.5" type="Testo" align="right" width="18" pattern="1" text="Imponibile" />
-  <field x="121" y="0.5" type="Testo" width="4" pattern="1" text="C.Iva" />
+  <field x="111" y="0.5" type="Testo" width="4" pattern="1" text="C.Iva" />
-  <field x="126" y="0.5" type="Stringa" hidden="1" width="10" pattern="1">
+  <field border="2" x="2" y="1.5" type="Linea" width="117" height="0" pattern="1" />
-   <source>201@.S3</source>
-  </field>
-  <field border="2" x="2" y="1.5" type="Linea" width="125" height="0" pattern="1" />
  </section>
  <section type="Head" level="1" pattern="1">
   <prescript description="H1 PRESCRIPT">MESSAGE RESET,F1</prescript>
@@ -29,10 +26,10 @@
    <font face="Arial" bold="1" size="8" />
    <source>#SYSTEM.RAGSOC</source>
   </field>
-  <field x="130" type="Stringa" align="right" width="30" pattern="1">
+  <field x="90" type="Stringa" align="right" width="30" pattern="1">
    <source>"Data di Stampa: " +#SYSTEM.DATE</source>
   </field>
-  <field x="2" y="1" type="Stringa" align="center" width="125" pattern="1">
+  <field border="1" x="2" y="1" type="Stringa" align="center" width="117" pattern="1">
    <source>"ELENCO FATTURE ESPORTAZIONE  - " +#ANNO</source>
   </field>
  </section>
@@ -82,9 +79,9 @@
  </section>
  <section type="Foot" pattern="1" />
  <section type="Foot" level="1" pattern="1">
-  <field border="2" x="2" y="0.5" type="Linea" width="125" height="0" pattern="1" />
+  <field border="2" x="2" y="0.5" type="Linea" width="117" height="0" pattern="1" />
-  <field x="50" y="1" type="Testo" align="right" width="50" pattern="1" text="TOTALE GENERALE:" />
+  <field x="40" y="1" type="Testo" align="right" width="50" pattern="1" text="TOTALE GENERALE:" />
-  <field x="102" y="1" type="Valuta" align="right" width="18" id="100" pattern="1" text="###.###.###,@@" />
+  <field x="92" y="1" type="Valuta" align="right" width="18" id="100" pattern="1" text="###.###.###,@@" />
  </section>
  <section type="Foot" level="2" height="1" pattern="1">
   <field x="2" type="Numero" align="right" link="23.NUMREG" width="7" pattern="1">
@@ -108,16 +105,16 @@
   <field x="46" type="Stringa" width="4" pattern="1">
    <source>#B1.35</source>
   </field>
-  <field x="51" type="Stringa" width="50" pattern="1">
+  <field x="51" type="Stringa" width="40" pattern="1">
    <source>#B1.40</source>
   </field>
-  <field x="121" type="Stringa" width="4" pattern="1">
+  <field x="111" type="Stringa" width="4" pattern="1">
    <source>#B1.105</source>
   </field>
-  <field x="126" type="Stringa" hidden="1" width="10" pattern="1">
+  <field x="116" type="Stringa" hidden="1" width="10" pattern="1">
    <source>201@.S3</source>
   </field>
-  <field x="102" type="Valuta" align="right" width="18" id="100" pattern="1" text="###.###.###,@@">
+  <field x="92" type="Valuta" align="right" width="18" id="100" pattern="1" text="###.###.###,@@">
    <prescript description="F2.100 PRESCRIPT">MESSAGE ADD,F1.100</prescript>
   </field>
  </section>

src/cg/cg7500c.rep

@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8" ?>
-<report name="cg7500c" orientation="2" lpi="6">
+<report name="cg7500c" orientation="1" lpi="6">
  <description>Dichiarazione IVA Quadro VE intracomunitarie</description>
  <font face="Arial" size="8" />
  <section type="Head" pattern="1">
-  <field x="130" type="Stringa" align="right" width="30" pattern="1">
+  <field x="89" type="Stringa" align="right" width="30" pattern="1">
    <source>"Pag. " +#PAGE</source>
   </field>
   <field x="2" y="0.75" type="Testo" align="right" width="7" pattern="1" text="Num.Reg" />
@@ -16,12 +16,9 @@
   <field x="38" y="0.75" type="Testo" width="7" pattern="1" text="N. Doc." />
   <field x="46" y="0.75" type="Testo" width="4" pattern="1" text="Caus" />
   <field x="51" y="0.75" type="Testo" width="50" pattern="1" text="Cliente Ragione Sociale" />
-  <field x="102" y="0.75" type="Testo" align="right" width="18" pattern="1" text="Imponibile" />
+  <field x="92" y="0.75" type="Testo" align="right" width="18" pattern="1" text="Imponibile" />
-  <field x="121" y="0.75" type="Testo" width="4" pattern="1" text="C.Iva" />
+  <field x="111" y="0.75" type="Testo" width="4" pattern="1" text="C.Iva" />
-  <field x="126" y="0.75" type="Stringa" hidden="1" width="10" pattern="1">
+  <field border="2" x="2" y="1.75" type="Linea" width="117" height="0" pattern="1" />
-   <source>201@.S3</source>
-  </field>
-  <field border="2" x="2" y="1.75" type="Linea" width="125" height="0" pattern="1" />
  </section>
  <section type="Head" level="1" pattern="1">
   <prescript description="H1 PRESCRIPT">MESSAGE RESET,F1</prescript>
@@ -29,10 +26,10 @@
    <font face="Arial" bold="1" size="8" />
    <source>#SYSTEM.RAGSOC</source>
   </field>
-  <field x="130" type="Stringa" align="right" width="30" pattern="1">
+  <field x="89" type="Stringa" align="right" width="30" pattern="1">
    <source>"Data di Stampa: " +#SYSTEM.DATE</source>
   </field>
-  <field x="2" y="1" type="Stringa" align="center" width="125" pattern="1">
+  <field border="1" x="2" y="1" type="Stringa" align="center" width="117" pattern="1">
    <source>"ELENCO FATTURE CESSIONI INTRACOMUNITARIE  - " +#ANNO</source>
   </field>
  </section>
@@ -44,7 +41,7 @@
   </field>
  </section>
  <section type="Body" pattern="1" />
- <section type="Body" level="1" bg_color="#80FF80" pattern="2">
+ <section type="Body" level="1" hidden="1" bg_color="#80FF80" pattern="2">
   <field x="126" type="Stringa" width="3" pattern="1">
    <source>201@.S3</source>
   </field>
@@ -88,9 +85,9 @@
  </section>
  <section type="Foot" pattern="1" />
  <section type="Foot" level="1" pattern="1">
-  <field border="2" x="2" y="0.5" type="Linea" width="125" height="0" pattern="1" />
+  <field border="2" x="2" y="0.5" type="Linea" width="117" height="0" pattern="1" />
-  <field x="50" y="1" type="Testo" align="right" width="50" pattern="1" text="TOTALE GENERALE:" />
+  <field x="40" y="1" type="Testo" align="right" width="50" pattern="1" text="TOTALE GENERALE:" />
-  <field x="102" y="1" type="Valuta" align="right" width="18" id="100" pattern="1" text="###.###.###,@@" />
+  <field x="92" y="1" type="Valuta" align="right" width="18" id="100" pattern="1" text="###.###.###,@@" />
  </section>
  <section type="Foot" level="2" height="1" pattern="1">
   <field x="2" type="Numero" align="right" link="23.NUMREG" width="7" pattern="1">
@@ -114,16 +111,16 @@
   <field x="46" type="Stringa" width="4" pattern="1">
    <source>#B1.35</source>
   </field>
-  <field x="51" type="Stringa" width="50" pattern="1">
+  <field x="51" type="Stringa" width="40" pattern="1">
    <source>#B1.40</source>
   </field>
-  <field x="121" type="Stringa" width="4" pattern="1">
+  <field x="111" type="Stringa" width="4" pattern="1">
    <source>#B1.105</source>
   </field>
-  <field x="126" type="Stringa" hidden="1" width="10" pattern="1">
+  <field x="116" type="Stringa" hidden="1" width="10" pattern="1">
    <source>201@.S3</source>
   </field>
-  <field x="102" type="Valuta" align="right" width="18" id="100" pattern="1" text="###.###.###,@@">
+  <field x="92" type="Valuta" align="right" width="18" id="100" pattern="1" text="###.###.###,@@">
    <prescript description="F2.100 PRESCRIPT">MESSAGE ADD,F1.100</prescript>
   </field>
  </section>

src/cg/cg7500d.rep

@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8" ?>
-<report name="cg7500d" orientation="2" lpi="6">
+<report name="cg7500d" orientation="1" lpi="6">
  <description>Dichiarazione IVA Quadro VE - San Marino</description>
  <font face="Arial" size="8" />
  <section type="Head" pattern="1">
-  <field x="130" type="Stringa" align="right" width="30" pattern="1">
+  <field x="88" type="Stringa" align="right" width="30" pattern="1">
    <source>"Pag. " +#PAGE</source>
   </field>
   <field x="2" y="0.75" type="Testo" align="right" width="7" pattern="1" text="Num.Reg" />
@@ -16,12 +16,9 @@
   <field x="38" y="0.75" type="Testo" width="7" pattern="1" text="N. Doc." />
   <field x="46" y="0.75" type="Testo" width="4" pattern="1" text="Caus" />
   <field x="51" y="0.75" type="Testo" width="50" pattern="1" text="Cliente Ragione Sociale" />
-  <field x="102" y="0.75" type="Testo" align="right" width="18" pattern="1" text="Imponibile" />
+  <field x="92" y="0.75" type="Testo" align="right" width="18" pattern="1" text="Imponibile" />
-  <field x="121" y="0.75" type="Testo" width="4" pattern="1" text="C.Iva" />
+  <field x="111" y="0.75" type="Testo" width="4" pattern="1" text="C.Iva" />
-  <field x="126" y="0.75" type="Stringa" hidden="1" width="10" pattern="1">
+  <field border="2" x="2" y="1.75" type="Linea" width="117" height="0" pattern="1" />
-   <source>201@.S3</source>
-  </field>
-  <field border="2" x="2" y="1.75" type="Linea" width="125" height="0" pattern="1" />
  </section>
  <section type="Head" level="1" pattern="1">
   <prescript description="H1 PRESCRIPT">MESSAGE RESET,F1</prescript>
@@ -29,10 +26,10 @@
    <font face="Arial" bold="1" size="8" />
    <source>#SYSTEM.RAGSOC</source>
   </field>
-  <field x="130" type="Stringa" align="right" width="30" pattern="1">
+  <field x="90" type="Stringa" align="right" width="30" pattern="1">
    <source>"Data di Stampa: " +#SYSTEM.DATE</source>
   </field>
-  <field x="2" y="1" type="Stringa" align="center" width="125" pattern="1">
+  <field border="1" x="2" y="1" type="Stringa" align="center" width="117" pattern="1">
    <source>"ELENCO FATTURE CESSIONI VERSO SAN MARINO  - " +#ANNO</source>
   </field>
  </section>
@@ -88,9 +85,9 @@
  </section>
  <section type="Foot" pattern="1" />
  <section type="Foot" level="1" pattern="1">
-  <field border="2" x="2" y="0.5" type="Linea" width="125" height="0" pattern="1" />
+  <field border="2" x="2" y="0.5" type="Linea" width="117" height="0" pattern="1" />
-  <field x="50" y="1" type="Testo" align="right" width="50" pattern="1" text="TOTALE GENERALE:" />
+  <field x="40" y="1" type="Testo" align="right" width="50" pattern="1" text="TOTALE GENERALE:" />
-  <field x="102" y="1" type="Valuta" align="right" width="18" id="100" pattern="1" text="###.###.###,@@" />
+  <field x="92" y="1" type="Valuta" align="right" width="18" id="100" pattern="1" text="###.###.###,@@" />
  </section>
  <section type="Foot" level="2" height="1" pattern="1">
   <field x="2" type="Numero" align="right" link="23.NUMREG" width="7" pattern="1">
@@ -114,16 +111,16 @@
   <field x="46" type="Stringa" width="4" pattern="1">
    <source>#B1.35</source>
   </field>
-  <field x="51" type="Stringa" width="50" pattern="1">
+  <field x="51" type="Stringa" width="40" pattern="1">
    <source>#B1.40</source>
   </field>
-  <field x="121" type="Stringa" width="4" pattern="1">
+  <field x="111" type="Stringa" width="4" pattern="1">
    <source>#B1.105</source>
   </field>
-  <field x="126" type="Stringa" hidden="1" width="10" pattern="1">
+  <field x="116" type="Stringa" hidden="1" width="10" pattern="1">
    <source>201@.S3</source>
   </field>
-  <field x="102" type="Valuta" align="right" width="18" id="100" pattern="1" text="###.###.###,@@">
+  <field x="92" type="Valuta" align="right" width="18" id="100" pattern="1" text="###.###.###,@@">
    <prescript description="F2.100 PRESCRIPT">MESSAGE ADD,F1.100</prescript>
   </field>
  </section>

src/cg/cg7500e.rep

@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8" ?>
-<report name="cg7500e" orientation="2" lpi="6">
+<report name="cg7500e" orientation="1" lpi="6">
  <description>Dichiarazione IVA Quadro VE - Assimilate</description>
  <font face="Arial" size="8" />
  <section type="Head" pattern="1">
-  <field x="130" type="Stringa" align="right" width="30" pattern="1">
+  <field x="89" type="Stringa" align="right" width="30" pattern="1">
    <source>"Pag. " +#PAGE</source>
   </field>
   <field x="2" y="0.75" type="Testo" align="right" width="7" pattern="1" text="Num.Reg" />
@@ -16,12 +16,9 @@
   <field x="38" y="0.75" type="Testo" width="7" pattern="1" text="N. Doc." />
   <field x="46" y="0.75" type="Testo" width="4" pattern="1" text="Caus" />
   <field x="51" y="0.75" type="Testo" width="50" pattern="1" text="Cliente Ragione Sociale" />
-  <field x="102" y="0.75" type="Testo" align="right" width="18" pattern="1" text="Imponibile" />
+  <field x="92" y="0.75" type="Testo" align="right" width="18" pattern="1" text="Imponibile" />
-  <field x="121" y="0.75" type="Testo" width="4" pattern="1" text="C.Iva" />
+  <field x="111" y="0.75" type="Testo" width="4" pattern="1" text="C.Iva" />
-  <field x="126" y="0.75" type="Stringa" hidden="1" width="10" pattern="1">
+  <field border="2" x="2" y="1.75" type="Linea" width="117" height="0" pattern="1" />
-   <source>201@.S3</source>
-  </field>
-  <field border="2" x="2" y="1.75" type="Linea" width="125" height="0" pattern="1" />
  </section>
  <section type="Head" level="1" pattern="1">
   <prescript description="H1 PRESCRIPT">MESSAGE RESET,F1</prescript>
@@ -29,10 +26,10 @@
    <font face="Arial" bold="1" size="8" />
    <source>#SYSTEM.RAGSOC</source>
   </field>
-  <field x="130" type="Stringa" align="right" width="30" pattern="1">
+  <field x="89" type="Stringa" align="right" width="30" pattern="1">
    <source>"Data di Stampa: " +#SYSTEM.DATE</source>
   </field>
-  <field x="2" y="1" type="Stringa" align="center" width="125" pattern="1">
+  <field border="1" x="2" y="1" type="Stringa" align="center" width="117" pattern="1">
    <source>"ELENCO FATTURE OPERAZIONI ASSIMILATE - " +#ANNO</source>
   </field>
  </section>
@@ -88,9 +85,9 @@
  </section>
  <section type="Foot" pattern="1" />
  <section type="Foot" level="1" pattern="1">
-  <field border="2" x="2" y="0.5" type="Linea" width="125" height="0" pattern="1" />
+  <field border="2" x="2" y="0.5" type="Linea" width="117" height="0" pattern="1" />
-  <field x="50" y="1" type="Testo" align="right" width="50" pattern="1" text="TOTALE GENERALE:" />
+  <field x="40" y="1" type="Testo" align="right" width="50" pattern="1" text="TOTALE GENERALE:" />
-  <field x="102" y="1" type="Valuta" align="right" width="18" id="100" pattern="1" text="###.###.###,@@" />
+  <field x="92" y="1" type="Valuta" align="right" width="18" id="100" pattern="1" text="###.###.###,@@" />
  </section>
  <section type="Foot" level="2" height="1" pattern="1">
   <field x="2" type="Numero" align="right" link="23.NUMREG" width="7" pattern="1">
@@ -114,16 +111,16 @@
   <field x="46" type="Stringa" width="4" pattern="1">
    <source>#B1.35</source>
   </field>
-  <field x="51" type="Stringa" width="50" pattern="1">
+  <field x="51" type="Stringa" width="40" pattern="1">
    <source>#B1.40</source>
   </field>
-  <field x="121" type="Stringa" width="4" pattern="1">
+  <field x="111" type="Stringa" width="4" pattern="1">
    <source>#B1.105</source>
   </field>
-  <field x="126" type="Stringa" hidden="1" width="10" pattern="1">
+  <field x="116" type="Stringa" hidden="1" width="10" pattern="1">
    <source>201@.S3</source>
   </field>
-  <field x="102" type="Valuta" align="right" width="18" id="100" pattern="1" text="###.###.###,@@">
+  <field x="92" type="Valuta" align="right" width="18" id="100" pattern="1" text="###.###.###,@@">
    <prescript description="F2.100 PRESCRIPT">MESSAGE ADD,F1.100</prescript>
   </field>
  </section>

src/cg/cg7500f.rep

@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8" ?>
-<report name="cg7500f" orientation="2" lpi="6">
+<report name="cg7500f" orientation="1" lpi="6">
  <description>Dichiarazione IVA Quadro VE - Intento</description>
  <font face="Arial" size="8" />
  <section type="Head" pattern="1">
-  <field x="130" type="Stringa" align="right" width="30" pattern="1">
+  <field x="89" type="Stringa" align="right" width="30" pattern="1">
    <source>"Pag. " +#PAGE</source>
   </field>
   <field x="2" y="0.75" type="Testo" align="right" width="7" pattern="1" text="Num.Reg" />
@@ -16,12 +16,9 @@
   <field x="38" y="0.75" type="Testo" width="7" pattern="1" text="N. Doc." />
   <field x="46" y="0.75" type="Testo" width="4" pattern="1" text="Caus" />
   <field x="51" y="0.75" type="Testo" width="50" pattern="1" text="Cliente Ragione Sociale" />
-  <field x="102" y="0.75" type="Testo" align="right" width="18" pattern="1" text="Imponibile" />
+  <field x="92" y="0.75" type="Testo" align="right" width="18" pattern="1" text="Imponibile" />
-  <field x="121" y="0.75" type="Testo" width="4" pattern="1" text="C.Iva" />
+  <field x="111" y="0.75" type="Testo" width="4" pattern="1" text="C.Iva" />
-  <field x="126" y="0.75" type="Stringa" hidden="1" width="10" pattern="1">
+  <field border="2" x="2" y="1.75" type="Linea" width="117" height="0" pattern="1" />
-   <source>201@.S3</source>
-  </field>
-  <field border="2" x="2" y="1.75" type="Linea" width="125" height="0" pattern="1" />
  </section>
  <section type="Head" level="1" pattern="1">
   <prescript description="H1 PRESCRIPT">MESSAGE RESET,F1</prescript>
@@ -29,10 +26,10 @@
    <font face="Arial" bold="1" size="8" />
    <source>#SYSTEM.RAGSOC</source>
   </field>
-  <field x="130" type="Stringa" align="right" width="30" pattern="1">
+  <field x="89" type="Stringa" align="right" width="30" pattern="1">
    <source>"Data di Stampa: " +#SYSTEM.DATE</source>
   </field>
-  <field x="2" y="1" type="Stringa" align="center" width="125" pattern="1">
+  <field border="1" x="2" y="1" type="Stringa" align="center" width="117" pattern="1">
    <source>"ELENCO OPERAZIONI NON IMPONIBILI A SEGUITO DI DICHIARAZIONI DI INTENTO - " +#ANNO</source>
   </field>
  </section>
@@ -88,9 +85,9 @@
  </section>
  <section type="Foot" pattern="1" />
  <section type="Foot" level="1" pattern="1">
-  <field border="2" x="2" y="0.5" type="Linea" width="125" height="0" pattern="1" />
+  <field border="2" x="2" y="0.5" type="Linea" width="117" height="0" pattern="1" />
-  <field x="50" y="1" type="Testo" align="right" width="50" pattern="1" text="TOTALE GENERALE:" />
+  <field x="40" y="1" type="Testo" align="right" width="50" pattern="1" text="TOTALE GENERALE:" />
-  <field x="102" y="1" type="Valuta" align="right" width="18" id="100" pattern="1" text="###.###.###,@@" />
+  <field x="92" y="1" type="Valuta" align="right" width="18" id="100" pattern="1" text="###.###.###,@@" />
  </section>
  <section type="Foot" level="2" height="1" pattern="1">
   <field x="2" type="Numero" align="right" link="23.NUMREG" width="7" pattern="1">
@@ -114,16 +111,16 @@
   <field x="46" type="Stringa" width="4" pattern="1">
    <source>#B1.35</source>
   </field>
-  <field x="51" type="Stringa" width="50" pattern="1">
+  <field x="51" type="Stringa" width="40" pattern="1">
    <source>#B1.40</source>
   </field>
-  <field x="121" type="Stringa" width="4" pattern="1">
+  <field x="111" type="Stringa" width="4" pattern="1">
    <source>#B1.105</source>
   </field>
-  <field x="126" type="Stringa" hidden="1" width="10" pattern="1">
+  <field x="116" type="Stringa" hidden="1" width="10" pattern="1">
    <source>201@.S3</source>
   </field>
-  <field x="102" type="Valuta" align="right" width="18" id="100" pattern="1" text="###.###.###,@@">
+  <field x="92" type="Valuta" align="right" width="18" id="100" pattern="1" text="###.###.###,@@">
    <prescript description="F2.100 PRESCRIPT">MESSAGE ADD,F1.100</prescript>
   </field>
  </section>

src/cg/cg7500g.rep

@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8" ?>
-<report name="CG7500G" orientation="2" lpi="6">
+<report name="cg7500g" orientation="1" lpi="6">
  <description>Dichiarazione IVA Quadro VE - Altri NI</description>
  <font face="Arial" size="8" />
  <section type="Head" pattern="1">
-  <field x="130" type="Stringa" align="right" width="30" pattern="1">
+  <field x="89" type="Stringa" align="right" width="30" pattern="1">
    <source>"Pag. " +#PAGE</source>
   </field>
   <field x="2" y="0.75" type="Testo" align="right" width="7" pattern="1" text="Num.Reg" />
@@ -16,12 +16,9 @@
   <field x="38" y="0.75" type="Testo" width="7" pattern="1" text="N. Doc." />
   <field x="46" y="0.75" type="Testo" width="4" pattern="1" text="Caus" />
   <field x="51" y="0.75" type="Testo" width="50" pattern="1" text="Cliente Ragione Sociale" />
-  <field x="102" y="0.75" type="Testo" align="right" width="18" pattern="1" text="Imponibile" />
+  <field x="90.5" y="0.75" type="Testo" align="right" width="18" pattern="1" text="Imponibile" />
-  <field x="121" y="0.75" type="Testo" width="4" pattern="1" text="C.Iva" />
+  <field x="109.5" y="0.75" type="Testo" width="4" pattern="1" text="C.Iva" />
-  <field x="126" y="0.75" type="Stringa" hidden="1" width="10" pattern="1">
+  <field border="2" x="2" y="1.75" type="Linea" width="117" height="0" pattern="1" />
-   <source>201@.S3</source>
-  </field>
-  <field border="2" x="2" y="1.75" type="Linea" width="125" height="0" pattern="1" />
  </section>
  <section type="Head" level="1" pattern="1">
   <prescript description="H1 PRESCRIPT">MESSAGE RESET,F1</prescript>
@@ -29,10 +26,10 @@
    <font face="Arial" bold="1" size="8" />
    <source>#SYSTEM.RAGSOC</source>
   </field>
-  <field x="130" type="Stringa" align="right" width="30" pattern="1">
+  <field x="89" type="Stringa" align="right" width="30" pattern="1">
    <source>"Data di Stampa: " +#SYSTEM.DATE</source>
   </field>
-  <field x="2" y="1" type="Stringa" align="center" width="125" pattern="1">
+  <field border="1" x="2" y="1" type="Stringa" align="center" width="117" pattern="1">
    <source>"ELENCO ALTRE OPERAZIONI NON IMPONIBILI - " +#ANNO</source>
   </field>
  </section>
@@ -88,9 +85,9 @@
  </section>
  <section type="Foot" pattern="1" />
  <section type="Foot" level="1" pattern="1">
-  <field border="2" x="2" y="0.5" type="Linea" width="125" height="0" pattern="1" />
+  <field border="2" x="2" y="0.5" type="Linea" width="117" height="0" pattern="1" />
-  <field x="50" y="1" type="Testo" align="right" width="50" pattern="1" text="TOTALE GENERALE:" />
+  <field x="40" y="1" type="Testo" align="right" width="50" pattern="1" text="TOTALE GENERALE:" />
-  <field x="102" y="1" type="Valuta" align="right" width="18" id="100" pattern="1" text="###.###.###,@@" />
+  <field x="92" y="1" type="Valuta" align="right" width="18" id="100" pattern="1" text="###.###.###,@@" />
  </section>
  <section type="Foot" level="2" height="1" pattern="1">
   <field x="2" type="Numero" align="right" link="23.NUMREG" width="7" pattern="1">
@@ -114,16 +111,16 @@
   <field x="46" type="Stringa" width="4" pattern="1">
    <source>#B1.35</source>
   </field>
-  <field x="51" type="Stringa" width="50" pattern="1">
+  <field x="51" type="Stringa" width="40" pattern="1">
    <source>#B1.40</source>
   </field>
-  <field x="121" type="Stringa" width="4" pattern="1">
+  <field x="111" type="Stringa" width="4" pattern="1">
    <source>#B1.105</source>
   </field>
-  <field x="126" type="Stringa" hidden="1" width="10" pattern="1">
+  <field x="116" type="Stringa" hidden="1" width="10" pattern="1">
    <source>201@.S3</source>
   </field>
-  <field x="102" type="Valuta" align="right" width="18" id="100" pattern="1" text="###.###.###,@@">
+  <field x="92" type="Valuta" align="right" width="18" id="100" pattern="1" text="###.###.###,@@">
    <prescript description="F2.100 PRESCRIPT">MESSAGE ADD,F1.100</prescript>
   </field>
  </section>

src/cg/cg7500h.rep

@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8" ?>
-<report name="CG7500H" orientation="2" lpi="6">
+<report name="cg7500h" orientation="1" lpi="6">
  <description>Dichiarazione IVA Quadro VE - Esenti Art. 10</description>
  <font face="Arial" size="8" />
  <section type="Head" pattern="1">
-  <field x="130" type="Stringa" align="right" width="30" pattern="1">
+  <field x="89" type="Stringa" align="right" width="30" pattern="1">
    <source>"Pag. " +#PAGE</source>
   </field>
   <field x="2" y="0.75" type="Testo" align="right" width="7" pattern="1" text="Num.Reg" />
@@ -16,12 +16,9 @@
   <field x="38" y="0.75" type="Testo" width="7" pattern="1" text="N. Doc." />
   <field x="46" y="0.75" type="Testo" width="4" pattern="1" text="Caus" />
   <field x="51" y="0.75" type="Testo" width="50" pattern="1" text="Cliente Ragione Sociale" />
-  <field x="102" y="0.75" type="Testo" align="right" width="18" pattern="1" text="Imponibile" />
+  <field x="92" y="0.75" type="Testo" align="right" width="18" pattern="1" text="Imponibile" />
-  <field x="121" y="0.75" type="Testo" width="4" pattern="1" text="C.Iva" />
+  <field x="111" y="0.75" type="Testo" width="4" pattern="1" text="C.Iva" />
-  <field x="126" y="0.75" type="Stringa" hidden="1" width="10" pattern="1">
+  <field border="2" x="2" y="1.75" type="Linea" width="117" height="0" pattern="1" />
-   <source>201@.S3</source>
-  </field>
-  <field border="2" x="2" y="1.75" type="Linea" width="125" height="0" pattern="1" />
  </section>
  <section type="Head" level="1" pattern="1">
   <prescript description="H1 PRESCRIPT">MESSAGE RESET,F1</prescript>
@@ -29,10 +26,10 @@
    <font face="Arial" bold="1" size="8" />
    <source>#SYSTEM.RAGSOC</source>
   </field>
-  <field x="130" type="Stringa" align="right" width="30" pattern="1">
+  <field x="89" type="Stringa" align="right" width="30" pattern="1">
    <source>"Data di Stampa: " +#SYSTEM.DATE</source>
   </field>
-  <field x="2" y="1" type="Stringa" align="center" width="125" pattern="1">
+  <field border="1" x="2" y="1" type="Stringa" align="center" width="117" pattern="1">
    <source>"ELENCO OPERAZIONI ESENTI (art. 10) - " +#ANNO</source>
   </field>
  </section>
@@ -88,9 +85,9 @@
  </section>
  <section type="Foot" pattern="1" />
  <section type="Foot" level="1" pattern="1">
-  <field border="2" x="2" y="0.5" type="Linea" width="125" height="0" pattern="1" />
+  <field border="2" x="2" y="0.5" type="Linea" width="117" height="0" pattern="1" />
-  <field x="50" y="1" type="Testo" align="right" width="50" pattern="1" text="TOTALE GENERALE:" />
+  <field x="40" y="1" type="Testo" align="right" width="50" pattern="1" text="TOTALE GENERALE:" />
-  <field x="102" y="1" type="Valuta" align="right" width="18" id="100" pattern="1" text="###.###.###,@@" />
+  <field x="92" y="1" type="Valuta" align="right" width="18" id="100" pattern="1" text="###.###.###,@@" />
  </section>
  <section type="Foot" level="2" height="1" pattern="1">
   <field x="2" type="Numero" align="right" link="23.NUMREG" width="7" pattern="1">
@@ -114,20 +111,20 @@
   <field x="46" type="Stringa" width="4" pattern="1">
    <source>#B1.35</source>
   </field>
-  <field x="51" type="Stringa" width="50" pattern="1">
+  <field x="51" type="Stringa" width="40" pattern="1">
    <source>#B1.40</source>
   </field>
-  <field x="121" type="Stringa" width="4" pattern="1">
+  <field x="111" type="Stringa" width="4" pattern="1">
    <source>#B1.105</source>
   </field>
-  <field x="126" type="Stringa" hidden="1" width="10" pattern="1">
+  <field x="116" type="Stringa" hidden="1" width="10" pattern="1">
    <source>201@.S3</source>
   </field>
-  <field x="102" type="Valuta" align="right" width="18" id="100" pattern="1" text="###.###.###,@@">
+  <field x="92" type="Valuta" align="right" width="18" id="100" pattern="1" text="###.###.###,@@">
    <prescript description="F2.100 PRESCRIPT">MESSAGE ADD,F1.100</prescript>
   </field>
  </section>
- <sql>USE RMOVIVA SELECT (23.ANNOIVA=#ANNO)&#26;&#26;(23.TIPO="C")&#26;&#26;(201@.S1="ES")&#26;&#26;(201@.S2="B2")
+ <sql>USE RMOVIVA SELECT (23.ANNOIVA=#ANNO)&#26;&#26;(23.TIPO="C")&#26;&#26;(201@.S1="ES")&#26;&#26;((201@.S2="B2")||(201@.S2="B5"))
 JOIN MOV INTO NUMREG==NUMREG
 JOIN 20 TO MOV INTO TIPOCF==TIPO CODCF==CODCF
 JOIN %IVA ALIAS 201 INTO CODTAB==CODIVA

src/cg/cg7500i.rep

@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8" ?>
-<report name="cg7500i" orientation="2" lpi="6">
+<report name="cg7500i" orientation="1" lpi="6">
  <description>Dichiarazione IVA Quadro VE - NS ART. 7 A 7-sep</description>
  <font face="Arial" size="8" />
  <section type="Head" pattern="1">
-  <field x="130" type="Stringa" align="right" width="30" pattern="1">
+  <field x="89" type="Stringa" align="right" width="30" pattern="1">
    <source>"Pag. " +#PAGE</source>
   </field>
   <field x="2" y="0.75" type="Testo" align="right" width="7" pattern="1" text="Num.Reg" />
@@ -16,12 +16,9 @@
   <field x="38" y="0.75" type="Testo" width="7" pattern="1" text="N. Doc." />
   <field x="46" y="0.75" type="Testo" width="4" pattern="1" text="Caus" />
   <field x="51" y="0.75" type="Testo" width="50" pattern="1" text="Cliente Ragione Sociale" />
-  <field x="102" y="0.75" type="Testo" align="right" width="18" pattern="1" text="Imponibile" />
+  <field x="92" y="0.75" type="Testo" align="right" width="18" pattern="1" text="Imponibile" />
-  <field x="121" y="0.75" type="Testo" width="4" pattern="1" text="C.Iva" />
+  <field x="111" y="0.75" type="Testo" width="4" pattern="1" text="C.Iva" />
-  <field x="126" y="0.75" type="Stringa" hidden="1" width="10" pattern="1">
+  <field border="2" x="2" y="1.75" type="Linea" width="117" height="0" pattern="1" />
-   <source>201@.S3</source>
-  </field>
-  <field border="2" x="2" y="1.75" type="Linea" width="125" height="0" pattern="1" />
  </section>
  <section type="Head" level="1" pattern="1">
   <prescript description="H1 PRESCRIPT">MESSAGE RESET,F1</prescript>
@@ -29,10 +26,10 @@
    <font face="Arial" bold="1" size="8" />
    <source>#SYSTEM.RAGSOC</source>
   </field>
-  <field x="130" type="Stringa" align="right" width="30" pattern="1">
+  <field x="89" type="Stringa" align="right" width="30" pattern="1">
    <source>"Data di Stampa: " +#SYSTEM.DATE</source>
   </field>
-  <field x="2" y="1" type="Stringa" align="center" width="125" pattern="1">
+  <field border="1" x="2" y="1" type="Stringa" align="center" width="117" pattern="1">
    <source>"ELENCO OPERAZIONI NON SOGGETTE ALL'IMPOSTA AI SENSI DEGLI ARTICOLI DA 7 A 7 -septies" +#ANNO</source>
   </field>
  </section>
@@ -88,9 +85,9 @@
  </section>
  <section type="Foot" pattern="1" />
  <section type="Foot" level="1" pattern="1">
-  <field border="2" x="2" y="0.5" type="Linea" width="125" height="0" pattern="1" />
+  <field border="2" x="2" y="0.5" type="Linea" width="117" height="0" pattern="1" />
-  <field x="50" y="1" type="Testo" align="right" width="50" pattern="1" text="TOTALE GENERALE:" />
+  <field x="40" y="1" type="Testo" align="right" width="50" pattern="1" text="TOTALE GENERALE:" />
-  <field x="102" y="1" type="Valuta" align="right" width="18" id="100" pattern="1" text="###.###.###,@@" />
+  <field x="92" y="1" type="Valuta" align="right" width="18" id="100" pattern="1" text="###.###.###,@@" />
  </section>
  <section type="Foot" level="2" height="1" pattern="1">
   <field x="2" type="Numero" align="right" link="23.NUMREG" width="7" pattern="1">
@@ -114,20 +111,20 @@
   <field x="46" type="Stringa" width="4" pattern="1">
    <source>#B1.35</source>
   </field>
-  <field x="51" type="Stringa" width="50" pattern="1">
+  <field x="51" type="Stringa" width="40" pattern="1">
    <source>#B1.40</source>
   </field>
-  <field x="121" type="Stringa" width="4" pattern="1">
+  <field x="111" type="Stringa" width="4" pattern="1">
    <source>#B1.105</source>
   </field>
-  <field x="126" type="Stringa" hidden="1" width="10" pattern="1">
+  <field x="116" type="Stringa" hidden="1" width="10" pattern="1">
    <source>201@.S3</source>
   </field>
-  <field x="102" type="Valuta" align="right" width="18" id="100" pattern="1" text="###.###.###,@@">
+  <field x="92" type="Valuta" align="right" width="18" id="100" pattern="1" text="###.###.###,@@">
    <prescript description="F2.100 PRESCRIPT">MESSAGE ADD,F1.100</prescript>
   </field>
  </section>
- <sql>USE RMOVIVA SELECT (23.ANNOIVA=#ANNO)&#26;&#26;(23.TIPO="C")&#26;&#26;(201@.S1="ES")&#26;&#26;(201@.S2="B2")
+ <sql>USE RMOVIVA SELECT (23.ANNOIVA=#ANNO)&#26;&#26;(23.TIPO="C")&#26;&#26;(201@.S1="ES")&#26;&#26;(201@.S2="B6")
 JOIN MOV INTO NUMREG==NUMREG
 JOIN 20 TO MOV INTO TIPOCF==TIPO CODCF==CODCF
 JOIN %IVA ALIAS 201 INTO CODTAB==CODIVA

src/cg/cg7500l.rep

@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8" ?>
-<report name="CG7500l" orientation="2" lpi="6">
+<report name="cg7500l" orientation="2" lpi="6">
  <description>Dichiarazione IVA Quadro VE - Rev.Charge</description>
  <font face="Arial" size="8" />
  <section type="Head" pattern="1">
-  <field x="130" type="Stringa" align="right" width="30" pattern="1">
+  <field x="132" type="Stringa" align="right" width="30" pattern="1">
    <source>"Pag. " +#PAGE</source>
   </field>
   <field x="2" y="0.75" type="Testo" align="right" width="7" pattern="1" text="Num.Reg" />
@@ -19,7 +19,7 @@
   <field x="102" y="0.75" type="Testo" align="right" width="18" pattern="1" text="Imponibile" />
   <field x="121" y="0.75" type="Testo" width="4" pattern="1" text="C.Iva" />
   <field x="126" y="0.75" type="Testo" width="4" pattern="1" text="R.C." />
-  <field border="2" x="2" y="1.75" type="Linea" width="128" height="0" pattern="1" />
+  <field border="2" x="2" y="1.75" type="Linea" width="160" height="0" pattern="1" />
  </section>
  <section type="Head" level="1" pattern="1">
   <prescript description="H1 PRESCRIPT">MESSAGE RESET,F1</prescript>
@@ -27,10 +27,10 @@
    <font face="Arial" bold="1" size="8" />
    <source>#SYSTEM.RAGSOC</source>
   </field>
-  <field x="130" type="Stringa" align="right" width="30" pattern="1">
+  <field x="132" type="Stringa" align="right" width="30" pattern="1">
    <source>"Data di Stampa: " +#SYSTEM.DATE</source>
   </field>
-  <field x="2" y="1" type="Stringa" align="center" width="125" pattern="1">
+  <field border="1" x="2" y="1" type="Stringa" align="center" width="160" pattern="1">
    <source>"ELENCO OPERAZIONI CON APPLICAZIONE DEL REVERSE CHARGE - " +#ANNO</source>
   </field>
  </section>
@@ -94,7 +94,7 @@
  </section>
  <section type="Foot" pattern="1" />
  <section type="Foot" level="1" pattern="1">
-  <field border="2" x="2" y="0.5" type="Linea" width="125" height="0" pattern="1" />
+  <field border="2" x="2" y="0.5" type="Linea" width="160" height="0" pattern="1" />
   <field x="50" y="1" type="Testo" align="right" width="50" pattern="1" text="TOTALE GENERALE:" />
   <field x="3" y="4" type="Testo" width="32" pattern="1" text="Cessioni di rottami e altri materiali di recupero" />
   <field x="68.5" y="4" type="Testo" width="32" pattern="1" text="Cessioni di oro e argento puro  " />
@@ -142,7 +142,7 @@
   <field x="121" type="Stringa" width="4" pattern="1">
    <source>#B1.105</source>
   </field>
-  <field x="130" type="Array" width="28" pattern="1">
+  <field x="130" type="Array" width="30" pattern="1">
    <source>#B1.115</source>
    <list>
     <li Value=" " Code=" " />

src/cg/cg7500m.rep

@@ -0,0 +1,141 @@
+<?xml version="1.0" encoding="UTF-8" ?>
+<report name="cg7500m" orientation="1" lpi="6">
+ <description>Dichiarazione IVA Quadro VE - Terremotati</description>
+ <font face="Arial" size="8" />
+ <section type="Head" pattern="1">
+  <field x="89" type="Stringa" align="right" width="30" pattern="1">
+   <source>"Pag. " +#PAGE</source>
+  </field>
+  <field x="2" y="0.75" type="Testo" align="right" width="7" pattern="1" text="Num.Reg" />
+  <field x="10" y="0.75" type="Testo" hidden="1" width="3" pattern="1" text="N.R." />
+  <field x="14" y="0.75" type="Testo" width="10" pattern="1" text="Data Reg." />
+  <field x="25" y="0.75" type="Stringa" hidden="1" width="1" pattern="1">
+   <source>RMOVIVA.INTRA</source>
+  </field>
+  <field x="27" y="0.75" type="Testo" width="10" pattern="1" text="Data Doc." />
+  <field x="38" y="0.75" type="Testo" width="7" pattern="1" text="N. Doc." />
+  <field x="46" y="0.75" type="Testo" width="4" pattern="1" text="Caus" />
+  <field x="51" y="0.75" type="Testo" width="50" pattern="1" text="Cliente Ragione Sociale" />
+  <field x="92" y="0.75" type="Testo" align="right" width="18" pattern="1" text="Imponibile" />
+  <field x="111" y="0.75" type="Testo" width="4" pattern="1" text="C.Iva" />
+  <field border="2" x="2" y="1.75" type="Linea" width="117" height="0" pattern="1" />
+ </section>
+ <section type="Head" level="1" pattern="1">
+  <prescript description="H1 PRESCRIPT">MESSAGE RESET,F1</prescript>
+  <field x="2" type="Stringa" width="40" pattern="1">
+   <font face="Arial" bold="1" size="8" />
+   <source>#SYSTEM.RAGSOC</source>
+  </field>
+  <field x="89" type="Stringa" align="right" width="30" pattern="1">
+   <source>"Data di Stampa: " +#SYSTEM.DATE</source>
+  </field>
+  <field border="1" x="2" y="1" type="Stringa" align="center" width="117" pattern="1">
+   <source>"ELENCO Operazioni non soggette all&#92;imposta effettuate nei confronti dei terremotati - " +#ANNO</source>
+  </field>
+ </section>
+ <section type="Head" level="2" hidden="1" pattern="1">
+  <groupby>NUMREG+CODIVA</groupby>
+  <prescript description="H2 PRESCRIPT">MESSAGE RESET,F2</prescript>
+  <field type="Stringa" width="10" pattern="1">
+   <source>NUMREG+" "+CODIVA</source>
+  </field>
+ </section>
+ <section type="Body" pattern="1" />
+ <section type="Body" level="1" hidden="1" bg_color="#80FF80" pattern="2">
+  <field x="137" type="Stringa" width="10" pattern="1">
+   <source>202@.S0</source>
+  </field>
+  <field x="2" type="Numero" align="right" width="7" id="5" pattern="1">
+   <source>RMOVIVA.NUMREG</source>
+  </field>
+  <field x="10" type="Numero" align="right" width="3" id="10" pattern="1">
+   <source>RMOVIVA.NUMRIG</source>
+  </field>
+  <field x="14" type="Data" width="10" id="15" pattern="1">
+   <source>MOV.DATAREG</source>
+  </field>
+  <field x="25" type="Stringa" width="1" id="20" pattern="1">
+   <source>RMOVIVA.INTRA</source>
+  </field>
+  <field x="27" type="Data" width="10" id="25" pattern="1">
+   <source>MOV.DATADOC</source>
+  </field>
+  <field x="38" type="Stringa" width="7" id="30" pattern="1">
+   <source>MOV.NUMDOC</source>
+  </field>
+  <field x="46" type="Stringa" width="4" id="35" pattern="1">
+   <source>MOV.CODCAUS</source>
+  </field>
+  <field x="51" type="Stringa" width="50" id="40" pattern="1">
+   <source>CLIFO.RAGSOC</source>
+  </field>
+  <field x="102" type="Valuta" align="right" width="18" id="100" pattern="1" text="###.###.###,@@">
+   <source>RMOVIVA.IMPONIBILE</source>
+   <prescript description="B1.100 PRESCRIPT">MESSAGE ADD,F2.100</prescript>
+  </field>
+  <field x="121" type="Stringa" width="4" id="105" pattern="1">
+   <source>RMOVIVA.CODIVA</source>
+  </field>
+  <field x="126" type="Stringa" width="3" id="110" pattern="1">
+   <source>201@.S1</source>
+  </field>
+  <field x="130" type="Numero" align="right" width="3" id="115" pattern="2">
+   <source>201@.S2</source>
+   <prescript description="B1.115 PRESCRIPT">#100 @
+"F1.1"
+#THIS @
++
++!</prescript>
+  </field>
+  <field x="134" type="Numero" align="right" width="2" id="120" pattern="1">
+   <source>26.REGSPIVA</source>
+  </field>
+ </section>
+ <section type="Foot" pattern="1" />
+ <section type="Foot" level="1" pattern="1">
+  <field border="2" x="2" y="0.5" type="Linea" width="117" height="0" pattern="1" />
+  <field x="40" y="1" type="Testo" align="right" width="50" pattern="1" text="TOTALE GENERALE:" />
+  <field x="92" y="1" type="Valuta" align="right" width="18" id="100" pattern="1" text="###.###.###,@@" />
+ </section>
+ <section type="Foot" level="2" height="1" pattern="1">
+  <field x="2" type="Numero" align="right" link="23.NUMREG" width="7" pattern="1">
+   <source>#B1.5</source>
+  </field>
+  <field x="10" type="Numero" hidden="1" align="right" width="3" pattern="1">
+   <source>RMOVIVA.NUMRIG</source>
+  </field>
+  <field x="14" type="Data" width="10" pattern="1">
+   <source>#B1.15</source>
+  </field>
+  <field x="25" type="Stringa" hidden="1" width="1" pattern="1">
+   <source>RMOVIVA.INTRA</source>
+  </field>
+  <field x="27" type="Data" width="10" pattern="1">
+   <source>#B1.25</source>
+  </field>
+  <field x="38" type="Stringa" width="7" pattern="1">
+   <source>#B1.30</source>
+  </field>
+  <field x="46" type="Stringa" width="4" pattern="1">
+   <source>#B1.35</source>
+  </field>
+  <field x="51" type="Stringa" width="40" pattern="1">
+   <source>#B1.40</source>
+  </field>
+  <field x="111" type="Stringa" width="4" pattern="1">
+   <source>#B1.105</source>
+  </field>
+  <field x="92" type="Valuta" align="right" width="18" id="100" pattern="1" text="###.###.###,@@">
+   <prescript description="F2.100 PRESCRIPT">MESSAGE ADD,F1.100</prescript>
+  </field>
+  <field x="117" type="Numero" align="right" width="2" id="120" pattern="1">
+   <source>#B1.115</source>
+  </field>
+ </section>
+ <sql>USE RMOVIVA SELECT (23.ANNOIVA=#ANNO)&#26;&#26;(23.TIPO="C")&#26;&#26;(201@.S2="25")
+JOIN MOV INTO NUMREG==NUMREG
+JOIN 20 TO MOV INTO TIPOCF==TIPO CODCF==CODCF
+JOIN %IVA ALIAS 201 INTO CODTAB==CODIVA
+JOIN %STA TO CLIFO ALIAS 202 INTO CODTAB==STATOCF
+JOIN 26 TO MOV INTO CODCAUS==CODCAUS </sql>
+</report>

src/cg/cg7500n.rep

@@ -0,0 +1,114 @@
+<?xml version="1.0" encoding="UTF-8" ?>
+<report name="cg7500n" orientation="1" lpi="6">
+ <description>fatture in split</description>
+ <font face="Courier New" size="10" />
+ <section type="Head" pattern="1">
+  <font face="Arial" size="8" />
+  <field type="Stringa" width="50" pattern="1">
+   <source>"Ditta: " +#SYSTEM.RAGSOC</source>
+  </field>
+  <field x="50" type="Stringa" align="right" width="45" pattern="1">
+   <source>"Data di Stampa: " +#SYSTEM.DATE+" - Pag. "+#PAGE</source>
+  </field>
+  <field y="1" type="Stringa" align="center" width="95" pattern="1">
+   <font face="Arial" bold="1" size="10" />
+   <source>"Lista Fatture emesse in Split Payment nel periodo: " +#ANNO</source>
+  </field>
+  <field y="3" type="Testo" align="right" width="7" pattern="1" text="NumReg" />
+  <field x="8" y="3" type="Testo" width="10" pattern="1" text="DataReg" />
+  <field x="18" y="3" type="Testo" width="3" pattern="1" text="Caus" />
+  <field x="22" y="3" type="Testo" width="3" pattern="1" text="Reg." />
+  <field x="25" y="3" type="Testo" align="right" width="6" pattern="1" text="Cli." />
+  <field x="32" y="3" type="Testo" width="35" pattern="1" text="Ragione Sociale" />
+  <field x="67" y="3" type="Testo" width="5" pattern="1" text="C.Iva" />
+  <field x="71.5" y="3" type="Testo" align="right" width="11" pattern="1" text="Imponibile" />
+  <field x="82.5" y="3" type="Testo" align="right" width="9" pattern="1" text="Imposta" />
+  <field x="92" y="3" type="Testo" align="center" width="4" pattern="1" text="Split" />
+  <field border="2" y="4" type="Linea" width="95" height="0" pattern="1" />
+ </section>
+ <section type="Head" level="1" pattern="1">
+  <font face="Arial" bold="1" size="8" />
+  <prescript description="H1 PRESCRIPT">MESSAGE RESET,F1</prescript>
+ </section>
+ <section type="Head" level="2" pattern="1">
+  <groupby>RMOVIVA.CODIVA</groupby>
+  <font face="Arial" bold="1" size="8" />
+  <prescript description="H2 PRESCRIPT">MESSAGE RESET,F2</prescript>
+  <field type="Testo" width="10" pattern="1" text="Codice Iva:" />
+  <field x="10" type="Stringa" width="4" id="10" pattern="1">
+   <source>RMOVIVA.CODIVA</source>
+  </field>
+  <field x="15" type="Stringa" width="25" id="20" pattern="1">
+   <prescript description="H2.20 PRESCRIPT">MESSAGE TABLEREAD,%IVA,#10,S0</prescript>
+  </field>
+ </section>
+ <section type="Body" pattern="1" />
+ <section type="Body" level="1" pattern="1">
+  <font face="Arial" size="8" />
+  <field type="Numero" align="right" link="23.NUMREG" width="7" pattern="1">
+   <source>RMOVIVA.NUMREG</source>
+  </field>
+  <field x="8" type="Data" width="10" pattern="1">
+   <source>MOV.DATAREG</source>
+  </field>
+  <field x="18" type="Stringa" width="3" pattern="1">
+   <source>MOV.CODCAUS</source>
+  </field>
+  <field x="21.5" type="Stringa" width="3" pattern="1">
+   <source>MOV.REG</source>
+  </field>
+  <field x="25" type="Numero" align="right" link="20.CODCF" width="6" pattern="1">
+   <source>MOV.CODCF</source>
+  </field>
+  <field x="26" type="Stringa" hidden="1" link="20.TIPOCF" width="1" pattern="1">
+   <source>MOV.TIPO</source>
+  </field>
+  <field x="31.5" type="Stringa" width="35" pattern="1">
+   <source>CLIFO.RAGSOC</source>
+  </field>
+  <field x="67.5" type="Stringa" width="4" pattern="1">
+   <source>RMOVIVA.CODIVA</source>
+  </field>
+  <field x="71.5" type="Valuta" align="right" width="11" pattern="1" text="###.###.###,@@">
+   <source>RMOVIVA.IMPONIBILE</source>
+   <prescript description="B1.0 PRESCRIPT">MESSAGE ADD,F2.100</prescript>
+  </field>
+  <field x="82.5" type="Valuta" align="right" width="9" pattern="1" text="###.###.###,@@">
+   <source>RMOVIVA.IMPOSTA</source>
+   <prescript description="B1.0 PRESCRIPT">MESSAGE ADD,F2.200</prescript>
+  </field>
+  <field x="93" type="Stringa" width="1" pattern="1">
+   <source>MOV.SPLITPAY</source>
+  </field>
+  <field x="95" type="Stringa" width="1" pattern="1">
+   <source>CLIFO.SPLITPAY</source>
+  </field>
+ </section>
+ <section type="Foot" pattern="1" />
+ <section type="Foot" level="1" pattern="1">
+  <font face="Arial" bold="1" size="8" />
+  <field type="Testo" width="16" pattern="1" text="Totale Generale:" />
+  <field x="71.5" type="Valuta" align="right" width="11" id="100" pattern="1" text="###.###.###,@@" />
+  <field x="82.5" type="Valuta" align="right" width="9" id="200" pattern="1" text="###.###.###,@@" />
+ </section>
+ <section type="Foot" level="2" height="2" pattern="1">
+  <font face="Arial" bold="1" size="8" />
+  <field type="Testo" width="10" pattern="1" text="Totale:" />
+  <field x="10" type="Stringa" width="4" pattern="1">
+   <source>#H2.10</source>
+  </field>
+  <field x="15" type="Stringa" width="30" pattern="1">
+   <source>#H2.20</source>
+  </field>
+  <field x="71.5" type="Valuta" align="right" width="11" id="100" pattern="1" text="###.###.###,@@">
+   <prescript description="F2.100 PRESCRIPT">MESSAGE ADD,F1.100</prescript>
+  </field>
+  <field x="82.5" type="Valuta" align="right" width="9" id="200" pattern="1" text="###.###.###,@@">
+   <prescript description="F2.200 PRESCRIPT">MESSAGE ADD,F1.200</prescript>
+  </field>
+ </section>
+ <sql>USE RMOVIVA SELECT ((MOV.SPLITPAY="S")||((MOV.SPLITPAY="")&#26;&#26;(20.SPLITPAY="X")))&#26;&#26;(MOV.ANNOIVA=#ANNO)
+BY RMOVIVA.CODIVA 23.DATAREG
+JOIN MOV INTO NUMREG==NUMREG
+JOIN CLIFO TO MOV INTO TIPOCF==TIPO CODCF==CODCF</sql>
+</report>