Patch level : 12.00 1284

Files correlati     : sc0.exe cg2.exe
Commento            :

Programma di controllo e ripristino partite errate ricorretto.

src/cg/cg2100.cpp

@@ -69,7 +69,10 @@ TPrimanota_application::TPrimanota_application()
 HIDDEN bool key_handler(TMask& m, KEY k)
 {
 	if (k == K_SHIFT + K_F12)
+	{
+		app().aggiorna_saldaconto();
 		app().calcola_saldo();
+	}
 	return true;
 }
 

src/cg/cg2102.cpp

@@ -20,6 +20,7 @@
 #include <pconti.h>
 #include <doc.h>
 #include <occas.h>
+#include <pagsca.h>
 #include "../fp/fplib.h"
 #include "../f1/f1lib.h"
 #include "../f9/f9lib.h"
@@ -526,12 +527,249 @@ TImporto TPrimanota_application::imposte_split_pay() const
   return imposte;
 }
 
+void set_importo(TSheet_field & cgrows, int row, const TImporto & imp)
+{
+	TImporto row_imp;
+	real val = cgrows.get_real_row_cell(row, CG_DARE);
+
+	if (val != ZERO)
+		row_imp.set('D', val);
+	else
+	{
+		val = cgrows.get_real_row_cell(row, CG_AVERE);
+
+		if (val != ZERO)
+			row_imp.set('A', val);
+	}
+	row_imp += imp;
+	row_imp.normalize();
+	if (row_imp.sezione() == 'D')
+	{
+		cgrows.set_row_cell(CG_DARE, row_imp.valore(), row);
+		cgrows.set_row_cell(CG_AVERE, ZERO, row);
+	}
+	else
+	{
+		cgrows.set_row_cell(CG_DARE, ZERO, row);
+		cgrows.set_row_cell(CG_AVERE, row_imp.valore(), row);
+	}
+}
+
+void TPrimanota_application::aggiorna_saldaconto()
+{
+	const bool pag = is_pagamento() && !_as400;
+	const long nreg = _rel->lfile().get_long(MOV_NUMREG);
+	int fgruppo = -1;
+	int fconto = -1;
+	long fsottoc = -1;
+
+	if (pag)
+	{
+		TSheet_field& cgrows = cgs();
+		TAssoc_array rows_index;
+
+		FOR_EACH_SHEET_ROW_BACK(cgrows, i, r)
+	{
+			const char tipo = row_type(*r);
+
+			if ((tipo == cgrowtype_imponibile) ||
+				(tipo == cgrowtype_spese) ||
+				(tipo == cgrowtype_abbattivo) ||
+				(tipo == cgrowtype_diffcambio) ||
+				(tipo == cgrowtype_abbpassivo) ||
+				(tipo == cgrowtype_ritfis))
+			{
+				cgrows.set_row_cell(CG_DARE, ZERO, i);
+				cgrows.set_row_cell(CG_AVERE, ZERO, i);
+
+				TToken_string key;
+				TString srow;
+
+				srow << i;
+				key << tipo;
+				if (tipo == cgrowtype_imponibile)
+				{
+					key.add(cgrows.get_int_row_cell(i, CG_GRUPPO));
+					key.add(cgrows.get_int_row_cell(i, CG_CONTO));
+					key.add(cgrows.get_long_row_cell(i, CG_SOTTOCONTO));
+					if (fgruppo < 0)
+					{
+						fgruppo = cgrows.get_int_row_cell(i, CG_GRUPPO);
+						fconto = cgrows.get_int_row_cell(i, CG_CONTO);
+						fsottoc = cgrows.get_long_row_cell(i, CG_SOTTOCONTO);
+					}
+				}
+				rows_index.add(key, srow);
+				if (tipo == cgrowtype_imponibile)
+				{
+					key.cut(0);
+					key << tipo;
+					key.add(0);
+					key.add(0);
+					key.add(0);
+					rows_index.add(key, srow);
+				}
+			}
+		}
+
+		TPartite_array & part = partite();
+		int items = part.items();
+		TString_array parts;
+
+		part.get_keys(parts);
+		FOR_EACH_ARRAY_ROW(parts, row, key)
+		{
+			TPartita & partita = (TPartita &) part[*key];
+
+			for (int row = partita.prima_fattura(); row > 0 && row <= partita.last(); row = partita.succ(row))
+			{
+				const TRiga_partite & rpart = partita.riga(row);
+
+				if (rpart.is_fattura())
+				{
+					const int nrate = rpart.rate();
+					for (int s = 1; s <= nrate; s++)
+					{
+						const TRiga_scadenze & scad = rpart.rata(s);
+						int rp = scad.last();
+
+						for (; rp > 0; rp = scad.pred(rp))
+						{
+
+							TRectype & pag = (TRectype &) scad.row(rp);
+							int rpag = pag.get_int(PAGSCA_NRIGP);
+
+							if (partita.exist(rpag))
+							{
+								TRiga_partite & riga_pag = partita.riga(rpag);
+								const long nreg_pag = riga_pag.get_long(PART_NREG);
+
+								if (nreg == nreg_pag)
+								{
+									char sez = pag.get(PAGSCA_TIPOC) == "C" ? 'D' : 'A';
+									real val = pag.get_real(PAGSCA_IMPORTO);
+
+									if (val != ZERO)
+									{
+										TImporto imp(sez, val);
+										TToken_string key;
+										const int gruppo = pag.get_int(PAGSCA_GRUPPOC);
+
+										key << (char)cgrowtype_imponibile;
+										key.add(gruppo);
+										key.add(pag.get_int(PAGSCA_CONTOC));
+										key.add(pag.get_long(PAGSCA_SOTTOCONTC));
+
+										if (rows_index.is_key(key))
+											set_importo(cgrows, rows_index.get_int(key), imp);
+										if (gruppo <= 0 && fgruppo > 0)
+										{
+											pag.put(PAGSCA_GRUPPOC, fgruppo);
+											pag.put(PAGSCA_CONTOC, fconto);
+											pag.put(PAGSCA_SOTTOCONTC, fsottoc);
+										}
+									}
+									val = pag.get_real(PAGSCA_ABBUONI);
+
+									bool attivo = pag.get_real(PAGSCA_PASSATT) == "A";
+
+									if (val != ZERO)
+									{
+										TImporto imp(sez, val);
+										TToken_string key;
+
+										key << (char)(attivo ? cgrowtype_abbattivo : cgrowtype_abbpassivo);
+
+										if (rows_index.is_key(key))
+											set_importo(cgrows, rows_index.get_int(key), imp);
+									}
+									val = pag.get_real(PAGSCA_DIFFCAM);
+									if (val != ZERO)
+									{
+										TImporto imp(sez, val);
+										TToken_string key;
+
+										key << (char)cgrowtype_diffcambio;
+
+										if (rows_index.is_key(key))
+											set_importo(cgrows, rows_index.get_int(key), imp);
+									}
+									val = pag.get_real(PAGSCA_RITENUTE);
+									if (val != ZERO)
+									{
+										TImporto imp(sez, val);
+										TToken_string key;
+
+										key << (char)cgrowtype_ritfis;
+
+										if (rows_index.is_key(key))
+											set_importo(cgrows, rows_index.get_int(key), imp);
+									}
+									val = pag.get_real(PAGSCA_RITSOC);
+									if (val != ZERO)
+									{
+										TImporto imp(sez, val);
+										TToken_string key;
+
+										key << (char)cgrowtype_ritsoc;
+
+										if (rows_index.is_key(key))
+											set_importo(cgrows, rows_index.get_int(key), imp);
+									}
+								}
+							}
+						}
+					}
+				}
+			}
+
+			TRecord_array & unas = partita.unassigned();
+			if (unas.rows() > 0)
+			{
+				for (int r = unas.last_row(); r > 0; r = unas.pred_row(r))
+				{
+					const TRectype & pag = unas.row(r);
+					int rpag = pag.get_int(PAGSCA_NRIGP);
+
+					if (partita.exist(rpag))
+					{
+						TRiga_partite & riga_pag = partita.riga(rpag);
+						const long nreg_pag = riga_pag.get_long(PART_NREG);
+
+						if (nreg == nreg_pag)
+						{
+							char sez = pag.get(PAGSCA_TIPOC) == "C" ? 'D' : 'A';
+							real val = pag.get_real(PAGSCA_IMPORTO);
+
+							if (val != ZERO)
+							{
+								TImporto imp(sez, val);
+								TToken_string key;
+
+								key << (char)cgrowtype_imponibile;
+								key.add(pag.get_int(PAGSCA_GRUPPOC));
+								key.add(pag.get_int(PAGSCA_CONTOC));
+								key.add(pag.get_long(PAGSCA_SOTTOCONTC));
+
+								if (rows_index.is_key(key))
+									set_importo(cgrows, rows_index.get_int(key), imp);
+							}
+						}
+					}
+				}
+			}
+		}
+		cgrows.force_update();
+	}
+}
+
 real TPrimanota_application::calcola_saldo() const
 {
   const bool pag = is_pagamento() && !_as400;
   TImporto importo, bilancio, saldaconto;
   
   TSheet_field& cgrows = cgs();
+
   FOR_EACH_SHEET_ROW_BACK(cgrows, i, r)
   {
     importo = *r;

src/cg/cg2102.h

@@ -454,6 +454,7 @@ public:
   void type2colors(char tipor, COLOR& back, COLOR& fore);
   void set_type_colors(char tipor, COLOR back, COLOR fore);
   void reset_colors();
+	void aggiorna_saldaconto();
 	real calcola_saldo() const;
 
   TCausale& causale() const { return * _causale; }

src/cg/cgsaldac.cpp

@@ -1487,6 +1487,21 @@ void TPartita::allinea(char all)
   }  
 }
 
