FiveTech Support Forums

estmados

como ajustar las columnas al ancho de las celdas

tengo este codigo con la version antiguas no pasaba, con la version 16.1 build2
con arreglos no pasa, solo con dbf

@ 0,0 XBROWSE oBrw OF oPanel ;
FIELDS ;
"'"+(alias_articu)->Ar_Codig, ;
(alias_articu)->Ar_Descr, ;
iif( (alias_articu)->Ar_N_Inv, 0, Stocksucursal(aAlias,aGet2,aBodega)),;
(alias_articu)->(vPrecioArt()*val("1."+alltrim(str((alias_parame)->Iva)))),;
(alias_articu)->ar_m_des,;
vertabla( "UBI" + ((alias_bodega)->( dbSeek( (alias_articu)->ar_codig + _bodega ) ), (alias_bodega)->ar_ubica ), alias_tablas),;
Vertabla( "FAM" + (alias_articu)->ar_familia, (alias_tablas) ),;
Vertabla( "CLA" + (alias_articu)->ar_clase, (alias_tablas) ),;
(alias_articu)->Ar_Prove,;
((alias_proveedo)->( dbSeek( (alias_articu)->Ar_Prove) ),(alias_proveedo)->Nombre),;
dtoc( (alias_articu)->Ar_F_Uco),;
(alias_articu)->Ar_P_Med,;
(alias_articu)->Ar_s_Cri,;
(alias_articu)->Ar_f_ini,;
iif( (alias_articu)->Ar_n_inv, "NO INVENTARIABLE", "INVENTARIABLE" ),;
(alias_articu)->Ar_S_Act,;
Vertabla( "UNI" + (alias_articu)->ar_unida, (alias_tablas) ),;
Vertabla( "CTA" + (alias_articu)->ar_ctacble, (alias_tablas) ) ;
;
HEADERS 'Código', 'Descripción ', 'Stock ', 'Precio c/iva', '% Desc', 'Ubicación', 'Nombre Familia', 'Nombre Clase',;
'Rut Prov.', 'Nombre Proveedor', 'Fec.U.C', 'P.Medio', 'Crítico', 'Fec.Creación', 'Articulo', 'Stock Actual', 'Unidad', 'CtaCble' ;
;
ALIAS (alias_articu) ;
PICTURE NIL,NIL,"@E 9,999.9", "@E 9,999,999";
JUSTIFY AL_LEFT,AL_LEFT UPDATE ;
LINES CELL AUTOSORT;
ON DBLCLICK iif( Eval( oTaskPanel:Item(1):Item(2):bWhen ), ( AbmArticu(aAlias,oBrw, "M", aGet2 ), oBrw:SetFocus() ), MsgInfo( "No está autorizado..","Usuario" ) )

WITH OBJECT oBrw
:nStretchCol := STRETCHCOL_WIDEST
:nColDividerStyle := LINESTYLE_RAISED
:nRowDividerStyle := LINESTYLE_RAISED
:nMarqueeStyle := MARQSTYLE_HIGHLROW

:LAllowColSwapping := .f.
:lColDividerComplete := .f.
:lAllowRowSizing := .f.
:lAllowColHiding := .f.
:lKineticBrw := .f.
:nRowHeight := 24
:nHeaderHeight := 22

:bClrRowFocus := { || { CLR_BLACK, aGradRowSel/*RGB(185,220,255)*/ } }
:bClrStd := {|| { nRGB( 0, 0, 0), nRGB(255,248,220) } } // colores para lineas normales
:bClrSel := {|| { nRGB( 0, 0, 0), aGradRowSel } } // para barra de linea selecc cuando el control no tiene el foco
:bClrSelFocus := { || { CLR_BLACK, aGradBarSel } } // para barra de linea selecc cuando el control tiene el foco

:lRecordSelector := .f.

:aCols[1]:cSortOrder := "ARCODIG"
:aCols[2]:cSortOrder := "ARDESCR"
//:bSeek := {|c| (alias_articu)->(DbSeek( Upper( c ) )) }

:bPopUp := { |o| ShowPopupBrw( o, oTaskPanel ) }
:CreateFromCode()

END

Estimados

aun le estoy dando vuelta al tema y al parecer el problema se resualve parcialmente con

//:nRowHeight := 24

se le saco esta instruccion el sistema muestra correcto pero demasiado ajustado y no se ve bien

Subido en subir imagenes