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

Patch level : 12.0 420

Browse Source 
Files correlati     : 
Commento            : 
Programma:
- Sistemato errore svuotamento tabella DTR
- Tolti commenti e corretta chiamata TAnagrafica
- Sistemata cacata intergalattica per tipo cf
- Disabilitato calcolo data iniziale, da problemi e non è calcolabile

git-svn-id: svn://10.65.10.50/branches/R_10_00@23944 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
mtollari 2017-07-14 10:49:00 +00:00
parent 8de918c4ae
commit 847f80825c
2 changed files with 14 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
src/tf/tf0100.cpp
View File

@ -695,7 +695,7 @@ bool TTrFa_app::createDB()
bool TTrFa_app::copySSA()
{
TFilename tmp;
TFilename tmp;
// Copia eventuali protezioni software
TString_array files;
@ -904,7 +904,7 @@ bool TTrFa_app::tff0100(TSheet_field& sheet)
{
if(yesno_box(msg))
{
if(!emptyTables(DTE_PROVV))
if(!emptyTables(DTR_PROVV))
{
error_box("Fallita eliminazione record!!!");
return false;
@ -975,9 +975,7 @@ bool TTrFa_app::tff0200(TString key)
TRectype r_ana = cache().get(LF_ANAG, TString(myrfso[0]) << myrfso.sub(1));
if(r_ana.get_char("TIPORFSO") == 'S') // Stabile Organizzazione
{
TAnagrafica rfso(r_ana);
//TAnagrafica rfso(LF_ANAG, myrfso[0], myrfso.sub(1));
TAnagrafica rfso(r_ana);
TString via = rfso.via_residenza(), cap = rfso.CAP_residenza(), nazione = rfso.stato_residenzaISO();
tff0200f.set("P2_STABORGIND", via);
@ -1046,9 +1044,11 @@ bool TTrFa_app::tff0400(TSheet_field& sheet)
clifoSent.add(checkClifo);
else
continue;
TRectype r_cedeprest = getCli(strarr->get(_tipocf), strarr->get(_codcf), strarr->get(_occas));
TAnagrafica cedeprest(r_cedeprest);
TVariant tipocf = strarr->get(_tipocf), codcf = strarr->get(_codcf), occas = strarr->get(_occas);
TRectype r_cedeprest = getCli(tipocf.as_string(), codcf.as_string(), occas.as_string());
TAnagrafica cedeprest(tipocf.as_string()[0], codcf.as_int(), occas.as_string());
TTrFa_record tff0400f("TFF0400F");
tff0400f.set("P4_KEYPRGINVIO", getKey(strarr));
@ -1082,7 +1082,7 @@ bool TTrFa_app::tff0400(TSheet_field& sheet)
}
// Sono sicuro che se è di tipo 3,7 o 8 ha la ragione sociale
char tipo = r_cedeprest.exist(CLI_ALLEG) ? r_cedeprest.get_char(CLI_ALLEG) : '\0';
char tipo = r_cedeprest.get_char(CLI_ALLEG);
bool rsoc = cedeprest.giuridica() || (tipo == '3' || tipo == '7' || tipo == '8');
bool privato = tipo == '6';
@ -1363,8 +1363,9 @@ void TTrFa_app::main_loop()
while (msk.run() == K_ENTER)
{
if(msk.checkNotEmpty() && send(&msk))
ini_set_string(CONFIG_DITTA, "tf", "LastSend", ++TDate(msk.get(F_DATAFIN)));
if(msk.checkNotEmpty())
send(&msk);
//ini_set_string(CONFIG_DITTA, "tf", "LastSend", ++TDate(msk.get(F_DATAFIN)));
}
}

7
src/tf/tf0101.cpp
View File

@ -32,10 +32,6 @@ bool TTrFa_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
{
switch (o.dlg())
{
case F_DATAINI:
if (e == fe_init)
o.set(ini_get_string(CONFIG_DITTA, "tf", "LastSend", "01-01-2017"));
break;
case F_DATAFIN:
if (e == fe_init)
o.set(TDate(TODAY));
@ -317,6 +313,7 @@ void TTrFa_mask::openJava()
DIRECTORY old_dir; xvt_fsys_get_dir(&old_dir);
DIRECTORY new_dir; xvt_fsys_convert_str_to_dir(tmp.path(), &new_dir);
xvt_fsys_set_dir(&new_dir);
const bool good = goto_url(tmp);
if (good)
{
@ -326,7 +323,7 @@ void TTrFa_mask::openJava()
{
error_box(FR("Impossibile eseguire Java -jar %s"), (const char*)tmp);
}
xvt_fsys_set_dir(&old_dir);
xvt_fsys_set_dir(&old_dir);
}
void TTrFa_mask::loadConfig()