xbrowse ajustar columnas
Posted: Mon Feb 08, 2016 2:32 am
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
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
