Ayuda Browse + timer en red no actualiza

Ayuda Browse + timer en red no actualiza

Postby Databaselab2002 » Sat Jun 09, 2007 3:12 am

Estimado Colegas

Tengo que actualizar un browse en red con los datos que ingresan
en las demas terminales, utilizo un timer me hace el refresh del
browse, pero no me lo actualiza, si alguien me pudiera orientar
que estoy haciendo mal

Desde ya muchas gracios
Fabian
databaselab2002@yahoo.com.ar


DEFINE DIALOG oDlg RESOURCE "CLIBROW6" TITLE "IMPRESION DE GARANTIAS" FONT oFont COLOR CLR_NBLUE,CLR_5

REDEFINE BROWSE oLbx OF oDlg ID 101 GRID ON DBLCLICK(XFACTURA(OLBX)) Update

ADD COLUMN TO olbx;
HEADER "CONTRATO" ;
SIZE 95 ;
DATA FieldWBlock( "NSOLICITUD", Select() ) ;
MOVE DT_MOVE_RIGHT

ADD COLUMN TO olbx;
HEADER "IMPRESION" ;
SIZE 77 ;
DATA FieldWBlock( "IMPRESIONC", Select() ) ;
MOVE DT_MOVE_RIGHT

ACTIVATE Dialog oDlg on init timerS(otimer,olbx,ODLG) CENTER




function Timers(otimer,olbx,ODLG)

DEFINE TIMER oTimer INTERVAL 15000 ACTION CheckFile(OLBX,ODLG)
ACTIVATE TIMER oTimer

return nil




function CheckFile(OLBX,ODLG)

SELE 24
USE TEMP SHARED
SET INDEX TO NTEMP,CTEMP,XTEMP
SET FILTER TO TEMP->FECHAEMISI=DATE()

olbx:upstable()

olbx:GOTOP()
olbx:REFRESH()
Databaselab2002
 
Posts: 142
Joined: Sun Oct 09, 2005 1:36 am

Postby Antonio Linares » Sat Jun 09, 2007 6:47 am

Fabian,

Te falta la claúsula OF al crear el timer:

DEFINE TIMER oTimer INTERVAL 15000 ACTION CheckFile(OLBX,ODLG) OF oDlg

Y en la función CheckFile() no tiene mucho sentido que estés constantemente abriendo la base de datos, solo es necesario que repintes el browse:

function CheckFile(OLBX,ODLG)

olbx:upstable()
olbx:GOTOP()
olbx:REFRESH()
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42151
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 43 guests