en el PRG Main...
DO toolbar
****EL TOOLBAR*****************
public oToolBar
oToolBar = CREATE("MyToolBar")
oToolBar.DOCK(0)
oToolbar.Show()
**HEIGHT = 45, WIDTH = 45, ;
TOP = 14, LEFT = 120,
DEFINE CLASS MyToolbar AS ToolBar
ADD OBJECT cmdNuevo AS COMMANDBUTTON WITH ;
TOP = 14, HEIGHT = 40, WIDTH = 45, ;
HEIGHT = 40, WIDTH = 50,;
CAPTION = "", PICTURE = sys(5)+Sys(2003)+"ICONSCOMP.ico", ;
TOOLTIPTEXT = "VENTAS DIRECTAS"
ADD OBJECT cmdEditar AS CommandButton WITH ;
TOP = 14, HEIGHT = 40, WITH = 45, ;
HEIGHT = 40, WIDTH = 50,;
CAPTION = "" , PICTURE = sys(5)+Sys(2003)+ "iconsACTIV01A.ICO", ;
TOOLTIPTEXT = "ACTUALIZA VENTAS"
********* LLAMA A LOS PROCEDIMIENTOS*****************
PROCEDURE cmdNuevo.Click
*_Screen.ActiveForm.NewRecord()
DO FORM MVENTAS
ENDPROC
PROCEDURE cmdEditar.Click
*_Screen.ActiveForm.DelRecord()
DO FORM ACTARTICULOS
ENDPROC