Patch level : 10.0

Files correlati     : pl0002
Ricompilazione Demo : [ ]
Commento            :
Modifiche richieste da Tassan


git-svn-id: svn://10.65.10.50/branches/R_10_00@21850 c028cbd2-c16b-5b4b-a496-9718f37d4682

ps/pl0002100.cpp

@@ -57,6 +57,12 @@ public:
   virtual bool trasferisci();
 };
 
+class TLif_listini : public TLif_transfer
+{
+public:
+  virtual bool trasferisci();
+};
+
 ///////////////////////////////////////////////////////////
 // TLif_clienti
 ///////////////////////////////////////////////////////////
@@ -96,7 +102,6 @@ bool TLif_clifo_co_clifor::trasferisci()
     TString80 iban   = get_str("sig_iban1");    iban << get_str("sig_bban1");
 
     const TString4 codspmezzo = get_str("cod_mezzo_trasp");
-    const TString4 codlist    = get_str("cod_listino");
     const TString4 percprovv  = get_str("cod_catprovvi");
     const TString8 codag      = get_str("cod_agente");
     const bool     addbolli   = get_str("flg_addebito_bollo")[0] == '0' ? false : true;
@@ -120,7 +125,6 @@ bool TLif_clifo_co_clifor::trasferisci()
     cfv_rec.put(CFV_TIPOCF,     tipocf);
     cfv_rec.put(CFV_CODCF,      codcli);
     cfv_rec.put(CFV_CODSPMEZZO, codspmezzo);
-    cfv_rec.put(CFV_CODLIST, codlist);
     cfv_rec.put(CFV_PERCPROVV,  percprovv);
     cfv_rec.put(CFV_CODAG,      codag);
     cfv_rec.put(CFV_ADDBOLLI,   addbolli);
@@ -347,6 +351,7 @@ bool TLif_contratti::trasferisci()
       trec.put(LVCONDV_CODCONT,  1);
       trec.put(LVCONDV_DATAIN,   dadata);
       trec.put(LVCONDV_STPRZBOL, inbolla);
+      trec.put(LVCONDV_PERFAT,   3);  //da accordi con Tassan in data 23/03/2011 la fatturazione è sempre mensile
       test_write(condv);
       contratti.add(codcli, codcli);
     }
@@ -423,15 +428,15 @@ bool TLif_articoli::trasferisci()
     const TString80 codart = get_str("cod_art");
     const TString80 descr  = get_str("des_articolo");
     const TString   descragg = get_str("des_articolo_ex");
-    const real      plordo(get_str("qta_pes_lordo_kg"));
     const real      pnetto(get_str("qta_pes_netto_kg"));
     const long      ppconf = get_long("num_colli");
+    const TString4  ump = pnetto > ZERO ? "GR" : "";
 
     rec.put(ANAMAG_CODART,   codart);
     rec.put(ANAMAG_DESCR,    descr);
     rec.put(ANAMAG_DESCRAGG, descragg);
-    rec.put(ANAMAG_PESO, plordo);
+    rec.put(ANAMAG_PESO,     pnetto);
-    rec.put(ANAMAG_TARA, plordo - pnetto);
+    rec.put(ANAMAG_UMP,      ump);
     rec.put(ANAMAG_PPCONF,   ppconf);
     rec.put(ANAMAG_CODIVA,   "20");
     
@@ -457,6 +462,94 @@ bool TLif_articoli::trasferisci()
   return true;
 }
 
+bool TLif_listini::trasferisci()
+{
+  TString query = 
+    "SELECT * "
+		"FROM dbo.PZ_PREZZIBASE";
+
+  TRecordset& recset = create_recordset(query);
+  TConfig& ini = config();
+	
+  TString_array lista_campi;
+	ini.list_variables(lista_campi, true, "PZ_PREZZIBASE", true);
+  
+  TSystemisamfile umart(LF_UMART);
+  umart.open(_lock);
+  TRectype& umrec = umart.curr();
+
+  TSystemisamfile condv(LF_LVCONDV);
+  condv.open(_lock);
+  TRectype& conrec = condv.curr();
+
+  TSystemisamfile rcondv(LF_LVRCONDV);
+  rcondv.open(_lock);
+  
+  TLif_iterator hi(this);
+
+  TAssoc_array contratti;
+
+  while (++hi)
+  {
+    const TString80 codart = get_str("cod_art");
+    const TString4  codlis = get_str("cod_listino");
+    const long      prglis = get_long("prg_listino");
+    const real      prezzo(get_str("prz_listino"));
+
+    TString8 listino = codlis; listino << prglis;
+
+    umrec.zero();
+    umrec.put(UMART_CODART, codart);
+    umrec.put(UMART_NRIGA,  1);
+    umrec.read(umart);
+    umrec.put(UMART_CODART, codart);
+    umrec.put(UMART_NRIGA,  1);
+    umrec.put(UMART_PREZZO, prezzo);
+    
+    aggiorna_record(umrec, lista_campi);
+    if (test_write(umart))
+    {
+      TString query;
+      query << "USE LVRCONDV\n"
+            << "SELECT CODART=\"" << codart << "\"";
+
+      TISAM_recordset rcont(query);
+
+      for(bool ok = rcont.move_first(); ok; ok = rcont.move_next())
+      {
+        TRectype& riga = rcont.cursor()->curr();
+        riga.put(LVRCONDV_PREZDAN, prezzo);
+        riga.rewrite(rcondv);
+
+        const long codcf = riga.get_long(LVRCONDV_CODCF);
+        const long codco = riga.get_long(LVRCONDV_CODCONT);
+
+        TToken_string ckey;
+        ckey.add(codcf);
+        ckey.add(codco);
+
+        if(!contratti.is_key(ckey))
+        {
+          conrec.put(LVCONDV_CODCF, codcf);
+          conrec.put(LVCONDV_CODCONT, codco);
+          conrec.read(condv);
+          conrec.put(LVCONDV_CODCF, codcf);
+          conrec.put(LVCONDV_CODCONT, codco);
+          conrec.put(LVCONDV_ADDCAPROT, true);
+          conrec.rewrite(condv);
+        }
+        contratti.add(ckey, ckey);
+      }
+    }
+  }
+  umart.close();
+  condv.close();
+  rcondv.close();
+
+  return write_enabled();
+}
+
+
 ///////////////////////////////////////////////////////////
 // TImportazione_lif_msk
 ///////////////////////////////////////////////////////////
@@ -541,6 +634,11 @@ void TImportazione_lif_msk::trasferisci()
     TLif_articoli pc;
     pc.init(TR("Articoli"), query_header1, log);
     go_on = pc.trasferisci();
+
+    TLif_listini pc1;
+    pc1.init(TR("Listini"), query_header1, log);
+    go_on = pc1.trasferisci();
+
     book.add(log);
 		rep_to_print = true;
   }