FiveTech Software tech support forums

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

 

::oQry:refresh()
xbrowser ::oQry
 

::oQry:ReQuery()

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

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

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.

 

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

method recargarBrw() class TCliente

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

   return ( nil )
 

cQry := "SELECT " + ::cSqlWhatsApp
   cQry += " FROM " + ::cTabla
   cQry += " ORDER BY " + ::cOrder
   ::oWhats_App := ::oCon:RowSet( cQry, ::nPageRow )