Erro BASE/1002 Alias does not exist

[HASA]

Boa tarde a todos, pessoal vez ou outra acontece esse erro em meu sistema tambem, já revirei meu código e não localizo o que pode ser, a dica do Kapiaba me chamou atenção quando ao uso do cget... ai pensei eu abro o bd assim:

BD := "CLIENTES" ( exemplo )

XARQ := "CLIENTES.DBF" ( exemplo )

ARQ := BASEDADOS+XARQ

USE &ARQ Alias &BD VIA "DBFCDX" Exclusive New
ou

USE &ARQ Alias &BD VIA "DBFCDX" Shared New

Onde BASEDADOS é o path do programa gravado bem no inicio do prg principal ou seja independente do path do WINDOWS eu chamo o banco de dados no caminho correto.

Pergunto aos NOBRES colegas, se o executavel estiver apontando para outro PATH ao tentar selecionar uma area de um arquivo já aberto ( pois não deu erro na abertura do mesmo ) o path influência a chamada da area de trabalho do banco de dados tipo DBSELECT("CLIENTES") ?

HASA

[sambomb]

Hasa, até onde eu sei a partir do momento que você abriu com um Alias ele vai funcionar nesse Alias independente do local de onde foi aberto...

Exemplo:

C:\Pasta1\Teste.dbf
C:\Pasta1\Teste.dbf
C:\Pasta1\Teste.dbf
...
C:\Pasta99\Teste.dbf

For i := 1 to 99

  cPath := "C:\Pasta" + AllTrim(Str(i,2))+"\Teste.dbf"
  cAlias := "ALIAS" + AllTrim(Str(i,2))
 
  Use  &cPath Alias  &cAlias VI "DBFCDX" SHARED NEW

End
Select ALIAS1
Select ALIAS2
// ...
Select ALIAS3 

[HASA]

Olá RCA é tbm o que eu imaginei,

VALEU...

HASA

[oribeiro]

Hasa,

Serve de consolo saber que não estou só no problema.

Vou continuar procurando a causa.

[HASA]

Ok Oscar, graças a Deus a fequencia e baixa mas acontce, a luta continua.

HASA

[oribeiro]

Samir (RCA),

Essa função é muito boa! Consigo evitar o erro com ela quando o alias deixou de existir.

Não estou passando o parâmetro em branco, mas o ALIAS fecha sem que eu dê instrução para isso.

Acho que é um problema que sempre existiu e eu não sabia, faz alguns meses que eu estou enviando automaticamente o arquivo "error.log" dos clientes para o meu email e aí esse erro mostrou as caras.

Continuo procurando a causa.

Obrigado,

[sambomb]

DEVE ser um DbCloseAll() perdido por ae
Com a mensagem das chamadas anteriores não deu pra identificar aonde que pode ter ocorrido o erro não?

[oribeiro]

Não deu.

[kleyber]

Oscar,

Estou acompanhando este teu dilema e sinceramente acho que pode ser uma questão de nome de variável que pode ter sido criada em outro prg, fazendo com que a variável que contenha o alias do teu dbf seja recriada. Foi isso que aconteceu comigo e passei dias para descobrir. Terias que fazer um pente fino no teu sistema para descobrir onde essa variável é chamada ou criada ou acessada.

[oribeiro]

Kleyber,

Muito obrigado pela sua sugestão. Estou tentando pensar se isso está acontecendo no meu sistema e como. Por exemplo:

Static cDbf

Prg1()

USE CLIENTES ALIAS X1CLIENTES NEW

cDbf := Alias()

...

Static cDbf

Prg2()

USE PRODUTOS ALIAS X2PRODUTOS NEW

cDbf := Alias()

...

Select(cDbf) // >> Nessa linha, de vez em quando acontece o erro Alias does not exist: X2PRODUTOS

Onde acontece o erro, aponta para o Alias correto: X2PRODUTOS, sendo assim, é possível que a mesma variável Static cDbf criada no Prg1 esteja interferindo na variável Static cDbf do Prg2 ?

Aguardo, obrigado.

[Theotokos]

Kleyber,

Muito obrigado pela sua sugestão. Estou tentando pensar se isso está acontecendo no meu sistema e como. Por exemplo:

Static cDbf

Prg1()

USE CLIENTES ALIAS X1CLIENTES NEW

cDbf := Alias()

...

Static cDbf

Prg2()

USE PRODUTOS ALIAS X2PRODUTOS NEW

cDbf := Alias()

...

Select(cDbf) // >> Nessa linha, de vez em quando acontece o erro Alias does not exist: X2PRODUTOS

Onde acontece o erro, aponta para o Alias correto: X2PRODUTOS, sendo assim, é possível que a mesma variável Static cDbf criada no Prg1 esteja interferindo na variável Static cDbf do Prg2 ?

Aguardo, obrigado.

Se vc utiliza esta variavel apenas em cada prgr citado, tente com PRIVATE...

[oribeiro]

Theotokos,

Vou fazer essa tentativa.

Notei que o sistema normalmente apresenta esse erro no comando Select.

Há alguma diferença interna no xHarbour ao processar o comando Select quando se usa sintaxe diferente? Assim:

Select(cDbf)

Select (cDbf)

Sele cDbf

Aguardo,

[Theotokos]

Veja que o processador retorna assim:

Select(cDBF) ====> dbSelectArea( ( cDBF ) )

Select (cDBF) ===> dbSelectArea( (cDBF) )

Select cDBF=====> dbSelectArea( "cDBF" )

Então no Ultimo vai dar erro... o certo seria : Select &cDBF

[oribeiro]

Obrigado.

[sambomb]

Se for o caso muda direto naquela função que te passei o select para DbSelectArea( )
Muda seus selects para aquela função e veja se persiste o erro.

[oribeiro]

Já estou fazendo isso! Obrigado.

[oribeiro]

Descobri alguns lugares onde ocorre esse erro no meu sistema:

Quando o usuário visualiza uma listagem, deixa-a aberta, volta para a tela de seleção que gerou a listagem e fecha essa janela, depois volta para a tela que está visualizando o relatório e a fecha. É nesse momento onde ocorre a maioria dos erros porque a tela de seleção fechou o arquivo que estava ativo na tela de listagem. Estou tratando isso no meu sistema. Pouco a pouco vou encontrar todos eles, se Deus quiser.

Um abraço,

[sambomb]

Usa as janelas de forma modal que vai te agilizar bastante

[oribeiro]

Genial essa ideia!

Coloquei em todos os PRINT e REPORT a instrução PREVIEW MODAL

Eu não sabia que o MODAL segurava o processamento até o usuário fechar a tela do relatório.

Isso com certeza resolverá uma boa parte dos erros.

Muito obrigado,

[sambomb]

Genial essa ideia!

Coloquei em todos os PRINT e REPORT a instrução PREVIEW MODAL

Eu não sabia que o MODAL segurava o processamento até o usuário fechar a tela do relatório.

Isso com certeza resolverá uma boa parte dos erros.

Muito obrigado,