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:
angelo 1996-09-17 10:59:10 +00:00
parent ed8af9c3b3
commit f0a599d2f1

View File

@ -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)