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