Patch level : 10 hardy

Files correlati     :
Ricompilazione Demo : [ ]
Commento            : avanzamento conversione dati (tabelle/archivi ok)


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

ha/hacnv100.cpp

@@ -1103,6 +1103,16 @@ bool THardy_fornitori::trasferisci()
       rec.zero();
       rec.put(CLI_TIPOCF, "F");
       rec.put(CLI_CODCF, codcf);
+
+      // contropartita
+      const TString16 key = get_str("IdContropartita");
+      const int gr = atoi(key.mid(1,2));
+      const int co = atoi(key.mid(3,2));
+      const int so = atoi(key.mid(5,3));
+      rec.put(CLI_GRUPPORIC, gr);
+      rec.put(CLI_CONTORIC, co);
+      rec.put(CLI_SOTTOCRIC, so);
+
       // ricerca comune
       const TString8 cap = get_str("IdCap");     //cap
       TString80 loc = get_str("Localita");       //località
@@ -1198,14 +1208,7 @@ bool THardy_agenti::trasferisci()
 
 bool THardy_listini::trasferisci()
 {
-  if (trasferisci_listini())
+  // trasferisce tabella Listini (condv L)
-    return trasferisci_listinid();
-  return false;
-}
-
-// trasferisce tabella Listini (condv L)
-bool THardy_listini::trasferisci_listini()
-{
   TString query = 
     "SELECT * "
 		"FROM dbo.Listini ";
@@ -1217,35 +1220,55 @@ bool THardy_listini::trasferisci_listini()
   condv.open(_lock); 
   TRectype& rec = condv.curr();
   THardy_iterator hi(this);
+
+  // array per la conversione tra IdListino e kListino
+  TAssoc_array listini;
+  TToken_string key;
+
+  TString8 idlistino;
+
   while (++hi)
   {
+    const TString8 klistino = get_str("KListino");
+    idlistino = get_str("IdListino");
+    listini.add(klistino, idlistino);
     aggiorna_record(rec, lista_campi);
     test_write(condv);
   }
   condv.close();
-  return write_enabled();
+  // trasferisce tabella ListiniD (RCONDV)
-}
+  if (write_enabled())
-
-// trasferisce tabella ListiniD (rcondv L)
-bool THardy_listini::trasferisci_listinid()
-{
-  TString query = 
-    "SELECT * "
-		"FROM dbo.ListiniD ";
-  TRecordset& recset = create_recordset(query);
-  TConfig& ini = config();
-	TString_array lista_campi;
-	ini.list_variables(lista_campi, true, "LISTINID", true);
-  TSystemisamfile rcondv(LF_RCONDV);
-  rcondv.open(_lock); 
-  TRectype& rec = rcondv.curr();
-  THardy_iterator hi(this);
-  while (++hi)
   {
-    aggiorna_record(rec, lista_campi);
+    TString query = 
-    test_write(rcondv);
+      "SELECT * "
+		  "FROM dbo.ListiniD ";
+    TRecordset& recset = create_recordset(query);
+    TConfig& ini = config();
+	  TString_array lista_campi;
+	  ini.list_variables(lista_campi, true, "LISTINID", true);
+    TSystemisamfile rcondv(LF_RCONDV);
+    rcondv.open(_lock); 
+    TRectype& rec = rcondv.curr();
+    THardy_iterator hi(this);
+    while (++hi)
+    {
+      const char* key = get_str("KListino");
+      if (listini.is_key(key))
+      {
+        TString8& idlistino = (TString8&) listini[key];
+        rec.put(RCONDV_COD, idlistino);
+        aggiorna_record(rec, lista_campi);
+        test_write(rcondv);
+      }
+      else
+      {
+			  TString msg;
+  		  msg << TR("Impossibile stabilire codice del listino ") << " '" << key << '\'';
+	  	  log(msg);
+      }
+    }
+    rcondv.close();
   }
-  rcondv.close();
   return write_enabled();
 }
 
@@ -1276,8 +1299,7 @@ bool THardy_contratti::trasferisci()
   int oldconto = -1;
   int codcontratto = 0;
   while (++hi)
-  {
+  {  
-    
     aggiorna_record(rec_condv, lista_campi);
     test_write(condv);
   }
@@ -1285,6 +1307,15 @@ bool THardy_contratti::trasferisci()
   return write_enabled();
 }
 
+bool THardy_movcont::trasferisci()
+{
+  return true;
+}
+
+bool THardy_moviva::trasferisci()
+{
+  return true;
+}
 
 ///////////////////////////////////////////////////////////
 // TImportazioneHardy_mask
@@ -1456,6 +1487,22 @@ void TImportazioneHardy_mask::trasferisci()
     book.add(log);
 		rep_to_print = true;
   }
