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

Patch level : 12.0 no-patch

Browse Source 
Files correlati     : ba2900
Commento            : Quando esporto svuoto prima la tabella
This commit is contained in:
Simone Palacino 2019-04-16 13:35:38 +02:00
parent b1517683ee
commit 29531fe057
1 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/ba/ba2900.cpp
View File

@ -131,6 +131,7 @@ protected:
bool create_tables() const; bool create_tables() const;
bool create_indexes() const; bool create_indexes() const;
bool rko_outta_nowhere(const char* table_name) const; bool rko_outta_nowhere(const char* table_name) const;
bool empty_tables(const char* table_name) const;
// Funzioni di esportazione // Funzioni di esportazione
bool dir_gen() const; bool dir_gen() const;
bool trc_gen() const; bool trc_gen() const;
@ -571,6 +572,12 @@ bool TMSSQLExport_app::rko_outta_nowhere(const char* table_name) const
return _db->sq_commit(); return _db->sq_commit();
} }
bool TMSSQLExport_app::empty_tables(const char* table_name) const
{
const bool ok = _db->sq_set_exec(TString().cut(0) << "DELETE FROM " << table_name << ';');
return ok && _db->sq_commit();
}
bool TMSSQLExport_app::expor_gen() const bool TMSSQLExport_app::expor_gen() const
{ {
return rko_gen() && create_gen_ms() && dir_gen() && trc_gen(); return rko_gen() && create_gen_ms() && dir_gen() && trc_gen();
@ -642,12 +649,18 @@ int TMSSQLExport_app::export_tables()
for (; logicnum < endtab && check; logicnum++) for (; logicnum < endtab && check; logicnum++)
{ {
empty_tables(logic2table(logicnum));
TString nome_tab = tab_name(logicnum, ditta_name); TString nome_tab = tab_name(logicnum, ditta_name);
const RecDes& rd = prefix().get_recdes(logicnum); const RecDes& rd = prefix().get_recdes(logicnum);
if (prefix().get_recdes(logicnum).NKeys <= 0)
{
log(2, TString("Il file ") << logicnum << " non esiste");
continue;
}
TLocalisamfile table(logicnum); TLocalisamfile table(logicnum);
if(!file_valid(logicnum)) if(!file_valid(logicnum))
{ {
warning_box(TString("Impossibile esportare il file ") << logicnum); log(2, TString("Impossibile esportare il file ") << logicnum << ". Lunghezza record incoerente.");
continue; continue;
} }
@ -1075,7 +1088,8 @@ void TMSSQLExport_app::main_loop()
message_box(TString("ERROR: Esportazione tabelle campo fallita") << (err >= 2? TString(":\n Errorre tabella ") << err : "")); message_box(TString("ERROR: Esportazione tabelle campo fallita") << (err >= 2? TString(":\n Errorre tabella ") << err : ""));
} }
message_box("Migrazione effettuata correttamente!"); message_box("Migrazione effettuata correttamente!");
} while (!loop); } while (loop);
show_log();
} }
else else
message_box("Fallita connessione"); message_box("Fallita connessione");