Retornar a quantidade de registros de uma cadeia.
CHAIN ()
Retorna a quantidade de registros que atenderam a uma pesquisa feita pelo comando SEEK.
Se após o comando SEEK o resultado de EOF() for .T. Então a função CHAIN() retorna zero. O mesmo ocorrerá quando a pesquisa for feita por prefixo de uma chave caracter (SEEK $= <exp>).
Só é utilizada para pesquisas de igualdade de valores (SEEK = <exp>) e para arquivos de banco de dados.
O exemplo a seguir mostra-nos a utilização desta função numa pesquisa de igualdade de valores.
USE tab_depe
SEEK id2_func = 123
IF EOF()
? CHAIN () && Retornara 0 (zero)
ELSE
? CHAIN () && Retornara o numero de
ENDIF && registros da cadeia.
O exemplo a seguir mostra-nos a utilização desta função em pesquisa por prefixo de chave-cadeia de caracteres.
USE tab_depe
SEEK par_depe $= "FIL"
IF EOF()
? CHAIN () && Retornara 0 (zero)
ELSE
? CHAIN () && Retornara 0 (zero)
ENDIF
SEEK, SKIP, EOF(), FCHAIN(), FOUND() e FPSKIP().