Correzione errori MI3382 e MI4234. Memorizza i formati DATA/NUMERO su
di una riga con sezione DN ed identificatore 0. Le informazioni sono sullo special. git-svn-id: svn://10.65.10.50/trunk@3600 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
ed8af9c3b3
commit
f0a599d2f1
@ -723,7 +723,19 @@ bool TForm_EC_editor::edit(char s, pagetype p)
|
||||
form().print_on(out);
|
||||
}
|
||||
else
|
||||
form().write_profile();
|
||||
{
|
||||
TForm& ff = form();
|
||||
ff.write_profile();
|
||||
TLocalisamfile r(LF_RFORM); // scrivera' un record sulle righe, relativo alla sezione
|
||||
r.put("TIPOPROF",ff.name());// per memorizzare i formati numero/data
|
||||
r.put("CODPROF",ff.code());
|
||||
r.put("SEZ","DN");
|
||||
r.put("ID",0);
|
||||
TToken_string t(get_formato_data(),'\n');
|
||||
t.add(get_formato_numero());
|
||||
r.put("SPECIAL",t);
|
||||
if (r.write()!= NOERR) r.rewrite();
|
||||
}
|
||||
}
|
||||
else
|
||||
if (k==K_ESC && form()._isnew)
|
||||
@ -842,6 +854,18 @@ bool TForm_EC_editor::ask_profile()
|
||||
{
|
||||
check_form();
|
||||
set_form(new TForm_EC(fform, (fcode!=0) ? cod : "", extra() ? 2 :1, fdesc));
|
||||
|
||||
TLocalisamfile r(LF_RFORM); // Setta l'eventuale formato date/numero impostati
|
||||
r.put("TIPOPROF",fform);
|
||||
r.put("CODPROF",cod);
|
||||
r.put("SEZ","DN");r.put("ID",0);
|
||||
if (r.read() == NOERR)
|
||||
{
|
||||
TToken_string special (r.get("SPECIAL"),'\n');
|
||||
set_formato_data(special.get(0));
|
||||
set_formato_numero(special.get(1));
|
||||
}
|
||||
|
||||
break;
|
||||
}
|
||||
else if (k == K_DEL)
|
||||
|
Loading…
x
Reference in New Issue
Block a user