PC Toledo

Enviado: **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.

Enviado: **17 Jan 2020 10:47**

Foi mesmo.

Código: Selecionar todos

   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

PC Toledo

Primeiro erro com hbnetio

Primeiro erro com hbnetio

Primeiro erro com hbnetio