NOS BOTOES
@ 0,0 PANEL oPanel1 SIZE 1024,80 ;
ON PAINT {|| Gradiente( oPanel1, 0, 0, 1920, 80, 1, {0, 13400576} ) }
oPanel1:Anchor:=130
@ 0,0 LINE oLine LENGTH 1024
oLine:Anchor:=130
@ 5,13 OWNERBUTTON oOwnerbutton1 OF oPanel1 SIZE 73,59 ;
ON CLICK {|| ::CADASTRO_VENDEDORES_MANUTENCAO( "INCLUIR" , ), oPage1:oBrowse1:aArray := ::VENDEDORES_MANUTENCAO_CARREGA( "ORDER BY " + cAlvo_Consulta ), ::VENDEDORES_MANUTENCAO_onDlgInit( oDlg ), oPage1:obrowse1:REFRESH()};
FLAT ;
TEXT 'Inclui' COLOR 16777215 ;
COORDINATES 0, 40, 0, 0 ;
BITMAP HBitmap():Addresource('add-file-256-30') ;
COORDINATES 0, 5, 0, 0 ;
TOOLTIP 'Incluir novo Vendedor'
oOwnerbutton1:aStyle := { HStyle():New( {0, 13400576}, 1,, ), HStyle():New( {0, 13400576}, 1,, 2, 16777215 ), HStyle():New( {0, 13400576}, 1, ) }
FUNCAO GRADIENTE
************************************************************************************************************************************************************************************************************************
FUNCTION Gradiente( oPanel, x, y, x1, y1, nOrient, aCores )
************************************************************************************************************************************************************************************************************************
Local pps, hDC
pps := hwg_Definepaintstru()
hDC := hwg_Beginpaint( oPanel:handle, pps )
hwg_drawGradient( hDC, x, y, x1, y1, nOrient, aCores )
hwg_Endpaint( oPanel:handle, pps )
RETURN .T.
NO BROWSE
LOCAL oBrowse1;
, oColuna, bColorBlock;
, cAlvo_Consulta:="VENDEDOR.NOMVEN" ;
@ 2,30 BROWSE oBrowse1 ARRAY OF oDlg SIZE 1018,420 STYLE WS_BORDER + WS_VSCROLL +WS_HSCROLL ;
ON SIZE ANCHOR_TOPABS + ANCHOR_LEFTABS + ANCHOR_RIGHTABS + ANCHOR_BOTTOMABS ;
ON KEYDOWN {|oBrowse1,nKeyPress| ::VENDEDORES_MANUTENCAO_onKeyDown( oBrowse1, nKeyPress, oDlg, @cProgressKey, @cAlvo_Consulta ) }
oBrowse1:nHeadRows := 2
oBrowse1:oStyleHead := HStyle():New( { 0, 13400576 }, 1,, 0.4, 16759929 )
oBrowse1:headColor := 16777215
oBrowse1:oFont := HFont():Add( '',0,-15,700,,,)
oBrowse1:aArray := ::VENDEDORES_MANUTENCAO_CARREGA( "ORDER BY VENDEDOR.NOMVEN" )
oBrowse1:freeze := 2
oBrowse1:AddColumn( HColumn():New('ID', hwg_ColumnArBlock() ,'N',11, 0 ,.F.,1,2,,,,,,;
{|| oBrowse1:aArray := ::VENDEDORES_MANUTENCAO_CARREGA( "ORDER BY VENDEDOR_ID" ),cAlvo_Consulta:="VENDEDOR.ID",obrowse1:Refresh(), hwg_WriteStatus( oDlg,2,"Ordem: ID") } ,,,,,,,))
oBrowse1:AddColumn( HColumn():New('NOME VENDEDOR', hwg_ColumnArBlock() ,'C',24, 0 ,.F.,,,,,,,,;
{|| oBrowse1:aArray := ::VENDEDORES_MANUTENCAO_CARREGA( "ORDER BY VENDEDOR.NOMVEN" ), cAlvo_Consulta:="VENDEDOR.NOMVEN",obrowse1:Refresh(), hwg_WriteStatus( oDlg,2,"Ordem: NOME VENDEDOR") } ,,,,,,,))
bColorBlock := {|| {0,16777215,, } }
FOR EACH oColuna IN oBrowse1:aColumns
oColuna:bColorBlock := bColorBlock
NEXT