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

Corretta la creazione della tabella %VER in caso sia inesistente

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@2793 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1996-05-10 16:28:02 +00:00
parent 032b6b4f38
commit 04a7d62b6e
1 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
ba/ba3100.cpp
View File

@ -47,18 +47,8 @@ HIDDEN inline TGeneric_table_app& app() { return (TGeneric_table_app&) main_app(
// - tabella versamenti-specific ------------------------------- // - tabella versamenti-specific -------------------------------
void TGeneric_table_app::load_rec_in_disabled_fields(TMask& m) void TGeneric_table_app::load_rec_in_disabled_fields(TMask& m)
// carica il record del periodo precedente a quello immesso // carica il record del periodo precedente a quello immesso
// nei campi disabilitati relativi. Se non esiste la tabella %VER, la crea. // nei campi disabilitati relativi.
{ {
_ver->put("CODTAB","199301");
if (_ver->read() != NOERR) // Se %VER non esiste la crea
{
_ver.put("R0","1.5"); _ver.put("R1","1.5");
_ver.put("R2","1.5"); _ver.put("R3","1.5"); ver.put("R4","1.5");
_ver.put("R5","50500"); _ver.put("R7","200000");
_ver.put("R11","88"); _ver.put("R12","88");
if (_ver.write() != NOERR) error_box("Errore %d in scrittura sulla tabella %VER",_ver->status());
}
TString key(m.get(F_ANNOES)); TString key(m.get(F_ANNOES));
key << m.get(F_MESEES); key << m.get(F_MESEES);
@ -433,7 +423,19 @@ bool TGeneric_table_app::user_create()
if (name == "CAM") if (name == "CAM")
set_search_field(FLD_TABCAM_D0); set_search_field(FLD_TABCAM_D0);
if (name == Versamenti_table) if (name == Versamenti_table)
{
_ver = new TTable(Versamenti_table); _ver = new TTable(Versamenti_table);
_ver->put("CODTAB","199301");
if (_ver->read() != NOERR) // Se %VER non esiste la crea
{
_ver->put("CODTAB","199301");
_ver->put("R0","1.5"); _ver->put("R1","1.5");
_ver->put("R2","1.5"); _ver->put("R3","1.5"); _ver->put("R4","1.5");
_ver->put("R5","50500"); _ver->put("R7","200000");
_ver->put("R11","88"); _ver->put("R12","88");
if (_ver->write() != NOERR) error_box("Errore %d in scrittura sulla tabella %VER",_ver->status());
}
}
return TRUE; return TRUE;
} }