Que problema puede tener este codigo, ya que al colocar la opcion AUTOSORT
pierde el efecto del browse, dejando uno por defecto al parecer de color azul y cabeceras desajustadas, si elimino AUTOSORT se arregla el problema
el primer browse al hacer DBLCLIK se ejecuta la rutina de abajo dependiendo del registro
- Code: Select all Expand view
- DEFINE FONT oFont NAME 'TAHOMA' SIZE 0,-12
DEFINE BRUSH oBrush RESOURCE "TEXTURA5"
DEFINE DIALOG oDlg RESOURCE "GESTION_RANKING_DETALLE" TITLE "Consulta venta vehículo por vendedor" BRUSH oBrush
REDEFINE XBROWSE oBrw ID 101 OF oDlg ;
HEADERS 'Marca', 'Modelo', 'Stk/Pat', 'Venta', 'Costo', 'Margen $', 'Margen %';
PICTURES '@!', '@!', '@!','@E 9,999,999,999','@E 9,999,999,999', '@E 999,999,999', '999.99' ;
ARRAY aArray FOOTERS AUTOCOLS LINES AUTOSORT FONT oFont
WITH OBJECT oBrw
:lHScroll := .F.
:nMarqueeStyle := MARQSTYLE_HIGHLROW
:nColDividerStyle := LINESTYLE_RAISED
:nRowDividerStyle := LINESTYLE_RAISED
:nStretchCol := STRETCHCOL_WIDEST
:LAllowColSwapping := .f.
:lColDividerComplete:= .f.
:lAllowRowSizing := .f.
:lAllowColHiding := .f.
:lKinetic := .f.
:bClrSelFocus := { || { CLR_BLUE, nRGB( 230, 255, 230 ) } }
:bClrSel := { || { CLR_BLUE, nRGB( 230, 255, 230 ) } }
:bClrStd := { || { CLR_BLACK, CLR_WHITE } }
:bPopUp := { |o| ShowPopup( oBrw ) }
END
AEval( oBrw:aCols, { |o| o:nFooterType := AGGR_SUM }, 4,3 )
oBrw:aCols[3]:nDataStrAlign := 2
oBrw:MakeTotals()
oBrw:aCols[1]:cFooter := "Cant:"+str(len(aArray),6)
REDEFINE BUTTONBMP ID 4001 OF oDlg ;
ACTION BtnAction( 1, aAlias, oBrw ) ;
UPDATE PROMPT "&Consultar" ;
BITMAP "bconsultar" ;
TEXTRIGHT
ACTIVATE DIALOG oDlg CENTERED ON INIT ( ;//AEVAL( oBrw:aCols, {|Z,y| ALERT( str(y)+str(Z:nWidth) ) } ),;
oBrw:aCols[1]:nWidth := 100,;
oBrw:aCols[2]:nWidth := 216,;
oBrw:aCols[3]:nWidth := 97,;
oBrw:aCols[4]:nWidth := 97,;
oBrw:aCols[5]:nWidth := 83,;
oBrw:aCols[6]:nWidth := 77,;
oBrw:Adjust(),;
oBrw:Refresh() )//AEVAL( oBrw:aCols, {|Z,y| ALERT( str(y)+str(Z:nWidth) ) } ) )
oFont:End()
oBrush:End()
(alias_sql2)->( dbCloseArea() )
Uploaded with ImageShack.us
