problemas com radio e radioiten

[aferra]

Galera...estou mexendo em algumas funções e percebi que o radio ( estando dentro de um folder, em uma dialog funciona corretamente ) ao escolher uma opção passa duas vezes na função, e isso está me ocasionando lentidão para selecionar os registros, pois processa duas vezes o while, tem como arrumar isso?

[kapiaba]

Mostre um exemplo tio...

[aferra]

Vamos lá. Em verde dá certo, em vermelho está errado e passa duas vezes.

DEFINE DIALOG oDlg FROM 0,0 TO 520,820 PIXEL

@ 000,195 GROUP TO 045,335 LABEL "Tipo do Relatório" PIXEL TRANSPARENT OF oDlg
@ 007,195 RADIO oTipo VAR nTipo PROMPT "Tabela de Preço", "Tabela de Promoção", "Lista de Compra", "Lista de Compra Ideal" SIZE 65,9 PIXEL ON CHANGE Troca() OF oDlg
@ 007,265 RADIOITEM "Sugestão de Compra" RADIOMENU oTipo SIZE 65,08 PIXEL OF oDlg
@ 016,265 RADIOITEM "Estoque Mínimo" RADIOMENU oTipo SIZE 65,08 PIXEL OF oDlg
@ 025,265 RADIOITEM "Estoque Negativo" RADIOMENU oTipo SIZE 65,08 PIXEL OF oDlg
@ 034,265 RADIOITEM "Estoque Positivo" RADIOMENU oTipo SIZE 65,08 PIXEL OF oDlg

ACTIVATE DIALOG oDlg CENTER

RETURN NIL

DEFINE DIALOG oDlg FROM 0,0 TO 520,820 PIXEL

@ 90,03 FOLDER oFld OF oDlg PROMPT "&Produto","&Movimentação","&Valores" ;
PIXEL SIZE 405,208

@ 000,195 GROUP TO 045,335 LABEL "Tipo do Relatório" PIXEL TRANSPARENT OF oFld:aDialogs[1]
@ 007,195 RADIO oTipo VAR nTipo PROMPT "Tabela de Preço", "Tabela de Promoção", "Lista de Compra", "Lista de Compra Ideal" SIZE 65,9 PIXEL ON CHANGE Troca() OF oFld:aDialogs[1]
@ 007,265 RADIOITEM "Sugestão de Compra" RADIOMENU oTipo SIZE 65,08 PIXEL OF oFld:aDialogs[1]
@ 016,265 RADIOITEM "Estoque Mínimo" RADIOMENU oTipo SIZE 65,08 PIXEL OF oFld:aDialogs[1]
@ 025,265 RADIOITEM "Estoque Negativo" RADIOMENU oTipo SIZE 65,08 PIXEL OF oFld:aDialogs[1]

@ 034,265 RADIOITEM "Estoque Positivo" RADIOMENU oTipo SIZE 65,08 PIXEL OF oFld:aDialogs[1]

ACTIVATE DIALOG oDlg CENTER

RETURN NIL

function Troca()

?"Não precisa de toda a função" + CRLF + "Veras que passar uma vez só" + CRLF + "usando Dialog" + CRLF + "Agora usando Folder!!!!"

RETURN

[kapiaba]

Caracas mano, isto é muito louco... Falha muito grande com @SAY, eu duvido que isto ocorra com RECURSOS, melhor reportar no INTER...

abs,

[kapiaba]

https://code.google.com/p/fivewin-contributions/downloads/detail?name=carlos2.zip&can=2&q=

[aferra]

bem, eu possuo dois rádios, nessa mesma tela, o segundo possui o radioitem e em duas situações precisa alterar o primeiro radio e é nesse ponto que executa duas vezes tirei a opção de alterar o primeiro radio e parou o erro, na minha opinião não deveria ocorrer esse problema, pois estão configurados corretamente e os dois possuem objetos separados. mas é esse o grande dilema, irei mudar o jeito de fazer a tela, pois "time is Money", mas é muito estranho. Agradeço aos que tentaram ajudar...

[aferra]

Bem na época eu mudei a tela e me solucionou o problema, agora não tenho como mudar e estou usando recursos e tem o mesmo "sintoma", alguém tem uma ideia ?

[aferra]

Solução

DEFINE DIALOG oDlg FROM 0,0 TO 520,820 PIXEL
 
  @ 90,03 FOLDER oFld OF oDlg PROMPT "&Produto","&Movimentação","&Valores" ;
    PIXEL SIZE 405,208
 
  @ 000,195 GROUP TO 045,335 LABEL "Tipo do Relatório" PIXEL TRANSPARENT OF oFld:aDialogs[1]
  @ 007,195 RADIO oTipo VAR nTipo PROMPT "Tabela de Preço", "Tabela de Promoção", "Lista de Compra", "Lista de Compra Ideal" SIZE 65,9 PIXEL ON CHANGE Troca() OF oFld:aDialogs[1]
  @ 007,265 RADIOITEM "Sugestão de Compra" RADIOMENU oTipo SIZE 65,08 PIXEL OF oFld:aDialogs[1]
  @ 016,265 RADIOITEM "Estoque Mínimo" RADIOMENU oTipo SIZE 65,08 PIXEL OF oFld:aDialogs[1]
  @ 025,265 RADIOITEM "Estoque Negativo" RADIOMENU oTipo SIZE 65,08 PIXEL OF oFld:aDialogs[1]
  @ 034,265 RADIOITEM "Estoque Positivo" RADIOMENU oTipo SIZE 65,08 PIXEL OF oFld:aDialogs[1]
 
 ACTIVATE DIALOG oDlg CENTER
 
RETURN NIL

function Troca()
oDlg:Disable()
?"Não precisa de toda a função" + CRLF + "Veras que passar uma vez só" + CRLF + "usando Dialog" + CRLF + "Agora usando Folder!!!!"
oDlg:Enable()
RETURN

Possivelmente executa o valid na dialog ou folder e fazendo assim não dá mais o erro....ufa...