Patch level : 12.0 1032

Files correlati     : ve0.exe

Commento :

Modificato il metodo di ricerca dei riferimenti di bolla per le fatture delle lavanderie con i riferimenti in testa

Interno

Bisogna controllare i casi normali

src/fp/fplib01.cpp

@@ -23,22 +23,6 @@
 bool set_connection(SSimple_query& s)
 {
 	bool ok = true;
-#ifdef DBG
-	TString ip = fp_settings().get_db_indirizzo();
-	if (ip.upper() != "TESTCAMPO2012")
-	{
-		if (s.sq_connect("TESTCAMPO2012@campo_fp",
-			"fp",
-			"fp",
-			TSDB_MSSQL) != NOERR)
-		{
-			warning_box("Impossibile connettersi al DB esterno");
-			ok = false;
-		}
-	}
-	else
-	{
-#endif
 		if (s.sq_connect(
 			fp_settings().get_db_str_con(),
 			fp_settings().get_db_user(),
@@ -48,9 +32,6 @@ bool set_connection(SSimple_query& s)
 			warning_box("Impossibile connettersi al DB esterno");
 			ok = false;
 		}
-#ifdef DBG
-	}
-#endif
 	return ok;
 }
 
@@ -1838,8 +1819,51 @@ bool TDoc_fp::doc_to_paf(TDocumentoEsteso& doc)
 	long      riga = 1;
   bool      f_buonocons = false;
   bool      first_row   = false;
+  const bool riftesta = main_app().has_module(LVAUT, CHK_DONGLE) && ini_get_bool(CONFIG_DITTA, "lv", "RifTest");
   map<TString20, TDate> ancestors_s;
   TString riga_buoni_cons;
+  TString temp;
+
+  if (riftesta)
+  {
+    TString rifs = doc.get(DOC_NOTE);
+
+    if (rifs.len() > 25 && rifs[25] == ' ')
+    {
+      temp = rifs;
+      rifs = temp.left(25);
+      temp.ltrim(26);
+      rifs << temp;
+    }
+    rifs.trim();
+    if (rifs == "0")
+      rifs.cut(0);
+    int pos = rifs.find(" - ");
+    int len = rifs.len();
+
+    if (len > 0  && pos < 0)
+      pos = len;
+
+    for(; pos >= 0;)
+    {
+      TToken_string rif(rifs.left(pos), ' ');
+
+      // <DatiDDT>
+      reset(paf1600f);
+      temp = rif.get();
+      paf1600f.set("PF_NUMDDDT", temp);
+      temp = rif.get();
+      paf1600f.set("PF_DATADDT", temp);
+      paf1600f.set("PF_GESTIONE", "D");
+      ok &= insert(paf1600f);
+      rifs.ltrim(pos + 3);
+      pos = rifs.find(" - ");
+      len = rifs.len();
+      if (len > 0 && pos < 0)
+        pos = len;
+      // </DatiDDT>
+    }
+  }
 	FOR_EACH_PHYSICAL_FPRDOC(doc, r, rdoc)
 	{
 		// Controllo la riga
@@ -1888,7 +1912,7 @@ bool TDoc_fp::doc_to_paf(TDocumentoEsteso& doc)
         log(1, msg);
       }
       set_qta_prezzo(paf1800f, rdoc);
-			if(rdoc->iva().codice().empty())
+      if (rdoc->iva().codice().empty())
       {
         set_IVA(_codivadefault, paf1800f);
       }
@@ -1903,6 +1927,8 @@ bool TDoc_fp::doc_to_paf(TDocumentoEsteso& doc)
       /*
       * Ogni riga si può rifare a un DDT/Ordine diverso, per questo devo inserire i dati da qua e non in testata
       */
+      if (!riftesta)
+      {
         TArray ancestors;
         find_ancestors(*rdoc, ancestors);
         for (int i = ancestors.last(); i > 0; i = ancestors.pred(i))
@@ -1937,6 +1963,7 @@ bool TDoc_fp::doc_to_paf(TDocumentoEsteso& doc)
             // </DatiOrdineAcquisto>
           }
         }
+      }
     }
 		else if (rdoc->is_spese())
 		{
@@ -2101,7 +2128,7 @@ bool TDoc_fp::doc_to_paf(TDocumentoEsteso& doc)
 
   /* Se ho una fattura che deriva dalla fatturazione differita delle lavanderie prendo
    * dalla relativa riga descrizione tutti i riferimenti alle bolle che mancano */
-  if (f_buonocons)
+  if (!riftesta && f_buonocons)
   {
     TString& memo = riga_buoni_cons;
     if (memo.full())