ERROR BASE/1003 Variable does Not Exist: EXT_COD

[marcianocalvi]

Bom dia Pessoal,

"ERROR BASE/1003 VARIABLE DOES NOT EXIST: EXT_COD"

Tenho um programa em clipper numa maq com Windows XP. Quando vou imprimir ele exibe o erro acima. Eu clico em QUIT e a impressora imprimi metade da impressão e para. Não sei nada de clipper, preciso da ajuda de vocês. Alguém ja teve um erro parecido....onde provavelmente está declarada esta variável, nos .DBF, .IMP, .MIR, .OBJ, .PRG, .NTX, .CH....

OBRIGADO.

[gvc]

Os fontes do clipper são os arquivos PRG.

Isso ocorre quando vc esta tentando usar uma variável que não foi iniciada.

Se necessário, mande o(s) fonte(s) para eu verificar.

gvcortez@uol.com.br

Boa sorte.

[marcianocalvi]

Os fontes do clipper são os arquivos PRG.

Isso ocorre quando vc esta tentando usar uma variável que não foi iniciada.

Se necessário, mande o(s) fonte(s) para eu verificar.

gvcortez@uol.com.br

Boa sorte.

OK! Muito Obrigado.

Mandei os fontes para o seu e-mail.
Por enquanto Obrigado.

[gvc]

Pelo que ví no seu sistema, foi usado um gerador de relatórios.

Essa variável na verdade é um campo.
Faz parte do arqext e é usado para criar o índice desse arquivo.

Veja como funciona o seu gerador de relatórios.
Veja como foi montado o relatório. Provavelmente esta faltando abrir o referido arquivo antes de chamar o relatório.

[marcianocalvi]

Pelo que ví no seu sistema, foi usado um gerador de relatórios.

Essa variável na verdade é um campo.
Faz parte do arqext e é usado para criar o índice desse arquivo.

Veja como funciona o seu gerador de relatórios.
Veja como foi montado o relatório. Provavelmente esta faltando abrir o referido arquivo antes de chamar o relatório.

Só mais uma perguntinha:

Consegui resolver a mensagem de erro, mas agora a impressora só imprimi quando fecho o programa.

Tem idéia onde eu possa dar uma olhada.

Obrigado e desculpa pela “ encheção de saco – rsrsrs”

[gvc]

Esse tema foi discutido em vários tópicos na Seção Clipper.

Dê uma procurada, pois são oferecidas várias soluções.

Boa sorte.

Ah! Como vc resolveu o problema?

[microvolution]

tô com o mesmo problema de "variable does not exixt: V1" no harbour usando HMG.
vejam o código:

Código: Selecionar todos

if len(MENU_CAD)>2
                                 POPUP MENU_CAD[3,1]
                                    if len(MENU_CADH3V1)>0
                                       for V1=1 to len(MENU_CADH3V1)
                                          MENUITEM MENU_CADH3V1[V1,1] ACTION MENU_CADH3V1[V1,3]// {||EXECUTA_PROGRAMA2(MENU_CADH3V1[V1,3])} //
                                       next
                                    endif
                                 END POPUP
endif

A linha central onde é montado esse VETOR de um dos ITENS do meu MENU POPUP está acusando que esta variável não existe; no caso a "V1".
Pelo que sei, as variáveis do laço FOR/NEXT não são necessárias de serem previamente criadas.
Se alguém puder me ajudar, vejam a imagem do erro:

Essa linha 2308 é a MENUITEM MENU_CADH3V1[V1,1] ACTION MENU_CADH3V1[V1,3]// {||EXECUTA_PROGRAMA2(MENU_CADH3V1[V1,3])} //
As opções comentadas já foram testadas e o erro mesmo assim acontece.
Aguardo informações...

[alxsts]

Olá!

Pelo que sei, as variáveis do laço FOR/NEXT não são necessárias de serem previamente criadas.

Não sei de onde você tirou isto. Não é verdade. Adote como boa prática declarar todas as variáveis que precisar utilizar em seus programas. Dê preferência às variáveis dos tipos LOCAL e STATIC e evite as PUBLIC e PRIVATE.

O erro que você está recebendo é porque não declarou a variável e o nível de severidade definido está obrigando a declarar todas as variáveis. Para resolver o problema, declare a variável.

[sygecom]

A dica do Alexandre é muito importante.
Se quiser ver todos os erros do seu .PRG, coloque as duas linhas abaixo bem no inicio do .PRG logo após os INCLUDE

#pragma /w2
#pragma /es2

[alxsts]

Olá!

Boa Leonardo! Eu desconhecia esta forma que você indicou. Conhecia apenas colocando na linha de comando. Vivendo e aprendendo. Valeu.

[JoséQuintas]

Microevolution, não sei se já resolveu/entendeu o problema.
Um exemplo simples.

Código: Selecionar todos

PROCEDURE Main

   LOCAL nCont, bCode, I

   bCode := Array(10)
   FOR I = 1 TO 10
      bCode[ I ] := { || I }
   NEXT
   FOR nCont = 1 TO 10
      ? Eval( bCode[ nCont ] )
   NEXT
   RETURN

Código: Selecionar todos

      11
      11
      11
      11
      11
      11
      11
      11
      11
      11

Porque 11 e não 1 a 10?
O codeblock retorna o conteúdo de I.
Pois é, I = 11 na execução do codeblock.

E se usar o codeblock em outro momento do aplicativo?
Provavelmente erro de variável não encontrada.
É isso.