Ayuda Browse + timer en red no actualiza

Post Reply
Databaselab2002
Posts: 142
Joined: Sun Oct 09, 2005 1:36 am

Ayuda Browse + timer en red no actualiza

Post by Databaselab2002 »

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()
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Post by Antonio Linares »

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
Post Reply