no me refresca un query

no me refresca un query

Postby goosfancito » Sun Jan 14, 2024 9:41 pm

Hola.

Tengo un procedimiento almacenado, cuando lo ejecuto por primera vez me carga bien el xbrowser PERO cuando quiero refrescar el xbrowser (luego de un cambio) los datos no me los muestra, que estoy haciendo mal?

Code: Select all  Expand view
METHOD prClientes( oCnx ) CLASS TPr

   LOCAL PROCEDIMIENTO
   LOCAL CQUERY

   TEXT INTO PROCEDIMIENTO
   SELECT
   specific_name
   FROM information_schema.routines
   WHERE routine_schema = 'db' AND specific_name = 'pr_clientes'
   ENDTEXT

   TEXT INTO CQUERY
   CREATE PROCEDURE
   dda.pr_clientes()
   SELECT
   a.id AS c1,
   a.sucursal AS c2,
   a.codicefiscale AS c3,
   a.denominazione AS c4,
   a.cap AS c5,
   a.indirizzo AS c6
   FROM tbclientes AS a
   ORDER BY a.denominazione DESC
   ENDTEXT

   RETURN ( oQry := crearPr( oCnx, PROCEDIMIENTO, CQUERY ) )

...
::oQry:= oCnx:call( prclientes(oCnx))

xbrowser ::oQry

 


cuando hago esto el xbrowser no me refresca l os datos

Code: Select all  Expand view

::oQry:refresh()
xbrowser ::oQry
 
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
User avatar
goosfancito
 
Posts: 1954
Joined: Fri Oct 07, 2005 7:08 pm

Re: no me refresca un query

Postby nageswaragunupudi » Mon Jan 15, 2024 2:02 am

Code: Select all  Expand view
::oQry:ReQuery()
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10595
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: no me refresca un query

Postby goosfancito » Mon Jan 15, 2024 7:15 am

no me funciona
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
User avatar
goosfancito
 
Posts: 1954
Joined: Fri Oct 07, 2005 7:08 pm

Re: no me refresca un query

Postby karinha » Mon Jan 15, 2024 1:49 pm

Intenta:

Code: Select all  Expand view

oQry:Requery( { <su query>} )
oBrw:SetMySql(oQry)
 


Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7766
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: no me refresca un query

Postby sysctrl2 » Mon Jan 15, 2024 4:46 pm

Depende de la versión de FWH y la lib de conexión que usas

NATIVO
Code: Select all  Expand view

METHOD ScRefresh() CLASS ScWhatsApp
   MSGRUN( "Espere un momento , actualizando datos ! ", "Usuario", {|| ::oWhats_App:requery() } )
   ::oGrid:Refresh()
   ::oGrid:SetFocus()
 


DOLPHIN
Code: Select all  Expand view

METHOD ScRefresh() CLASS ScEmbarq
  local cQry, oDetalle
  cQry := "SELECT no_embarque, factura, pedido, grupo, unidad, alterno, nombre, semana, "
  cQry += "fecha,bolsas,cajas,cod_postal,ruta,orden_entrega"
  cQry += " FROM embarques_detalle"
  cQry += " WHERE no_embarque=" + C_SIMPLE + cstr( oEmbarques:folio ) + C_SIMPLE
  cQry += " AND borrado <>" + C_SIMPLE + "S" + C_SIMPLE
  cQry += " ORDER by no_embarque,factura"
  oDetalle:= ::oCon:Query( cQry )
  oBrw:SetDolphin( oDetalle )
RETURN .T.

 
Cesar Cortes Cruz
SysCtrl Software
Mexico

' Sin +- FWH es mejor "
User avatar
sysctrl2
 
Posts: 1011
Joined: Mon Feb 05, 2007 7:15 pm

Re: no me refresca un query

Postby goosfancito » Tue Jan 16, 2024 7:24 am

sigue sin funcionar. Les muestro la definicion del browser
Code: Select all  Expand view
METHOD setBrw( oDlg ) CLASS TCliente

   LOCAL oFont, oFont1
   LOCAL aColSizes := { 40, 210, 200, 120, 90, 120, 10 }
   LOCAL aColumns  := { "c2", "c4", "c6", "c7", "c8", "c9", "c10", "c11" }
   LOCAL aHeaders  := { "Suc.", "Denominazione", "Indirizzo", "Comune", "Provincia", "Telefono", "Hab" }
   LOCAL aJustify  := { AL_CENTER, AL_LEFT, AL_LEFT, AL_LEFT, AL_LEFT, AL_CENTER, AL_CENTER }

   DEFINE FONT oFont NAME "Ms Sans Serif" bold SIZE 0, - 8
   DEFINE FONT oFont1 NAME "Ms Sans Serif" SIZE 0, - 8

   REDEFINE XBROWSE ::oBrw ID 100 OF oDlg ;
   DATASOURCE ::oQry ;
   AUTOSORT ;
   COLSIZES aColSizes ;
   COLUMNS aColumns ;
   JUSTIFY aJustify ;
   HEADERS aHeaders


El metodo de leer los registros para cargar ese browser funciona correctamente
y lo hago llamando a un procedimiento,
pero cada vez que quiero hacer una "recarga" del browser hago esto y no me estàa funcionando:

Code: Select all  Expand view
method recargarBrw() class TCliente

   ::oQry:requery()
   ::oBrw:Refresh( .t. )
   ::oBrw:setfocus()

   return ( nil )
 
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
User avatar
goosfancito
 
Posts: 1954
Joined: Fri Oct 07, 2005 7:08 pm

Re: no me refresca un query

Postby sysctrl2 » Tue Jan 16, 2024 5:51 pm

usas el Medhot ::oCon:RowSet ?
MariaDb
Code: Select all  Expand view

cQry := "SELECT " + ::cSqlWhatsApp
   cQry += " FROM " + ::cTabla
   cQry += " ORDER BY " + ::cOrder
   ::oWhats_App := ::oCon:RowSet( cQry, ::nPageRow )
 
Cesar Cortes Cruz
SysCtrl Software
Mexico

' Sin +- FWH es mejor "
User avatar
sysctrl2
 
Posts: 1011
Joined: Mon Feb 05, 2007 7:15 pm

Re: no me refresca un query

Postby goosfancito » Wed Jan 17, 2024 4:02 am

no, no lo uso.
siempre use asi como lo puse estimado.
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
User avatar
goosfancito
 
Posts: 1954
Joined: Fri Oct 07, 2005 7:08 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 35 guests