Aqui con una duda con un dialogo y sus campos get y listbox, donde registra entrada y salida y la clase de reloj .
Porque no me funciona el timer en un dialogo, estoy haciendo pruebas de crear avisos, y en ese momento esta a prueba, pero no me refresca y tampoco con un simple mensaje MsgAlert() despues de ciertos intervalos , nada de nada.
Sera!, porque por los campos gets activos ?, ya que hice pruebas con oWnd desde menu, ahi si me refresca,porque no existe dentro de el, gets.. pero en la modalidad de oDlg dialogo, con sus campos no me funciona el timer..!,alguien me pueda echar una mano, con ese detalle?.
Esperando contar como siempre su ayuda de todos ustedes.
- Code: Select all Expand view
- // Personal.Prg
#include "FiveWin.ch"
#Define ST_ZOOMED 2
#Define CLR_WINDOW 16
#define COLOR_HIGHLIGHT 13 // Agregado por la actualizacion TWbrowse de Hernan Ceccarreli
REQUEST DbfCdx, DbfFpt, RPreview
EXTERNAL OrdKeyCount, OrdKeyGoTo, OrdKeyNo
STATIC oDlg, [b]oTimer[/b]
//------------------------------------------------------------------------------
FUNCTION PRINCIPAL()
LOCAL oLbx
LOCAL oIcon,oImg
SET EXCLUSIVE OFF
SET 3DLOOK ON
SET DELETED ON
SET CONFIRM ON
SET EPOCH TO 1969
SET DATE BRITISH
DEFINE ICON oICON RESOURCE "RELOJ"
DEFINE DIALOG oDlg RESOURCE "ENTSAL" TITLE "Entrada y salida personal" ICON oICON // COLOR CLR_BLUE
REDEFINE SAY oSay[01] PROMPT DATE() ID 151 OF oDlg COLOR CLR_BLUE Font oFnt1
REDEFINE GET oGet[01] VAR nNumUsua ID 101 OF oDlg PICT "9999" VALID V_NUMUSUA() [b]// Campo Get[/b]
REDEFINE GET oGet[02] VAR cPaswUsua ID 102 OF oDlg PICT "@!" VALID V_PASWUSUA() [b]// Campo Get[/b]
REDEFINE GET oGet[03] VAR cMotivo ID 103 OF oDlg PICT "@!" VALID V_MOTIVO() [b]// Campo Get[/b]
REDEFINE SAY oSay[02] PROMPT cNombUsua ID 154 OF oDlg COLOR CLR_BLUE Font oFnt1
REDEFINE BUTTON oBtn[01] ID 201 OF oDlg ACTION Reg_EntSal(oDlg, oLbx)
REDEFINE LISTBOX oLbx;
FIELDS STR((S06)->NUMUSUA,4) ,;
TRIM((S06)->NOMBUSUA) ,;
DTOC((S06)->FECMOV) ,;
TRIM((S06)->HORAENTR) ,;
TRIM((S06)->TRETARDO) ,;
TRIM((S06)->HORASALI) ,;
SUBS((S06)->MOTIVO,1,52) ;
HEADER "Num Usuario","Usuario","Fecha","Entrada","T Retardo","Salida","Bitacora de Observación" ;
SIZES 36,180,54,54,54,54,200 ;
ALIAS (S06)->(ALIAS()) ID 105 OF oDlg
oLbx:aJustify := {0,0,0,0,0,0,0}
oLbx:lCellStyle := .T.
oLbx:nClrForeHead:= CLR_BLUE
REDEFINE SAY oSay[03] PROMPT (S09)->AVISOPERS ID 156 OF oDlg COLOR CLR_BLUE Font oFnt1
REDEFINE IMAGE oImg FILENAME (S09)->ARCHIMAGE ID 157 OF oDlg ADJUST
[b]DEFINE TIMER oTimer OF oDlg INTERVAL 10000 ACTION MsgInfo("Que pasa aqui...Haciend pruebas") // Aqui no me funciona el timer..porque sera![/b]
ACTIVATE DIALOG oDlg CENTER ON INIT Inicia()
ResAllFree()
DbCloseAll()
oFnt1:End()
CheckRes() // Al finalizar...
Release oDlg, oLbx
RETURN NIL
//------------------------------------------------------------------------------
STATIC FUNCTION Inicia()
[b]oTimer:Activate() // Aqui la tengo activado desde inicio del dialogo[/b]
RETURN NIL
Saludos y buen dia.!
Atte: Adrian C. C.