Ampliacion IWO10027, normas de liquidaci{on

Colapsar
X
 
  • Tiempo
  • Mostrar
Limpiar Todo
nuevos mensajes
  • Consultor Oscuro
    Member
    • jun
    • 42

    #1

    Ampliacion IWO10027, normas de liquidaci{on

    Hola a todos.

    Estoy tratando de implmentar un user-exit para poder crear normas de liquidacion automaticamente. Estoy implementando el user-exit IWO10027, sin embargo no logro que me aparezca informacion alguna en la pantalla de norma de liquidacion, el codigo que estoy utilizando es el siguiente:

    DATA: w_bsvx TYPE bsvx-sttxt .
    DATA: w_urzuo TYPE COBRB-URZUO .

    CALL FUNCTION 'STATUS_TEXT_EDIT'
    EXPORTING
    client = sy-mandt
    flg_user_stat = 'X'
    objnr = caufvd_imp-objnr
    only_active = 'X'
    spras = sy-langu
    * BYPASS_BUFFER = ' '
    IMPORTING
    * ANW_STAT_EXISTING =
    * E_STSMA =
    * LINE =
    user_line = w_bsvx
    * STONR =
    EXCEPTIONS
    object_not_found = 1
    OTHERS = 2 .
    .
    IF sy-subrc <> 0.

    * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.

    SELECT single urzuo FROM COBRB INTO w_urzuo WHERE
    OBJNR = caufvd_imp-objnr .

    FIND REGEX 'PROV' IN w_bsvx.

    IF sy-subrc = 0 .
    CASE w_urzuo .
    WHEN 'ZMO'.
    PMDFU_TAB-KONTY = 'CEC'.
    PMDFU_TAB-FDIND = 'PMDFU_TAB' .
    WHEN 'ZMA'.
    PMDFU_TAB-KONTY = 'CTM'.
    PMDFU_TAB-FDIND = 'PROV_MAT' .
    WHEN 'ZSE' .
    PMDFU_TAB-KONTY = 'CEC'.
    PMDFU_TAB-FDIND = 'PROV_SER' .
    ENDCASE.

    PMDFU_TAB-PROZS = '100'.
    PMDFU_TAB-PERBZ = 'PER'.
    * append pmdfu_tab.


    PMDFU_TAB-KONTY = 'CEC'.
    PMDFU_TAB-FDIND = 'PMDFU_TAB' .
    * PMDFU_TAB-FDIND = 'A100 '.
    PMDFU_TAB-PERBZ = 'PER'.
    PMDFU_TAB-PROZS = '100'.
    append pmdfu_tab.

    else .
    ...
    ENDIF.
Trabajando...