PC Toledo

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