FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Mostrar xbrowse filtrado en tiempo de ejecuci贸n
surGom
Posts: 652
Joined: Wed Oct 19, 2005 12:03 PM
Mostrar xbrowse filtrado en tiempo de ejecuci贸n
Posted: Thu Nov 21, 2013 08:25 PM
Hola, quisiera saber como hacer para mostrar un xbrowse al ser filtrado en una condici贸n. Intento hacerlo sobre una base de datos dbf .
Aqu铆 el c贸digo

Code (fw): Select all Collapse
STATIC FUNCTION fbuscli( oBrw, lfiltro )

聽 聽LOCAL ngeto := 0
聽 聽LOCAL aMap := Array( 0 )



聽 聽IF lfiltro
聽 聽 聽 IF !Msgeval( ( "Buscar por N潞 de proveedor" ), "Ingrese dato:", @ngeto, "99999", "lupa" )
聽 聽 聽 聽 聽 RETURN NIL
聽 聽 聽 ENDIF

聽 聽 聽 aMap := iif( Empty( ngeto ), BUSNAP(), BUSNAP( ngeto ) )
聽 聽 聽 oCom:setfilter( {|| ( oCom:cAlias )->npro = aMap[1]} )
聽 聽ELSE
聽 聽 聽 oCom:setfilter()
聽 聽 聽 oBrw:gobottom()
聽 聽ENDIF

聽 聽oBrw:refresh()


RETURN NIL


D贸nde aMap[1] es el c贸digo de cliente. , al filtrar me muestra el xbrowse vac铆o y cuando limpio el filtrado el xbrowse ( la segunda condici贸n del if) se muestra correctamente con todos los registros.

Gracias por su atenci贸n

Luis
surGom
Posts: 652
Joined: Wed Oct 19, 2005 12:03 PM
Re: Mostrar xbrowse filtrado en tiempo de ejecuci贸n
Posted: Fri Nov 22, 2013 12:01 AM
Hice un cambio y prob茅 con scopes dejandolo as铆

Code (fw): Select all Collapse
STATIC FUNCTION fbuscli( oBrw, lfiltro )

   LOCAL ngeto := 0
   LOCAL aMap := Array( 0 )



   IF lfiltro
      IF !Msgeval( ( "Buscar por N潞 de proveedor" ), "Ingrese dato:", @ngeto, "99999", "lupa" )
          RETURN NIL
      ENDIF


      aMap := iif( Empty( ngeto ), BUSNAP(), BUSNAP( ngeto ) )
      oCom:setorder(2)
      oCom:ordscope(0,aMap[1])
      oCom:ordscope(1,aMap[1])
 
   ELSE
      oCom:ordscope()
      oCom:setorder(1)
      oBrw:gobottom()
   ENDIF

   oBrw:refresh()


RETURN NIL
///////////////////////////////////////////////////////////////////////////////


cuando se abre la funci贸n me muestra todos los datos, luego elijo el filtro y ah铆 lamentablemente me hace lo mismo me muestra
el xbrowse en blanco y cuando lo quito me muestra correctamente todos los registros.

驴Porque cuando filtro o hago el scope con el dato que necesito no me muestra los datos en el xbrowse?

Luis
surGom
Posts: 652
Joined: Wed Oct 19, 2005 12:03 PM
Re: Mostrar xbrowse filtrado en tiempo de ejecuci贸n
Posted: Fri Nov 22, 2013 12:34 AM

Les pido mil disculpas estaba llamando mal a la funci贸n para elegir el proveedor. Como tenemos algunos clientes que son a la vez proveedores

EN vez de llamar buspro() estaba llamando a Busnap() que es para la base de datos de clientes.

Son esos d铆as

Luis

MarioG
Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
Re: Mostrar xbrowse filtrado en tiempo de ejecuci贸n
Posted: Fri Nov 22, 2013 01:32 PM

El 煤ltimo mensaje deber铆a estar al principio; asi no me leia todos los post! :lol:

Hoy es viernes!

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions