Clipper On Line • Ver Tópico - Primeiro erro com hbnetio

Primeiro erro com hbnetio

Aqui é o lugar para bater papo e trocar idéias sobre os mais variados assuntos

Moderador: Moderadores

 

Primeiro erro com hbnetio

Mensagempor JoséQuintas » 17 Jan 2020 10:26

Depois de 5 anos ou mais, é a primeira vez que dá erro.

Folder: D:\JPA-NETIO\CORDEIRO\
Windows: Windows Server 2008 R2 6.1 SP1
Computer Name: SERVIDOR-RDS
Windows User: joseq
Logon Server: \SERVIDOR
Harbour: Harbour 3.4.0dev (0e13c7c08d) (2019-09-09 14:45)
Compiler: MinGW GNU C 8.1 (32-bit)
GT: WVG

SYSTEM ERROR
Error DBFCDX/1201 Workarea not indexed
Called from DBSEEK(0)
Called from ENCONTRA(30)
Called from PEDIDO:ITEMCALCULAIMPOSTOS(590)
Called from PEDIDO:PEDIDOCALCULAVALORES(495)
Called from CONFIRMAPEDIDO(1117)
Called from JPPEDIDOCLASS:USERFUNCTION(505)
Called from JPPEDIDOCLASS:EXECUTE(343)
Called from P0600PED(70)
Called from DO(0)
Called from DOPRG(119)
Called from (b)RUNMODULE(88)


Só pode ter a ver com as mudanças pra MySQL.
Aliás... é isso mesmo, porque não deveria estar buscando isso em DBF, quando existe MySQL.
Esquisito que é o mesmo fonte pra DBF e hbnetio, e em DBF não há problema... vou revisar.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Primeiro erro com hbnetio

Mensagempor JoséQuintas » 17 Jan 2020 10:47

Foi mesmo.

   IF File( "jpuf.dbf" )
      IndexDbf( "jpuf", "UFs" )
      IndexInd( "numlan",    "ufUf" )
      IndexInd( "DESCRICAO", "ufDescri+ufUf" )
   ENDIF


Estava apenas me preparando pra apagar alguns arquivos.
O aplicativo depende disso pra abrir DBF e CDX.
Mas em hbnetio não existe DBF visível, foi esse o problema: esqueci disso.

Tudo bem, vai ser trocar para: IF AppConexao() == NIL.
Aonde roda hbnetio também roda MySQL, e fica resolvido.
E só trocar quando realmente apagar... tem essa também... quem mandou alterar adiantado kkkk
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes




Retornar para Bate Papo

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 4 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro