Problemas com macro

[Poka]

• Olá a todos
  
  Será que alguém poderia resolver
  
  Na função "funcaoTeste" deveria ir sempre o ciclo correspondente qundo fosse acionada a função , não o último.
  Obs. nas entradada dos dados no getbox se não for acionado a função, funciona normal.
  

  Código: Selecionar todos

  define window entraDados;
        at 00,00;
        WIDTH telaEscala.width;
        HEIGHT telaEscala.height-40;
        title xtitulo+" Escala de Horarios ";
        MODAL;
        nosysmenu
  
        on key escape  ACTION entradados.release
       
        //
        DEFINE TOOLBAR botaomenu  ;
           BUTTONSIZE 70,20 FONT "ARIAL" SIZE 10 border
           
           BUTTON BOTAOgravar CAPTION "&Grava";
           ACTION GRAVAREG() ;
           TOOLTIP "";
           AUTOSIZE;
           SEPARATOR
  
           BUTTON BOTAOsair caption "<Esc> Sair";
           ACTION entradados.release ;
           TOOLTIP "sai dessa tela de inclusao";
           AUTOSIZE;
           SEPARATOR
  
        END TOOLBAR
        *------------------------------
        wLInha:=40 ; Wespaco:=23 ; Wfonte:=09     ;wsize:=09  ; Waltura:=15
        whGet :=19 ; l_ta:=100    
        *--------------------------------
  
       for a:= 1 to  5
  									
              aadd(Mciclos,{"L_ciclo"+strzero(a,2), "t_ciclo"+strzero(a,2) , "vciclo"+strzero(a,2) })
  									
             xL:=Mciclos[a,1]
  
              @ wlinha+=wespaco ,05   label &(xL)  value "Ciclo"+strzero(a,2);
             width 7*wsize height Waltura font "COURIER NEW";
             size Wsize
  
            xcol:=entradados.&(xL).col+entradados.&(xL).width
          		  
            xt:=Mciclos[a,2]
            xv:=Mciclos[a,3]
  
              @ Wlinha,xcol GETBOX &(xt);
              width 50    ;
              HEIGHT whGet  ;
              value &(xv)   ;
              picture"@k9"    ;
              when xtpmov$"IA";
              action funcaoTeste( xt ) ;
              font "courier new";
              size Wsize ;
              tooltip "ciclo da escala"
  
            xcol:=entradados.&(xt).col+entradados.&(xt).width
  
              @ wlinha ,xcol label &xJ  value "";
    	 width 35*wsize height Waltura font "COURIER NEW" size wsize 
  
       		  
     next
     END WINDOW
    
     CENTER WINDOW entraDados
     ACTIVATE WINDOW entraDados
     //
  retu  nil
  
  *-----------------------
  stat func funcaoTeste(X)
  
  // aqui o  X deveria vir ciclo 1 , 2  dependendo do campo em que estivesse
  // mas independente do campo , sempre está vindo o ultimo , no caso, ciclo 5
  
  retu nil   
  

  Obrigado,
  
  Poka

[Pablo César]

Na linha 39 do seu código, não deveria ser: @ wlinha+wespaco ? Alí parece que tem um "=" que não deveria e tallvez esteja sobre pondo os gets e dando a sensação que apenas é o ultimo...

[Poka]

Olá a todos

Pablo, desculpe não te dar nenhum retorno desse tópico, no fim acabei fazendo na unha mesmo, queria fazer uma rotina + automática, mas não deu.

O problema agora é outro.
Tenho no getbox
entradados.t_nome.value

msginfo( entradados.t_nome.value)
retorna ROBERTO

x:="entradados.t_nome.value"

msginfo( &x)
ou
msginfo( &(x))

dá erro

como faço para mostrar o conteúdo dessa macro

Se alguém puder ajudar agradeço.

Poka

[Claudio Soto]

Utilizar GetProperty(cForm, cControl, cProp).
El error se produce porque intentas expandir un #translate de HMG en tiempo de ejecucion, estos solo estan diponibles en tiempo de compilacion.

[Poka]

Obrigado Dr. Claudio Soto

deu certo, era isso mesmo que eu queria.

Poka