Patch level : 10.0

Files correlati     : tp0
Ricompilazione Demo : [ ]
Commento            :
Nuova gestione CONAI per PACK


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

tp/tp0100.cpp

@@ -195,9 +195,23 @@ long TPack_transfer::odbc_exec(const char* cmd)
       err = _outset->exec("BEGIN TRANS");
     }
     if (err >= 0)
+    {
       err = _outset->exec(cmd);
-    if (err < 0)
+      if (err < 0)
-      log_error(TR("Errore di connessione al database"));
+      {
+        log("", 0);                       // Salto una riga
+        TParagraph_string msg(cmd, 100);
+        FOR_EACH_TOKEN(msg, str)         
+          log(str, 0);                    // Riporto tutta la query
+        log_error(TR("ERRORE in esecuzione della query."));
+      }
+    }
+    else
+    {
+      TString msg;
+      msg << TR("ERRORE di connessione a ") << _outset->dsn() << " : BEGIN TRANS";
+      log_error(msg);
+    }
   }
   return err;
 }

tp/tp0101.cpp

@@ -1,10 +1,10 @@
 #include "tp0100.h"
 
-#include <expr.h>
 #include <recarray.h>
 #include <tabutil.h>
 
 #include "..\pr\agenti.h"
+
 #include <clifo.h>
 #include <cfven.h>
 #include <comuni.h>
@@ -18,44 +18,45 @@
 
 class TCache_ban : public TCache_tp
 {
+  TTable _ban;
+
 protected:
   virtual TObject* key2obj(const char* key);
 
 public:
   virtual const TString& decode(const TToken_string& tok);
-  TCache_ban(TPack_transfer* pt) : TCache_tp(pt) {}
+  TCache_ban(TPack_transfer* pt) : TCache_tp(pt), _ban("%BAN") {}
 };
 
 TObject* TCache_ban::key2obj(const char* key)
 {
-  TTable ban("%BAN");
   TToken_string code(key);
   TString8 abi; code.get(0, abi);
   TString8 cab; code.get(1, cab);
-  ban.put("CODTAB", abi);
+  _ban.put("CODTAB", abi);
-  if (ban.read() != NOERR)
+  if (_ban.read() != NOERR)
   {
     const TString& desc = get_str("BankName");
-    ban.put("CODTAB", abi);
+    _ban.put("CODTAB", abi);
-    ban.put("S0", desc);
+    _ban.put("S0", desc);
-    test_write(ban);
+    test_write(_ban);
   }
 	TString16 str;
 	str << abi; str << cab;
-  ban.put("CODTAB", str);
+  _ban.put("CODTAB", str);
-  if (ban.read() != NOERR)
+  if (_ban.read() != NOERR)
   {
     const TString& desc = get_str("BankName");  
-    ban.put("CODTAB", str);
+    _ban.put("CODTAB", str);
-    ban.put("S0", desc);
+    _ban.put("S0", desc);
-    test_write(ban);
+    test_write(_ban);
   }
-  return ban.get("S0").dup();
+  return _ban.get("S0").dup();
 }
 
 const TString& TCache_ban::decode(const TToken_string& tok)
 {
-  return *(const TString*) objptr(tok);
+  return *(const TString*)objptr(tok);
 }
 
 ///////////////////////////////////////////////////////////

tp/tp0102.cpp

@@ -3,10 +3,51 @@
 #include "../ve/velib.h"
 #include "../mg/codcorr.h"
 
-///////////////////////////////////////////////////////////
+//////////////////////////////////////////////////////////
 // Cache articoli
 ///////////////////////////////////////////////////////////
 
