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:
parent
05fab9299b
commit
e2502c3623
39
ba/bacnv.cpp
39
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;
|
||||
|
||||
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;
|
||||
|
@ -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"
|
||||
|
@ -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
|
||||
|
@ -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]
|
||||
|
||||
|
@ -1 +1 @@
|
||||
199515
|
||||
199516
|
||||
|
Loading…
x
Reference in New Issue
Block a user