fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Luiz Rafael Culik
2000-06-14 01:14:18 +00:00
parent 27ab6c7d1c
commit 193f05a349
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/source/rdd/dblist.prg
View File

@@ -40,10 +40,10 @@ FUNCTION __dbList(lOff,aList,lAll,bFor,bWhile,nNext,nRec,lRest,lPrint,cFile)
Local bBlock,lPrinter,lExtra,cExtraFile,oError
IF lOff
bBlock:={|| (Qout(iff(Deleted(), "*", " ")), aEval(aList, ;
bBlock:={|| (Qout(if(Deleted(), "*", " ")), aEval(aList, ;
{|cItem| qqout(eval(cItem),"")}))}
ELSE
bBlock:={|| (Qout(STR(Recno(),7), iff(Deleted(), "*", " ")), aEval(aList, ;
bBlock:={|| (Qout(STR(Recno(),7), if(Deleted(), "*", " ")), aEval(aList, ;
{|cItem| qqout(eval(cItem),"")}))}
ENDIF
@@ -94,7 +94,7 @@ FUNCTION __dbUpdate(cAlias,bKey,lRand,bFields)
bBlock:=EVAL(bKey)
DBSELECTAREA(CurArea)
IF lRand
dbSeek(bBlock, iff(.F. ,.T.,NIL))
dbSeek(bBlock, if(.F. ,.T.,NIL))
IF Found()
Eval(bFields)
Endif