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
