Pintado de browse
Posted: Tue May 14, 2019 7:08 pm
www.FiveTechSoft.com
https://forums.fivetechsoft.com/
Code: Select all
DEFINE WINDOW oDlg MDICHILD;
OF Publicas:oWPpal;
COLOR CLR_BLACK,CLR_WHITE;
PIXEL
oDlg:cTitle:=cTitulo
DEFINE BUTTONBAR oBar 2010 OF oDlg
DEFINE BUTTON RESOURCE "ANADIR" OF oBar NOBORDER MESSAGE "Añadir" ACTION (cTitulo:="Creación de nuevos Albaranes ",;
(aAlias[24])->(OrdSetFocus("Albaran")),oTab:nOption:=1,oTab:refresh(),;
Entalba(cTitulo,"A",,aAlias),oLbx:Refresh());
WHEN Publicas:cAccesoT TOOLTIP "Añadir"
.............................. etc
cAlias:=aAlias[24]
@ 30, 0 XBROWSE oLbx OF oDlg;
ALIAS cAlias AUTOSORT LINES CELL;
.............................. etc
ACTIVATE WINDOW oDlg ;
MAXIMIZED;
VALID ((aAlias[21])->( dbClosearea() ),(aAlias[22])-> ( dbClosearea() ),;
.............................. etc