Patch level : 12.0 908

Files correlati     : ve6.exe, li0.exe
Commento            :
- Correzioni fatturazione con dichiarazioni lettere di intento:
- Ricontrolla a caldo il plafond rimanente per ogni lettera
- Ora se e' a cavallo di due lettere mettere il riferimento di entrambe e chiude la prima
- Prima non chiudeva mai le lettere e metteva il riferimento solo alla prima.
- Cambiato il riferimento da riportare sul documento, ora l'agenzia delle entrate vuole il codice dato dal ministero

src/li/letint.h

@@ -15,5 +15,8 @@
 #define LETINT_AL         "AL"
 #define LETINT_STAMPATO   "STAMPATO"
 #define LETINT_INVIATO    "INVIATO"
+#define LETINT_PROTINTF   "PROTINTF"
+#define LETINT_PROTINTS   "PROTINTS"
+#define LETINT_CHIUSA     "CHIUSA"
 
 #endif

src/li/lilib01.cpp

@@ -1,11 +1,14 @@
 #include "lilib01.h"
-#include <recarray.h>
+#include "letint.h"
+#include "sqlset.h"
 #include <utility.h>
 #include <progind.h>
 
 #define SOLUZIONE_UNICA 1
 #define FINO_A_PLAFOND	2
 
+class TSQL_recordset;
+
 const TString make_key(const int anno, const int numplaf)
 {
 	static TString key; 
@@ -881,3 +884,155 @@ bool popola_plafond(TLista_documenti & din, const TDate& data_elab)
 
 	return ok;
 }
