Até que enfim erro.... rs

[JoséQuintas]

Estou achando bom....
É que ficou uma parte pendente pra alterar pra objeto, referente grid.
Tava tentando descobrir aonde mexer pra dar erro.
Não sei mexer nessas coisas, e na IDE pior ainda.

Totalmente orientada a objeto, incluindo a IDE.
Deu erro aonde era esperado na GRID, e é onde peguei pra encerrar.
Só falta isso nos fontes, referente grid, que tava confuso.
Hoje, muito tempo depois acho que entendi - o fonte, não a IDE kkkk

[JoséQuintas]

Como é que mexo no fonte, sem entender da LIB ?
Porque estou mexendo com programação e não exatamente com a LIB.

o erro foi aqui:

Código: Selecionar todos

       xTmp := ControlByBlock( { | e | e:CTRL005 == retval } )

Eu sei que na mudança pra classe perdeu-se o Scan() que funcionava em qualquer tipo de informação.
Por objeto não funciona do mesmo jeito, os tipos (numérico,string,data,etc) precisam ser iguais.
Não é a primeira vez que aconteceu esse erro.

Código: Selecionar todos

       xTmp := ControlByBlock( { | e | ValType( e:CTRL005 ) == "N" .AND. e:CTRL005 == retval } )

É um erro básico, tentou comparar dois tipos diferentes.
Com o teste se é número, erro resolvido.

O nome CTRL005 é que achei melhor não ficar inventando nomes durante as mudanças.
Depois será trocar só os :CTRLxxxx pelos nomes adequados, vai ficar fácil um replace all depois.

Nota: o difícil vai ser encontrar aonde cliquei pra dar o erro kkkk

[JoséQuintas]

Sei lá se tá fazendo o que devia, mas não deu erro.

Mas agora deu um novo.
Pode ser porque tem uma main gtwvg ou não.
Pode ser que fechei por onde não devia.
Sei lá...
Investigar primeiro a release all, se tá olhando direito qual é a main.