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