Patch level :

Files correlati     :
Ricompilazione Demo : [ ]
Commento            :


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

ha/hacnv100.cpp

@@ -735,77 +735,6 @@ bool THardy_pcon::trasferisci_gruppi()
   pcon.close();
   return write_enabled();
 }
-long THardy_clienti::get_codcf(const TString &key)
-{
-  long codcf = 0;
-  const char first = key[0];
-  const long cod_hardy = atoi(key.mid(2,6));
-  switch (first)
-  {
-    case 'H':
-      {
-        codcf = 130000+cod_hardy;
-      }
-      break;
-    case 'P':
-      {
-        codcf = 140000+cod_hardy;
-      }
-      break;
-    case '0':
-      {
-        const char second = key[1];
-        if (second == '1')
-          codcf = 120000+cod_hardy;
-        else if (second == '0')
-        {
-          const char third = key[2];
-          if (third == '4')
-            codcf = 110000+cod_hardy;
-          else if (third == '3')
-            codcf = 100000+cod_hardy;
-          else
-            codcf = cod_hardy;
-        }
-      }
-      break;
-    default:
-      codcf = cod_hardy;
-  }
-  return codcf;
-}
-
-bool THardy_clienti::trasferisci()
-{
-  TString query = 
-    "SELECT * "
-		"FROM dbo.Clienti ";
-
-  TRecordset& recset = create_recordset(query);
-  TConfig& ini = config();
-	
-  TString_array lista_campi;
-	ini.list_variables(lista_campi, true, "CLIENTI", true);
-  
-  TSystemisamfile clienti(LF_CLIFO);
-  clienti.open(_lock); 
-  TRectype& rec = clienti.curr();
-  THardy_iterator hi(this);
-  while (++hi)
-  {
-    // costruisco la chiave 
-    const TString16 key = get_str("IdConto");
-    long codcf = get_codcf(key);
-    rec.zero();
-    rec.put(CLI_TIPOCF, "C");
-    rec.put(CLI_CODCF, codcf);
-    aggiorna_record(rec, lista_campi);
-    test_write(clienti);
-  }
-  clienti.close();
-  return write_enabled();
-}
-
 bool THardy_pcon::trasferisci_conti()
 {
   TString query = 
@@ -891,6 +820,79 @@ bool THardy_pcon::trasferisci_sottoconti()
   return write_enabled();
 }
 
+long THardy_clienti::get_codcf(const TString &key)
+{
+  long codcf = 0;
+  const char first = key[0];
+  long cod_hardy = atoi(key.mid(3,6));
+  switch (first)
+  {
+    case 'H':
+      {
+        codcf = 130000+cod_hardy;
+      }
+      break;
+    case 'P':
+      {
+        codcf = 140000+cod_hardy;
+      }
+      break;
+    case '0':
+      {
+        const char second = key[1];
+        if (second == '1')
+          codcf = 120000+cod_hardy;
+        else if (second == '0')
+        {
+          const char third = key[2];
+          if (third == '4')
+            codcf = 110000+cod_hardy;
+          else if (third == '3')
+            codcf = 100000+cod_hardy;
+          else if (third == '2')
+            codcf = 200000+cod_hardy;
+          else
+            codcf = cod_hardy;
+        }
+      }
+      break;
+    default:
+      codcf = cod_hardy;
+  }
+  return codcf;
+}
+
+bool THardy_clienti::trasferisci()
+{
+  TString query = 
+    "SELECT * "
+		"FROM dbo.Clienti ";
+
+  TRecordset& recset = create_recordset(query);
+  TConfig& ini = config();
+	
+  TString_array lista_campi;
+	ini.list_variables(lista_campi, true, "CLIENTI", true);
+  
+  TSystemisamfile clienti(LF_CLIFO);
+  clienti.open(_lock); 
+  TRectype& rec = clienti.curr();
+  THardy_iterator hi(this);
+  while (++hi)
+  {
+    // costruisco la chiave 
+    const TString16 key = get_str("IdConto");
+    long codcf = get_codcf(key);
+    rec.zero();
+    rec.put(CLI_TIPOCF, "C");
+    rec.put(CLI_CODCF, codcf);
+    aggiorna_record(rec, lista_campi);
+    test_write(clienti);
+  }
+  clienti.close();
+  return write_enabled();
+}
+
 ///////////////////////////////////////////////////////////
 // TImportazioneHardy_mask
 ///////////////////////////////////////////////////////////