FiveTech Software tech support forums

... Linked RDDs =========== DBF DBFDBT DBFNTX DataBases in use ================ 1: NOTES RddName: DBFNTX ============================== RecNo RecCount BOF EOF 2261 10087 .F. .F. Indexes in use TagName => codpat NOTES Relations in use 2: DICTIO RddName: DBFNTX ============================== RecNo ...

... 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 - nRec

... o o RDD e fiz umas classes e uso aquela TMySQL da contribuição harbour, tive que fazer umas adaptações que no inicio esta classe nao tinho o Bof e Eof(), tive que usar xcomand para trocar algumas instrucoes ..hoje jah me acostumei a escrever em SQL eu fiz uma classe semelhante a TDBF eu chamo ...

... operación no hay registro activo. Como buena costumbre, verifica si hay registros de dos maneras: con la propiedad recordcount y mirando si oRs:BOF() .AND. oRs:EOF() se cumple. Saludos, José Luis Capel

... RDDs =========== SIXCDX SXDBF DataBases in use ================ 1: => KLIMAKIA RddName: SIXCDX ============================== RecNo RecCount BOF EOF 19 18 .F. .T. Indexes in use TagName Relations in use Classes in use: =============== 1 TFONT 2 TWINDOW 3 TDIALOG 4 TBRUSH 5 TCONTROL 6 TSAY ...

... (cAlias)->(DbSkip()) nNext++ ENDDO (cAlias)->(DbSkip(-1)) nNext-- ELSEIF nReg<0 DO WHILE nNext>=nReg .AND. !BOF() .AND. &((cAlias)->(IndexKey(0)))=cKey (cAlias)->(DbSkip(-1)) nNext-- ENDDO IF !BOF() (cAlias)->(DbSkip()) ENDIF nNext++ ENDIF RETURN ...

... (cAlias)->(DbSkip()) nNext++ ENDDO (cAlias)->(DbSkip(-1)) nNext-- ELSEIF nReg<0 DO WHILE nNext>=nReg .AND. !BOF() .AND. &((cAlias)->(IndexKey(0)))=cKey (cAlias)->(DbSkip(-1)) nNext-- ENDDO IF !BOF() (cAlias)->(DbSkip()) ENDIF nNext++ ENDIF RETURN ...

... 0x79 1 #define TRUE 0x7A 1 #define UNDEF 0x7B 1 #define ZER0 0x7C 1 #define ZZBLOCK 0x7D 1 #define AXPRIN 0x7E 1 #define AXPROUT 0x7F 1 #define BOF 0x80 1 #define DELETED 0x81 1 #define EOF 0x82 1 #define FCOUNT 0x83 1 #define FIELDNAME 0x84 1 #define FLOCK 0x85 1 #define FOUND 0x86 1 #define ...

... DBF DBFDBT DBFFPT DBFNTX DBFCDX SQLRDD DataBases in use ================ 1: COMPANY RddName: DBFCDX ============================== RecNo RecCount BOF EOF 6 7 .F. .F. Indexes in use TagName => COMP_CODE COMPANY Relations in use 2: WINDEF RddName: DBFCDX ============================== RecNo RecCount ...