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()
Ayuda Browse + timer en red no actualiza
-
- Posts: 142
- Joined: Sun Oct 09, 2005 1:36 am
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
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()
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()