Página 1 de 1

Problema com GET

Enviado: 14 Mai 2015 02:05
por 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

Problema com GET

Enviado: 14 Mai 2015 11:15
por 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.

Problema com GET

Enviado: 14 Mai 2015 19:14
por 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

Problema com GET

Enviado: 14 Mai 2015 19:38
por 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

Problema com GET

Enviado: 14 Mai 2015 20:09
por 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


:))