+  if (go_on && get_bool(F_MOVCONT))
+  {
+    THardy_movcont pc;
+    pc.init(TR("Movimenti contabili"), query_header, log);
+    go_on = pc.trasferisci();
+    book.add(log);
+		rep_to_print = true;
+  }
+  if (go_on && get_bool(F_MOVIVA))
+  {
+    THardy_moviva pc;
+    pc.init(TR("Movimenti iva"), query_header, log);
+    go_on = pc.trasferisci();
+    book.add(log);
+		rep_to_print = true;
+  }
 
   if (rep_to_print && book.pages() > 0)
 		book.preview();

ha/hacnv100.h

@@ -226,9 +226,6 @@ public:
 
 class THardy_listini : public THardy_transfer
 {
-protected:
-  bool trasferisci_listini();
-  bool trasferisci_listinid();
 public:
   virtual bool trasferisci();
 };
@@ -239,34 +236,16 @@ public:
   virtual bool trasferisci();
 };
 
-class TCache_art;
+class THardy_movcont : public THardy_transfer
-class TCache_umart;
-class TDocumento;
-
-//////////////////////////////////////////////////////////
-// Cache articoli
-///////////////////////////////////////////////////////////
-
-class TArticolo_hardy : 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; }
+  virtual bool trasferisci();
-  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]; }
+class THardy_moviva : public THardy_transfer
-  const real& conai_weight(TCONAI_class cc) const { CHECK_CONAI(cc); return _conai_peso[cc]; }
+{
-  bool set_conai(TCONAI_class cc, const TString& scat, const real& weight);
+public:
-  
+  virtual bool trasferisci();
-  TArticolo_hardy(const TRectype& anamag);
-  TArticolo_hardy();
 };
 
 #endif

ha/hacnv100a.h

@@ -20,6 +20,8 @@
 #define F_LISTINI   155
 #define F_CONTRATTI 156
 #define F_AGENTI    157
+#define F_MOVCONT   158
+#define F_MOVIVA    160
 
 #define F_DSN       201
 #define F_USR       202

ha/hacnv100a.ini

@@ -143,7 +143,7 @@ ALLEG      =
 CODALLEG   =
 GRUPPO     =
 CONTO      =
-GRUPPORIC  =
+GRUPPORIC  = 
 CONTORIC   =
 SOTTOCRIC  =
 TIPOAPER   =
@@ -163,8 +163,8 @@ DATANASC   =
 STATONASC  =
 COMNASC    =
 CODSTAT    =
-CODABI     = 
+CODABI     = IdBanca
-CODCAB     = 
+CODCAB     = IdAgenzia
 NUMCC      = 
 IBAN       = 
 OCCAS      =
@@ -172,7 +172,7 @@ STATO      =
 CODVAL     =
 CODLIN     =
 FIDO       =
-CODPAG     = 
+CODPAG     = IdPagamento 
 RICALT     =
 OGGETTI    =
 SOSPESO    =
@@ -217,8 +217,8 @@ DATANASC   =
 STATONASC  =
 COMNASC    =
 CODSTAT    =
-CODABI     = 
+CODABI     = IdBanca 
-CODCAB     = 
+CODCAB     = IdAgenzia
 NUMCC      = 
 IBAN       = 
 OCCAS      =
@@ -317,8 +317,8 @@ TIPO      = _FISSO,L
 CATVEN    =
 TIPOCF    =
 CODCF     =
-COD       = KListino
+COD       = IdListino
-DESCR     = IdListino
+DESCR     = KListino
 CODVAL    = _TRADUCI,IdDivisa
 CAMBIO    =
 CONTROEURO =
@@ -331,7 +331,7 @@ GESTSCAGL =
 GESTSCO   =
 OBBLIG    =
 CODLISSUCC =
-SEQRIC    =
+SEQRIC    = A---
 DECIMALI  =
 FATHCATVEN =
 FATHCOD   =
@@ -342,7 +342,6 @@ TIPO       = _FISSO,L
 CATVEN     =
 TIPOCF     =
 CODCF      =
-COD        = KListino
 TIPORIGA   = _FISSO,A
 CODRIGA    = IdProdotto
 UM         =

ha/hacnv100a.uml

@@ -119,6 +119,21 @@ BEGIN
   PROMPT 32 14 "Agenti"
 END
 
+GROUPBOX DLG_NULL 78 3
+BEGIN
+  PROMPT 1 17 "@bStorico"
+END
+
+BOOLEAN F_MOVCONT
+BEGIN
+  PROMPT 2 18 "Mov. contabili"
+END
+
+BOOLEAN F_MOVIVA
+BEGIN
+  PROMPT 32 18 "Mov. IVA"
+END
+
 ENDPAGE
 
 PAGE "Configurazione" -1 -1 78 18