Problema ao compilar código SUMMER no Harbour...
Enviado: 16 Jul 2010 13:52
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:
O código completo é esse
Olhando o conteudo do .PPO gerado é isto que eu vejo.
Alguma luz para este velho cansado.
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
Olhando o conteudo do .PPO gerado é isto que eu vejo.
Alguma luz para este velho cansado.