FiveTech Software tech support forums

... y rowSet... tienen metodos de navegacion y ordenaminento,,,, Navigation: Supports all methods of TDatabase like GoTop,GoBottom,GoTo,Skip,Eof,Bof,LastRec, RecCount,KeyCount,KeyGoTo, etc Also supports aliased methods compatible with ADO MoveFirst,MoveLast,Move,BookMark,AbsolutePosition, etc ...

... oDbf1:bEoF=nil oDbf1:bBoF=nil oDbf1:GoTop() USE VENTAS44 NEW DATABASE oDbf2 oDbf2:bEoF=nil oDbf2:bBoF=nil oDbf2:GoBottom() Q:=1 DO WHILE !oDbf2:Bof() .AND. Q<=10 IF oDbf2:PRODUCTO>0 NroVta[Q]:=oDbf2:NUMEROVTA FecVta[Q]:=oDbf2:FECHA HorVta[Q]:=oDbf2:HORA SurVta[Q]:=TRAN(oDbf2:SURTIDOR,"##")+" ...

Armando, mira se ayuda:

https://forums.fivetechsupport.com/viewtopic.php?f=6&t=4141&p=18272&hilit=El+valor+de+BOF+o+EOF+es+True&sid=fdf732bd19789fb68e7dee0716c16d70&sid=63a75c395d0fbee47c116d52036b8fa3#p18272

Regards, saludos.

Thanks Mr Rao....

You are right. With RecSet, eof() and bof() do not work. We will try to provide this in future versions. for now you can use this: nRecs := oData:RecCount()nSave := oData:RecNo()do while oData:RecNo() <= nRecs   // ...

What about calling oData:MoveFirst() before starting the Do while Loop ?

Mr Rao You can help me please , I use RecSet, but not work correctly, EOF() and BOF() not workink with RecSet, see you this example: I used MaeiaDb Function ListaUser(oCn)local lOK, cData, oData, aRet := {}lOk := .t.cData := "SELECT nick FROM ...

... DBF DBFFPT DBFBLOB DBFCDX DBFNTX DataBases in use ================ 1: => EMP RddName: DBFNTX ============================== RecNo RecCount BOF EOF 1 1 .F. .F. Indexes in use TagName Relations in use Classes in use: =============== 1 ERROR 2 HBCLASS 3 HBOBJECT 4 TFONT 5 WIN_OLEAUTO 6 TOLEAUTO ...

... DBF DBFFPT DBFBLOB DBFCDX DBFNTX DataBases in use ================ 1: => EMP RddName: DBFNTX ============================== RecNo RecCount BOF EOF 1 1 .F. .F. Indexes in use TagName Relations in use Classes in use: =============== 1 ERROR 2 HBCLASS 3 HBOBJECT 4 TFONT 5 WIN_OLEAUTO 6 TOLEAUTO ...

...  Called from:  => TOLEAUTO:VALUE( 0 )  1007 group of errors occur when accessing a recordset is closed or eof/bof is true or record is deleted. Please check if any situation exists

... n == nil,; ( ::cAlias )->( OrdKeyNo() ),; ( ::cAlias )->( OrdKeyGoto( n ); ) ) },; ::bKeyCount := {|| ( ::cAlias )->( If( eof() .and. bof(), 0, OrdKeyCount() ) ) } Endif :::::: ¿Puede alguien por favor decirme si causará algún error dejarlas comentadas? ¿o cual sería la solución correcta? ...

... _Fe1_:=20220101 _Fe2_:=20220131 Connect_sql(@_Cnx_,'Usuario','Clave') Get_sql_detalle(_Cnx_,@_Rds_,_Fe1_,_Fe2_) Do While !_Rds_:Bof() .And. !_Rds_:Eof() _Imp_:=_Rds_:Fields('Precio'):Value _Tpr_:=_Rds_:Fields('Tipo'):Value _Obs_:=_Rds_:Fields('Observa'):Value Aadd(Arayx,{_Rds_:Fields('Documento'):Value, ...

... not know. Now, let us make this work. Please let me know: What are the methods to 1. GoTop (eg: oTb:GoTop() ) 2. GoBottom 3. GoTo( nthRecord ) 4. Bof() 5. Eof() How do we access and assign field values? Is it similar to other classes like x := oTb:fieldname oTb:fieldname := x ? Thanks Mr Rao 1.- ...

... not know. Now, let us make this work. Please let me know: What are the methods to 1. GoTop (eg: oTb:GoTop() ) 2. GoBottom 3. GoTo( nthRecord ) 4. Bof() 5. Eof() How do we access and assign field values? Is it similar to other classes like x := oTb:fieldname oTb:fieldname := x ?

... DBF DBFFPT DBFBLOB DBFCDX DBFNTX DataBases in use ================ 1: ARQRAM RddName: DBFCDX ============================== RecNo RecCount BOF EOF 6 5 .F. .T. Indexes in use TagName => DESCRICAO DESCRICAO Relations in use 2: CONFCTE RddName: DBFCDX ============================== RecNo ...