root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Aggiunto il caricamento di 3 comuni (E649, M298, M299)

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@1909 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1995-09-29 11:51:54 +00:00
parent 8f8f1557c4
commit 15ab33f04b
1 changed files with 30 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
ba/bacnv.cpp
View File

@ -236,9 +236,17 @@ bool TConversione_archivi::menu(MENU_TAG)
zero_770();
case 5:
convert_patty();
case 6:
if (_codditta == 0)
convert_codconc();
case 6:
{
if (_codditta == 0)
{
convert_codconc();
TSystemisamfile comuni(LF_COMUNI);
comuni.load(format("%sstd/ncom02.txt", __ptprf));
}
}
default:
break;
}
@ -324,8 +332,7 @@ void TConversione_archivi::contropartita_rmov()
void TConversione_archivi::liala(const char* table)
{
TString16 tab(table);
TString16 tab(table);
TTable lia(tab);
tab.insert("%", 0);
TTable cia(tab);
@ -458,6 +465,14 @@ void TConversione_archivi::convert_patty()
doc.put("CODTAB", "NA");
if (doc.read(_isequal, _lock) == NOERR)
doc.remove();
doc.zero();
doc.put("CODTAB", "NC");
if (doc.read(_isequal, _lock) == NOERR)
{
doc.put("S0", "Nota di credito");
doc.put("I0", "9");
doc.rewrite();
}
}
TAssoc_array causarr;
@ -562,7 +577,7 @@ void TConversione_archivi::convert_codconc()
TLocalisamfile comuni(LF_COMUNI);
int nerr = 0;
// se il file anagrafica non é vuoto
const int anag_items = anagr.items();
const long anag_items = anagr.items();
if (anag_items > 0)
{
TProgind p(anag_items, "Conversione archivio anagrafica", FALSE, TRUE, 70);
@ -577,7 +592,7 @@ void TConversione_archivi::convert_codconc()
p.addstatus(1);
if (com.empty())
com = anagr.get("COMRES");
com = anagr.get("COMRES");
// se il comune non é vuoto recupera il comune
if (com.not_empty())
{
@ -616,8 +631,8 @@ void TConversione_archivi::convert_codconc()
}
// segnala gli errori
if (nerr)
error_box("La conversione della anagrafiche non ha trovato %d comuni", nerr);
nerr = 0;
error_box("La conversione della anagrafiche non ha trovato %d comuni", nerr);
nerr = 0;
// (fase 2)
// vuota la tabella concessioni
@ -636,7 +651,8 @@ void TConversione_archivi::convert_codconc()
// (fase 3)
// scorre il file con i codici comuni e le nuove concessioni
TScanner nc(format("%sstd/ncom00.txt", __ptprf));
TProgind p(comuni.items(), "Conversione archivio comuni", FALSE, TRUE, 70);
TProgind p(comuni.items(), "Conversione archivio comuni", FALSE, TRUE, 70);
TToken_string comass;
#ifdef DBG
TTable uffconc("%UCC");
TToken_string concerr;
@ -660,22 +676,23 @@ void TConversione_archivi::convert_codconc()
uffconc.zero();
uffconc.put("CODTAB", comuni.get("UFFCONC"));
if (uffconc.read() != NOERR)
concerr.add(comuni.get("UFFCONC"));
concerr.add(comuni.get("UFFCONC"));
#endif
}
// altrimenti sblocca il record e conteggia l' errore
else
{
comuni.read(_iscurr, _unlock);
comass.add(ts.get(0));
nerr++;
}
}
// segnala gli errori
if (nerr)
error_box("La conversione dei comuni non ne ha trovati %d", nerr);
error_box("La conversione dei comuni non ne ha trovati %d\n Codici : %s", nerr, (const char *) comass);
#ifdef DBG
if (concerr.not_empty())
error_box("Le seguenti concessioni sono inesistenti %s", (const char *) concerr);
error_box("Le seguenti concessioni sono inesistenti %s", (const char *) concerr);
#endif
}