Ver Mensaje Individual
  #1
Antiguo 29 de abril de 2020, 16:58
DIEGO
Acabo de llegar...
Última Actividad 20.05.2020 00:57
Posts Posts: 2
GUI Algunas instruccion en CobolWOW
0 Inactivo Inactivo

Borra todo de combo1:
Código COBOL:
  1.     CALL WOWCLEAR USING WIN-RETURN COMBO1
agrega REG-AUX a combo1:
Código COBOL:
  1. CALL WOWADDITEM USING WIN-RETURN COMBO1-H REG-AUX
combo1 visible:
Código COBOL:
  1.     CALL WOWSETPROP USING WIN-RETURN COMBO1 "Visible" 1.
combo3 invisible:
Código COBOL:
  1.     CALL WOWSETPROP USING WIN-RETURN COMBO3 "Visible" 0.
cerrar programa:
Código COBOL:
  1.     SET WOW-QUIT TO TRUE.
obtiene el dato de combo4 y lo guarda en reg-aux4
Código COBOL:
  1.             CALL WOWGETPROP USING WIN-RETURN COMBO4 "SelText" REG-AUX4.
obtiene el dato de EDIT-CODIGO y lo guarda en M-OPERARIO
Código COBOL:
  1.            CALL WOWGETPROP USING WIN-RETURN EDIT-CODIGO "Text" M-OPERARIO.
pone CODI-AUX en el edit-box CUENTA-DESDE
Código COBOL:
  1.             CALL WOWSETPROP USING WIN-RETURN CUENTA-DESDE "Text" CODI-AUX
pone GEN005-NOMB en STATIC-USUARIO (label)
Código COBOL:
  1.     CALL WOWSETPROP USING WIN-RETURN
  2.     STATIC-USUARIO "Caption" GEN005-NOMB
DIEGO is offline   Responder Con Cita