FiveTech Software tech support forums

... por tanto su manejo es muy parecido a la clase Database de FWH. Es una redundancia crear variables desde el RecordSet. He suprimido las funciones RecordSetSkip y Agrego1.- Uso oRs = oRecordSet. Este sería el código: REDEFINE BUTTON ID 102 of oDlg ACTION( AGREGO( .t., oBrw, oRs ) ) REDEFINE BUTTON ...

... oRs:Move( nSkip ) IF oRs:EOF; oRs:MoveLast(); ENDIF IF oRs:BOF; oRs:MoveFirst(); ENDIF RETURN oRs:AbsolutePosition - nRec Static Function RecordSetSkip(nSkip) LOCAL nRec := oRecordSet:AbsolutePosition oRecordSet:Move( nSkip ) IF oRecordSet:EOF; oRecordSet:MoveLast(); ENDIF IF oRecordSet:BOF; ...