Estou tentando usar o Mediator com uma aplicação meio grande que possui vários índices com cláusula FOR.
Mas ou eu estou fazendo alguma coisa errada ou o Mediator não aceita isso...
No código abaixo, um índice com cláusula FOR funciona no Harbour com DBFCDX mas com o Mediator ignora o FOR.
Código: Selecionar todos
#include "mediator.ch"
request medntx
request dbfcdx
Procedure Main()
/*************************************************/
/* DBFCDX */
/*************************************************/
? "DBFCDX := " + Test( "DBFCDX" )
// Retorna vazio, correto
/***************************************************/
/* MEDCDX Database with alternative extension .001 */
/***************************************************/
? "MEDCDX := " + Test( "MEDCDX" )
// Retorna 00002, errado...
Return
Function Test( cRDD )
Local I
Local cRetorno
Local aDatabaseStruc := { { "CODIGO" , "C", 5, 0 },;
{ "DESCR" , "C", 10, 0 } }
RDDSetDefault( cRDD )
DbCreate( "TESTE", aDatabaseStruc )
// Adiciona alguns registros
Use TESTE
For I := 1 to 9
DbAppend()
Field->CODIGO := "0000"+Str(I,1)
Field->DESCR := "PRODUTO"+Str(I,1)
Next
// Cria o índice FOR
Index on Field->CODIGO tag "CODIGO" For Field->CODIGO > "00002"
Seek "00002"
cRetorno := Field->CODIGO
Use
return cRetorno
Alguém usa Mediator e sabe como usar FOR nos índices ?
Ou isso não é possível ?
Tem algum forum especifico do Mediator ?
[[]] Maurício Ventura Faria