+void TPartita::recover_rpag(const TRiga_partite & riga, TImporto & importo, int rigaf, int rataf)
+{
+	TRectype & pag = riga.partita().pagamento(rigaf, rataf, riga.get_int(PART_NRIGA));
+
+	pag.put(PAGSCA_IMPORTO, importo.valore());
+	if (riga.partita().in_valuta())
+	{
+		const TString & codval = riga.get(PART_CODVAL);
+		const real cambio = riga.get_real(PART_CAMBIO);
+		TCurrency importo_val(importo.valore());
+
+		importo_val.change_value(codval, cambio);
+		pag.put(PAGSCA_IMPORTOVAL, importo_val.get_value());
+	}
+}
 
 void TPartita::recover_rpart(const TRectype & pag, int rigap, int unass_row)
 {
@@ -1686,7 +1701,7 @@ bool TPartita::read(const TBill& clifo, int year, const char* num)
   _part.read(partita);
 
 	TAssoc_array regs;
-	int firstrow =first();
+	int firstrow = first();
 
 	for (int r = last(); r >= firstrow; r = pred(r))
 	{
@@ -1733,6 +1748,9 @@ bool TPartita::read(const TBill& clifo, int year, const char* num)
 			}
 		}
 	}
+
+	TBit_array fatture;
+
  	for (int p = last(); p > 0; p = pred(p))
 	{
 		TRiga_partite & rpart = riga(p);
@@ -1740,6 +1758,8 @@ bool TPartita::read(const TBill& clifo, int year, const char* num)
 		if (rpart.tipo() == tm_fattura)
 		{
 			int nrate = rpart.rate();
+
+			fatture.set(p); 
 			for (int s = 1; s <= nrate; s++)
 			{
 				TRiga_scadenze & rscad = rpart.rata(s);
@@ -1768,7 +1788,84 @@ bool TPartita::read(const TBill& clifo, int year, const char* num)
 	_unassigned.read(unas);
 	if (_unassigned.rows() > 0 && _part.rows() <= 0)          // non assegnati orfani!
 		_unassigned.destroy_rows();
+	for (int f = _unassigned.last_row(); f > 0; f = _unassigned.pred_row(f))
+	{
+		const TRectype & pag = _unassigned.row(f);
+		const int rigap = pag.get_int(PAGSCA_NRIGP);
 
+		if (!esiste(rigap))
+		{
+			recover_rpart(pag, rigap, f);
+			_patched = true;
+		}
+	}
+	if (fatture.some_one())
+	{
+		int rigaf = TPartita::UNASSIGNED;
+		int rataf = TPartita::UNASSIGNED;
+
+		if (fatture.ones() == 1)
+		{
+			rigaf = fatture.first_one();
+
+			TRiga_partite & fatt = riga(rigaf);
+
+			if (fatt.rate() == 1)
+				rataf = 1;
+		}
+
+		for (int p = last(); p > 0; p = pred(p))
+		{
+			TRiga_partite & rpart = riga(p);
+
+			if (rpart.tipo() != tm_fattura)
+			{
+				TImporto pagato;
+
+				for (int rf = fatture.first_one(); rf > 0 && rf <= fatture.last_one(); rf++)
+					if (fatture[rf])
+					{
+						TRiga_partite & fatt = riga(rf);
+						int nrate = fatt.rate();
+
+						for (int s = 1; s <= nrate; s++)
+						{
+							TRiga_scadenze & rscad = fatt.rata(s);
+
+							if (rscad.exist(p))
+							{
+								const TRectype & pag = rscad.row(p);
+
+								pagato += rpart.importo_pagsca(pag, false, 0x1);
+							}
+						}
+
+						TRecord_array& unas = unassigned();
+
+						if (unas.exist(p))
+						{
+							const TRectype & pag = unas.row(p);
+							const real importo = pag.get(PAGSCA_IMPORTO);
+							char sez = pag.get(PAGSCA_TIPOC) == "C" ? 'A' : 'D';
+							TImporto i(sez, importo);
+
+							pagato += i;
+						}
+					}
+
+				TImporto importo = rpart.importo(false, 0x1);
+				char sez = importo.sezione();
+
+				importo -= pagato;
+				importo.normalize(sez);
+				if (!importo.is_zero())
+				{
+					recover_rpag(rpart, importo, rigaf, rataf);
+					_patched = true;
+				}
+			}
+		}
+	}
 	TImporto saldo;
 	TImporto doc;
 	TImporto pag;
@@ -1786,17 +1883,7 @@ bool TPartita::read(const TBill& clifo, int year, const char* num)
 
 	if (saldo != oldsaldo || doc != olddoc || pag != oldpag || imp != oldimp)
 		write_saldo(true);
-	for (int f = _unassigned.last_row(); f > 0; f = _unassigned.pred_row(f))
-	{
-		const TRectype & pag = _unassigned.row(f);
-		const int rigap = pag.get_int(PAGSCA_NRIGP);
 
-		if (!esiste(rigap))
-		{
-			recover_rpart(pag, rigap, f);
-			_patched = true;
-		}
-	}
 	if (_patched)
 		rewrite();
   return ok();

src/cg/cgsaldac.h

@@ -260,6 +260,7 @@ public:
   TRectype& pagamento(int nriga, int nrata, int nrigp);
   bool rata_chiusa(int nriga, int nrata) const;
   bool esiste(int nriga, int nrata = 0, int nrigp = 0) const;
+	bool exist(int nriga) const { return _part.exist(nriga); }
   bool esistono_abbuoni_diffcam(long nreg = 0) const;  
   
   const TString& codice_valuta() const;
@@ -271,6 +272,7 @@ public:
   void scollega_pagamenti(int riga, int rata = 1);
 
   void allinea(char all = ' ');
+	void recover_rpag(const TRiga_partite & riga, TImporto & importo, int rigaf, int rataf);
 	void recover_rpart(const TRectype & pag, int rigap, int unass_row = 0);
     
   int succ(int r) const { return _part.succ_row(r); } 
@@ -337,7 +339,7 @@ public:
   virtual ~TPartita();
 };    
 
-class TPartite_array : private TAssoc_array
+class TPartite_array : public TAssoc_array
 { 
   TString _key;      // Work string
   long _numreg;      // Last registration loaded