REPORT zvendorperformancereport LINE-SIZE 150 MESSAGE-ID 8i.
TABLES: lfa1, lfm1, j_1inewjcode.
*STRUCTURES
DATA: BEGIN OF wa_lfm1,
lifnr LIKE lfm1-lifnr,
ekorg LIKE lfm1-ekorg.
DATA: END OF wa_lfm1.
DATA: BEGIN OF wa_lfa1,
lifnr LIKE lfa1-lifnr,
txjcd LIKE lfa1-txjcd,
adrnr LIKE lfa1-adrnr .
DATA: END OF wa_lfa1.
DATA: BEGIN OF wa_lfb1,
lifnr LIKE lfa1-lifnr,
bukrs LIKE t001-bukrs.
DATA: END OF wa_lfb1.
DATA: it_lfa1 LIKE wa_lfa1 OCCURS 10 WITH HEADER LINE,
it_lfm1 LIKE wa_lfm1 OCCURS 10 WITH HEADER LINE.
DATA jcode LIKE j_1inewjcode-txjcd.
DATA count TYPE i.
DATA: new_lfa1 LIKE wa_lfa1 OCCURS 0 WITH HEADER LINE.
DATA : it_adrc LIKE adrc OCCURS 10 WITH HEADER LINE.
DATA : bukrs LIKE t001-bukrs, porg LIKE t024e-ekorg.
DATA: it_lfb1 LIKE wa_lfb1 OCCURS 10 WITH HEADER LINE.
SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME TITLE text-001.
PARAMETERS:
p_bukrs LIKE t001-bukrs OBLIGATORY,
p_ekorg LIKE t024e-ekorg OBLIGATORY MEMORY ID buk.
SELECTION-SCREEN END OF BLOCK block1.
SELECTION-SCREEN BEGIN OF BLOCK block2 WITH FRAME TITLE text-002.
SELECT-OPTIONS: p_lifnr FOR lfm1-lifnr.
SELECTION-SCREEN END OF BLOCK block2.
PARAMETERS: test AS CHECKBOX DEFAULT 'X'.
AT SELECTION-SCREEN ON p_bukrs.
SELECT SINGLE j_1ibukrs FROM j_1iindcus
INTO bukrs
WHERE j_1ibukrs = p_bukrs.
IF sy-subrc <> 0.
MESSAGE e128(8i).
ENDIF.
AT SELECTION-SCREEN ON p_ekorg.
SELECT SINGLE ekorg INTO porg FROM t024e
WHERE ekorg = p_ekorg
AND bukrs = bukrs.
IF sy-subrc NE 0 .
MESSAGE e015(me) WITH p_ekorg space.
ENDIF .
*-------header print.
TOP-OF-PAGE.
NEW-LINE NO-SCROLLING.
FORMAT COLOR COL_HEADING INTENSIFIED ON.
WRITE : / ,
05 'Vendor', "#EC NOTEXT
22 'New Jud Code'." 38 'Old Jud code'.
FORMAT COLOR OFF.
NEW-LINE SCROLLING.
START-OF-SELECTION.
SELECT SINGLE txjcd FROM j_1inewjcode
INTO jcode
WHERE aland = 'IN'.
IF sy-subrc <> 0.
MESSAGE e000(8i) WITH 'Jur code not defined in Table J_1INEWJCODE'.
ENDIF.
SELECT lifnr bukrs FROM lfb1 INTO TABLE it_lfb1
WHERE
lifnr IN p_lifnr
AND bukrs = p_bukrs.
IF sy-subrc <> 0.
MESSAGE e000(8i) WITH 'No vendors defined for company code'.
ENDIF.
SELECT lifnr ekorg FROM lfm1 INTO TABLE it_lfm1
FOR ALL ENTRIES IN it_lfb1[]
WHERE lifnr = it_lfb1-lifnr
AND ekorg = p_ekorg.
IF sy-subrc <> 0.
MESSAGE e000(8i) WITH 'No Vendors defined for purchasing organization '.
ENDIF.
SELECT lifnr txjcd adrnr FROM lfa1 INTO TABLE it_lfa1
FOR ALL ENTRIES IN it_lfm1[]
WHERE lifnr = it_lfm1-lifnr.
SORT it_lfa1 BY txjcd.
DELETE it_lfa1[] WHERE txjcd = space.
SELECT * FROM adrc INTO TABLE it_adrc FOR ALL ENTRIES IN it_lfa1
WHERE addrnumber = it_lfa1-adrnr.
CLEAR count.
LOOP AT it_lfa1.
IF test <> 'X'.
UPDATE lfa1 SET txjcd = jcode
WHERE lifnr = it_lfa1-lifnr.
ENDIF.
count = count + 1.
WRITE : / , 5 it_lfa1-lifnr, 25 jcode.
ENDLOOP.
LOOP AT it_adrc.
IF test <> 'X'.
UPDATE adrc SET taxjurcode = jcode
WHERE addrnumber = it_adrc-addrnumber.
ENDIF.
ENDLOOP.
IF test <> 'X'.
WRITE : / 'The No of Vendor Master updated with new Jur Code is:',
count.
ENDIF.
regards,
srinivas
<b>*reward for useful answers*</b>
Bluesky