+class TArticolo_pack : public TRectype
+{
+  TString _cust_code, _paper_comp;
+  
+  TString4 _conai_scat[CONAI_CLASSES];
+  real _conai_peso[CONAI_CLASSES];
+
+public:
+  void set_customer_code(const TString& cc) { _cust_code = cc; }
+  const TString& customer_code() const { return _cust_code; }
+  
+  void set_paper_composition(const TString& pc) { _paper_comp = pc; }
+  const TString& paper_composition() const { return _paper_comp; }
+
+  const TString& conai_subclass(TCONAI_class cc) const { CHECK_CONAI(cc); return _conai_scat[cc]; }
+  const real& conai_weight(TCONAI_class cc) const { CHECK_CONAI(cc); return _conai_peso[cc]; }
+  
+  TArticolo_pack(const TRectype& anamag);
+  TArticolo_pack();
+};
+
+TArticolo_pack::TArticolo_pack(const TRectype& anamag) : TRectype(anamag)
+{}
+
+TArticolo_pack::TArticolo_pack() : TRectype(LF_ANAMAG)
+{
+  FOR_EACH_CONFIGURED_CONAI_CLASS(cc)
+  {
+    const TFieldref anamag_sotcat(conai_sottocat_name(cc, LF_ANAMAG), LF_ANAMAG);
+    const TFieldref anamag_weight(conai_peso_name(cc, LF_ANAMAG), LF_ANAMAG);
+
+    const TString4 sotcat = anamag_sotcat.read(*this);
+    const real peso = anamag_weight.read(*this);
+    if (sotcat.full() && !peso.is_zero())
+    {
+      _conai_scat[cc] = sotcat;
+      _conai_peso[cc] = peso;
+    }
+  }
+}
+
 class TCache_art : public TCache_tp
 {
   TLocalisamfile _anamag;
@@ -14,17 +55,17 @@ class TCache_art : public TCache_tp
 protected:
   virtual TObject* key2obj(const char* key);
   virtual const TString& decode(const TToken_string& tok);
-  bool get_extra_info(const char* key, TString& pc, TString& cc) const;
+  bool get_extra_info(const char* key, TArticolo_pack& art) const;
 
 public:
-  const TRectype& articolo();
+  const TArticolo_pack& articolo();
   TCache_art(TPack_ddt* ddt) : TCache_tp(ddt), _anamag(LF_ANAMAG) {}
 };
 
-bool TCache_art::get_extra_info(const char* key, TString& pc, TString& cc) const
+bool TCache_art::get_extra_info(const char* key, TArticolo_pack& art) const
 {
   TString qry(512);
-  qry << query_header();
+  qry = query_header();
   qry << "SELECT Paper_Composition_Group.CompDesc, Mag_Existing_Article.ArticleCustCode\n"
       << "FROM Mag_Existing_Article, Articles_Composition, Paper_Composition_Group\n"
       << "WHERE (Mag_Existing_Article.ArtCode='" << key << "') AND "
@@ -34,8 +75,10 @@ bool TCache_art::get_extra_info(const char* key, TString& pc, TString& cc) const
   const bool ok = paperset.move_first();
   if (ok)
   {
-    pc = paperset.get(0u).as_string(); // Paper composition
+    const TString pc = paperset.get(0u).as_string(); // Paper composition
-    cc = paperset.get(1).as_string();  // Customer code
+    const TString cc = paperset.get(1).as_string();  // Customer code
+    art.set_customer_code(cc);
+    art.set_paper_composition(pc);
     if (cc.full())
     {
       int righe = 0;
@@ -59,51 +102,59 @@ bool TCache_art::get_extra_info(const char* key, TString& pc, TString& cc) const
       }
     }
   }
