FiveTech Software tech support forums

... oBrow:bLogicLen := { || oRs:RecordCount } oBrow:bGoTop := { || oRs:MoveFirst() } oBrow:bGoBottom := { || oRs:MoveLast() } oBrow:bSkip := { | nSkip | Skipper( oRs, nSkip ) } oBrow:cAlias := "ARRAY" oGrp:oClient := oBROW oGrp:SetControl( oBrow ) ACTIVATE WINDOW oGRP ; VALID ( IIF( !lOK, GrpCLose( ...

... explicación, el primer problema se ha solucionado, muchas gracias. Tengo definida la función Skipper() así STATIC FUNCTION Skipper( oDatos, nSkip ) LOCAL nRec := oDatos:AbsolutePosition oDatos:Move( nSkip ) IF oDatos:EOF() oDatos:MoveLast() ENDIF IF oDatos:BOF() oDatos:MoveFirst() ENDIF ...

... {|| oDatos:MoveFirst() } oBrw:bGoBottom:= {|| oDatos:MoveLast() } oBrw:bBof:= {|| oDatos:Bof() } oBrw:bEof:= {|| oDatos:Eof() } oBrw:bSkip:= { | nSkip | Skipper( oDatos, nSkip ) } oBrw:bKeyCount:= {|| oDatos:RecordCount() } aCol[ 1]:= oBrw:AddCol() aCol[ 1]:bStrData := { || oDatos:Fields(0):Value} ...

... oLbx:bLogicLen :={|| Tabela:RecordCount} oLbx:bGoTop :={|| Tabela:MoveFirst()} oLbx:bGoBottom :={|| Tabela:MoveLast()} oLbx:bSkip :={| nSkip | Skipper(Tabela,nSkip)} @ 156,027 SBUTTON PIXELS TEXT ON_BOTTOM FONT oFontBut COLOR 0,nRGB(255,255,255) PROMPT "&Inclui" btnNew FILE "INCLUI.FIG" ...

... oBrow:bLogicLen := { || oRs:RecordCount } oBrow:bGoTop := { || oRs:MoveFirst() } oBrow:bGoBottom := { || oRs:MoveLast() } oBrow:bSkip := { | nSkip | Skipper( oRs, nSkip ) } oBrow:cAlias := "ARRAY" oUSER:oClient := oBROW oUSER:SetControl( oBROW ) ACTIVATE WINDOW oUser ; VALID ( IIF( !lOK, ...

... ); UPDATE oBrw:bLogicLen := { || oRs:RecordCount } oBrw:bGoTop := { || oRs:MoveFirst() } oBrw:bGoBottom := { || oRs:MoveLast() } oBrw:bSkip := { | nSkip | Skipper( oRs, nSkip ) } oBrw:cAlias := "ARRAY" oWND1:oClient := oBRW ACTIVATE WINDOW oWND1 ; VALID ( IIF( !lOK, _LwmfsClose(.T., oRs), .F. )) ...

... oBrow:bLogicLen = { || oRs1:RecordCount } oBrow:bGoTop = { || oRs1:MoveFirst() } oBrow:bGoBottom = { || oRs1:MoveLast() } oBrow:bSkip = { | nSkip | Skipper( oRs1, nSkip ) } oBrow:cAlias = "ARRAY1" ACTIVATE DIALOG oDlg1; ON INIT oDlg1:SetControl( oBrow ) oRs1:Close() RETURN NIL //------------------------------- ...

... ; UPDATE oBrw:bLogicLen := { || oRs:RecordCount } oBrw:bGoTop := { || oRs:MoveFirst() } oBrw:bGoBottom := { || oRs:MoveLast() } oBrw:bSkip := { | nSkip | Skipper( oRs, nSkip ) } oBrw:cAlias := "ARRAY" oWND1:oClient := oBRW ACTIVATE WINDOW oWND1 RETURN NIL

... oBRW) oBrw:bLogicLen = { || oRs:RecordCount } oBrw:bGoTop = { || oRs:MoveFirst() } oBrw:bGoBottom = { || oRs:MoveLast() } oBrw:bSkip = { | nSkip | Skipper( oRs, nSkip ) } oBrw:cAlias = "ARRAY" ACTIVATE DIALOG oDlg; ON INIT oDlg:SetControl( oBrw ) /* ACTIVATE WINDOW oWNDMDI; ON INIT oWNDMDI:SetControl( ...

... nRec - 1 ) ) oBrw:bLogicLen = { || oRs:RecordCount } oBrw:bGoTop = { || oRs:MoveFirst() } oBrw:bGoBottom = { || oRs:MoveLast() } oBrw:bSkip = { | nSkip | Skipper( oRs, nSkip ) } oBrw:cAlias = "ARRAY" ACTIVATE DIALOG oDlg; ON INIT oDlg:SetControl( oBrw ); CENTER RETURN NIL STATIC FUNCTION TCBROWSERECORDSET( ...

... := { || oRs21:oRs:RecordCount } oBrw:bGoTop := { || oRs21:oRs:MoveFirst() } oBrw:bGoBottom := { || oRs21:oRs:MoveLast() } oBrw:bSkip := { | nSkip | ADOSkipper( oRs21:oRs, nSkip ) } oBrw:cAlias := "ARRAY" LISTO!!! Espero te sirva esta para ADO() pero si le ajustas para eagle1 te sirve igual. ...

... oBrw:OnGoTop := {|| oRs:MoveFirst() } oBrw:OnGoBottom := {|| oRs:MoveLast() } oBrw:OnBof := {|| oRs:Bof() } oBrw:OnEof := {|| oRs:Eof() } oBrw:OnSkip := { | nSkip | Skipper( oRs, nSkip ) } oBrw:OnKeyCount := {|| oRs:RecordCount() } En lugar de OnGoTop debe ser bGoTop, etc. Tampoco es necesario ...

... := oTXT:RecCount() } ::bLogicPos := nil ::bGoLogicPos := nil ::bGoTop := { || oTXT:GoTop() } ::bGoBottom := { || oTXT:GoBottom() } ::bSkip := { | nSkip, nOld | nOld:= oTXT:RecNo(), ; oTXT:Skip( nSkip ), ; oTXT:RecNo() - nOld } return nil lo que pasa es que estoy observando otro comportamiento ...

... from _FWH(3109) Called from WINRUN(0) Called from TWINDOW:ACTIVATE(878) Called from MAIN(76) este es el codigo: STATIC FUNCTION SKIPPER( oRs, nSkip ) LOCAL nRec := oRs:AbsolutePosition oRs:Move( nSkip ) IF oRs:EOF() oRs:MoveLast() endif IF oRs:BOF() oRs:MoveFirst() ENDIF RETURN oRs:AbsolutePosition ...

... = { || oRecordSet:RecordCount } oLbx1:bGoTop = { || oRecordSet:MoveFirst() } oLbx1:bGoBottom = { || oRecordSet:MoveLast() } oLbx1:bSkip = { | nSkip | Skipper( oRecordSet, nSkip ) } oLbx1:cAlias := "ARRAY" Gracias desde ya :)