+
+void scrivi_plafond(TLista_documenti & din, const TDate& data_elab)
+{
+  std::map<int, TLi_manager*> plafonds;   // Mappa di clienti-plafond: il plafond e' l'insieme delle lettere
+  TProgress_monitor m_doc(din.items(), "Generazione plafond nelle fatture");
+  for (int i = 0; i < din.items(); i++)
+  {
+    if (!m_doc.add_status())
+      return;
+
+    // Per ogni fattura richiamo il plafond dell'intestatario e faccio le mie elaborazioni
+    if (plafonds.find(din[i].codcf()) == plafonds.end())
+    {
+      TLi_manager* plaf = new TLi_manager(din[i].tipocf(), din[i].codcf(), data_elab);
+      plafonds.insert(std::pair<int, TLi_manager*>(din[i].codcf(), plaf));
+    }
+    TLi_manager& this_pla = *plafonds[din[i].codcf()];	// Forget about optimization!
+    if (!this_pla.has_valid_plafond())
+      continue;
+    // Prima di tutto guardo se il documento ha righe esenti, altrimenti vado avanti
+    real esenz_this_doc = ZERO;
+    TAssoc_array tab_iva = din[i].tabella_iva(true);
+    for (TRiepilogo_iva * totali = (TRiepilogo_iva *)tab_iva.get(); totali != NULL; totali = (TRiepilogo_iva *)tab_iva.get())
+    {
+      if (this_pla.check_iva(totali->cod_iva().codice()))
+        esenz_this_doc += cache().get("%TIP", din[i].tipo().codice()).get_bool("B7") ? -totali->imp_orig() : totali->imp_orig();
+    }
+    if (esenz_this_doc.is_zero())
+      continue;
+
+    // Non mi fido di cosa e' stato scritto sui documenti, ricontrollo a caldo che le lettere siano ancora aperte (ogni volta... lo so...)
+    // Prendo tutti i documenti, prendo tutte le righe di esenzione e le vado a sottrarre alla prima lettera. Se la supero guardo se ce ne sono altre.
+    // Se sto dentro sono a posto e so che sto usando ancora quella dichiarazione, se invece la supero e non c'e' un'altra ho sforato il plafond.
+    TLocalisamfile lint(LF_LETINT);
+    TSQL_recordset rec_lint("");
+    TString sql; sql << "SELECT * FROM LETINT WHERE ANNO=" << din[i].anno() << " AND CODCLI=" << din[i].clifor().codice();
+    rec_lint.set(sql);
+    int n_letint = rec_lint.items();
+    if (n_letint > 0)
+      rec_lint.move_next();
+    lint.put(LETINT_ANNO, din[i].anno());
+    lint.put(LETINT_NUMPROT, rec_lint.get(rec_lint.find_column(LETINT_NUMPROT)).as_string());
+    lint.read();
+
+    bool ok = true;
+    TSQL_recordset docs("");
+    TToken_string tipi, stati;
+    create_tipi_stati(tipi, stati);
+    
+    sql.cut(0) << "SELECT * FROM DOC\n"
+      "WHERE ANNO=" << din[i].anno() << " AND TIPOCF='" << din[i].clifor().tipo() << "' AND CODCF=" << din[i].clifor().codice() << " AND (";
+    sql << "CODNUM='" << tipi.get(0) << "' AND STATO=" << stati.get(0);
+    for(int z = 1; z < tipi.items(); ++z)
+      sql << " OR CODNUM='" << tipi.get(z) << "' AND STATO=" << stati.get(z);
+    sql << ")\nORDER BY NDOC";
+    docs.set(sql);
+    real valore = rec_lint.get(rec_lint.find_column(LETINT_IMPORTO)).as_real();
+    for (bool ok_d = docs.move_next(); ok_d; ok_d = docs.move_next())
+    {
+      int ndoc = docs.get(docs.find_column(DOC_NDOC)).as_int();
+      const char* codnum = docs.get(docs.find_column(DOC_CODNUM)).as_string();
+      TDocumento p_doc('D', din[i].anno(), codnum, ndoc);
+      // Calcolo quanto plafond sta utilizzando
+      real esenzione = ZERO;
+      // Calcolo quant'e' l'importo di esenzione sommando tutte le righe che hanno il codice esenzione iva per plafond
+      tab_iva.destroy();
+      tab_iva = p_doc.tabella_iva(true);
+      for (TRiepilogo_iva * totali = (TRiepilogo_iva *)tab_iva.get(); totali != NULL; totali = (TRiepilogo_iva *)tab_iva.get())
+      {
+        if (this_pla.check_iva(totali->cod_iva().codice()))
+          esenzione += cache().get("%TIP", p_doc.tipo().codice()).get_bool("B7") ? -totali->imp_orig() : totali->imp_orig();
+      }
+      if(!p_doc.is_nota_credito())
+        valore -= esenzione;
+      else
+        valore += esenzione;
+      if(valore < ZERO)
+      {
+        lint.put(LETINT_CHIUSA, "X"); // Chiudo
+        lint.write();
+        lint.rewrite();
+        real resto = ZERO;
+        if (rec_lint.move_next())     // Passo alla successiva se c'e'
+        {
+          lint.put(LETINT_ANNO, din[i].anno()); // Dopo la move
+          lint.put(LETINT_NUMPROT, rec_lint.get(rec_lint.find_column(LETINT_NUMPROT)).as_string());
+          lint.read();
+          resto = -valore;
+          valore = rec_lint.get(rec_lint.find_column(LETINT_IMPORTO)).as_real() - resto;
+        }
+        else if(valore < ZERO)
+        {
+          ok = false;
+          break;
+        }
+      }
+    }
+    if(!ok)
+      message_box("Attenzione c'e' almeno un documento che sfora il plafond per questo cliente: %d", din[i].clifor().codice());
+    // Scrivo sul documento le lettere di intento utilizzate e l'importo di ciascuna
+    // N._riferimento_lettera1|anno1|importo_usato1,N._riferimento_lettera2|anno2|importo_usato2,...
+    TToken_string used("", ',');
+    TToken_string single_used("", '|');
+    if (valore.not_zero())
+    {
+      // Guardo se ci sta tutto nella prima lettera o devo usare anche la successiva
+      single_used.add(TString(lint.get(LETINT_PROTINTF)) << " " << lint.get(LETINT_PROTINTS));
+      single_used.add(lint.get(LETINT_ANNO));
+      real this_letint_importo = lint.get_real(LETINT_IMPORTO);
+      real resto = valore - esenz_this_doc;
+      single_used.add(resto >= ZERO ? esenz_this_doc : valore);
+      used.add(single_used);  // Aggiungo primo riferimento
+      single_used = "";
+      if (valore < esenz_this_doc)
+      {
+        lint.put(LETINT_CHIUSA, "X"); // Chiudo
+        lint.write();
+        lint.rewrite();
+        if (rec_lint.move_next())   // Se sforo la prima guardo se c'e' un'altra lettera altrimenti ho sforato veramente
+        {
+          lint.put(LETINT_ANNO, din[i].anno());
+          lint.put(LETINT_NUMPROT, rec_lint.get(rec_lint.find_column(LETINT_NUMPROT)).as_string());
+          lint.read();
+          single_used.add(TString(lint.get(LETINT_PROTINTF)) << " " << lint.get(LETINT_PROTINTS));
+          single_used.add(lint.get(LETINT_ANNO));
+          if (lint.get_real(LETINT_IMPORTO) < -resto)
+            message_box("Errore... impossibile inserire ulteriori lettere di intento per questo documento.");
+          if (lint.get_real(LETINT_IMPORTO) == -resto)
+          {
+            lint.put(LETINT_CHIUSA, "X"); // Chiudo
+            lint.write();
+            lint.rewrite();
+          }
+          single_used.add(-resto);
+          used.add(single_used);
+        }
+        else
+          message_box("Attenzione c'e' un documento che sfora il plafond per questo cliente:\n%d, %s", din[i].clifor().codice(), din[i].clifor().get(CLI_RAGSOC));
+      }
+      else if (valore == esenz_this_doc)  // Se uguale chiudo la lettera
+      {
+        lint.put(LETINT_CHIUSA, "X");
+        lint.write();
+        lint.rewrite();
+      }
+    }
+    din[i].put("PLAFOND", used);
+  }
+
+  for (auto it = plafonds.begin(); it != plafonds.end(); ++it)
+    delete it->second;
+}

src/li/lilib01.h

@@ -104,6 +104,7 @@ public:
 static void create_tipi_stati(TToken_string& tipi, TToken_string& stati);
 bool genera_li_storico(const TDate& data_ini);
 bool popola_plafond(TLista_documenti& din, const TDate& data_elab);
+void scrivi_plafond(TLista_documenti& din, const TDate& data_elab);
 
 
 #endif

src/ve/ve6200.cpp

@@ -6,6 +6,7 @@
 #include "ve6200.h"
 #include "ve6200a.h"
 #include "../li/lilib01.h"
+#include "../li/lilib01.cpp"
 
 #include <doc.h> 
 
@@ -37,12 +38,42 @@ bool TFatturazione_bolle_app::process(TProgress_monitor& iw, TElaborazione & eld
     iw.set_text(msg);           // Messaggio sul cliente
     do_events();                // Attende visualizzazione
 
-		// Una volta che di documenti sono elaborati ci scrivo sopra il valore del plafond
+
-		if (!popola_plafond(dout, data_elab))
+    // Test Plafond
+    TToken_string tipi, stati;
+    create_tipi_stati(tipi, stati);
+    int clifo = din[0].clifor().codice();
+
+    TDate       aData(TODAY);
+    TLi_manager currentCli('C', clifo, aData);	  // Inizializzo l'oggetto per la gestione del plafond
+    real plafond, res_plafond, tot_fat;
+    if (currentCli.has_valid_plafond())
     {
-			return error_box("Errore durante la generazione del plafond, le fatture non son state create");
+      plafond     = currentCli.get_plafond();
+      res_plafond = plafond - currentCli.elab_util(tipi, stati, aData);
+      for (int i = 0; i < din.items(); ++i)
+        tot_fat += din[i].totale_doc();
+
+      TLog_report lerr;
+      if (tot_fat > res_plafond)
+      {
+        bool plur = din.items() > 1;
+        TString err;
+        err << "Errore durante la generazione del plafond:\n" <<
+          (plur ? "I documenti da elaborare superano" : "Il documento da elaborare supera") << " il plafond per questo cliente.\n"
+          "Plafond rimanente: %s\n" <<
+          (plur ? "Totale fatture: %s\n" : "Totale fattura: %s\n") <<
+          (plur ? "Le fatture non sono state create." : "La fattura non e' stata creata.");
+        return error_box(err, res_plafond.string(), tot_fat.string());
       }
 
+      // Una volta che di documenti sono elaborati ci scrivo sopra il valore del plafond
+      scrivi_plafond(dout, data_elab);
+      //if (!popola_plafond(dout, data_elab))
+      //{
+      //  return error_box("Errore durante la generazione del plafond, le fatture non son state create");
+      //}
+
       int err = dout.write();     // Scrive documenti di output
       if (err == NOERR)
       {
@@ -53,6 +84,8 @@ bool TFatturazione_bolle_app::process(TProgress_monitor& iw, TElaborazione & eld
       else
         ok = error_box("Errore %d durante l'aggiornamento dei documenti da raggruppare!", err);
     }
+
+  }
   return ok;
 }