+
+  qry = query_header();
+  qry << "SELECT ClassCode,Weight\n"
+      << "FROM Mag_Existing_Article, Articles_environmentTax\n"
+      << "WHERE (Mag_Existing_Article.ArtCode='" << key << "') AND "
+      << "(Mag_Existing_Article.ArticleCode=Articles_environmentTax.ArticleCode)";
+  TODBC_recordset envtax(qry);
+  for (bool et = envtax.move_first(); et; et = envtax.move_next())
+  {
+    const TString& cc = envtax.get(0u).as_string();
+    const real wkg = envtax.get(1).as_real();
+  }
+
   return ok;
 }
 
 TObject* TCache_art::key2obj(const char* key)
 {
-  if (key && *key > ' ') // Non salvo i codici vuoti presenti nelle righe descrizione
+  // Non salvo i codici vuoti presenti nelle righe descrizione
+  if (key == NULL || *key <= ' ')
+    return new TArticolo_pack; // Articolo nullo
+
+  _anamag.put(ANAMAG_CODART, key);
+  if (_anamag.read() != NOERR)
   {
-    _anamag.put(ANAMAG_CODART, key);
-    if (_anamag.read() != NOERR)
-    {
-      _anamag.zero();
-      _anamag.put(ANAMAG_CODART, key);
-      const TString& desc = get_str("ArtDesc");
-      _anamag.put(ANAMAG_DESCR, desc);
-
-      const TString& conai_class = get_str("ClassCode");
-      if (conai_class.full())
-      {
-        const TString& conai_field = config().get(conai_class, "CONAI");
-        if (conai_field.full())
-          _anamag.put(conai_field, get_real_str("WeightETUnit"));
-      }
-
-      const long gruconto = get_long("AccountCode");
-      const long sottoconto = get_long("AccountSubCode");
-      _anamag.put(ANAMAG_GRUPPOV, gruconto / 1000);
-      _anamag.put(ANAMAG_CONTOV,  gruconto % 1000);
-      _anamag.put(ANAMAG_SOTTOCV, sottoconto);
-      test_write(_anamag);
-    }
-
-    // Non memorizzo permanentemente questi dati ma li rendo disponibili
-    TString paper_composition, customer_code;
-    if (get_extra_info(key, paper_composition, customer_code))
-    {
-      _anamag.put(ANAMAG_USER10, paper_composition);
-      _anamag.put(ANAMAG_USER9, customer_code);
-    }
-  }
-  else
     _anamag.zero();
-  return _anamag.curr().dup();
+    _anamag.put(ANAMAG_CODART, key);
+    const TString& desc = get_str("ArtDesc");
+    _anamag.put(ANAMAG_DESCR, desc);
+
+    const TString& conai_class = get_str("ClassCode");
+    if (conai_class.full())
+    {
+      const TString& conai_field = config().get(conai_class, "CONAI");
+      if (conai_field.full())
+        _anamag.put(conai_field, get_real_str("WeightETUnit"));
+    }
+
+    const long gruconto = get_long("AccountCode");
+    const long sottoconto = get_long("AccountSubCode");
+    _anamag.put(ANAMAG_GRUPPOV, gruconto / 1000);
+    _anamag.put(ANAMAG_CONTOV,  gruconto % 1000);
+    _anamag.put(ANAMAG_SOTTOCV, sottoconto);
+    test_write(_anamag);
+  }
+
+  TArticolo_pack* art = new TArticolo_pack(_anamag.curr());
+  get_extra_info(key, *art); // CustomerCode e PaperComposition
+
+  return art;
 }
 
-const TRectype& TCache_art::articolo() 
+const TArticolo_pack& TCache_art::articolo() 
 { 
   TString80 codart = get_str("ArtCode"); 
   if (codart.empty()) // Se non ho un codice articolo lo creo in base al conto
@@ -114,12 +165,12 @@ const TRectype& TCache_art::articolo()
       codart << "*" << gruconto << '*' << sottoconto;
   }
 
-  return *(const TRectype*)objptr(codart); 
+  return *(const TArticolo_pack*)objptr(codart); 
 }
 
 const TString& TCache_art::decode(const TToken_string& tok)
 {
-  const TRectype& rec = *(const TRectype*)objptr(tok); 
+  const TArticolo_pack& rec = *(const TArticolo_pack*)objptr(tok); 
   return rec.get(ANAMAG_CODART);
 }
 
