Unrecoverable error 415: Cannot open overlay file 'juntar.ex

[sllc_br]

Olá,
Estou com um erro ao executar o programa gerado após a compilação. O programa é bem pequeno e apenas lê os dados de duas tabelas e cria uma nova tabela com estes dados, tem mais ou menos 50 linhas de código e não faz referência a nenhum outro programa e funções.
Estou precisando muito fazer este programa rodar, mas não sei que erro é esse:

quando executo o programa juntar.exe apresenta:

Unrecoverable error 415: Cannot open overlay file 'juntar.exe'

Se alguém puder ajudar, agradeço imensamente.
Sergio

[Maligno]

Nos mostre seu script de linkedição para sabermos como esse programa está sendo montado.

[sllc_br]

O programa realmente é pequeno e nem tem muita necessidade de ter um script de link não.
Estou usando o .bat do clipper para compilar com "cl juntar", ou da maneira mais simples possível:
clipper juntar
rtlink file juntar

só isso.
Continuo com o problema, não sei mais o que fazer.
Sergio

[Pablo César]

Sérgio, se o conteúdo do seu arquivo cl.bat, for o que você mencionou mesmo. Não teria como dar esse tipo de erro. Desculpe insistir, mas tem certeza que contém:

clipper juntar
rtlink file juntar

Caso contrário, poderias mostrar seu código, mas ainda acho que é um problema durante a compilação. Talvez o uso do Exospace, algum PLL... algo assim

[alaminojunior]

se vc usa WinXP, coloque no autoexec.nt a seguinte linha:
SET CLIPPER=F100 // mais ou menos
e no config.nt: FILES=100

se for win98 pra baixo, coloque o SET CLIPPER no autoexec.bat,
e no config.sys: FILES=100

[sllc_br]

O código é bem simples, vou enviar abaixo. O programa é compilado normalmente sem erros, mas na hora de executar é que o erro aparece. Outra coisa, a configuração nos arquivos config.nt e autoexec.nt já existem e não se trata disso porque outros programas em clipper funcionam nesta máquina sem problemas.

Código: Selecionar todos

clear screen

set date brit
set century on
set talk off
set delimiters to "[]"
set delimiters on

ADBF = {{"CODMAT","C",8,0},{"CODALM","C",2,0},{"DATANT","D",8,0},;
        {"FISANT","N",9,1},{"FINANT","N",13,2},{"CUSANT","N",14,6}}

dbcreate("MEMORIA",ADBF)

ADBF = {{"CODMAT","C",8,0},{"DESMAT","C",60,0},{"CODCPL","C",9,0},{"UNIDADE","C",15,0},;
        {"FISANT","N",9,1},{"FINANT","N",13,2},{"CUSANT","N",14,6}}

dbcreate("MEMORIA1",ADBF)

close all

select 1
use ALMOX
set index to ALMOX01,ALMOX02

select 2
use MATERIAL
set index to MATERIA1,MATERIA2,MATERIA3

select 3
use UNIDADE
set index to UNIDADE1,UNIDADE2

select 8
use ESTOQUE
set index to ESTOQUE,EUQOTSE

select 20
use MEMORIA
index on CODMAT+CODALM to MEMORIA

select 21
use MEMORIA1
index on CODMAT to MEMORIA1

VCODALM = space(2)
@ 10,15 say "Para Almoxarifado:"
@ 14,15 say "  Do Almoxarifado:"
@ 15,15 say "         Material:"

@ 10,34 get VCODALM pict "99"
read

if lastkey() <> 27
   select 8
   set filter to CODALM<>"02" .and. CODALM<>"03" .and. CODALM<>"04"
   go top
   do while .not. eof()
      @ 14,34 get CODALM   pict "99"
      @ 15,34 get CODMAT   pict "@R 9.99.99.999"
      clear gets

      select 20
      seek ESTOQUE->CODMAT+ESTOQUE->CODALM
      if .not. found()
         append blank
      endif
      replace CODMAT with ESTOQUE->CODMAT,;
              CODALM with ESTOQUE->CODALM,;
              DATANT with ESTOQUE->DATANT,;
              FISANT with ESTOQUE->FISANT,;
              FINANT with ESTOQUE->FINANT,;
              CUSANT with ESTOQUE->CUSANT

      select 8
      skip
   enddo

   select 20
   go top
   do while .not. eof()
      select 2
      seek MEMORIA->CODMAT

      select 3
      seek MATERIAL->CODUNI

      select 21
      seek MEMORIA->CODMAT
      if .not. found()
         append blank
      endif
      replace CODMAT  with MEMORIA->CODMAT,;
              DESMAT  with MATERIAL->DESMAT,;
              UNIDADE with UNIDADE->DESUNI,;
              CODCPL  with MATERIAL->COD_CPL,;
              FISANT  with MEMORIA1->FISANT+MEMORIA->FISANT,;
              FINANT  with MEMORIA1->FINANT+MEMORIA->FINANT              

      select 20
      skip
   enddo

   select 21
   go top
   do while .not. eof()
      if FISANT > 0
         replace CUSANT with FINANT/FISANT
      endif

      skip
   enddo
