User exit for Source determination LMEQR001 : EXIT_SAPLMEQR_001

[Former Member]

Hi Pals,

As any one used this user exit for source determination?

If yes can any one please pass the sample source code because

i tried with all the available Table and export parameters of FM: EXIT_SAPLMEQR_001,

nothing is working.

and as well SAP has not given any sample code for this enhancement in 4.6c system

Thanks,

Veeru.

[Former Member]

Solved it ...

[Former Member]

Hi

We have used this for creating contract as the only source list if contract exists and there are multiple PIR's

DATA: lv_count TYPE i,

lv_count_PIR TYPE i,

lv_lines TYPE i,

lv_tcode TYPE sy-tcode.

"Initialize variables.

lv_lines = 1.

lv_count = 0.

lv_count_pir = 0.

lv_tcode = ''.

IF i_banfn IS NOT INITIAL AND

i_bnfpo IS NOT INITIAL.

LOOP AT t_sources.

IF t_sources-ebeln <> SPACE AND

t_sources-infnr = space.

lv_count = lv_count + 1.

ELSEIF t_sources-ebeln = space AND

t_sources-infnr <> space.

lv_count_pir = lv_count_pir + 1.

ENDIF.

ENDLOOP.

*If source is a single contract delete all PIRs.

IF lv_count = 1.

DELETE t_sources WHERE ebeln = space

AND infnr <> space.

*If Source is multiple contracts

*delete all Contracts and PIRs.

ELSEIF lv_count > 1.

CLEAR: t_sources, t_sources[].

*If source in not from contracts consider PIRs

ELSEIF lv_count = 0.

*If source from more than one PIR's, delete all PIR's.

IF lv_count_pir > 1.

DELETE t_sources WHERE ebeln = space

AND infnr <> space.

ENDIF.

ENDIF.

ENDIF.

Thanks & Regards

Kishore

[Former Member]

Hi Kishore,

Thanks for the response with the source code.

I have already solved the issue. the problem was actually we

are in the 4.6c and there were some SAP Code errors

which i corrected using the following notes : 0000480287 &

0000496221.

Thanks for the reply again.

Thanks,

Veeru.