Funcion para ejecutar una aplicacion win32 por medio de sap, se pueden pasar parametros a la funcion por medio del COMMANDLINE.


*&---------------------------------------------------------------------*
*& Form EJECUTA_EXE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*

* FORM EJECUTA_EXE। CALL FUNCTION 'WS_EXECUTE' EXPORTING * DOCUMENT = ' ' * CD = ' ' * COMMANDLINE = ' ' * INFORM = ' ' PROGRAM = 'CALC।EXE' * EXCEPTIONS FRONTEND_ERROR = 1 NO_BATCH = 2 PROG_NOT_FOUND = 3 ILLEGAL_OPTION = 4 GUI_REFUSE_EXECUTE = 5 OTHERS = 6.
IF sy-subrc <> 0.

TEXT-01 = 'EL ARCHIVO NO PUEDE SER GENERADO'.
CASE sy-subrc.
WHEN 1.
TEXT-02 = 'ERROR DE EJECUCION DE SAM'.
perform f_mensaje_informa using text-01 text-02.
WHEN 2.
TEXT-02 = 'NO EJECUCION EN SAM'.
perform f_mensaje_informa using text-01 text-02.
WHEN 3.
TEXT-02 = 'PROGRAMA "SAM" A EJECUTAR NO ENCONTRADO'.
perform f_mensaje_informa using text-01 text-02.
WHEN 4.
TEXT-02 = 'OPCION NO APMITIDA PARA EJECUCION EN SAM'.
perform f_mensaje_informa using text-01 text-02.
WHEN 5.
TEXT-02 = 'EJECUCION RECHAZADA EN SAP'.
perform f_mensaje_informa using text-01 text-02.
WHEN 6.
TEXT-02 = 'ERROR DESCONOCIDO'.
perform f_mensaje_informa using text-01 text-02.
ENDCASE.
ENDIF.
ENDFORM. " EJECUTA_EXE

*&---------------------------------------------------------------------*
*& Form F_MENSAJE_INFORMA
*&---------------------------------------------------------------------*
FORM F_MENSAJE_INFORMA USING P_TEXT_01
P_TEXT_02.
CALL FUNCTION 'POPUP_TO_INFORM'
EXPORTING
TXT1 = P_TEXT_01
TXT2 = P_TEXT_02
TITEL = 'WARNING Ventana informativa!!!!'.
ENDFORM. " F_MENSAJE_INFORMA