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:
parent
83ec7ad783
commit
1fe163e2b4
@ -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,"");
|
||||
|
Loading…
x
Reference in New Issue
Block a user