Information générale
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
Network:
Windows 2008 Server
Hello Rick
Thanks for your reply.
After some changes i solve my problem like this:
PUBLIC oManipulador as Manipulador
* - Instancia o objeto manipulador
oManipulador = CREATEOBJECT("Manipulador")
* - Associa o método oManipulador.Onlick com o método Click da _Screen
BINDEVENT(m.ObjRecebido.Janela.painelfundo.page1.obj1,"Rightclick",oManipulador,"OnDClick")
BINDEVENT(m.ObjRecebido.Janela.painelfundo.page1.obj1,"click",oManipulador,"OnClick")
*-- Manipulador - Classe que manipulará o evento
DEFINE CLASS Manipulador AS Custom
PROCEDURE OnDClick
MESSAGEBOX("Você clicou no RightClick")
SFT.imprimir.Rightclick()
ENDPROC
PROCEDURE OnClick
MESSAGEBOX("Você clicou no Click")
IF ft.anulado = .F.
SFT.Imprimir.click
Text to msel textmerge noshow
select Isnull(ft2.assinatura,'') as Assinatura from ft2 where ft2.ft2stamp = ?ft.ftstamp
Endtext
IF u_sqlexec(msel,[_Assinou])
Select _Assinou
IF Len(Alltrim(_assinou.Assinatura)) > 0
msg("ok, vou enviar Email")
Else
msg("não faço nada")
Endif
Endif
Else
msg("Este documento foi anulado, logo não irei enviar Certificad0..!!")
SFT.Painelfundo.Page1.Obj2.click
SFT.imprimir.click
Endif
ENDPROC
ENDDEFINE
Best regards
Luis Santos
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement