Josber, por lo pronto, que yo sepa puedes usar FUNCTION CURRENT-DATE o ACCEPT FROM TIME y ambos te sacan los milisegundos. En cuanto al timer, sí que va a funcionar. Lo que debes hacer es lo siguiente:
Defines tus CONTA como GLOBAL en la WORKING del Form.
En el botón (o donde tengas el inicio del proceso) haces:
Código COBOL:
MOVE POW-TRUE TO "Active" OF CmTimer1
En el Timer haces:
Código COBOL:
IF CONTA <= CONTA1
MOVE FUNCTION CURRENT-DATE(pos:lon) TO TU_GRILLA
...
ELSE
MOVE POW-FALSE TO "Active" OF CmTimer1
END-IF
Pero de todos modos, hacer esperar al cliente 1000 segundos por ello me parece un poco demasiado. Creo que si lo haces con el bucle cogiendo los milisegundos obtendrás valores diferentes. En el peor de los casos, mete en el bucle una llamada a la WinAPI "Sleep" pasandole 1 milisegundo y tema resuleto
