FiveTech Software tech support forums

... oLbx:bLogicLen := { || oRsRpt:RecordCount } oLbx:bGoTop := { || oRsRpt:MoveFirst() } oLbx:bGoBottom := { || oRsRpt:MoveLast() } oLbx:bSkip := { | nSkip | Skipper( oRsRpt, nSkip ) } oLbx:cAlias := "ARRAY" oLbx:nClrPane = { | nCOL | if( oRsRpt:Fields("row_color"):Value = "GREEN", CLR_GREEN, CLR_WHITE ...

... .t. else ::GoTo( nPos ) endif endif return( Self ) //---------------------------------------------------------------------------// METHOD Skipper( nSkip ) CLASS TList local nSkipped := 0 nSkipped := Min( Max( nSkip, 1 - ::Pos ), ::Size - ::Pos ) ::GoTo( ::Pos + nSkipped ) return( nSkipped ) //---------------------------------------------------------------------------// ...

... oLbx:bLogicLen = { || oRs:RecordCount() } oLbx:bGoTop = { || oRs:MoveFirst() } oLbx:bGoBottom = { || oRs:MoveLast() } oLbx:bSkip = { | nSkip | Skipper( oRs, nSkip ) } oLbx:cAlias = "ARRAY" REDEFINE BUTTON ID 102 OF oFld:aDialogs[1] ACTION( EditC1(.t.,oLbx ) ,oFld:aDialogs[1]:Refresh() ...

... .F., oLbx ) oLbx:bLogicLen = { || oRs:RecordCount } oLbx:bGoTop = { || oRs:MoveFirst() } oLbx:bGoBottom = { || oRs:MoveLast() } oLbx:bSkip = { | nSkip | Skipper( oRs, nSkip ) } oLbx:cAlias = "ARRAY" ** si pulsa <intro> oLbx:bKeyDown := {|nK| if( nK != VK_RETURN, , F_ALTA(oRs,.F.,aCbx, oLbx) ...

... := { || oRecordSet:RecordCount } oLbx1:bGoTop := { || oRecordSet:MoveFirst() } oLbx1:bGoBottom := { || oRecordSet:MoveLast() } oLbx1:bSkip := { | nSkip | Skipper( oRecordSet, nSkip ) } STATIC FUNCTION SKIPPER( oRs, nSkip ) LOCAL nRec := oRs:AbsolutePosition oRs:Move( nSkip ) IF oRs:EOF() oRs:MoveLast() ...

... = { || oRecordSet:RecordCount } oBrw:bGoTop = { || oRecordSet:MoveFirst() } oBrw:bGoBottom = { || oRecordSet:MoveLast() } oBrw:bSkip = { | nSkip | Skipper( oRecordSet, nSkip ) } oBrw:cAlias = "ARRAY" REDEFINE BUTTON ID 102 of oDlg ACTION( AGREGO( .t., oBrw ) ) REDEFINE BUTTON ID 103 of ...

... } IF oReport:lCreated oReport:bSkip := { | | nLinea++, Ors:MOVENEXT() } ENDI 2) He modificado la funcion Skipper quedando: FUNCTION SKIPPER( oRs, nSkip ) LOCAL nRec := oRs:AbsolutePosition IF oRs:EOF oRs:MoveLast() ELSE oRs:Move( nSkip ) ENDIF IF oRs:BOF; oRs:MoveFirst(); ENDIF RETURN oRs:AbsolutePosition ...

Prueba a dejar la funcion skipper más sencilla:

FUNCTION SKIPPER( oRs, nSkip )
LOCAL nRec := oRs:AbsolutePosition
oRs:Move( nSkip )
RETURN oRs:AbsolutePosition - nRec

ya que cuando sea eof el Reporte Termine.

Posiblemente usando el metodo bSkip del Report: END REPORT .... .... oReport:bSkip = { | nSkip | Skipper( oRs, nSkip ) } ACTIVATE REPORT oReport Moisés, muchas gracias por tu ayuda. Ahora lista perfectamente el Recordset, pero repite "infinitamente" el último registro. ...

Posiblemente usando el metodo bSkip del Report:

END REPORT

....
....
oReport:bSkip = { | nSkip | Skipper( oRs, nSkip ) }

ACTIVATE REPORT oReport

... oLbx:bLogicLen = { || oRs:RecordCount } oLbx:bGoTop = { || oRs:MoveFirst() } oLbx:bGoBottom = { || oRs:MoveLast() } oLbx:bSkip = { | nSkip | Skipper( oRs, nSkip ) } oLbx:cAlias = "ARRAY" Desearía imprimir el browse (todos los registros) con la clase Report, pero solo consigo que me ...

... OF oDlg oBrw:bLogicLen = { || oRs:RecordCount } oBrw:bGoTop = { || oRs:MoveFirst() } oBrw:bGoBottom = { || oRs:MoveLast() } oBrw:bSkip = { | nSkip | Skipper( oRs, nSkip ) } oBrw:cAlias = "ARRAY" ACTIVATE DIALOG oDlg CENTER oRs:CLOSE() oCon:CLOSE() RETURN nil STATIC FUNCTION SKIPPER( oRs, ...

... oDlg oLbx:bLogicLen := { || oRs2:RecordCount } oLbx:bGoTop := { || oRs2:MoveFirst() } oLbx:bGoBottom := { || oRs2:MoveLast() } oLbx:bSkip := { | nSkip | Skipper( oRs2, nSkip ) } oLbx:cAlias := "ARRAY" REDEFINE BUTTON oBTN1 ID 112 of oDLG ; ACTION ( zGROUP1 := oRs2:Fields("CODE"):Value, ; oOBJ:Refresh(), ...

... oLbx:bLogicLen := { || oRsMTP:RecordCount } oLbx:bGoTop := { || oRsMTP:MoveFirst() } oLbx:bGoBottom := { || oRsMTP:MoveLast() } oLbx:bSkip := { | nSkip | Skipper( oRsMTP, nSkip ) } oLbx:cAlias := "ARRAY" ACTIVATE DIALOG oDlg ; ON INIT ( if( (xSUPER = 'Y' .or. xADMIN = 'Y' ), ,oBtn3:Hide() ) ) ...

... := Nil // CeSoTech ::bGoLogicPos:= Nil // CeSoTech ::bGoTop = { || ::nAt := 1 } ::bGoBottom = { || ::nAt := Eval( ::bLogicLen ) } ::bSkip = { | nSkip, nOld | nOld := ::nAt, ::nAt += nSkip,; ::nAt := Min( Max( ::nAt, 1 ), Eval( ::bLogicLen ) ),; ::nAt - nOld } return nil //----------------------------------------------------------------------------// ...