PDA

Ver la Versión Completa : Ampliacion IWO10027, normas de liquidaci{on


Consultor Oscuro
04/01/11, 20:08:09
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.