FiveTech Support Forums

    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() )