FiveTech Software tech support forums

... ( cType == "D" ) xValue++ ENDCASE xNext := xValue RETURN( xNext ) FUNCTION Moveb(cAlias,cKey,nReg) LOCAL nNext:=0 IF nReg=0 .OR. (cAlias)->(LastRec())=0 .OR. !(&((cAlias)->(IndexKey(0)))=cKey) (cAlias)->(DbSkip(0)) ELSEIF nReg>0 .AND. (cAlias)->(RecNo())<>(cAlias)->(LastRec())+1 ...

... ( cType == "D" ) xValue++ ENDCASE xNext := xValue RETURN( xNext ) FUNCTION Moveb(cAlias,cKey,nReg) LOCAL nNext:=0 IF nReg=0 .OR. (cAlias)->(LastRec())=0 .OR. !(&((cAlias)->(IndexKey(0)))=cKey) (cAlias)->(DbSkip(0)) ELSEIF nReg>0 .AND. (cAlias)->(RecNo())<>(cAlias)->(LastRec())+1 ...

... 1 #define FCOUNT 0x83 1 #define FIELDNAME 0x84 1 #define FLOCK 0x85 1 #define FOUND 0x86 1 #define FSELECT0 0x87 1 #define FSELECT1 0x88 1 #define LASTREC 0x89 1 #define LOCK 0x8A 1 #define RECNO 0x8B 1 #define BNAMES 0x8C 1 #define LNAMES 0x8D 1 #define SNAMES 0x8E 1 #define SRCNAME 0x8F 1 #define ...

... "N/G",,,, !.F., !.F., !.F., !.F., .F. ) dbSelectArea( "8" ) dbUseArea( .F.,, "desig",, if(.F. .OR. .F., !.F., NIL), .F. ) TestData := Array( lastrec(), 4 ) FOR nI := 1 TO Len(TestData) TestData[nI,1] = val(desig->dntop) TestData[nI,2] = val(desig->dnleft) TestData[nI,3] = desig->dbmp ...

... "N/G",,,, !.F., !.F., !.F., !.F., .F. ) dbSelectArea( "8" ) dbUseArea( .F.,, "desig",, if(.F. .OR. .F., !.F., NIL), .F. ) TestData := Array( lastrec(), 4 ) FOR nI := 1 TO Len(TestData) TestData[nI,1] = val(desig->dntop) TestData[nI,2] = val(desig->dnleft) TestData[nI,3] = desig->dbmp ...

... TITLE "Database LAB" COLOR "N/G" && OF oWnd MDICHILD && NOSYSMENU TION NOMAXIMIZE NOICONIZE sele 8 use desig TestData := Array( lastrec(), 4 ) FOR nI := 1 TO Len(TestData) TestData[nI,1] = val(desig->dntop) TestData[nI,2] = val(desig->dnleft) //CANT TestData[nI,3] = desig->dbmp ...

... desde ya muchisimas gracias Dante devwin2004@yahoo.com.ar EJ TestData[nI,4] = desig->nmes adjunto codigo fuente use desig TestData := Array( lastrec(), 4 ) FOR nI := 1 TO Len(TestData) TestData[nI,1] = val(desig->dntop) TestData[nI,2] = val(desig->dnleft) //CANT TestData[nI,3] = desig->dbmp ...

... desde ya muchisimas gracias Dante devwin2004@yahoo.com.ar EJ TestData[nI,4] = desig->nmes adjunto codigo fuente use desig TestData := Array( lastrec(), 4 ) FOR nI := 1 TO Len(TestData) TestData[nI,1] = val(desig->dntop) TestData[nI,2] = val(desig->dnleft) //CANT TestData[nI,3] = desig->dbmp ...

... cField, nPercent, oMeter, oDlg) USE (cFileName) ALIAS cAlias INDEX ON &(cField) TO (cFileName) EVAL IndexStatus(nPercent, oMeter, oDlg) EVERY LastRec()/10 CLOSE cAlias RETURN nil ********** FUNCTION IndexStatus(nPercent, oMeter, oDlg) LOCAL nSeconds nPercent := Int((RecNo()/LastRec()) * 100) ...

... {"","" }} y ser browseado sin problemas. Para usar array, yo prefiero usar TArray, que crea un objeto array con metodos del tipo :GoTo(), :LastRec(); :Seek(), y otros. saludos

... While !(NSELEANT)->(eof()) oWnd:oMsgbar:cMsgdef:="Fichero "+cFichtrab+" Actualizando Registro.."+Str(RecNo(),9)+" de "+Str(LastRec(),9) ownd:oMsgbar:paint() NSYS++ IF NSYS = 100 Sysrefresh() NSYS = 0 ENDIF (nSeletrab)->(dbappend()) for nCont := 1 to (OFTEMP)->(FCount()) ...

... While !(NSELEANT)->(eof()) oWnd:oMsgbar:cMsgdef:="Fichero "+cFichtrab+" Actualizando Registro.."+Str(RecNo(),9)+" de "+Str(LastRec(),9) ownd:oMsgbar:paint() NSYS++ IF NSYS = 100 Sysrefresh() NSYS = 0 ENDIF (nSeletrab)->(dbappend()) for nCont := 1 to (OFTEMP)->(FCount()) ...