FiveTech Software tech support forums

... 1, -1 )     IF ! SetCommState( ncom, cDcb )    nError = GetCommError( ncom)    MsgInfo( "Error al setear: " + Str( nError ) )        BREAK     endif  RECOVER  ...

... } luego es el valor que esté devolviendo la expresión Prueba a hacer esto para saber el tipo de valor que hay: olbx101c:acols[4]:bEditWhen:= { || MsgInfo( ValType( olbx101c:aArrayData[olbx101c:nArrayAt][5] ) ), olbx101c:aArrayData[olbx101c:nArrayAt][5] == "1" } Hola Antonio, Gracias ...

... } luego es el valor que esté devolviendo la expresión Prueba a hacer esto para saber el tipo de valor que hay: olbx101c:acols[4]:bEditWhen:= { || MsgInfo( ValType( olbx101c:aArrayData[olbx101c:nArrayAt][5] ) ), olbx101c:aArrayData[olbx101c:nArrayAt][5] == "1" }

... que difieren un tanto de la forma original de uso que Microsoft implementó. El método Eval() devuelve el resultado de la evaluación ahora, por que MsgInfo( oWebView:Eval( "123" ) ) devolverá 123, y eso sucede igualmente si se llama a cualquier código javascript que devuelva un cierto ...

... junto FWH 24.02. El código que he probado es //#include "FiveWin.ch"FUNCTION MAIN()USE BDMASTER? SELECT()   // --> 1MsgInfo( SELECT(), "." )DBSELECTAREA( 0 )? SELECT()  // --> 2MsgInfo( SELECT(), ".." ...

... Enrico, Es cierto, en esa situación funciona, pero el caso es que en esta no: If Select( ::cName ) > 0 DbSelectArea( 0 ) --->>> MsgInfo( Select(), "Hola" ) EndIf ¿Cómo funcionan DbSelectArea() y Select()? " DBSELECTAREA() hace que el área de trabajo especificada ...

Dear Jimmy,

> when change into MsgInfo() it does "fire" a lot, but "what" are x,y

These are VERY GOOD news !!!

Please send me your PRG as you are using it so MsgInfo() gets called, please!!!

... Dear Jimmy, Reviewing Harbour OLE implementation it seems as this is the way: oVoice:__hSink := __axRegisterHandler( oVoice:__hObj, { | x, y | MsgInfo( x, y ) } ) but here in my tests it is not working as expected. Maybe another Harbour OLE bug ? I am doing some research to find the right way... ...

... | QOut( x, y ) } ) i have add that Line into Sample CODE, but nothing "seem" to happen using QOut() :( when change into MsgInfo() it does "fire" a lot, but "what" are x,y :?: i have try to FWLOG      oVoice:__hSink := __axRegisterHandler( oVoice:__hObj, ...

nageswaragunupudi wrote:Can you reproduce here the METHOD Link( lSubClass ) in your Window.prg?

I didn't fully understand. Variables are changed before ::Link() in Initiate method in Control.prg. Do you want me to add MsgInfo to the Link method in Window.png?

Dear Jimmy,

Reviewing Harbour OLE implementation it seems as this is the way:

oVoice:__hSink := __axRegisterHandler( oVoice:__hObj, { | x, y | MsgInfo( x, y ) } )

but here in my tests it is not working as expected.

Maybe another Harbour OLE bug ? I am doing some research to find the right way...

... Security Info=True;User ID=XXXX;Initial Catalog=ERP6_base;Data Source=185.80.87.6\SQLEXPRESS2019" TRY oApp:oCon:Open() CATCH oError MsgInfo("No se pudo lograr la conexión"+OAPP:OCON:CONNECTIONsTRING,oApp:cAplicacion) ShowError(oError) RETURN(.F.) END // since here de code ...

... LOCAL oButton DEFINE DIALOG oDlg // @ 1 , 1 BUTTON oButton OF oDlg ACTION ( oPdfCreator := CreateObject( "PDFCreator.PDFCreatorObj" ) , MsgInfo( oPdfcreator ) ) @ 1 , 1 BUTTON oButton OF oDlg ACTION MsgInfo( "Test" ) ACTIVATE DIALOG oDlg CENTER RETURN NIL

... Security Info=True;User ID=XXXX;Initial Catalog=ERP6_base;Data Source=185.80.87.6\SQLEXPRESS2019" TRY oApp:oCon:Open() CATCH oError MsgInfo("No se pudo lograr la conexión"+OAPP:OCON:CONNECTIONsTRING,oApp:cAplicacion) ShowError(oError) RETURN(.F.) END aqui me llega osea ...

... Security Info=True;User ID=XXXX;Initial Catalog=ERP6_base;Data Source=185.80.87.6\SQLEXPRESS2019" TRY oApp:oCon:Open() CATCH oError MsgInfo("No se pudo lograr la conexión"+OAPP:OCON:CONNECTIONsTRING,oApp:cAplicacion) ShowError(oError) RETURN(.F.) END aqui me llega osea ...