LetoDbf - Error LETO/1000 Syntax erros

[Rogerio Lira]

Bom dia Meus caros tudo bem?

Estou iniciando com o Leto e fazendo testes me deparei com este erro.

Código: Selecionar todos

//-----------------------------------------------------------------------------
                          Function A_FreSP()
//-----------------------------------------------------------------------------                     

If Net_Use( "ArqFreSP",.F.,15)

   If ! File("IndFreSP.CDX")
      Index on Num_Not + Cod_Fre               TAG INDFRESP To IndFreSP
      Index on Nom_Tra+Num_Fat+Num_Con+Num_Not TAG INDFRETR To IndFreSP
      Index on Dtos(Dat_Emi) + Num_Not         TAG INDFREDT To IndFreSP
      Index on Cod_Fre + Dtos(Dat_Emi)         TAG INDFRECF To IndFreSP
   EndIf
   
Else
   Dialogo("Impossivel Abrir Arquivo ARQFRESP.DBF.......Tente Mais Tarde....")
   Saida()
   Quit
EndIf

Set Index To IndFreSP
             
Return

Alguém tem uma pista ?
Essa função funciona com o RDD DBFCDX, normalmente.

[alxsts]

Olá!

Seja bem-vindo ao fórum!

Parece que está tentando usar o Leto sem alterar nada nos teus fontes. Não é simples assim. Terá que instalar o servidor e trocar algumas funções nativas do Harbour pelas correspondentes do Leto.

Veja este tópico: https://pctoledo.org/forum/viewto ... 43&t=25904.

Existe também o LetoDbf que parece ser mais indicado.

[Rogerio Lira]

Entendí, é exatamente isso, não fiz nenhuma alteração.
Você tem uma forma mais compatível para criar indices no Leto ?
Estou udando o LetoDBf !

[Itamar M. Lins Jr.]

Olá!

Você tem uma forma mais compatível para criar indices no Leto ?

Bem vindo ao forum!
É o mesmo indice, os indices são criados pelo Harbour.
São mudanças mínimas.
Pq, vc pode confundir quando usa no servidor e quando usa a estação.
Então vc troca file() por LETO_FILE() --->> assim vc sabe que sempre estará verificando a existência do arquivo no SERVIDOR.
Os comando são os mesmo. As funções que vc muda para certificar-se de perguntar ao servidor.
INDEX ON NOME ... FOR "JOAO" $ upper(field->nome)
No caso de usar uma variável para "JOAO"
cQuery := " ' " + cNome + " ' " + " $ upper(field->nome) "

INDEX ON NOME ... FOR &cQuery

Não tem o código dessa função.
Net_Use( "ArqFreSP",.F.,15)

Aqui:
If ! leto_File("IndFreSP.CDX")
Index on Num_Not + Cod_Fre TAG INDFRESP
Index on Nom_Tra+Num_Fat+Num_Con+Num_Not TAG INDFRETR
...
Não precisa do TO ...
Atenção que no LINUX IndFreSP.CDX o aquivo é CHECADO(o nome) dessa forma! Maiúsculas e minusculas IMPORTAM!

Saudações,
Itamar M. Lins Jr.