Problema ao compilar código SUMMER no Harbour...

[rochinha]

Amiguinhos,

Estou com um problema para compilar este pequeno trecho de código.

É somente um .PRG, muito pequeno, mas não sei o que esta acontecendo, esta parando em um lugar nada a ver.

O trecho é parte de um sistema em SUMMER 87, estou transportando para Harbour e usando uma compilação com um comando simples não passa deste trecho:

Código: Selecionar todos

PROCEDURE MOVITENS

dbSelectArea( "1" )
dbUseArea( .F., , "pecas", , if(.F. .or. .F., !.F., NIL), .F.,  ) ; dbSetIndex( "codp" )  ; dbSetIndex( "nomp" ) 
while .t.
   SetColor( "b/w,b/bg" )
   if linha < 4
      linha = 4
   endif
   DevPos( linha, 00 ) ; DevOut( ""  )
   inkey(0)
   do case
      case lastkey() = 24
         linha = linha + 1
         if linha > 23
            linha = 23
         endif
      case lastkey() = 5
         linha = linha - 1
         if linha < 4
            linha = 4

O código completo é esse

Olhando o conteudo do .PPO gerado é isto que eu vejo.

Alguma luz para este velho cansado.

[Toledo]

Amiguinho Rochinha, o link para o PRG completo está quebrado.

Abraços,

[alxsts]

Olá!

Qual erro é reportado?

Olhando este trecho de código, achei estranho este DbSelectArea( "1" ).

Esta função aceita como parâmetros o nome ou o número da área. Será que você abre algum DBF com o alias "1"?
Ou será que você quer fazer um Select 0 ( DBSelectArea( 0 ) ) antes de abrir a tabela Pecas?

[rochinha]

Amiguinhos,

O link esta ok agora, o meu servidor não permite visualizar ou baixar arquivos de extensao .PRG, modifiquei para .TXT.

alxsts - Após processar o comando SELECT o resultado é dbSelectArea(). No SUMMER não usávamos nomes dos ALIAS()es.

[Toledo]

Amiguinho Rochinha, aqui consegui compilar sem problema algum, veja o arquivo .PPO em anexo.

Usei o Harbour 2.1.0beta1 (Rev. 14616)

Abraços,