Problema com GET

[Josmar dos Santos]

Bom dia. Em um dos meus DBFS (campo CORES caracter=20) começou aparecer esses comandos de cores "W+/B,W+/R,N/N,N/N,N/". Isso ocorre somente após a gravação do mesmo. O pior que na DBU, esses valores aparecem também. Dentro da DBU consigo alterar normalmente. Como resolver isso? Para mim isso é novidade, pois no CLIPPER não havia esses problemas. Nesse campo registro o nome da cor do carro.

OBS-> Esse dbf tem três páginas. Se for pulando de página através do PageDown ele grava normalmente. Isso ocorre quando passa o cursor campo por campo


Josmar

[JoséQuintas]

Talvez conflito de variável.
Deve chamar alguma rotina que tenha algo salvar/restaurar cores; CORES := SetColor() SetColor( CORES )

É nessa parte que compilar e codificar no estilo de -w3 -es2 ajuda muito
Te obrigaria a declarar CORES como LOCAL, e campo como arquivo->CORES, e não teria esse tipo de conflito.

Se usa arquivos MEM, também poderia ser o conteúdo que esqueceu dentro dele.

Mas no final, vai ter que revisar se tem alguma coisa diferente no fonte.
Por enquanto vejo só esse tipo de possibilidade.

[Josmar dos Santos]

Boa noite Quintas, eu descobri quem está causando esse problema no campo "cores". Eu mandei o compilador pular o campo "memo" e o mesmo parau de gravar aqueles caracteres. Agora o que uma coisa tem haver com a outra? Ambos são diferentes um do outro e não tem ligação. Agora vou continuar a investigar o problema. Depois te informarei se irei conseguir.


Josmar

[JoséQuintas]

Como não se costuma usar apenas SAY/GET pra campo memo, é de se imaginar que tem uma rotina envolvida pra isso.
Provavelmente tem uma variável CORES nela.

Imagine o exemplo abaixo:

Código: Selecionar todos

PROCEDURE Teste
   USE ( arquivo )
   Mostra()
   ? cores
   USE
   RETURN

FUNCTION Mostra()
   Cores := SetColor()
   set color w/n,n/w
   @ 1, 2 SAY "xxx"
   SetColor( Cores )
   RETURN NIL

[Josmar dos Santos]

Ok. Quintas..resolvido. Na verdade o problema estava em uma outra função que o "memo" estava utilizando chamada de "janela". De fato vc tinha razão, havia nela uma rotina como o nome de "cores". Eu tirei uma cópia dessa função. Coloquei outro nome e tirei todos esses comandos de cores deixando ela exclusiva para o campo memo. Ai rodou sem problemas...

Agora irei partir para o tópico do "código sequencial"...

Um abraço e muito obrigado

Josmar


)