#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. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|