@@ -129,12 +180,14 @@ const TString& TCache_art::decode(const TToken_string& tok)
 
 class TCache_umart : public TCache_tp
 {
+  TLocalisamfile _umart;
+
 protected:
   virtual TObject* key2obj(const char* key);
 
 public:
   const TString& decode(const TToken_string& key) { return *(const TString*)objptr(key); }
-  TCache_umart(TPack_transfer* pt) : TCache_tp(pt) {}
+  TCache_umart(TPack_transfer* pt) : TCache_tp(pt), _umart(LF_UMART) {}
 };
 
 TObject* TCache_umart::key2obj(const char* key)
@@ -153,12 +206,11 @@ TObject* TCache_umart::key2obj(const char* key)
 
   if (!found)
   {
-    TLocalisamfile umart(LF_UMART);
+    _umart.put(UMART_CODART, codart);
-    umart.put(UMART_CODART, codart);
+    _umart.put(UMART_NRIGA, i+1);
-    umart.put(UMART_NRIGA, i+1);
+    _umart.put(UMART_UM, um);
-    umart.put(UMART_UM, um);
+    _umart.put(UMART_FC, 1);
-    umart.put(UMART_FC, 1);
+    test_write(_umart);
-    test_write(umart);
   }
 
   return code.dup();
@@ -249,9 +301,9 @@ const TRectype& TPack_ddt::get_articolo(TString& um, real& qta, TString& custcod
 {
   if (_art == NULL)
     _art = new TCache_art(this);
-  const TRectype& rec = _art->articolo();
+  const TArticolo_pack& rec = _art->articolo();
   get_um_qta(um, qta);
-  custcode = rec.get(ANAMAG_USER9);
+  custcode = rec.customer_code();
 
   if (!rec.empty() && um.full())
   {
@@ -318,11 +370,9 @@ bool TPack_ddt::get_clifo(char& tipocf, long& codcf)
   if (codcf > 0 && (tipocf == 'C' || tipocf == 'F'))
 	{
 		const int err = _cli.read(tipocf, codcf);
-		
 		if (err != NOERR)
 		{
 			TString msg; msg.format("Errore %d durante la lettura del %s %ld ", err, tipocf == 'C' ? "Cliente" : "Fornitore", codcf);
-    
 			return log_error(msg);
 		}
     return true;
@@ -580,7 +630,7 @@ bool TPack_ddt::trasferisci()
     TString4 um;
     real qta;
     TString custcode;
-    const TRectype& art = get_articolo(um, qta, custcode);
+    const TArticolo_pack& art = get_articolo(um, qta, custcode);
 
     TString4 rowtype = "01"; // Riga merce
     bool bIsMerce = true;
@@ -645,31 +695,61 @@ bool TPack_ddt::trasferisci()
       rdoc.put(RDOC_SCONTO, sconto);
       
       rdoc.put(RDOC_PERCPROV, get_real_str("Provv"));
-      rdoc.put(RDOC_QTAGG1, get_real_str("WeightETUnit"));
+
-      rdoc.zero(RDOC_QTAGG2); // Azzera percentuale indetraibilita' CONAI
       if (bIsSingleSheet)
-        rdoc.put(RDOC_QTAGG3, get_real_str("Quantity"));
+        rdoc.put("NUMFOGLI", get_real_str("Quantity")); // Ex QTAGG3
 
-      const TString& conai_class = get_str("ClassCode");
+      TString8 tok; 
-      rdoc.put(RDOC_CODAGG1, conai_class);
+      tok.format("%c|%ld", doc->get_char(DOC_TIPOCF), doc->get_long(DOC_CODCF));
-      rdoc.put(RDOC_CODAGG2, get_str("SubclassCode"));
+      const TRectype& cfven = cache().get(LF_CFVEN, tok);
-      rdoc.put("FAMILY", get_str("FamilyCode"));        // Uso campo virtuale RG1:FAMILY
 
-      const TString& conai_cfv = config().get(conai_class, "CFV_CONAI");
+      // Copia tutte le sottocategorie CONAI dall'anagrafica alla riga documento
-      if (conai_cfv.full())
+      real peso_imballo_anamag;
+      int pesi_anamag = 0;
+      FOR_EACH_CONAI_CLASS(cc)
       {
-        TString8 tok; 
+        const TString& cs = art.conai_subclass(cc);  // Codice sottocategoria su ANAMAG
-        tok.format("%c|%ld", doc->get_char(DOC_TIPOCF), doc->get_long(DOC_CODCF));
+        if (cs.full()) // la presenza della sottoclasse implica anche un peso positivo
-        const TRectype& cfven = cache().get(LF_CFVEN, tok);
+        {
-        const real perc = cfven.get(conai_cfv);
+          const real& weight = art.conai_weight(cc); // Peso imballo su ANAMAG
-        rdoc.put(RDOC_QTAGG2, perc);
+          rdoc.put(conai_sottocat_name(cc, LF_RIGHEDOC), cs);
+          rdoc.put(conai_peso_name(cc, LF_RIGHEDOC), weight);      // ex QTAGG1  
+          rdoc.put(conai_esenzione_name(cc, LF_RIGHEDOC), 
+                   cfven.get(conai_esenzione_name(cc, LF_CFVEN))); // ex QTAGG2
+          peso_imballo_anamag += weight;
+          pesi_anamag++;
+        }
       }
+
+      // La sottocategoria della bolla prevale su quella anagrafica impostata sopra
+      const TString& conai_class = get_str("ClassCode"); 
+      const TCONAI_class ct = conai_str2class(conai_class);
+      const TString& conai_subclass = get_str("SubclassCode");
+      rdoc.put(conai_sottocat_name(ct, LF_RIGHEDOC), conai_subclass); 
+
+      const real peso_imballo_ddt = get_real_str("WeightETUnit");
+      // Con imballi composti da vari materiali devo riproporzionare
+      if (pesi_anamag > 1 && peso_imballo_ddt != peso_imballo_anamag && !peso_imballo_ddt.is_zero())
+      {
+        TGeneric_distrib d(peso_imballo_ddt, 3);
+        FOR_EACH_CONFIGURED_CONAI_CLASS(cc)
+          d.add(art.conai_weight(cc));
+        FOR_EACH_CONFIGURED_CONAI_CLASS(cc)
+          rdoc.put(conai_peso_name(cc), d.get());
+      }
+      else
+      {
+        // Caso semplice della sola carta
+        rdoc.put(conai_peso_name(ct), peso_imballo_ddt);
+      }
+
+      rdoc.put("FAMILY", get_str("FamilyCode")); // Uso campo virtuale RG1:FAMILY
     }
 
     TString info;
     if (_paper_info)
     {
-      const TString& pap_comp = art.get(ANAMAG_USER10);
+      const TString& pap_comp = art.paper_composition();
       if (pap_comp.full()) 
         info << "\n" << pap_comp;
     }
@@ -710,7 +790,7 @@ bool TPack_ddt::trasferisci()
       {
         const TString& r_ref = get_str("RowCustReference"); // Leggo dalla riga
         if (r_ref.full())
-          ref << '/' << r_ref << '/' << art.get(ANAMAG_USER9); 
+          ref << '/' << r_ref << '/' << art.customer_code(); 
         rdoc.put(RDOC_CODCMS, ref);
       }
     }

tp/tp0900.cpp

@@ -74,9 +74,8 @@ public:
 };
 
 TDichiarazione_CONAI_csv_recordset::TDichiarazione_CONAI_csv_recordset() 
-: TCSV_recordset("CSV(,)\n")
+                                  : TCSV_recordset("CSV(,)\n")
-{
+{}
-}
 
 
 ///////////////////////////////////////////////////////////
@@ -86,14 +85,14 @@ TDichiarazione_CONAI_csv_recordset::TDichiarazione_CONAI_csv_recordset()
 class TDichiarazione_CONAI : public TSkeleton_application
 {
 protected:
-  real clifo_conai(const TCli_for& clifo, const int conai_specie, TString& paiv) const;
+  real clifo_conai(const TCli_for& clifo, const TCONAI_class conai_specie, TString& paiv) const;
   void elabora(const TMask& mask) const;
   void scrivi_csv(const TRectype& prima_riga, TDichiarazione_CONAI_csv_recordset& csv, 
-                  const int conai_specie, const TString& conai_codart) const;
+                  const TCONAI_class conai_specie, const TString& conai_codart) const;
   void scrivi_csv_doc_con_riga_generata(TDocumento& doc, const int n_riga_generata,
-                                        TDichiarazione_CONAI_csv_recordset& csv, const int conai_specie) const;
+                                        TDichiarazione_CONAI_csv_recordset& csv, const TCONAI_class conai_specie) const;
   void scrivi_csv_doc_speciale(TDocumento& doc, TDichiarazione_CONAI_csv_recordset& csv,
-                               const int conai_specie, const TString& conai_codart) const;
+                               const TCONAI_class conai_specie, const TString& conai_codart) const;
 
 public:
 	virtual bool create();
