Set Message to en Fwh 13.05

[Enrrique Vertiz]

Saludos Antonio,

Tengo un problema con el "Set Message" que no tengo con ninguna de mis versiones anteriores 10.02 y 12.02, si lo defino una sola vez, no pasa nada, pero si lo defino 2 veces sale "intermitente" osea el anterior texto y el nuevo se van presentando uno encima del otro entrando en un LOOP que solo termina al salir del sistema.
Y si por alguna razon usas el MESSAGE en las opciones de Menu estas tambien se sobreponen podes probarlo con cualquier SET MESSAGE que uses 2 o mas veces.
Gracias por tu atencion

[cnavarro]

Puede estar relacionado con el siguiente post:
viewtopic.php?f=6&t=26535#p146543

Saludos

[Enrrique Vertiz]

Cristobal, gracias por tu respuesta

Si bien haciendo los cambios ahi indicados no me soluciono el problema, me dio al idea de compilar solo ese source de la version anterior y con eso por el momento esta Ok

[Maggiro]

Enrique:
Dos cosas sobre tu consulta
- Primero, para cambiar el SET MESSAGE, tu ventana STATIC tiene que ser pasada hacia la función que modifica el mensaje
Ejemplo : función modifica_mensaje(ventana_poseedora)
- Segundo, modifica SET MESSAGE con el comando:
ventana_poseedora:Setmsg('tu nuevo mensaje')
Espero te sirva
Saludos
Julio César Gómez Cortéz
Godryc Experiencias

[Rick Lipkin]

Enrique

Consider these snipits of code based on the Main MDI window. In this code I allow a different user to login to my application and I have to update SET MESSAGE in the BuildMenu() part of the code. xMessage is defined as Public because Set Message is not defined prior to the main MDI and it can not be passed to BuildMenu() because xMessage is still NIL at the top of the program.

The changes to SET MESSAGE are defined with the BuildMenu() code .. again these are just snipits of code within my Main() code :

Code: Select all | Expand

Public xMessage

//
//

xMESSAGE :=  "User  "+xLOGIN+"    Rights  "+cRIGHTS+        ;
      "     Default= "+cDEFA+"      Rdd= "+cRDD+            ;
      "     Revision  "+DTOC(dEXE)+;
      "  -r"+str(nSCR1,4)+" x "+STR(nSCR2,4)

DEFINE WINDOW oWndMain TITLE cTitle ;
       MENU BuildMenu(dExe,cRdd,nSCR1,nSCR2);
       ICON oIco ;
       MDI


      SET MESSAGE OF oWndMain     ;
       to xMessage DATE CLOCK 2010

Activate Window oWndMain MAXIMIZED    


// in BuildMenu()

MENUITEM "&Login Diff User" ;
     ACTION( _Log_in( "M" ), ;
        cRIGHTS := _Rights(),             ;
        xMESSAGE :=  ( "User  "+xLOGIN+"    Rights  "+cRIGHTS+        ;
                              "     Default= "+cDEFA+"      Rdd= "+cRDD+  ;
                              "     Revision  "+DTOC(dEXE)+;
                              "  -r"+str(nSCR1,4)+" x "+STR(nSCR2,4)),;
        oMenu:End(),;                                                      // end the current menu
        oWndMain:oMsgBar:cMsgDef := xMessage,oWndMain:oMsgBar:ReFresh(),;  //redefine set message
        oWndMain:SetMenu( BuildMenu( dEXE,cRDD,nSCR1,nSCR2 )),;            // redefine buildmenu()
        MsgInfo( "Current User is now   "+xLOGIN ))


 

Rick Lipkin