PC Toledo

Estou com esse problema em um cliente.
Ele chama um relatório 3 vezes, e na terceira dá erro.

Ao abrir os arquivos, há o teste se conseguiu abrir, e só continua se os arquivos foram abertos.
Não há nenhuma situação pra fechar arquivos, só fecha mesmo no final.

O relatório é até básico da contabilidade, um livro razão, que abre poucos arquivos, talvez no máximo seis.
Uma emissão de nota fiscal deve abrir mais de 40, que não é o caso dele.

Só restou de diferente ele estar usando Windows 8.1 na rede.
Alguém passou por esse problema?

Não passei por isso, mas é muito curioso ser Windows 8.1 e o sistema procurar um aliás W81 (Windows 8.1).

Desculpe, o W81 se refere a acontecer no Windows 8.1
No caso um dos alias é CTPLANO que se refere ao plano de contas.

Alias does not exist:

Esta ocorrência é reproduzida quando realizada uma referência a um alias que não está aberto no momento da chamada da função.

Geralmente, esse tipo de ocorrência está relacionada à falta de verificação de erros em rotinas de aberturas de tabelas ou um determinado processamento fechou erroneamente uma tabela antes do término do processamento.

Verifique o código-fonte do programa que gerou esta ocorrência, ou mostre para os demais analisarem.

https://pctoledo.org/forum/viewto ... =1&t=12173

Verifique também, se o TERMINAL não perdeu a conexão com o SERVIDOR no momento da Abertura da tabela.

abs.

pois é, já verifiquei todas essas possibilidades.

Em meus módulos uso isto:

Código: Selecionar todos

IF .NOT. AbreArquivos( { "jpempre", "jptabel", "ctplano", "ctlotes", "ctdiari" } )
   RETURN
ENDIF

E resumindo as checagens de abertura, isto:

Código: Selecionar todos

     IF NetErr()
         CLOSE DATABASES
         MsgStop( "Arquivo " + cDbfName + " não pode ser aberto neste momento!" )
         lAbriu := .F.
         EXIT
      ENDIF
      IF .NOT. Used()
         MsgStop( "Arquivo " + cDbfName + " não pode ser aberto. Pode estar ruim!" )
         CLOSE DATABASES
         lAbriu := .F.
         EXIT
      ENDIF
      IF .NOT. AbreInd( cDbfName )
         lAbriu := .F.
         CLOSE DATABASES
         EXIT
      ENDIF
   NEXT
   RETURN lAbriu

Isso é comum em todos os meus sistemas, de todos os meus clientes, sendo a mesma rotina pra TUDO.
Qualquer problema na abertura, não continua.
Uso o próprio nome do DBF como alias.

E pode acontecer na primeira execução, na terceira...

O relatório apenas abre os arquivos, o usuário seleciona opções, e imprime.
Se faz sempre a mesma coisa, o funcionamento é sempre o mesmo.

Já revisei, abre os arquivos no início e fecha no final.

Por enquanto o erro é só nesse terminal Windows 8.1

FUNCTION AbreArquivos(...)

E quando dá o erro, não gera um ERROR.LOG? Para se saber em que linha o programa não consegue abrir e qual tabela não abriu?

abs.

Código: Selecionar todos

MsgStop( "Arquivo " + cDbfName + " não pode ser aberto neste momento!" )

Não precisa log, isso já avisa o usuário e mostra qual arquivo foi.
E a partir daí o módulo não continua.
Se houvesse problemas de abertura, persistente, o usuário comunicaria por não conseguir usar.
Além disso, o log não resolveria nada, porque o problema está em arquivo aberto, e não em arquivo que não conseguiu abrir.

A questão é:
A abertura passou nos testes de NetErr() e Used().
Bom... acabo em pensar nestes testes adicionais, o que é exagero, mas nunca se sabe:

Código: Selecionar todos

IF Alias() != cDbfName
   MsgStop( "Informe à JPA falha de checagem de ALIAS" )
   lAbriu := .F.
   EXIT
ENDIF
IF Select( cDbfName ) == 0
   MsgStop( "Informe à JPA falha de checagem de Select()" )
   lAbriu := .F.
   EXIT
ENDIF

Tente também:

