Patch level :

Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
analisi bilancio di commessa alla data: aggiunta elaborazione documenti


git-svn-id: svn://10.65.10.50/trunk@18883 c028cbd2-c16b-5b4b-a496-9718f37d4682

ca/ca3700.cpp

@@ -1414,8 +1414,7 @@ void TPrint_rendiconto_ca_recordset::crea_righe_da_rdoc(TLocalisamfile& tmp, con
 		//validi nei filtri impostati dall'utente 
 		for (cur_rdoc = 0; cur_rdoc.pos() < rdoc_items; ++cur_rdoc)
 		{
-			pi.addstatus(1);
+      if (!pi.addstatus(1))
-      if (pi.iscancelled())
         break;
 			
 			//La riga esaminata deve avere una testata valida!!!!Se la testata non esiste va saltata..

ca/ca3883.cpp

@@ -1,6 +1,7 @@
 #include <progind.h>
 
 #include "../ve/velib.h"
+#include "../ve/velib04.h"
 
 #include "calib01.h"
 #include "calib02.h"
@@ -1037,8 +1038,7 @@ void TPrint_saldana_recordset::parse_saldana(TAssoc_array* cms, const TDate& dat
 	for (bool ok = saldana_set.move_first(); ok; ok = saldana_set.move_next())
 	{
 		//progind tanto per gradire
-		pi.addstatus(1);
+    if (!pi.addstatus(1))
-    if (pi.iscancelled())
       break;
 
 		const TString& codconto = saldana.get(SALDANA_CONTO);
@@ -1140,66 +1140,11 @@ void TPrint_saldana_recordset::parse_saldana(TAssoc_array* cms, const TDate& dat
 }
 
 
-//aggiorna l'arrayone cms con le rmovana
+//elabora realmente la riga analitica che gli viene passata (serve sia per le rmovana pure (chiamata dalla parse_rmovava())..
-void TPrint_saldana_recordset::parse_rmovana(TAssoc_array* cms, const TDate& datainiesc, const TDate& datafinesc)
+//..che per quelle create contabilizzando un documento (chiamata dalla parse_rdoc())
+void TPrint_saldana_recordset::elabora_rmovana(TAssoc_array* cms, const TDate& datainiesc, const TDate& datafinesc, 
+                                               const TRectype& movana, const TRectype& rmovana)
 {
-  const TDate min_datacomp = calcola_min_datacomp(datainiesc, datafinesc);
-
-  //cerca tutte le rmovana che soddisfano gli innumerevoli parametri
-  TString query;
-  query << "USE RMOVANA KEY 3\n";
-
-  switch (_tipostampa)
-  {
-  case 1:
-  case 4:
-    if (_fase.full())
-      query << "SELECT CODFASE=\"" << _fase << "\"\n";
-    break;
-  case 2:
-  case 8:
-    if (_cdc.full())
-      query << "SELECT CODCCOSTO=\"" << _cdc << "\"\n";
-    break;
-  case 3:
-    if (_fase.full() || _cdc.full())
-    {
-      if (_fase.full() && _cdc.full())
-        query << "SELECT (CODFASE=\"" << _fase << "\")&&(CODCCOSTO=\"" << _cdc << "\")\n";
-      else
-      {
-        if (_fase.full())
-          query << "SELECT CODFASE=\"" << _fase << "\"\n";
-        else
-          query << "SELECT CODCCOSTO=\"" << _cdc << "\"\n";
-      }
-    }      
-    break;
-  }
-
-  query << "JOIN MOVANA INTO NUMREG==NUMREG\nFROM DATACOMP=#MINDATACOMP\nTO DATACOMP=#DATACALCOLO";
-  TISAM_recordset recset(query);
-  recset.set_var("#DATACALCOLO", _datacalcolo);
-  recset.set_var("#MINDATACOMP", min_datacomp);
-
-  const TRecnotype recset_items = recset.items();
-  //se ci sono movana che non expirano prima dell'inizio esercizio e la cui datacomp è anteriore a datacalcolo... 
-  if (recset_items > 0)
-  {
-    //record correntemente in esame di rmovana e movana
-    const TRectype& rmovana = recset.cursor()->curr();
-    const TRectype& movana = recset.cursor()->curr(LF_MOVANA);
-
-    //simpatica progind per intrattenere l'utonto
-    TProgind pi(recset_items, "Scansione movimenti...", true, true);
-
-    for (bool ok = recset.move_first(); ok; ok = recset.move_next())    //giro sui vari rmovana...
-    {
-      //aggiornamento progind intrattenitiva
-		  pi.addstatus(1);
-      if (pi.iscancelled())
-        break;
-
   const char tipomov = movana.get_char(MOVANA_TIPOMOV);
   //la data iniziale è la datacomp sulla testata per tutte le righe
   const TDate datacomp = movana.get_date(MOVANA_DATACOMP);
@@ -1314,6 +1259,72 @@ void TPrint_saldana_recordset::parse_rmovana(TAssoc_array* cms, const TDate& dat
       }
     }
   } //if(indice>=0)...
+ 
+}
+
+
+//aggiorna l'arrayone cms con le rmovana
+void TPrint_saldana_recordset::parse_rmovana(TAssoc_array* cms, const TDate& datainiesc, const TDate& datafinesc)
+{
+  const TDate min_datacomp = calcola_min_datacomp(datainiesc, datafinesc);
+
+  //cerca tutte le rmovana che soddisfano gli innumerevoli parametri
+  TString query;
+  query << "USE RMOVANA KEY 3\n";
+
+  switch (_tipostampa)
+  {
+  case 1:
+  case 4:
+    if (_fase.full())
+      query << "SELECT CODFASE=\"" << _fase << "\"\n";
+    break;
+  case 2:
+  case 8:
+    if (_cdc.full())
+      query << "SELECT CODCCOSTO=\"" << _cdc << "\"\n";
+    break;
+  case 3:
+    if (_fase.full() || _cdc.full())
+    {
+      if (_fase.full() && _cdc.full())
+        query << "SELECT (CODFASE=\"" << _fase << "\")&&(CODCCOSTO=\"" << _cdc << "\")\n";
+      else
+      {
+        if (_fase.full())
+          query << "SELECT CODFASE=\"" << _fase << "\"\n";
+        else
+          query << "SELECT CODCCOSTO=\"" << _cdc << "\"\n";
+      }
+    }      
+    break;
+  }
+
+  query << "JOIN MOVANA INTO NUMREG==NUMREG\nFROM DATACOMP=#MINDATACOMP\nTO DATACOMP=#DATACALCOLO";
+  TISAM_recordset recset(query);
+  recset.set_var("#DATACALCOLO", _datacalcolo);
+  recset.set_var("#MINDATACOMP", min_datacomp);
+
+  const TRecnotype recset_items = recset.items();
+  //se ci sono movana che non expirano prima dell'inizio esercizio e la cui datacomp è anteriore a datacalcolo... 
+  if (recset_items > 0)
+  {
+    //record correntemente in esame di rmovana e movana
+    const TRectype& rmovana = recset.cursor()->curr();
+    const TRectype& movana = recset.cursor()->curr(LF_MOVANA);
+
+    //simpatica progind per intrattenere l'utonto
+    TProgind pi(recset_items, "Scansione movimenti...", true, true);
+
+    for (bool ok = recset.move_first(); ok; ok = recset.move_next())    //giro sui vari rmovana...
+    {
+      //aggiornamento progind intrattenitiva
+      if (!pi.addstatus(1))
+        break;
+
+      //metodo per generare i saldi alla data della riga analitica in base alla vita della riga
+      elabora_rmovana(cms, datainiesc, datafinesc, movana, rmovana);
+
    } //for(bool ok=recset.move_first()...
   } //if(recset_items>0...
 }
@@ -1357,7 +1368,7 @@ int TPrint_saldana_recordset::numerazioni_ordini(TString_array& num_ordini, TStr
 
 
 //aggiorna l'arrayone cms con le righedoc non ancora contabilizzate
-void TPrint_saldana_recordset::parse_rdoc(TAssoc_array* cms, const TDate& datainiesc)
+void TPrint_saldana_recordset::parse_rdoc(TAssoc_array* cms, const TDate& datainiesc, const TDate& datafinesc)
 {
   //solo le numerazioni con almeno un tipo documento ordine interessano
   TString_array num_ordini, tip_ordini;
@@ -1372,7 +1383,7 @@ void TPrint_saldana_recordset::parse_rdoc(TAssoc_array* cms, const TDate& datain
     TString query;
     query << "USE RDOC KEY 3\n";
 
-    query << "SELECT (BETWEEN(DOC.DATADOC, #DATAINIES, #DATACALCOLO))";
+    query << "SELECT (BETWEEN(DOC.DATADOC, #DATAINIES, #DATACALCOLO))&&(RIGAEVASA!=\"X\")";
 
     //filtro su cdc/cms/fasi (fatto come per saldi e rmovana; purtroppo non si può metodizzare perchè in tutti i files..
     //..i nomi dei campi sono diversi!
@@ -1416,13 +1427,85 @@ void TPrint_saldana_recordset::parse_rdoc(TAssoc_array* cms, const TDate& datain
     //simpatica progind per intrattenere l'utonto
     TProgind pi(recset_items, "Scansione documenti...", true, true);
 
+    //memorizza l'ultimo doc per evitare doppioni in caso di doc con più righe (rielaborerebbe..
+		//..lo stesso documento tante volte quante sono le sue righe!)
+		TString old_key;
+    //misterioso oggetto necessario per contabilizzare il documento in osservazione
+    TContabilizzazione_analitica cont_anal;
+
     for (bool ok = recset.move_first(); ok; ok = recset.move_next())    //giro sulle varie rdoc...
     {
       //aggiornamento progind intrattenitiva
-		  pi.addstatus(1);
+      if (!pi.addstatus(1))
-      if (pi.iscancelled())
         break;
+
+      const TRectype& curr_doc = recset.cursor()->curr(LF_DOC);
+      //controlla se il documento contenente la riga è davvero un ordine ricontrollando il suo tipo nell'array..
+      //..con i tipi validi; se non lo fosse...ciao ciao rigadocumento!
+      const TString& tipodoc = curr_doc.get(DOC_TIPODOC);
+      if (tip_ordini.find(tipodoc))
+        continue;
+
+      //ovviamente non è finita qui...
+      //la riga documento non deve risultare contabilizzata! infatti, se lo fosse, i suoi valori apparirebbero..
+      //..nella sezione delle rmovana
+      const long numregca = curr_doc.get_long(DOC_NUMREGCA);
+      //se la rigadoc non è stata contabilizzata..
+      if (numregca == 0)
+      {
+        //magico trucco per non dover ricontabilizzare lo stesso documento tante volte quante sono le righe consecutive
+      	const TString curr_key = curr_doc.build_key();
+				if (curr_key == old_key)
+					continue;
+				else
+					old_key = curr_key;
+
+        //crea il documento virtuale in memoria; se non è ordine oppure lo è ma è già evaso, lo saltiamo!!! ole'! 
+        TDocumento doc(curr_doc);
+        if (!doc.is_ordine() || doc.is_evaso())
+           continue;
+
+        //il documento virtuale è adesso un ordine non evaso
+        //tarocchiamo il documento prendendo solo le righe non evase (almeno una ci sarà, perchè la query del recordset..
+        //..richiedeva che la rigadoc fosse non evasa, quindi quella riga nel doc esiste, magari in compagnia di altre)
+        for (int r = doc.body().last_row(); r > 0; r = doc.body().pred_row(r))
+        {
+          TRiga_documento& rigadoc = doc[r];
+          if (!rigadoc.is_evasa())
+          {
+            //trasforma tutte le righe a valore, assegnando al prezzo il valore del residuo
+            const real residuo = rigadoc.valore(false);
+            rigadoc.put(rigadoc.tipo().quant(), UNO);
+            rigadoc.put(RDOC_PREZZO, residuo);
           }
+          else
+            doc.body().destroy_row(r, true);  //se la riga fosse evasa la salta e compatta il documento
+        }
+
+        //movana nevessario per la contabilizzazione analitica del documento
+        TAnal_mov movana;
+			  //finalmente contabilizza il documento in memoria
+        cont_anal.elabora(doc, 0, NULL, false, movana, false);
+
+      	//controlla che la riga in esame abbia realmente la cms/cdc/fas indicata nel filtro;
+				//procedimento necessario per evitare di prendere righe appartenenti a docs elaborati
+				//perchè contenenti 1 riga con cms corretta ed altre righe con cms sbagliate
+    		for (int j = 1; j <= movana.rows(); j++)
+				{
+					const TRectype& rmovana = movana.body()[j];
+
+					if (_cdc.not_empty() && rmovana.get(RMOVANA_CODCCOSTO) != _cdc)
+						continue;
+					if (_fase.not_empty() && rmovana.get(RMOVANA_CODFASE) != _fase)
+						continue;
+
+          //metodo per il calcolo importo riga riproporzionato
+          //metodo per generare i saldi alla data della riga analitica in base alla vita della riga
+          elabora_rmovana(cms, datainiesc, datafinesc, movana, rmovana);
+
+				}	//for int j...
+      }
+    } //for (bool ok = recset....
 
   } //for (int n = 0; n < numerazioni...
 
@@ -1454,7 +1537,7 @@ void TPrint_saldana_recordset::create_lines_to_print(const TString& query)
       parse_rmovana(cms, datainiesc, datafinesc);
 
       // 2_b) calcolo dei saldi da documenti non ancora contabilizzati e quindi senza movana e saldana
-      parse_rdoc(cms, datainiesc);
+      parse_rdoc(cms, datainiesc, datafinesc);
     } //if((_datacalcolo<datafinesc...
   } //if(_tipo==8)...
 

ca/ca3883.h

@@ -93,9 +93,11 @@ protected:
   int estrai_saldi(const TRectype& saldana, const int indbil, 
 			 						 TImporto& saldo, TImporto& saldop, const bool cms_detraz) const;
 
+  void elabora_rmovana(TAssoc_array* cms, const TDate& datainiesc, const TDate& datafinesc, 
+                       const TRectype& movana, const TRectype& rmovana);
   void parse_rmovana(TAssoc_array* cms, const TDate& datainiesc, const TDate& datafinesc);
   void parse_saldana(TAssoc_array* cms, const TDate& datainiesc, const TDate& datafinesc, const TString& query);
-  void parse_rdoc(TAssoc_array* cms, const TDate& datainiesc);
+  void parse_rdoc(TAssoc_array* cms, const TDate& datainiesc, const TDate& datafinesc);
 
   //per il solo ca3800
 	void aggiorna_importo(TAssoc_array& riga_array, const TString& livello, const int indbil,