FiveTech Support Forums

 ::vGets[1]:= "Ñ"

   

    cWhere := "a.apellido1 LIKE '%" + AllTrim( ::vGets[ 01 ] ) + "%'"
    ::oQry:SetFilter( cWhere)
   ::oQry:Requery()
   ::oBrw:Refresh()

   FWDBG ::oQry    // me sigue mostrando los datos sin el filter aplicado.

 
cWhere := "a.apellido1 LIKE '%" + AllTrim( ::vGets[ 01 ] ) + "%'"
::oQry:Requery()
::oQry:SetFilter( cWhere)
::oBrw:Refresh()

? ::oQry:cFilter

cWhere := " apellido1 =  [TESTE] "
::oQry:Requery()
::oQry:SetFilter( cWhere)
? ::oQry:cFilter
::oBrw:Refresh()

cProd := "SELECT productos.cod_producto, productos.producto, productos.precio_venta1, productos.unidad, productos.saldo, productos.cod_proveedor, productos.cod_marca, productos.cod_grupo, productos.codbar1, productos.codbar2, productos.observaciones, proveedor.razon_social, marca.detalle AS marca, grupo.detalle AS grupo "
cProd += "FROM productos "
cProd += "LEFT JOIN proveedor ON productos.cod_proveedor = proveedor.ruc_dni "
cProd += "LEFT JOIN marca ON productos.cod_marca = marca.codigo "
cProd += "LEFT JOIN grupo ON productos.cod_grupo = grupo.codigo "
cProd += "ORDER BY productos.producto"

/*
oProd := oCn:Call( "proc001" ) // lista de productos
oProd := oCn:Execute( "CALL proc001", .t. ) // lista de productos
oProd := oCn:RowSet( "CALL proc001", .t. )
xbrowse(oProd)
*/

eProd := {|| oProd := SQLQry(oCn, oProd, cProd) }
EVAL(eProd)
.....
...

       REDEFINE XBROWSE oLbx ;
                   DATASOURCE oProd ;    ///                AUTOCOLS ;                AUTOSORT LINES ;
                   FASTEDIT LINES ;
                   FONT oFont1 ;  //
                   ON CHANGE (oApp:cSeek := "", oSay:Refresh(), cObser := MyCampo(oProd, "observaciones"), oObser:Refresh(), RRefresh(oDat) ) ; //, EVAL(eImg) ) ;
                   ON DBLCLICK (lOk := .t., oDlg:End()) ;
                   ID 121 OF oDlg

                   oCol := oLbx:AddCol()
                   oCol:bStrData      := { || oProd:producto }
                   oCol:cHeader       := "Producto/Servicio"
                   oCol:bClrStd       := { || { IF(oProd:saldo <= 0, CLR_GRAY, CLR_BLUE), CLR_WHITE } }
                   oCol:nDataStrAlign := AL_LEFT
                   oCol:nWidth        := 480
....
.....
       REDEFINE BTNBMP oBusca1 ;
                PROMPT "Producto" ;
                ACTION (FiltrarTx(oProd, 1, cFiltro), oLbx:Refresh(), oLbx:SetFOcus() ) ;
                ID 112 OF oDlg
                oBusca1:cToolTip := "Filtrar por Nombre de Producto"

//---------------------------------------------------------------------------------------------------------------------------------------------------
Function FiltrarTx(oProd, nModo, cFiltro)
cFiltro := ALLTRIM(cFiltro)
If nModo = 1
   oProd:SetFilter("producto LIKE '%" + cFiltro + "%'")
EndIf
IF nModo = 2
   oProd:SetFilter("codbar1 LIKE '%" + cFiltro + "%' OR observaciones LIKE '%" + cFiltro + "%'")
Endif
Return(oProd)

//----------------------------------------------------------------------------------------------------------------------------------------
Function ConetcaDB(oCn, oDlg, oMsg)
TRY
  if oCn == nil .or. oCn:Ping() = .F.
     If oDlg <> Nil
       oMsg:SetText("Conectando")
       oDlg:Refresh()
     EndIf
     oCn := Maria_Connect( {oApp:cHost, "", oApp:cUser, oApp:cPass } )
  endif
CATCH
  oCn := Nil
END

If oCn = Nil
   IF oDlg <> NIl
     oMsg:SetText("No Existe Servicio en El Servidor")   // + oApp:cHost)
     oDlg:Refresh()
     Inkey(4)
     oDlg:End()
   EndIf
   Return(Nil)
EndIf
oCn:Execute( "SET SESSION wait_timeout = 86400;" )
Return(oCn)

SELECT * FROM tu_tabla WHERE  apellido1 LIKE '%Ñ%' COLLATE utf8_spanish_ci

   ::oQry:SetFilter( "c6 LIKE '%" + AllTrim( ::vGets[ 01 ] ) + "%'" )
   ::oQry:ReQuery()

   ::oBrw:Refresh()
   XBROWSER ::oQry

      TEXT into cSql
      Select
      a.id             AS c0,
      a.idusuario      AS c1,
      a.nombre1        AS c2,
      a.nombre2        AS c3,
      a.nombre3        AS c4,
      a.nombre4        AS c5,
      a.apellido1      AS c6,
      a.apellido2      AS c7,
      a.nacimiento     AS c8,
      a.fecha_nac      AS c9,
      a.direccion      AS c10,
      a.estadoactual   AS c11,
      b.id             AS c12,
      b.usuario        AS c13,
      a.ida            AS c14,
      a.idb            AS c15,
      a.idc            AS c16,
      c.idusuario      AS c17,
      c.idcarpeta      AS c18
      FROM tbcarpetas AS a
      Left OUTER JOIN tbautoriza AS b ON a.idusuario = b.id
      Left OUTER JOIN tbasignado AS c ON a.id = c.idcarpeta
      WHERE c.idusuario = ?
      ORDER BY a.apellido1
      ENDTEXT

      ::oQry := ::oCnx:QUERY( cSql, { ::aUsuario[ 1 ] } )