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
This commit is contained in:
angelo 1997-11-21 16:40:48 +00:00
parent 05fab9299b
commit e2502c3623
9 changed files with 34 additions and 17 deletions

View File

@ -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;
lf.format("%sstd/bacnv16c.txt", __ptprf);
TScanner scan15c("bacnv15c.txt");
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");
for (line = scan15d.line(); line.not_empty(); line = scan15d.line())
lf.format("%sstd/bacnv16d.txt", __ptprf);
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;

View File

@ -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"

View File

@ -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

View File

@ -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]

View File

@ -1 +1 @@
199515
199516