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

Posts: 400

Joined: Fri May 11, 2007 08:20 PM

Cambiar texto de boton de Barra de Botones en ejecución
Posted: Thu May 11, 2017 12:19 AM

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 (fw): Select all Collapse

   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

fwh 17.12, harbour 3.2.0, pelles C, bcc7, Ms-Sql

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Cambiar texto de boton de Barra de Botones en ejecución
Posted: Thu May 11, 2017 01:56 AM

Intenta asi

Code (fw): Select all Collapse

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

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

artu01

Posts: 400

Joined: Fri May 11, 2007 08:20 PM

Re: Cambiar texto de boton de Barra de Botones en ejecución
Posted: Thu May 11, 2017 02:59 PM

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 (fw): Select all Collapse

   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 (fw): Select all Collapse

  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 (fw): Select all Collapse

  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"

fwh 17.12, harbour 3.2.0, pelles C, bcc7, Ms-Sql

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Cambiar texto de boton de Barra de Botones en ejecución
Posted: Thu May 11, 2017 05:24 PM

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 (fw): Select all Collapse

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

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

artu01

Posts: 400

Joined: Fri May 11, 2007 08:20 PM

Re: Cambiar texto de boton de Barra de Botones en ejecución
Posted: Thu May 11, 2017 05:44 PM

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!

fwh 17.12, harbour 3.2.0, pelles C, bcc7, Ms-Sql

FiveTech Support Forums

Continue the discussion