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

23
ba/bacnv.cpp
View File

@ -237,8 +237,16 @@ bool TConversione_archivi::menu(MENU_TAG)
case 5:
convert_patty();
case 6:
{
if (_codditta == 0)
{
convert_codconc();
TSystemisamfile comuni(LF_COMUNI);
comuni.load(format("%sstd/ncom02.txt", __ptprf));
}
}
default:
break;
}
@ -325,7 +333,6 @@ void TConversione_archivi::contropartita_rmov()
void TConversione_archivi::liala(const char* 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);
@ -637,6 +652,7 @@ void TConversione_archivi::convert_codconc()
// 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);
TToken_string comass;
#ifdef DBG
TTable uffconc("%UCC");
TToken_string concerr;
@ -667,12 +683,13 @@ void TConversione_archivi::convert_codconc()
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);