Aggiunto livello di conversione 16 a BACNV.

Aggiunta a menu la chiamata alla nuova tabella UUE.
Rinominati bacnv15?.txt in bacnv16?.txt.


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

ba/bacnv.cpp

@@ -26,7 +26,7 @@
 #include "..\cg\cglib02.h"
 
 
-#define usage "Errore - uso : bacnv [1|2|3|4|5|6|7|8|9|10|11|12|13|14|15] ditta"
+#define usage "Errore - uso : bacnv [1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16] ditta"
 
 ///////////////////////////////////////////////////////////////////////////////////////////////////////
 // Applicazione di conversione archivi XBase, valida per tutti e 4 i tipi di DLL
@@ -323,7 +323,7 @@ bool TConversione_archivi::menu(MENU_TAG)
       convert_ucc();
     }
     break;  
-  case 15:
+  case 16:
     if (_codditta == 0)
       convert_uue(); 
     convert_cap();
@@ -1429,16 +1429,21 @@ void TConversione_archivi::convert_uue() const
 { 
   TProgind pi(0, "Caricamento tabella Uffici Unici", FALSE, FALSE);
   TSystemisamfile uue(LF_TABCOM);
-  uue.load("bacnv15a.txt");
+  TFilename lf;
+  
+  lf.format("%sstd/bacnv16a.txt", __ptprf);
+  uue.load(lf);
 
   pi.set_text("Caricamento Uffici Unici nei comuni");
   
   TLocalisamfile comuni(LF_COMUNI);
-  TScanner scan15b("bacnv15b.txt");
+
+  lf.format("%sstd/bacnv16b.txt", __ptprf);
+  TScanner scan16b(lf);
   
   TToken_string line;
   TString16 cod, uff;
-  for (line = scan15b.line(); line.not_empty(); line = scan15b.line())
+  for (line = scan16b.line(); line.not_empty(); line = scan16b.line())
   {
     cod = line.get(0);
     comuni.put("COM", cod);
@@ -1471,22 +1476,25 @@ void TConversione_archivi::convert_uue() const
       error_box("Impossibile aggiornare l'ufficio unico del comune %s: errore %d", 
                 (const char*)cod, err);  
   }
-  scan15b.close();
+  scan16b.close();
 }
 
 // Effettua conversioni per nuovi cap
 void TConversione_archivi::convert_cap() const
 { 
   TLocalisamfile comuni(LF_COMUNI);
+  TFilename lf;
   
-  TScanner scan15c("bacnv15c.txt");
+  lf.format("%sstd/bacnv16c.txt", __ptprf);
+
+  TScanner scan16c(lf);
   TToken_string line;
   TString16 cod, oldcod, newcod;
   
   TAssoc_array cap;
   
   TProgind pi(0, "Aggiornamento CAP sui comuni", FALSE, FALSE);
-  for (line = scan15c.line(); line.not_empty(); line = scan15c.line())
+  for (line = scan16c.line(); line.not_empty(); line = scan16c.line())
   {
     cod = line.get(0);
     oldcod = line.get();
@@ -1507,14 +1515,19 @@ void TConversione_archivi::convert_cap() const
                   (const char*)cod, err);  
     }              
   }
-  scan15c.close();
+  scan16c.close();
   
   TString msg;
-  TScanner scan15d("bacnv15d.txt");
+  lf.format("%sstd/bacnv16d.txt", __ptprf);
-  for (line = scan15d.line(); line.not_empty(); line = scan15d.line())
+  TScanner scan16d(lf);
+  for (line = scan16d.line(); line.not_empty(); line = scan16d.line())
   {
     TString16 cod = line.get(0);
     const int logicnum = atoi(cod);
+    if (_codditta == 0L && logicnum == LF_OCCAS) // Il file degli occasionali non puo' essere comune
+      continue;
+    if (_codditta > 0L && logicnum <= LF_UNLOC) // Una volta iniziata la conversione ditte si possono saltare i files comuni
+      continue;
     TLocalisamfile* file = NULL;
     if (logicnum > 0)
       file = new TLocalisamfile(logicnum);
@@ -1554,7 +1567,7 @@ void TConversione_archivi::convert_cap() const
       delete file;  
     }  
   }
-  scan15d.close();
+  scan16d.close();
 }
 
 
@@ -1566,7 +1579,7 @@ int main(int argc,char** argv)
 {
   const int r = (argc > 1) ? abs(atoi(argv[1])) : 0;
   
-  if (r < 0 || r > 15)
+  if (r < 0 || r > 16)
   {
     error_box(usage);
     return 100;

ba/baprassi.men

@@ -76,7 +76,8 @@ Item_03 = "Uffici concessioni", "ba3 -0 %ucc", ""
 Item_04 = "Uffici imposte dirette", "ba3 -0 %uid", ""
 Item_05 = "Uffici IVA", "ba3 -0 %uiv", ""
 Item_06 = "Uffici registro", "ba3 -0 %ure", ""
-Item_07 = "Centri servizio", "ba3 -0 %ucs", ""
+Item_07 = "Uffici unici entrate", "ba3 -0 %uue", ""
+Item_08 = "Centri servizio", "ba3 -0 %ucs", ""
 
 [PRASSI_012]
 Caption = "Stampa tabelle ministeriali"
@@ -88,7 +89,8 @@ Item_02 = "Uffici concessioni", "ba3 -1 %ucc", ""
 Item_03 = "Uffici imposte dirette", "ba3 -1 %uid", ""
 Item_04 = "Uffici IVA", "ba3 -1 %uiv", ""
 Item_05 = "Uffici registro", "ba3 -1 %ure", ""
-Item_06 = "Centri servizio", "ba3 -1 %ucs", ""
+Item_06 = "Uffici unici entrate", "ba3 -1 %uue", ""
+Item_07 = "Centri servizio", "ba3 -1 %ucs", ""
 
 [PRASSI_015]
 Caption = "Manutenzione"

ba/bastuue.uml

@@ -1,6 +1,6 @@
 #include "ba3200.h"
 
-PAGE "Stampa uffici concessione" -1 -1 50 8
+PAGE "Stampa uffici unici entrate" -1 -1 50 8
 
 NUMBER F_INIZIO1 3
 BEGIN

ba/fconv.ini

@@ -33,5 +33,7 @@ BCNV(70)=77cnv 5
 ACNV(100)=77cnv 4
 ACNV(118)=77cnv 6
 ACNV(119)=77cnv 1
+[199516]
+ACNV(13)=bacnv 16
 [EOF]
 

ba/level.dir

@@ -1 +1 @@
-199515
+199516