... cookie ENDIF //oCli:Close() ENDIF ENDIF ENDIF If Alltrim(cNFSeResp) == '{"success":1,"logout":1}' CurSorArrow() oCli:Close() MsgBeep() MsgAlert("Não foi possível conectar ao site de averbação!","Atenção") Return .f. Endif // Faz o upload do xml para averbação ...
... TMyDialog FROM TDialog ............................... ENDCLASS METHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS TMyDialog if nMsg == 50000 MsgBeep() endif return Super:HandleEvent( nMsg, nWParam, nLParam ) Everything works, but message sending is not happening. What I am wrong ?
Antonio, Hola nuevamente... Disculpa por no haber entendido tu sugerencia a la primera... Curiosamente, el msgbeep() no funcionó, y tengo el sonido de la PC funcionando perfectemente, pero eso no importa ahora. Le coloqué una parada, asi Define Timer oTimerT Interval 30000 ACTION ...
... = ""return ::Super:LostFocus( hWndGetFocus ) Ahora en el ejemplo samples\testdbc1.prg añade esta línea: oDBC1:bGotFocus = { || MsgBeep() } y verás como suena al recibir el foco