Question from AbapHelp on Apr 10 at 4:30 AM Hi Gurus,
I am new to ABAP. I have got task to write a report in attached format. Basic requirement is as below.
We have some articles as SIS (shop in shop) category. Management wants automated GRN to be punched based on previous days uploaded sales. There is an open PO concept in which these articles already included with higher QTY. The same is gets closed at EOM. I want to write a report which fetch latest Open PO for previous day sold articles(this is where I stuck). I attached sample file & my written code FYR.
Please help me in this regards. Even if you have any similar reports code please share. Really hoping to get help.
Desired Output:
PO NUMBER ITEM NUMBER DOC DATE POSTING DATE MATERIAL PLANT ENTRT QTY REF DOC NO HEADER TEXT USER NAME FILENAME
9200053028 80 01.03.2017 15.03.2017 650026370 8105 3 22388 30744 NBBASIS 20170315_0700
9200053130 60 15.03.2017 15.03.2017 650031887 8105 8 AGF/15222/16-17 30743 NBBASIS 20170315_0700
9200053130 70 15.03.2017 15.03.2017 650031885 8105 8 AGF/15222/16-17 30743 NBBASIS 20170315_0700
9200052044 10 11.03.2017 15.03.2017 650039298 8105 30 E0019 30742 NBBASIS 20170315_0700
*&---*
*& Report ZTEST_SALESTOGRN
*&
*&---*
*&
*&
*&---*
REPORT ZTEST_SALESTOGRN.
TABLES: MARC, WRF1, T001W, VBRK, VBRP.
TYPES: BEGIN OF TY_T001W,
WERKS TYPE T001W-WERKS,
KUNNR TYPE T001W-KUNNR,
END OF TY_T001W,
BEGIN OF TY_WRF1,
LOCNR TYPE WRF1-LOCNR,
END OF TY_WRF1,
BEGIN OF TY_MARC,
WERKS TYPE MARC-WERKS,
MATNR TYPE MARC-MATNR,
STAWN TYPE MARC-STAWN,
END OF TY_MARC,
BEGIN OF TY_VBRK,
FKART TYPE VBRK-FKART,
FKDAT TYPE VBRK-FKDAT,
VKORG TYPE VBRK-VKORG,
VBELN TYPE VBRK-VBELN,
BELNR TYPE VBRK-BELNR,
END OF TY_VBRK,
BEGIN OF TY_VBRP,
VBELN TYPE VBRP-VBELN,
POSNR TYPE VBRP-POSNR,
MATNR TYPE VBRP-MATNR,
WERKS TYPE VBRP-WERKS,
FKIMG TYPE VBRP-FKIMG,
NETWR TYPE VBRP-NETWR,
END OF TY_VBRP,
BEGIN OF TY_EKKO,
EBELN TYPE EKKO-EBELN,
BUKRS TYPE EKKO-BUKRS,
BSTYP TYPE EKKO-BSTYP,
BSART TYPE EKKO-BSART,
END OF TY_EKKO,
BEGIN OF TY_EKPO,
EBELN TYPE EKPO-EBELN,
EBELP TYPE EKPO-EBELP,
MATNR TYPE EKPO-MATNR,
WERKS TYPE EKPO-WERKS,
BUKRS TYPE EKPO-BUKRS,
MENGE TYPE EKPO-MENGE,
END OF TY_EKPO,
BEGIN OF TY_FINAL,
EBELN TYPE EKPO-EBELN,
EBELP TYPE EKPO-EBELP,
FKDAT TYPE VBRK-FKDAT,
FKDAT1 TYPE VBRK-FKDAT,
MATNR TYPE VBRP-MATNR,
WERKS TYPE VBRP-WERKS,
FKIMG TYPE VBRP-FKIMG,
REFDOC(20) TYPE C,
HDRTXT(20) TYPE C,
USERNAME(20) TYPE C,
FILENAME(30) TYPE C,
END OF TY_FINAL.
DATA : IT_MARC TYPE STANDARD TABLE OF TY_MARC,
WA_MARC TYPE TY_MARC,
IT_VBRK TYPE STANDARD TABLE OF TY_VBRK,
WA_VBRK TYPE TY_VBRK,
IT_VBRP TYPE STANDARD TABLE OF TY_VBRP,
WA_VBRP TYPE TY_VBRP,
IT_VBRP1 TYPE STANDARD TABLE OF TY_VBRP,
WA_VBRP1 TYPE TY_VBRP,
IT_EKKO TYPE STANDARD TABLE OF TY_EKKO,
WA_EKKO TYPE TY_EKKO,
IT_EKPO TYPE STANDARD TABLE OF TY_EKPO,
WA_EKPO TYPE TY_EKPO,
IT_WRF1 TYPE STANDARD TABLE OF TY_WRF1,
WA_WRF1 TYPE TY_WRF1,
IT_T001W TYPE STANDARD TABLE OF TY_T001W,
WA_T001W TYPE TY_T001W,
IT_FINAL TYPE STANDARD TABLE OF TY_FINAL,
WA_FINAL TYPE TY_FINAL.
DATA : BEGIN OF ITAB OCCURS 0 ,
EBELN TYPE EKKO-EBELN , " PO NO
EBELP TYPE EKPO-EBELP , " PO NO
WERKS TYPE EKPO-WERKS , " SITE
MATNR TYPE MARA-MATNR , " ARTICLE
MAKTX TYPE MAKT-MAKTX , " Article Name
LIFNR TYPE EKKO-LIFNR , " Vendor
NAME1 TYPE LFA1-NAME1 , " Vendor Name
** AEDAT TYPE EKKO-AEDAT , " Latest Date of PO
BEDAT TYPE EKKO-BEDAT , " Latest Date of PO
END OF ITAB .
DATA : TAB LIKE STANDARD TABLE OF ITAB WITH HEADER LINE .
DATA : WA_TAB LIKE LINE OF ITAB .
RANGES RTAB FOR VBRP-WERKS.
SELECT-OPTIONS : S_MATNR FOR MARC-MATNR,
S_WERKS FOR VBRP-WERKS.
INITIALIZATION.
S_MATNR-LOW = '600000000'.
S_MATNR-HIGH = '699999999'.
S_MATNR-SIGN = 'I'.
S_MATNR-OPTION = 'BT'.
*
S_WERKS-LOW = '8100'.
S_WERKS-HIGH = '8999'.
S_WERKS-SIGN = 'I'.
S_WERKS-OPTION = 'BT'.
DATA : DATE TYPE vbrk-fkdat.
DATE = '20160801'. "sy-datum - 1.
"VBRK-FKDAT = '20160801'.
START-OF-SELECTION.
PERFORM GETDATA.
*&---*
*& Form GETDATA
*&---*
* text
*---*
* --> p1 text
* <-- p2 text
*---*
form GETDATA .
BREAK-POINT.
*SELECT WERKS KUNNR FROM T001W
* INTO CORRESPONDING FIELDS OF TABLE IT_T001W.
*
*SELECT LOCNR FROM WRF1
* INTO CORRESPONDING FIELDS OF TABLE IT_WRF1
* FOR ALL ENTRIES IN IT_T001W
* WHERE LOCNR = IT_T001W-KUNNR
* AND SPGR1 NE '01'.
SELECT * FROM VBRK
INTO CORRESPONDING FIELDS OF TABLE IT_VBRK
WHERE FKDAT = DATE.
IF IT_VBRK[] IS INITIAL.
STOP.
ENDIF.
SELECT * INTO CORRESPONDING FIELDS OF TABLE IT_VBRP
FROM VBRP
FOR ALL ENTRIES IN IT_VBRK
WHERE VBELN = IT_VBRK-VBELN
AND WERKS IN S_WERKS.
IF IT_VBRP[] IS NOT INITIAL.
SORT IT_VBRP BY VBELN WERKS.
IT_VBRP1[] = IT_VBRP[] .
DELETE ADJACENT DUPLICATES FROM IT_VBRP1[] COMPARING WERKS.
ENDIF.
LOOP AT IT_VBRP1 INTO WA_VBRP1.
RTAB-LOW = WA_VBRP1-WERKS.
RTAB-SIGN = 'I'.
RTAB-OPTION = 'EQ'.
APPEND RTAB.
ENDLOOP.
IF RTAB[] IS NOT INITIAL.
SORT RTAB. "BY WERKS.
DELETE ADJACENT DUPLICATES FROM RTAB." COMPARING WERKS.
ENDIF.
SELECT * INTO CORRESPONDING FIELDS OF TABLE IT_MARC
FROM MARC
WHERE STAWN = '2'
AND MATNR IN S_MATNR
AND WERKS IN RTAB.
IF IT_MARC[] IS NOT INITIAL.
SORT IT_MARC[] BY WERKS MATNR.
ENDIF.
SELECT MATNR WERKS EBELN EBELP LIFNR BEDAT FROM ZZM_MEKKM "View with EKKO & EKPO fields.
INTO CORRESPONDING FIELDS OF TABLE TAB
FOR ALL ENTRIES IN IT_MARC
WHERE MATNR = IT_MARC-MATNR AND LOEKZ = SPACE AND BUKRS = '8000' "BUKRS'
AND WERKS = IT_MARC-WERKS.
"AND BEDAT IN S_BEDAT.
IF SY-SUBRC EQ 0 .
SORT TAB BY WERKS MATNR BEDAT DESCENDING.
DELETE ADJACENT DUPLICATES FROM TAB COMPARING WERKS MATNR.
ENDIF.
endform. " GETDATA
| Reply to this email to post your response. __.____._ |   _.____.__ |
