Selection screen
1.
Vendor ID : ……………….. To…………………. (LFA1-LIFNR)
2.
Company Code: ……………….. To………………….. (LFB1-BUKRS)
Output Columns:
Sr No. |
Field |
Reference Table Field |
|
1 |
Sr. No |
Integer |
|
2 |
Vendor ID |
LFA1-LIFNR |
|
3 |
Vendor Name |
LFA1-NAME1 |
|
4 |
Company Code |
LFB1-BUKRS |
|
5 |
Address |
ADRC-STREET |
|
6 |
City |
ADRC-CITY |
|
7 |
Postal Code |
ADRC-POST_CODE1 |
|
8 |
Country |
T005T-LANDX50 |
|
9 |
State |
T005U-BEZEI |
|
10 |
Email1 |
ADR6-SMTP_ADDR |
|
11 |
Email2 |
ADR6SMTP_ADDR |
|
12 |
Mobile1 |
ADR2-TEL_NUMBER |
|
13 |
Mobile2 |
ADR2-TEL_NUMBER |
|
abap code
REPORT ZUD_VENDOR_MASTER_NEW_ABAP_SYN.
data : sd_lifnr type lfa1-lifnr,
sd_bukrs type lfb1-bukrs.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
select-OPTIONS : s_lifnr for SD_LIFNR,
s_bukrs for SD_BUKRS NO INTERVALS NO-EXTENSION.
SELECTION-SCREEN end of BLOCK b1.
START-OF-SELECTION.
PERFORM get_data.
end-of-SELECTION.
*&---------------------------------------------------------------------*
*& Form GET_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM GET_DATA .
select a~lifnr, a~name1, "from lfa1
b~bukrs, "lfb1
c~STREET, c~CITY1, c~POST_CODE1, "adrc
d~smtp_addr as email, "adr6
e~tel_number as mobile, "adr2
f~LANDX50 as country, "t005t
g~BEZEI as state "t005u
from lfa1 as a INNER JOIN lfb1 as b on a~lifnr = b~lifnr
left OUTER JOIN adrc as c on c~ADDRNUMBER = a~adrnr
left OUTER JOIN adr6 as d on d~ADDRNUMBER = a~adrnr
left OUTER JOIN adr2 as e on e~ADDRNUMBER = a~adrnr
left OUTER JOIN t005t as f on f~SPRAS = @sy-LANGU
and f~LAND1 = c~COUNTRY
left OUTER JOIN t005u as g on g~SPRAS = @sy-LANGU
and g~LAND1 = c~COUNTRY
and g~BLAND = c~REGION
into TABLE @data(gt_list)
WHERE a~lifnr in @S_LIFNR
and b~bukrs in @S_BUKRS.
sort gt_list by lifnr email mobile.
delete ADJACENT DUPLICATES FROM gt_list COMPARING lifnr.
CL_DEMO_OUTPUT=>display( gt_list ).
ENDFORM.
data : sd_lifnr type lfa1-lifnr,
sd_bukrs type lfb1-bukrs.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
select-OPTIONS : s_lifnr for SD_LIFNR,
s_bukrs for SD_BUKRS NO INTERVALS NO-EXTENSION.
SELECTION-SCREEN end of BLOCK b1.
START-OF-SELECTION.
PERFORM get_data.
end-of-SELECTION.
*&---------------------------------------------------------------------*
*& Form GET_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM GET_DATA .
select a~lifnr, a~name1, "from lfa1
b~bukrs, "lfb1
c~STREET, c~CITY1, c~POST_CODE1, "adrc
d~smtp_addr as email, "adr6
e~tel_number as mobile, "adr2
f~LANDX50 as country, "t005t
g~BEZEI as state "t005u
from lfa1 as a INNER JOIN lfb1 as b on a~lifnr = b~lifnr
left OUTER JOIN adrc as c on c~ADDRNUMBER = a~adrnr
left OUTER JOIN adr6 as d on d~ADDRNUMBER = a~adrnr
left OUTER JOIN adr2 as e on e~ADDRNUMBER = a~adrnr
left OUTER JOIN t005t as f on f~SPRAS = @sy-LANGU
and f~LAND1 = c~COUNTRY
left OUTER JOIN t005u as g on g~SPRAS = @sy-LANGU
and g~LAND1 = c~COUNTRY
and g~BLAND = c~REGION
into TABLE @data(gt_list)
WHERE a~lifnr in @S_LIFNR
and b~bukrs in @S_BUKRS.
sort gt_list by lifnr email mobile.
delete ADJACENT DUPLICATES FROM gt_list COMPARING lifnr.
CL_DEMO_OUTPUT=>display( gt_list ).
ENDFORM.
0 Comments