www.FiveTechSoft.com
https://forums.fivetechsoft.com/
Code: Select all
DEFINE TBBUTTON OF oToolBar ;
ACTION Prod01() ;
TOOLTIP "Cadastro de" + CRLF + "Produtos" PROMPT "Produtos";
WHEN If( oApp:A9000 = "N", .F. , .T. )
Code: Select all
DEFINE TBBUTTON oBtnBar OF oToolBar ;
ACTION Prod01() ;
TOOLTIP "Cadastro de" + CRLF + "Produtos" PROMPT "Produtos";
WHEN ( lLigaBtn )
Code: Select all
dessa maneira da erro => DEFINE TBBUTTON oBtnBar OF oToolBar
da maneira abaixo da certo:
oToolBar:EnableButton( 3, .f. )
oToolBar:EnableButton( 3, .t. )
Code: Select all
STATIC PROCEDURE Pago_Toolbar()
LOCAL oCursor := CrearCursorBarraBotones()
DEFINE BUTTONBAR oToolBar OF oDlg SIZE 60, 60 2010 CURSOR oCursor
DEFINE BUTTON NAME "TB2_EXIT" OF oToolBar ACTION oDlg:End() PROMPT "&Salir"
DEFINE BUTTON NAME "TB2_ADD" OF oToolBar ACTION Pago_Editar( TRUE ) PROMPT "&Nuevo" GROUP
DEFINE BUTTON NAME "TB2_EDIT" OF oToolBar ACTION Pago_Editar( FALSE ) PROMPT "&Editar"
DEFINE BUTTON NAME "TB2_DELETE" OF oToolBar ACTION Pago_Borrar() PROMPT "&Borrar"
DEFINE BUTTON NAME "TB2_CALENDAR" OF oToolBar ACTION Pago_SelFecha() PROMPT "&Fecha"
DEFINE BUTTON NAME "TB2_GANTT" OF oToolBar ACTION Pago_SelRuta() PROMPT "&Ruta" GROUP
DEFINE BUTTON NAME "TB2_GETPAYMENT" OF oToolBar ACTION Pago_Recuperar() PROMPT "&Cobro" GROUP
DEFINE BUTTON NAME "TB2_PUTPAYMENT" OF oToolBar ACTION Pago_Aplicar() PROMPT "&Aplicar"
DEFINE BUTTON NAME "TB2_PRINTER" OF oToolBar ACTION Pago_Print() PROMPT "&Listar" GROUP
SET MSGBAR OF oDlg TO "INS=Nuevo, DEL=Borrar, ENTER=Editar, F4=Ruta, F5=Fecha, F6=Recuperar, F7=Aplicar, F9=Refrescar" 2010
oDlg:SetControl( oBrw )
oBrw:nTop += 1
oBrw:nHeight -= 1
WITH OBJECT oToolBar
:bRClicked := {|| NIL }
:bLClicked := {|| NIL }
:aControls[ 1 ]:cToolTip := "Cierra modulo."
:aControls[ 2 ]:cToolTip := "Agrega un nuevo registro."
:aControls[ 3 ]:cToolTip := "Edita datos del registro actual."
:aControls[ 4 ]:cToolTip := "Elimina datos del registro actual."
:aControls[ 5 ]:cToolTip := "Filtra pagos segun fecha."
:aControls[ 6 ]:cToolTip := "Filtra pagos segun ruta de cobro."
:aControls[ 7 ]:cToolTip := "Recuperar cobro de ruta."
:aControls[ 8 ]:cToolTip := "Aplicar abonos a saldo de prestamos."
oBtnEditar := :aControls[ 03 ]
:aControls[ 02 ]:bWhen := {|| Date() == dFecha }
:aControls[ 03 ]:bWhen := {|| lVer := ( dFecha < Date() ) , TRUE }
:aControls[ 04 ]:bWhen := {|| Date() == dFecha }
:aControls[ 07 ]:bWhen := {|| Date() == dFecha }
:aControls[ 08 ]:bWhen := {|| Date() == dFecha }
END
RETURN
Code: Select all
...
IF dFecha < Date()
oBtnEditar:SetText( "&Mostrar" )
oBtnEditar:cToolTip := "Visualiza datos del registro actual."
ELSE
oBtnEditar:SetText( "&Editar" )
oBtnEditar:cToolTip := "Edita datos del registro actual."
ENDIF
lVer := ( dFecha < Date() )
oToolBar:aEvalWhen()
...