@@ -101,19 +100,13 @@ public:
 
 };
 
-
+// Percentuale di esenzione CONAI di clifo
-real TDichiarazione_CONAI::clifo_conai(const TCli_for& clifo, const int conai_specie, TString& paiv) const
+real TDichiarazione_CONAI::clifo_conai(const TCli_for& clifo, const TCONAI_class conai_specie, TString& paiv) const
 {
-  const char* campi[6] = { CFV_ESACC, CFV_ESALL, CFV_ESCAR, CFV_ESPLA, CFV_ESLEG, CFV_ESVET };
   const TRectype& cfven_rec = clifo.vendite();
-  real cfven_perc_conai = ZERO;
+  real cfven_perces_conai = ZERO;
-  if (conai_specie >= 0 && conai_specie < 6)
+  if (conai_configured_class(conai_specie))
-    cfven_perc_conai = cfven_rec.get_real(campi[conai_specie]);
+    cfven_perces_conai = cfven_rec.get_real(conai_esenzione_name(conai_specie, LF_CFVEN));
-
-	//vecchio modo con piva che fa precedenza a cofi
-  /*paiv = clifo.get(CLI_PAIV);
-  if (paiv.empty())
-    paiv = clifo.get(CLI_COFI);*/
 
 	//nuovo metodo con logica rovesciata (fino al prossimo cambio di idea!)
 	paiv = clifo.get(CLI_COFI);
@@ -123,12 +116,13 @@ real TDichiarazione_CONAI::clifo_conai(const TCli_for& clifo, const int conai_sp
 		paiv << " (PI)";
 	}
 
-  return cfven_perc_conai;
+  return cfven_perces_conai;
 }
 
 //riempie recordset con le righe CONAI del documento che contiene una riga generata CONAI
