Correzioni all' editor dei form

git-svn-id: svn://10.65.10.50/trunk@2650 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1996-02-28 16:58:04 +00:00
parent 83ec7ad783
commit 1fe163e2b4

View File

@ -667,9 +667,9 @@ bool TForm_editor::ask_profile()
rfr.zero();
rfr.put("TIPOPROF", fform);
rfr.put("CODPROF", format("%05ld",fcode));
if (rfr.read() == NOERR)
if (rfr.read(_isgteq) == NOERR)
{
for ( ; atol(rfr.get("CODPROF")) == fcode && rfr.get("TIPOPROF") == fform; rfr.next())
for ( ; rfr.status() == NOERR && atol(rfr.get("CODPROF")) == fcode && rfr.get("TIPOPROF") == fform; rfr.next())
rfr.remove();
}
_m->set(F_CODE,"");