Código: Selecionar todos

   /*
   IF .NOT. FILE( "CADNFE.DBF" ) .OR. .NOT. FILE( "CADMOVCR.DBF" ) .OR.     ;
      .NOT. FILE( "IMOVCR.CDX" ) .OR. NETERR()
   */

   IF .NOT. FILE( cDbfName ) .OR. NETERR()

      MsgStop( "Erro na Rede, Arquivo: " + cDbfName + " não pode ser aberto neste momento!" )

      lAbriu := .F.

      DbUnLockAll()
      DbCommitAll()
      DbCloseAll()

      EXIT

      /*
      Ferase("MiTabela.cdx")
      INDEX ON MiTabela->nombre1 TAG nom1
      INDEX ON ...etc, etc
      */

   ENDIF

   // O programa entra aqui em algum momento?
   IF .NOT. cDbfName->(USED()) //.T.  eu escreveria assim em xHarbour.

Sds.

Vi uma situação hoje, em outro cliente.
Nenhum erro, mas achei a situação curiosa.

Instalaram alguns computadores com rede sem fio.

Em um certo momento, o Windows mostrou lá na rede sem fio:

rede sem fio não conectada, alterando para trabalhar offline.
Você pode continuar trabalhando nos seus arquivos de rede em modo offline.

Isso é uma situação impossível pra DBFs.
Nem sei como a Microsoft faria isso funcionar pra outras coisas.

Vou confirmar depois se nesse cliente do Windows 8.1 também é sem fio.
Esse offline explicaria tudo.

Bem vindo ao mundo "GAMBI" da M$ de ser !!! Kkkkk
Me lembrou das redes ponto a ponto com cabo coaxial rsrssrsrs... Cadê o terminator ?
E como DBF/Paradox era a maioria naquela época todo mundo depois tinha um verdadeiro terror com DBF... Já com Novell/Netware era aquele avião!
Downgrade p/ Win7. Aposto minhas fixas em algum BUG no protocolo SMB da M$

Saudações,
Itamar M. Lins Jr.

Olá Quintas,
Passei com isso, o usuário dava uns ALT+TAB e quando voltava para um tela do meu sistema aberta com BROWSE dava esse problema, então tive que fazer uma GAMBI no errorsys.prg para reabrir o DBF, mais ainda o fato por que acontece não sei.

Eita.
O Alt-Tab era entre janelas do seu sistema?
Usando qual lib gráfica?

Se usar várias janelas na programação, vai ser executado o código da janela.
Ao usar alt-tab, vai executar código que pode estar abrindo/fechando/selecionando DBFs pra trabalho. Acho que as LIBs gráficas não estão preparadas pra isso.

No meu caso uso multithread, então cada módulo trabalha com suas coisas independentes, não importa se outro módulo mexe com outros DBFs

No momento só esse caso em especial, que ainda não descobri, e só num único cliente.

Ola,

Tive problema em um cliente, que de uma hora para outra, o W81 demorava uma eternidade para abrir uma tela grafica, que abria em media uns 8 arquivos dbf, isso começou do nada.

Para resolver, eu notei que ele tinha baixado um programa na net, e para ter certeza se era aquele programa, restaurei o w81 para uma data anterior e o meu sistema voo.

Passado um dia o cliente me ligou e o mesmo problema, perguntei o que ele havia baixado e ele me disse que simplesmente abriu o internet explore para acessar o Banco do Brasil, que depois disso meu sistema ficou uma carroça.

Como ja vi muitos reclamando do GBPLUGIN, restaurei o w81, pedi pra o cliente acessar o BB pelo chrome, e não tive mais problemas, ate agora.

Da uma olhada se o GBPLUGIN nao esta fazendo isso com seu sistema, pois ate o pessoal da UNIMAKE esta tendo problemas com ele.

Fica a dica...

Amiguinhos,

O GBPlugin é instalado quando se acessa BB, Caixa e Itau. O incrivel é que se voce usa os tres, sera instalado um GBPlugin de cada banco.

Este plugin está preparado para cassar o Trojan/Bank, ou seja, qualquer coisa que for para a memória e tenha a palavra BANCO terá execução terminada.

É a coisa mais tosca, é o mesmo que criar um programa pra rastrear a palavra VIRUS.

PC Toledo

Alguém com o problema Alias does not exist W81

Alguém com o problema Alias does not exist W81

Alguém com o problema Alias does not exist W81

Alguém com o problema Alias does not exist (no Windows 8.1)

Alguém com o problema Alias does not exist W81

Alguém com o problema Alias does not exist W81

Alguém com o problema Alias does not exist W81

Alguém com o problema Alias does not exist W81

Alguém com o problema Alias does not exist W81

Alguém com o problema Alias does not exist W81

Alguém com o problema Alias does not exist W81

Alguém com o problema Alias does not exist W81

Alguém com o problema Alias does not exist W81

Alguém com o problema Alias does not exist W81

Alguém com o problema Alias does not exist W81