root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Correzioni all' editor dei form

Browse Source 
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
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ba/baformed.cpp
View File

@ -667,9 +667,9 @@ bool TForm_editor::ask_profile()
rfr.zero(); rfr.zero();
rfr.put("TIPOPROF", fform); rfr.put("TIPOPROF", fform);
rfr.put("CODPROF", format("%05ld",fcode)); 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(); rfr.remove();
} }
_m->set(F_CODE,""); _m->set(F_CODE,"");