FiveTech Support Forums

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()

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()