tengo un browse
- Code: Select all Expand view
- @ 0.875, 1 xBROWSE oBrw ;
FIELDS (FormuNAO)->NUMERO ,;
AllTrim((TipoNAO)->DETALLE)+' - '+AllTrim((TipoDETE)->DETALLE) ,;
AllTrim((TipoENTI)->DETALLE)+' '+AllTrim((FormuNAO)->DETADETE) ,;
(PERAUTO)->NOMBRE ,;
STATUS((FormuNAO)->STATUS) ;
HEADERS 'Numero' ,;
'Tipo / Detectada' ,;
'Entidad / Detalle' ,;
'Animador' ,;
'Estado' ;
SIZES 55,250,150,120,210 ;
SIZE 415,140 ;
ALIAS FormuNAO ;
AUTOSORT CELL LINES NOBORDER ;
Of oDlgCar ;
UPDATE
WITH OBJECT oBrw
//:nRowHeight := 30
:nRowDividerStyle = LINESTYLE_NOLINES
:nColDividerStyle = LINESTYLE_BLACK
:nMarqueeStyle = MARQSTYLE_HIGHLROW
:lHScroll := (.F.)
:bClrStd = { || If( (FormuNAO)->STATUS = 50 , { CLR_BLACK , RGB( 110,208,181 ) }, ; // CERRADO
If( (FormuNAO)->STATUS = 90 , { CLR_BLACK , RGB( 238,233,233 ) }, ; // Anulado
{ CLR_BLACK , RGB( 255,255,255 ) } )) }
:bClrSel = { || { CLR_WHITE , RGB( 0x33, 0x66, 0xCC ) } }
:SetColor( CLR_BLACK, RGB( 232, 255, 232 ) )
:CreateFromCode()
END
y cuando querio aplicar un DBSETFITLER no aplica el filtro.
en AplicaFiltro := "(FormuNAO)->TIPOFORM=2"
paso en:
AplicaFiltro1 := "{||"+AplicaFiltro+"}"
AplicaFiltro2 := '"'+AplicaFiltro+'"' ,;
cuando aplico el DBSETFILTER no funciona
dbSetFilter( &(AplicaFiltro1) , AplicaFiltro2 ) ) )
- Code: Select all Expand view
- @ LineaBTN,430 BTNBMP oBtnFiltro ;
SIZE 60,13 ;
Of oDlgCar ;
PROMPT 'Filtro' ;
tooltip '' ;
CENTER FLAT ;
COLOR CLR_BLACK,RGB(255,250,205) ;
FONT oFont2 ;
ACTION ( AplicaFiltro := FiltroFormulario( oBrw , FormuNAO ) ,;
DBSELECTAREA(FormuNAO) ,;
If(len(AplicaFiltro)=0 ,;
(FormuNAO)->( DbClearFilter() ) ,;
( AplicaFiltro1 := "{||"+AplicaFiltro+"}" ,;
AplicaFiltro2 := '"'+AplicaFiltro+'"' ,;
dbSetFilter( &(AplicaFiltro1) , AplicaFiltro2 ) ) ) ,;
(FormuNAO)->(dbgotop()) ,;
oBrw:Refresh() ,;
oBrw:SetFocus() )
si cargo manuelmente en el dbsetfilter( {||(FormuNAO)->TIPOFORM=2} , "(FormuNAO)->TIPOFORM=2" ) FUNCIONA CORRECTAMENTE
muchas gracias
david
