topic-14041

Posts: 325

Joined: Sun Feb 03, 2008 11:04 PM

como actualizo SET MESSAGE OF oWnd
Posted: Sun Dec 21, 2008 11:34 AM

Estimados del Foro

Como actualizo SET MESSAGE OF oWnd TO 'XXXXXX'?

DEFINE WINDOW oWnd TITLE PROTECCION(1)+' << '+alltrim(NOMBSIS)+' >>' ;
                   BRUSH oBru ;
                   ICON oICON ;
                   MENU menu(PosUsua)

@ 28.5,76 BITMAP oBMP FILENAME UBI_BMP+'dob.bmp' OF oWnd
@ 28.5, 5 BITMAP oBMP FILENAME UBI_BMP+'LOGOEMPR.bmp' OF oWnd

//NOMBREU := <NOMBRE DE USUARIO>

SET MESSAGE OF oWnd TO '.xxxx.sistemas¤ ®'+;
                       ' <Usuario: '+NOMBREU+' >' CLOCK DATE KEYBOARD

ACTIVATE WINDOW oWnd MAXIMIZED

Esto es cargado al inicio del programa
durante el trabajo dentro del mismo puedo llegar a cambiar el usuario por lo que tendría que cambia el mensaje al pie.

muchas gracias

david
argentina

wmormar

Posts: 1076

Joined: Fri Oct 07, 2005 10:41 PM

Re: como actualizo SET MESSAGE OF oWnd
Posted: Sun Dec 21, 2008 07:13 PM

David,

tienes que colocar la definicion de la barra de mensaje de la siguiente forma:

DEFINE MESSAGE oMsg OF Ownd PROMPT '.xxxx.sistemas¤ ®'+;
' <Usuario: '+NOMBREU+' >' CLOCK DATE KEYBOARD

cuando quieras cambiar el texto:

oMsg:settext( "mi nuevo mensaje" )

William, Morales

Saludos

méxico.sureste

dobfivewin

Posts: 325

Joined: Sun Feb 03, 2008 11:04 PM

como actualizo SET MESSAGE OF oWnd
Posted: Tue Dec 23, 2008 08:36 AM

Estimado

No me actualiza el texto, te comento que dicho nuevo texto lo que se actualizar es el nombre de usuario el cual va en una Variable (NOMBREU (local)) la cual controlé y cambia de valor.

David
argentina

dobfivewin

Posts: 325

Joined: Sun Feb 03, 2008 11:04 PM

como actualizo SET MESSAGE OF oWnd
Posted: Fri Dec 26, 2008 12:48 PM

con:

Code: Select all Collapse

DEFINE MESSAGE oMsg OF Ownd PROMPT '.xxxx.sistemas¤ ®'+; 
' <Usuario: '+NOMBREU+' >' CLOCK DATE KEYBOARD 


cuando quieras cambiar el texto: 

oMsg:settext( "mi nuevo mensaje" )

no me actualiza el texto

david
argentina

FranciscoA

Posts: 2170