Tema: Cómo usar el Timer
Ver Mensaje Individual
  #3
Antiguo 1 de febrero de 2021, 21:09
orlando
Forero Junior
Última Actividad 29.01.2025 23:57
Posts Posts: 42
Likes enviados Enviados: 24
Likes recibidos Recibidos: 2
Predeterminado tu programa de turnos
0
Likes

None...

Inactivo Inactivo
Citación del post de fastpho Ver Mensaje
❞
@orlando, Hola , en el ejemplo que te pase , de turnos , utiliza el timer para leer el archivo de turnos y mostrarlo en pantalla
Timer : dentro
Código COBOL:
  1.  CALL "MONITOREO".
rutina monitoreo
Código COBOL:
  1.  PROCEDURE       DIVISION.
  2.      MOVE FEC-DD    TO MON-DD.
  3.      MOVE FEC-MM    TO MON-MM.
  4.      MOVE FEC-SG    TO MON-SG.
  5.      MOVE FEC-AA    TO MON-AA.
  6.  
  7.      READ MONITOR.
  8.      
  9.      MOVE MON-CODIGO-1 TO "Caption" OF CONTADOR-1.
  10.      MOVE MON-CODIGO-2 TO "Caption" OF CONTADOR-2.
  11.      INVOKE POW-SELF "Refresh".
  12.      UNLOCK MONITOR.
  13.      
  14.      
@fastpho,
orlando is offline   Responder Con Cita