endif
close all
return

[Maligno]

Não falei do programa, mas da forma como você o monta pelo linker. O script ou BAT, que seja.

[alaminojunior]

Resta agora saber como está configurado o seu ambiente de desenvolvimento.

[sllc_br]

Alguma sugestão?
O que me intriga é que justamente este programa aparece o erro, mas em outros programas que tenho na máquino posso compilar a vontade que não apresenta erro algum. Vai entender isso?
Já cortei vários comandos do programa para ver se tem algo nele que causa o problema, mas nada. Já renomeie o programa também e apresenta o mesmo erro.
E realmente estou precisando rodar este programa para gerar um balanço geral do almoxarifado.
Se alguém puder ajudar, agradeço muito.
Um abraço a todos
Sergio

[alaminojunior]

Você roda este programa como ? Do Explorer do Windows atravéz de algum atalho, do prompt de comandos, atravéz de algum batch ?
poste aí o Autoexec.nt e config.nt

[Maligno]

Analise comigo. Se o resultado da execução do programa é um erro que diz "Cannot open overlay file 'juntar.ex", não é pra ficar imaginando porque o programa precisa de uma overlay, sendo ele tão simples? Daí o motivo da pergunta que já fiz e que repito: como você monta o programa (linkedição)?

[Pablo César]

Não falei do programa, mas da forma como você o monta pelo linker. O script ou BAT, que seja.

Fui eu que pedí. De fato não teria por quê, ja que o Sergio tinha dito que era um programa simples e não fazia chamada a alguma instrução externa. Mas nem que seja esse o caso, é mais provável que o problema esteja na compilação do arquivo, então decidí compilá-lo e disponbilizá-lo em modo compactado (ZIPFile). Eu também tinha questionado o conteúdo do cl.bat que disse ter usado, aguardemos para ver o que ele diz.

De qualquer forma está aqui em anexo para ver se funciona Sergio e nos retorne.

[Adalberto]

Bom dia sllc-br

Compile seu .Prg assim:

Clipper Juntar
BLinker Fi Juntar

E executou sem problemas, não abriu o Almox.DBf , mais executou.
Também testei o .EXE que disponibilizou Pablo César, o foi assim mesmo, todo bem.
Acredito que pode ser a forma de linkar; outra coisa o erro 415 não encontrei no NG em erros de execução.
Ficarei atente para ver em que ajudo.
Um grande abraço.

[alaminojunior]

Acredito que pode ser a forma de linkar; outra coisa o erro 415 não encontrei no NG em erros de execução.

Não deve ser a forma de linkar pois o colega já mostrou como está fazendo. Ele está fazendo da forma mais simples possível: EX Clipper juntar e Rtlink fi Juntar

Sobre o erro 415, ele tem explicações no help sim, dê uma procurada melhor que ele está lá. E já que estamos falando dele, ele faz menção sobre o número de handles setados no sistema e também sobre o sistema não estar encontrando alguns arquivos. Como o sistema é de um executável único, creio eu que "ele tenha se encontrado", sobrando o que venho comentando: configuração do ambiente de trabalho, tanto desenvolvimento quanto execução, deve ter algo fora dos trilhos lá.

[sllc_br]

Prezados Colegas,
Desculpe pela demora em responder, mas eu estava com tanta urgência que em resolvendo o problema esqueci de apontar a solução. Realmente, o erro não era por causa da compilação/linkedição como eu suspeitava e nem por causa do ambiente, o problema estava no caminho do windows. Como eu descobri isso? Eu já havia tentado de tudo, então criei uma pasta chamada TESTE debaixo do C:\ e aí tudo funcionou.
Daí descobri que a pasta em que estava antes era: C:\documents and settings\sergio\sistemas\almoxarifado\dados
Vivendo e aprendendo eis a regra: não nomeie uma pasta com muitos caracteres.
Muito obrigado a todos.
Um abraço
Sergio