-void TDichiarazione_CONAI::scrivi_csv_doc_con_riga_generata(TDocumento& doc, const int n_riga_generata, TDichiarazione_CONAI_csv_recordset& csv, 
+void TDichiarazione_CONAI::scrivi_csv_doc_con_riga_generata(TDocumento& doc, const int n_riga_generata, 
-                                      const int conai_specie) const
+                                                            TDichiarazione_CONAI_csv_recordset& csv, 
+                                                            const TCONAI_class conai_specie) const
 {
   //prende dalla riga i dati che gli servono per fare vari calcoli
   const TRiga_documento& riga_generata = doc[n_riga_generata];
@@ -176,7 +170,7 @@ void TDichiarazione_CONAI::scrivi_csv_doc_con_riga_generata(TDocumento& doc, con
 
     //servono SOLO le righe CONAI!!!!!
       //se non e' stata definita la sottocategoria conai (maiali!!) va messa uguale a quella generica
-    TString4 sottocat = rdoc.get(get_conai_sottocat_name(conai_specie));
+    TString4 sottocat = rdoc.get(conai_sottocat_name(conai_specie));
     //puo' capitare che la sottocategoria sia stata troncata alla categoria
     if (sottocat.len() == 2)
       sottocat << "99";
@@ -209,7 +203,7 @@ void TDichiarazione_CONAI::scrivi_csv_doc_con_riga_generata(TDocumento& doc, con
     csv.set(11, TVariant(umqta));     
 
     //quantita' totale conai (A + B) sul report (le NAC hanno segno rovesciato)
-    real qta_tot_conai = (real&)qta_AB_conai[i];
+    real qta_tot_conai = (const real&)qta_AB_conai[i];
     if (is_nac)
       qta_tot_conai = -qta_tot_conai;
     csv.set(15, TVariant(qta_tot_conai));
@@ -236,9 +230,9 @@ void TDichiarazione_CONAI::scrivi_csv_doc_con_riga_generata(TDocumento& doc, con
     const real totale_contrib_conai = qta_assoggettata_conai * prezzo;
     csv.set(14, TVariant(totale_contrib_conai));
 
-    //percentuale di esenzione conai in qtagg2
+    //percentuale di esenzione conai
-    const real rdoc_perc_conai = rdoc.get_real(RDOC_QTAGG2);
+    const TVariant rdoc_perc_conai = rdoc.get_real(conai_esenzione_name(conai_specie, LF_RIGHEDOC));
-    csv.set(16, TVariant(rdoc_perc_conai));
+    csv.set(16, rdoc_perc_conai);
 
     //percentuale di esenzione conai in cfven
     csv.set(17, TVariant(cfven_perc_conai));
@@ -248,7 +242,7 @@ void TDichiarazione_CONAI::scrivi_csv_doc_con_riga_generata(TDocumento& doc, con
 //riempie recordset con le righe CONAI del documento che NON ha una riga generata CONAI;trattasi di documenti..
 //..farlocchi costruiti ad arte per correggere le vaccate dei rompiscatolifici
 void TDichiarazione_CONAI::scrivi_csv_doc_speciale(TDocumento& doc, TDichiarazione_CONAI_csv_recordset& csv,
-                                                   const int conai_specie, const TString& conai_codart) const
+                                                   const TCONAI_class conai_specie, const TString& conai_codart) const
 {
   //scopre se il doc e' una NAC
   const bool is_nac = doc.is_nota_credito();
@@ -270,7 +264,7 @@ void TDichiarazione_CONAI::scrivi_csv_doc_speciale(TDocumento& doc, TDichiarazio
     const TRiga_documento& rdoc = doc[i];
 
     //se non e' stata definita la sottocategoria conai (maiali!!) va messa uguale a quella generica
-    TString4 sottocat = rdoc.get(get_conai_sottocat_name(conai_specie));
+    TString4 sottocat = rdoc.get(conai_sottocat_name(conai_specie));
     //puo' capitare che la sottocategoria sia stata troncata alla categoria
     if (sottocat.len() == 2)
       sottocat << "99";
@@ -309,13 +303,13 @@ void TDichiarazione_CONAI::scrivi_csv_doc_speciale(TDocumento& doc, TDichiarazio
     csv.set(15, TVariant(qta_tot_conai));
 
     //percentuale di esenzione conai al 100%?
-    const real rdoc_perc_conai = rdoc.get_real(RDOC_QTAGG2);
+    const real rdoc_perc_conai = rdoc.get_real(conai_esenzione_name(conai_specie, LF_RIGHEDOC)); // ex QTAGG2
 
     //quantita' assoggettata (B) sul report (le NAC hanno segno rovesciato, ma avendolo gia' gia' rovesciato..
 		//..in precedenza non deve fare nulla!)
     real qta_assoggettata_conai = qta_tot_conai;
 
-    if (rdoc_perc_conai == CENTO)
+    if (rdoc_perc_conai >= CENTO) // Guy: Mi pare strano gestire solo il caso 100%
       qta_assoggettata_conai = ZERO;
 
     csv.set(13, TVariant(qta_assoggettata_conai));
@@ -328,7 +322,7 @@ void TDichiarazione_CONAI::scrivi_csv_doc_speciale(TDocumento& doc, TDichiarazio
     const real totale_contrib_conai = qta_assoggettata_conai * prezzo;
     csv.set(14, TVariant(totale_contrib_conai));
 
-    //percentuale di esenzione conai in qtagg2
+    //percentuale di esenzione conai
     csv.set(16, TVariant(rdoc_perc_conai));
 
     //percentuale di esenzione conai in cfven
@@ -340,7 +334,7 @@ void TDichiarazione_CONAI::scrivi_csv_doc_speciale(TDocumento& doc, TDichiarazio
 //crea il documento che contiene la riga che gli viene passata,cerca la riga generata ed in base al risultato della ricerca chiama..
 //..il metodo adatto
 void TDichiarazione_CONAI::scrivi_csv(const TRectype& prima_riga, TDichiarazione_CONAI_csv_recordset& csv, 
-                                      const int conai_specie, const TString& conai_codart) const
+                                      const TCONAI_class conai_specie, const TString& conai_codart) const
 {
   //crea la testata delle righedoc per poter fare vari calcoli (e intanto il tempo se ne va...)
   const int anno = prima_riga.get_int(RDOC_ANNO);
@@ -479,35 +473,35 @@ void TDichiarazione_CONAI::elabora(const TMask& mask) const
   }
   
   //Adesso tocca al codice articolo in base alla specie CONAI
-  const int conai_specie = mask.get_int(F_SPECIECONAI);
+  const TCONAI_class conai_specie = (TCONAI_class)mask.get_int(F_SPECIECONAI);
   TConfig ditta_ini(CONFIG_DITTA, "ve");
 
   TVariant codart;
-  TString nome_report;    //report di tipo 6.1 scelto in base alla specie conai
+  const char* nome_report = "";       //report di tipo 6.1 scelto in base alla specie conai
 
   switch (conai_specie)
   {
-  case 0:
+  case CONAI_ACC:
     codart = ditta_ini.get("CODACC"); //acciaio
     nome_report = "tp0900ac.rep";
     break;
-  case 1:
+  case CONAI_ALL:
     codart = ditta_ini.get("CODALL"); //alluminio
     nome_report = "tp0900al.rep";
     break;
-  case 2:
+  case CONAI_CAR:
     codart = ditta_ini.get("CODCAR"); //carta
     nome_report = "tp0900ca.rep";
     break;
-  case 3:
+  case CONAI_PLA:
     codart = ditta_ini.get("CODPLA"); //plastica
     nome_report = "tp0900pl.rep";
     break;
-  case 4:
+  case CONAI_LEG:
     codart = ditta_ini.get("CODLEG"); //legno
     nome_report = "tp0900le.rep";
     break;
-  case 5:
+  case CONAI_VET:
     codart = ditta_ini.get("CODVET"); //vetro
     nome_report = "tp0900ve.rep";
     break;
@@ -543,7 +537,7 @@ void TDichiarazione_CONAI::elabora(const TMask& mask) const
   //cerca le righe con numerazione e tipo indicate nello sheet;prende sia le righe che generano CONAI (per avere il codice conai,..
   //..le quantita' etc) e le righe generate da CONAI (per avere i prezzi)
   TString query;
-	TString scat_fieldname(get_conai_sottocat_name(conai_specie));
+	TString scat_fieldname(conai_sottocat_name(conai_specie));
 
 	if (scat_fieldname.blank())
 		return;