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(); zero_770();
case 5: case 5:
convert_patty(); convert_patty();
case 6: case 6:
if (_codditta == 0) {
convert_codconc(); if (_codditta == 0)
{
convert_codconc();
TSystemisamfile comuni(LF_COMUNI);
comuni.load(format("%sstd/ncom02.txt", __ptprf));
}
}
default: default:
break; break;
} }
@ -324,8 +332,7 @@ 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);
@ -577,7 +592,7 @@ void TConversione_archivi::convert_codconc()
p.addstatus(1); p.addstatus(1);
if (com.empty()) if (com.empty())
com = anagr.get("COMRES"); com = anagr.get("COMRES");
// se il comune non é vuoto recupera il comune // se il comune non é vuoto recupera il comune
if (com.not_empty()) if (com.not_empty())
{ {
@ -616,8 +631,8 @@ void TConversione_archivi::convert_codconc()
} }
// segnala gli errori // segnala gli errori
if (nerr) if (nerr)
error_box("La conversione della anagrafiche non ha trovato %d comuni", nerr); error_box("La conversione della anagrafiche non ha trovato %d comuni", nerr);
nerr = 0; nerr = 0;
// (fase 2) // (fase 2)
// vuota la tabella concessioni // vuota la tabella concessioni
@ -636,7 +651,8 @@ void TConversione_archivi::convert_codconc()
// (fase 3) // (fase 3)
// 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;
@ -660,22 +676,23 @@ void TConversione_archivi::convert_codconc()
uffconc.zero(); uffconc.zero();
uffconc.put("CODTAB", comuni.get("UFFCONC")); uffconc.put("CODTAB", comuni.get("UFFCONC"));
if (uffconc.read() != NOERR) if (uffconc.read() != NOERR)
concerr.add(comuni.get("UFFCONC")); concerr.add(comuni.get("UFFCONC"));
#endif #endif
} }
// altrimenti sblocca il record e conteggia l' errore // altrimenti sblocca il record e conteggia l' errore
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);
#endif #endif
} }