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: case 5:
convert_patty(); convert_patty();
case 6: case 6:
{
if (_codditta == 0) if (_codditta == 0)
{
convert_codconc(); convert_codconc();
TSystemisamfile comuni(LF_COMUNI);
comuni.load(format("%sstd/ncom02.txt", __ptprf));
}
}
default: default:
break; break;
} }
@ -325,7 +333,6 @@ void TConversione_archivi::contropartita_rmov()
void TConversione_archivi::liala(const char* table) void TConversione_archivi::liala(const char* table)
{ {
TString16 tab(table); TString16 tab(table);
TTable lia(tab); TTable lia(tab);
tab.insert("%", 0); tab.insert("%", 0);
TTable cia(tab); TTable cia(tab);
@ -458,6 +465,14 @@ void TConversione_archivi::convert_patty()
doc.put("CODTAB", "NA"); doc.put("CODTAB", "NA");
if (doc.read(_isequal, _lock) == NOERR) if (doc.read(_isequal, _lock) == NOERR)
doc.remove(); 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; TAssoc_array causarr;
@ -562,7 +577,7 @@ void TConversione_archivi::convert_codconc()
TLocalisamfile comuni(LF_COMUNI); TLocalisamfile comuni(LF_COMUNI);
int nerr = 0; int nerr = 0;
// se il file anagrafica non é vuoto // se il file anagrafica non é vuoto
const int anag_items = anagr.items(); const long anag_items = anagr.items();
if (anag_items > 0) if (anag_items > 0)
{ {
TProgind p(anag_items, "Conversione archivio anagrafica", FALSE, TRUE, 70); 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 // scorre il file con i codici comuni e le nuove concessioni
TScanner nc(format("%sstd/ncom00.txt", __ptprf)); 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 #ifdef DBG
TTable uffconc("%UCC"); TTable uffconc("%UCC");
TToken_string concerr; TToken_string concerr;
@ -667,12 +683,13 @@ void TConversione_archivi::convert_codconc()
else else
{ {
comuni.read(_iscurr, _unlock); comuni.read(_iscurr, _unlock);
comass.add(ts.get(0));
nerr++; nerr++;
} }
} }
// segnala gli errori // segnala gli errori
if (nerr) 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 #ifdef DBG
if (concerr.not_empty()) 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);