Cambiar texto de boton de Barra de Botones en ejecución

[artu01]

Hola :
Quiero cambiar el texto a un Boton que esta en la barra de botones pero no logro hacerlo se
cuelga y sale el msje: Error BASE/1004 Message not found : NIL:SETTEXT

Code: Select all  Expand view

   DEFINE WINDOW oMainWnd ;
       MDI                ;
       FROM 0,0 TO 30, 80 ;
       TITLE ::cTitulo                       ;
       MENU ::Menu()                         ;
       BRUSH oBrush

   DEFINE MESSAGE BAR oMsg OF oMainWnd 2007  ;
       CLOCK DATE
       
   DEFINE BUTTONBAR BUTTONSIZE 53,57 oBar    ;
       OF oMainWnd 2007

   DEFINE BUTTON oBot RESOURCE "B_MES2" OF oBar    ;
        PROMPT cMesElejido       ;                                                
      ACTION ( IIF(TPWDIR->OPTI1, Eval({|| cMesElejido:=SeleccionMes(), oBot:SetText(cMesElejido), oBot:Refresh() }), MsgBox(2,"NO tiene acceso a esta opción")));  //===>el error se produce en esta linea el metodo SetText no existe
      MESSAGE "Periodo de Proceso" ;                                                            
      TOOLTIP "Periodo de Proceso"
           
   DEFINE BUTTON OF oBar PROMPT "Pedido"        ;
       RESOURCE "Nota_Pedido"                     ;
       ACTION ( IIF(TPWDIR->GDESPA, Guia(), MsgBox(2,"NO tiene acceso a esta opción")));
       TOOLTIP "Nota de Pedido"               ;
       MESSAGE "Nota de Pedido"
   ...
   ...

 

Gracias

[cnavarro]

Intenta asi

Code: Select all  Expand view

.../... ACTION ( oBar:aControls[ 3 ]:SetText( "Hola" ), oBar:Refresh() )
// El 3 es el numero de boton
 

[artu01]

Gracias Cristobal por responder pero no funciona me sale el mismo error: Error BASE/1004 Message not found : NIL:SETTEXT
He intentado asi:
1era forma

Code: Select all  Expand view

   DEFINE BUTTON RESOURCE "B_MES2" OF oBar    ;  
        PROMPT cMesElejdo      ;    
      ACTION ( IIF(TPWDIR->OPTI1, Eval({|| cMesElejido:=SeleccionMes(), oBar:aControls[ 1 ]:SetText(cMesElejido) }), MsgBox(2,"NO tiene acceso a esta opción"))) ;
      MESSAGE "Periodo de Proceso" ;            
      TOOLTIP "Periodo de Proceso"
 

2da forma

Code: Select all  Expand view

  oBot:={,,,}
   DEFINE BUTTON oBot[ 1 ] RESOURCE "B_MES2" OF oBar    ;  
        PROMPT cMesElejdo      ;    
      ACTION ( IIF(TPWDIR->OPTI1, Eval({|| cMesElejido:=SeleccionMes(), oBar:aControls[ 1 ]:SetText(cMesElejido) }), MsgBox(2,"NO tiene acceso a esta opción"))) ;
      MESSAGE "Periodo de Proceso" ;            
      TOOLTIP "Periodo de Proceso"
 

3era forma

Code: Select all  Expand view

  oBot:={,,,}
         DEFINE BUTTON oBot[ 1 ] RESOURCE "B_MES2" OF oBar    ;
        PROMPT cMesElejdo      ;
      ACTION ( IIF(TPWDIR->OPTI1, Eval({||cMesElejido:=SeleccionMes(), obot[ 1 ]:SetText(cMesElejido) }), MsgBox(2,"NO tiene acceso a esta opción"))) ;
      MESSAGE "Periodo de Proceso" ;
      TOOLTIP "Periodo de Proceso"
 

[cnavarro]

Artu01, el código que te he puesto funciona, comprobado
Pruébalo sin nada más, en el action del button
Por lo que habrá que buscar por qué no te reconoce el oBar dentro del codeblock, no?

Code: Select all  Expand view

( IIF(TPWDIR->OPTI1, ( cMesElejido:=SeleccionMes(), oBar:aControls[ 1 ]:SetText(cMesElejido), oBar:Refresh() ), MsgBox(2,"NO tiene acceso a esta opción"))) ;

 

[artu01]

Cristobal tenia razon si funciona con tu indicacion, yo no me di cuenta que habia dejado dentro de mi funcion SeleccionMes() al final
una sentencia oBot:SetText(ladescripciondelmes(nMes)) que era la linea que producia el error y no era como yo suponia en la linea del Action

Gracias Doc!