FiveTech Support Forums

    REDEFINE LISTBOX  oBrw12 ; 
           FIELDS oDat12:Fields("referen"):value, ; 
                  oDat12:Fields("descrip"):value, ; 
                  oDat12:Fields("um"):value, ; 
                  transform(oDat12:Fields("stock"):value,"@e 99999,999.99"), ; 
                  transform(oDat12:Fields("sto_con"):value,"@e 99999,999.99"), ; 
                  oDat12:Fields("catval"):value ; 
            HEADERS  "Referencia","Nombre Referencia","Um","Stock","Stock.Con","Cat.val" ; 
           FIELDSIZES 70, 280, 50,60,60,40 ; 
           ID 4001 ; 
           OF oDlgbrow  UPDATE COLOR CLR_BLACK, X_BROFOND
           oBrw12:aJustify ={.F., .F.,.F.,.T.,.T.,.F.} 
           oBrw12:bLogicLen = { || oDat12:RecordCount } 
           oBrw12:bGoTop = { || oDat12:MoveFirst() } 
           oBrw12:bGoBottom = { || oRs:MoveLast() } 
           oBrw12:bSkip = { | nSkip | Skipper( oDat12, nSkip ) } 
           oBrw12:cAlias = "ARRAY" 

           par_browse("2",oBrw12,aContl[20],2,oDat12," ")

           oBrw12:Refresh()
           oDlgbrow:oClient := oBrw12


          oBrw12:nHeaderHeight := 20   // me da error
          oBrw12:nLineHeight   := 15   // me da error