Deriving Customer Code

Former Member — Wed, 07 Feb 2007 04:56:05 GMT

Hi Experts,

Is the way right for which I am deriving the customer code.

Proj table is enhanced to store customer code.

LOOP AT IT_tab.

CALL FUNCTION 'CONVERSION_EXIT_ABPSP_INPUT'

EXPORTING

INPUT = IT_tab-PRCODE

IMPORTING

OUTPUT = OPSPNR

EXCEPTIONS

NOT_FOUND = 1

OTHERS = 2.

CLEAR PRPS.

SELECT SINGLE * FROM PRPS WHERE PSPNR = OPSPNR.

IF SY-SUBRC = 0.

CLEAR PROJ.

SELECT SINGLE * FROM PROJ WHERE PSPNR = PRPS-PSPHI.

IF SY-SUBRC = 0.

CUST = PROJ-ZZKUNNR.

ENDIF.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

INPUT = CUST

IMPORTING

OUTPUT = CUST.

TTCUST_EAT = CUST.

***

endloop.

Re: Deriving Customer Code

andreas_mann3 — Wed, 07 Feb 2007 07:09:38 GMT

hi,

seems to be ok.

You have append table proj with field zzkunnr