Ver Mensaje Individual
  #5
Antiguo 7 de julio de 2017, 12:20
Josber
Moderador Global
Activista del Foro: Activista del Foro - Issue reason: Por aportar manuales y enriquecer  Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Issue reason: Por muchos agradecimientos 
Última Actividad 21.09.2026 07:20
Posts Posts: 883
Likes enviados Enviados: 418
Likes recibidos Recibidos: 492

También puedes, justo antes del CALL al subprograma, poner

Código COBOL:
  1. MOVE 0 TO "Visible" OF POW-SELF.

y la siguiente despues del CALL

Código COBOL:
  1. MOVE 0 TO "Visible" OF POW-SELF.

Te quedaría así:

Código COBOL:
  1.      MOVE 0 TO "Visible" OF POW-SELF.
  2.      INVOKE POW-SELF "CallForm" USING "F-WEBCAM" "M-WEBCAM".
  3.      MOVE 1 TO "Visible" OF POW-SELF.


Porque lo malo que tiene el método OpenForm, es poder controlar bien el foco del programa, se complica mucho el asunto.


Un saludo.-
Josber is offline   Responder Con Cita