Aggiustamenti scelta profilo e implementazione cancellazione

git-svn-id: svn://10.65.10.50/trunk@1455 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
villa 1995-06-08 07:37:44 +00:00
parent 4e664d14c0
commit 1801ffd419

View File

@ -59,7 +59,9 @@ bool TForm_editor::create()
if (code == 0)
code = atol(argv(a));
}
bool go = FALSE;
if ((form && code) || (form && code == 0 && _extra))
{
_form = new TForm(form, code, _extra ? 2 : 1);
@ -88,22 +90,43 @@ bool TForm_editor::create()
if (k == K_ENTER)
{
m.stop_run(K_ENTER);
_form = new TForm(fform, fcode, _extra ? 2 :1, fdesc);
_form->set_description(m.get(F_DESC));
enable_menu_item(M_FILE_PRINT);
if (!_extra) dispatch_e_menu(MENU_ITEM(31));
go = TRUE;
break;
}
else if (k == K_DEL)
{
if (yesno_box("Confermare la cancellazione del "
"profilo %05ld", fcode))
{
// TBI remove form
TLocalisamfile frm(LF_FORM);
frm.zero();
frm.put("TIPOPROF", fform);
frm.put("CODPROF", fcode);
if (frm.read() == NOERR)
frm.remove();
TLocalisamfile rfr(LF_RFORM);
rfr.zero();
rfr.put("TIPOPROF", fform);
rfr.put("CODPROF", fcode);
if (rfr.read() == NOERR)
{
for (; rfr.get_long("CODPROF") == fcode && rfr.get("TIPOPROF")
== fform; rfr.next())
rfr.remove();
}
m.set(F_CODE,"");
m.set(F_BASE,"");
m.set(F_DESC,"");
}
}
}
// error_box("Specificare il form da modificare!");
}
if (go)
{
enable_menu_item(M_FILE_PRINT);
if (!_extra) dispatch_e_menu(MENU_ITEM(31));
}
return form != NULL;