AYUDA CON BARRA DE PROGRESO
Publicado por Pedro Canizales (40 intervenciones) el 16/08/2007 00:24:05
HOLA QUE TAL OTRA VEZ YO
DISCULPEN POR TANTA PREGUNTA PERO SOY NUEVO EN ESTO, PERO ME GUSTA MUCHO LA PROGRAMACION Y ESTOY APRENDIENDO.
MI PROBLEMA ES EL SIGUIENTE.
ESTOY CREANDO UNA BARRA DE PROGRESO PARA UNA PANTALLA DE CAPTURA DE EMPLEADO. LO QUE QUIERO HACER ES DESPUES DE CAPTURAR EL EMPLEADO QUIERO APARECER UNA BARRA DE PROGRESO PARA DESPUES DE TERMINAR LIMPIAR MI PANTALLA DE CAPTURA, ESTO ES PARA DARLE TIEMPO AL SISTEMA DE GUARDAR BIEN LOS DATOS Y QUE EL EMPLEADO ESPERE UNOS 2 SEGUNDOS PARA CAPTURAR SU NUMERO.
PERO USTEDES GENTILMENTE ME PASARON UNOS PROCEDIMIENTOS PARA LA BARRA DE PROGRESO
ESTOY MANDANDO LLAMAR A UN PRG LLAMADO ACTIV_TERM PERO ME ESTA
ENVIANDO UN MENSAJE DE ERROR QUE DICE ASI:
"EL ARCHIVO ACTIV_TERM.PRG NO EXISTE
AL PROGRAMA LO ESTOY MANDANDO LLAMAR ASI
= acTiv_term(' Abriendo archivos del sistema...')
y en mi prg que lo llamo activ_term
tengo estos datos:
PROCEDURE ACTIV_TERM
PARAMETER M.prOmpt
PUBLIC g_Thermwidth
g_Thermwidth = 10
DEFINE WINDOW thErmomete AT INT((SROWS()-((5.615*FONTMETRIC(1, ;
"MS Sans Serif", 9.000, "B"))/FONTMETRIC(1, WFONT(1, ""), WFONT(2, ;
""), WFONT(3, ""))))/2), INT((SCOLS()-((63.833*FONTMETRIC(6, ;
"MS Sans Serif", 9.000, "B"))/FONTMETRIC(6, WFONT(1, ""), WFONT(2, ;
""), WFONT(3, ""))))/2) SIZE 5.615, 63.833 FONT "MS Sans Serif", ;
9.000 STYLE "B" NOFLOAT NOCLOSE SYSTEM COLOR RGB(0,0,0,192,192,192)
ACTIVATE WINDOW NOSHOW thErmomete
@ 1.500, 3 SAY M.prOmpt FONT "MS Sans Serif", 9.000 STYLE "B"
@ 3.000, 60.333 TO 4.308, 60.333 COLOR RGB(255,255,255,255,255,255)
@ 3.000, 3.333 TO 3.000, 60.333 COLOR RGB(128,128,128,128,128,128)
@ 4.231, 3.333 TO 4.231, 60.500 COLOR RGB(255,255,255,255,255,255)
M.g_Thermwidth = 57.269
SHOW WINDOW TOP thErmomete
ENDPROC
alguien me puede decir en donde esta el error?
DISCULPEN POR TANTA PREGUNTA PERO SOY NUEVO EN ESTO, PERO ME GUSTA MUCHO LA PROGRAMACION Y ESTOY APRENDIENDO.
MI PROBLEMA ES EL SIGUIENTE.
ESTOY CREANDO UNA BARRA DE PROGRESO PARA UNA PANTALLA DE CAPTURA DE EMPLEADO. LO QUE QUIERO HACER ES DESPUES DE CAPTURAR EL EMPLEADO QUIERO APARECER UNA BARRA DE PROGRESO PARA DESPUES DE TERMINAR LIMPIAR MI PANTALLA DE CAPTURA, ESTO ES PARA DARLE TIEMPO AL SISTEMA DE GUARDAR BIEN LOS DATOS Y QUE EL EMPLEADO ESPERE UNOS 2 SEGUNDOS PARA CAPTURAR SU NUMERO.
PERO USTEDES GENTILMENTE ME PASARON UNOS PROCEDIMIENTOS PARA LA BARRA DE PROGRESO
ESTOY MANDANDO LLAMAR A UN PRG LLAMADO ACTIV_TERM PERO ME ESTA
ENVIANDO UN MENSAJE DE ERROR QUE DICE ASI:
"EL ARCHIVO ACTIV_TERM.PRG NO EXISTE
AL PROGRAMA LO ESTOY MANDANDO LLAMAR ASI
= acTiv_term(' Abriendo archivos del sistema...')
y en mi prg que lo llamo activ_term
tengo estos datos:
PROCEDURE ACTIV_TERM
PARAMETER M.prOmpt
PUBLIC g_Thermwidth
g_Thermwidth = 10
DEFINE WINDOW thErmomete AT INT((SROWS()-((5.615*FONTMETRIC(1, ;
"MS Sans Serif", 9.000, "B"))/FONTMETRIC(1, WFONT(1, ""), WFONT(2, ;
""), WFONT(3, ""))))/2), INT((SCOLS()-((63.833*FONTMETRIC(6, ;
"MS Sans Serif", 9.000, "B"))/FONTMETRIC(6, WFONT(1, ""), WFONT(2, ;
""), WFONT(3, ""))))/2) SIZE 5.615, 63.833 FONT "MS Sans Serif", ;
9.000 STYLE "B" NOFLOAT NOCLOSE SYSTEM COLOR RGB(0,0,0,192,192,192)
ACTIVATE WINDOW NOSHOW thErmomete
@ 1.500, 3 SAY M.prOmpt FONT "MS Sans Serif", 9.000 STYLE "B"
@ 3.000, 60.333 TO 4.308, 60.333 COLOR RGB(255,255,255,255,255,255)
@ 3.000, 3.333 TO 3.000, 60.333 COLOR RGB(128,128,128,128,128,128)
@ 4.231, 3.333 TO 4.231, 60.500 COLOR RGB(255,255,255,255,255,255)
M.g_Thermwidth = 57.269
SHOW WINDOW TOP thErmomete
ENDPROC
alguien me puede decir en donde esta el error?
Valora esta pregunta
0