- SAP Managed Tags
Hi Ri Zaldy ,
Why you need to use if statement... Delete data from internal table which are having
Reversal movement type.
Try like this
MSEG Table
You need not required 102 means Reversal movement type.
Code :
TABLES : mseg.
TYPES : BEGIN OF ty_mseg,
mblnr TYPE mseg-mblnr, " Number of Material Document
mjahr TYPE mseg-mjahr, " Material Document Year
zeile TYPE mseg-zeile, " Item in Material Document
bwart TYPE mseg-bwart, " Movement Type (Inventory Management)
END OF ty_mseg,
BEGIN OF ty_t156,
bwart TYPE t156-bwart, " Movement Type (Inventory Management)
xstbw TYPE t156-xstbw, " Reversal movement type
END OF ty_t156.
DATA : it_mseg TYPE TABLE OF ty_mseg,
it_t156 TYPE TABLE OF ty_t156,
wa_mseg TYPE ty_mseg,
wa_t156 TYPE ty_t156.
SELECT-OPTIONS : s_mblnr FOR mseg-mblnr,
s_mjahr FOR mseg-mjahr.
START-OF-SELECTION.
SELECT mblnr
mjahr
zeile
bwart
FROM mseg INTO TABLE it_mseg
WHERE mblnr IN s_mblnr
AND mjahr IN s_mjahr.
IF it_mseg IS NOT INITIAL.
SELECT bwart
xstbw
FROM t156 INTO TABLE it_t156
FOR ALL ENTRIES IN it_mseg
WHERE bwart = it_mseg-bwart
and xstbw ne 'X'.
SORT it_mseg BY mblnr mjahr.
SORT it_t156 BY bwart.
LOOP AT it_mseg INTO wa_mseg.
READ TABLE it_t156 INTO wa_t156 WITH KEY bwart = wa_mseg-bwart BINARY SEARCH.
IF sy-subrc NE 0.
DELETE it_mseg.
ENDIF.
ENDLOOP.
ENDIF.
CLEAR wa_mseg.
LOOP AT it_mseg INTO wa_mseg.
WRITE : / wa_mseg-mblnr,
wa_mseg-mjahr,
wa_mseg-zeile,
wa_mseg-bwart.
CLEAR wa_mseg.
ENDLOOP.
Input
Output
I think this will solves your problem.....
- SAP Managed Tags
Hello Ri Zaldy ,
Every MOVEMENT type has got its REVERSE also , this for Reversing the Goods Movement Done.
So ,
You need to do Calculation based on this ,
Say a Material Document ( 560000001 ) for a Material X is made with BWART 561 and a Reverse Material Document Document ( 560000002 ) for that Same Material is made with BWART 562 , then Remaining Qty 560000001-MENGE - 560000002-MENGE.
So you need to know all the Relevant Pairs of Movement Type along with its Reversal Types .
See the Below eg : code
IF WA_MSEG-BWART EQ '131'. " production
WA_FINAL-PRODMENGE = WA_FINAL-PRODMENGE + WA_MSEG-MENGE.
WA_FINAL-PRODWERT = WA_FINAL-PRODWERT + WA_MSEG-DMBTR.
MENGE_FLAG03 = MENGE_FLAG03 + WA_MSEG-MENGE.
ELSEIF WA_MSEG-BWART EQ '132'.
WA_FINAL-PRODMENGE = WA_FINAL-PRODMENGE - WA_MSEG-MENGE.
WA_FINAL-PRODWERT = WA_FINAL-PRODWERT - WA_MSEG-DMBTR.
MENGE_FLAG03 = MENGE_FLAG03 - WA_MSEG-MENGE.
ENDIF.
- SAP Managed Tags
No No ,
That's a particular case.
Each movement type has their OWN Purpose .
Say for Eg. 561 for Initial Upload ( 562 for reversing any Initial Upload )
similarly 131 for Production ( 132 for Reversing Production )
and the list goes on ...
Better Ask your Functional Consultant ( MM ) for further clarification on Movement types with their individual Reversal Movement types.
- SAP Managed Tags
IF WA_MSEG-BWART EQ '131'. " production
WA_FINAL-PRODMENGE = WA_FINAL-PRODMENGE + WA_MSEG-MENGE.
WA_FINAL-PRODWERT = WA_FINAL-PRODWERT + WA_MSEG-DMBTR.
MENGE_FLAG03 = MENGE_FLAG03 + WA_MSEG-MENGE.
ELSEIF WA_MSEG-BWART EQ '132'.
WA_FINAL-PRODMENGE = WA_FINAL-PRODMENGE - WA_MSEG-MENGE.
WA_FINAL-PRODWERT = WA_FINAL-PRODWERT - WA_MSEG-DMBTR.
MENGE_FLAG03 = MENGE_FLAG03 - WA_MSEG-MENGE.
ENDIF.
This is a piece of Code from a ZREPORT present in my system , to clarify you with the Logic.
In the above report a Set of Material Documents is fetched based on Selections Provided and later they are segregated for Each Material.
Say a Material has following MATERIAL DOCUMENTS :
MBLNR MATNR BWART MENGE UOM
500001 XYZ 131 30 KG
500002 XYZ 131 40 KG
500003 XYZ 131 50 KG
500004 XYZ 132 50 KG
Now according the Code pasted you can see,
If BWART = 131 ,
Then , field WA_FINAL-PRODMENGE will be added with Corresponding MENGE
else if BWART = 132 ( reverse of 131 )
Then , field WA_FINAL-PRODMENGE will be subtracted with Corresponding MENGE.
So in the End after whole processing you will get Quantity for Material XYZ as
70 Kgs ( 30 + 40 + 50 - 50 )
So a similar type Logic need to written for your requirement .
- SAP Managed Tags
Hi
* global alv data declarations
TYPE-POOLS: slis.
* Internal Tables
DATA: BEGIN OF itab OCCURS 0,
matnr TYPE mseg-matnr,
maktx TYPE makt-maktx,
bwart TYPE mseg-bwart,
lgort TYPE mseg-lgort,
werks TYPE mseg-werks,
bwtar TYPE mseg-bwtar,
menge TYPE mseg-menge,
meins TYPE mseg-meins,
kostl TYPE mseg-kostl,
budat TYPE mkpf-budat,
mblnr TYPE mkpf-mblnr,
ltext TYPE cskt-ltext,
END OF itab.
DATA: BEGIN OF wa_itab,
matnr TYPE mseg-matnr,
maktx TYPE makt-maktx,
bwart TYPE mseg-bwart,
lgort TYPE mseg-lgort,
werks TYPE mseg-werks,
bwtar TYPE mseg-bwtar,
menge TYPE mseg-menge,
meins TYPE mseg-meins,
kostl TYPE mseg-kostl,
budat TYPE mkpf-budat,
mblnr TYPE mkpf-mblnr,
ltext TYPE cskt-ltext,
END OF wa_itab.
TYPES : BEGIN OF ty_t156,
bwart TYPE t156-bwart, " Movement Type (Inventory Management)
xstbw TYPE t156-xstbw, " Reversal movement type
END OF ty_t156.
DATA : it_t156 TYPE TABLE OF ty_t156,
wa_t156 TYPE ty_t156.
DATA: it_mseg TYPE TABLE OF mseg,
wa_mseg TYPE STANDARD TABLE OF mseg WITH HEADER LINE,
it_mkpf TYPE TABLE OF mkpf,
wa_mkpf TYPE STANDARD TABLE OF mkpf WITH HEADER LINE,
it_cskt TYPE TABLE OF cskt,
wa_cskt TYPE STANDARD TABLE OF cskt WITH HEADER LINE.
INITIALIZATION.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS : s_matnr FOR wa_mseg-matnr.
SELECT-OPTIONS : s_bwart FOR wa_mseg-bwart.
SELECT-OPTIONS : s_budat FOR wa_mkpf-budat.
SELECTION-SCREEN END OF BLOCK b1.
START-OF-SELECTION.
PERFORM get_data.
PERFORM call_alv.
*********************************************************************
* Form GET_DATA
*********************************************************************
FORM get_data.
SELECT mseg~matnr makt~maktx mkpf~budat mkpf~mblnr cskt~ltext
mseg~bwart
mseg~lgort
mseg~werks
mseg~bwtar
mseg~menge
mseg~meins
mseg~kostl
INTO CORRESPONDING FIELDS OF TABLE itab
FROM mseg
INNER JOIN makt ON mseg~matnr = makt~matnr
INNER JOIN mkpf ON mseg~mblnr = mkpf~mblnr
INNER JOIN cskt ON mseg~kostl = cskt~kostl
WHERE mseg~matnr IN s_matnr
AND mseg~bwart IN s_bwart
AND mkpf~budat IN s_budat
AND makt~spras = 'EN'
AND cskt~spras = 'EN'.
IF itab[] IS NOT INITIAL.
SELECT bwart
xstbw
FROM t156 INTO TABLE it_t156
FOR ALL ENTRIES IN itab
WHERE bwart = itab-bwart
AND xstbw NE 'X'.
SORT itab BY mblnr bwart.
SORT it_t156 BY bwart.
LOOP AT itab INTO wa_itab.
READ TABLE it_t156 INTO wa_t156 WITH KEY bwart = wa_itab-bwart BINARY SEARCH.
IF sy-subrc NE 0.
wa_itab-menge = wa_itab-menge * -1.
MODIFY itab FROM wa_itab.
ENDIF.
CLEAR : wa_itab, wa_t156.
ENDLOOP.
endif.
ENDFORM. "get_data
************************************************************************
* CALL_ALV
************************************************************************
FORM call_alv.
DATA: ifc TYPE slis_t_fieldcat_alv.
DATA: xfc TYPE slis_fieldcat_alv.
DATA: repid TYPE sy-repid.
repid = sy-repid.
CLEAR xfc. REFRESH ifc.
CLEAR xfc.
xfc-reptext_ddic = 'Material Number'.
xfc-fieldname = 'MATNR'.
xfc-tabname = 'ITAB'.
xfc-outputlen = '10'.
APPEND xfc TO ifc.
CLEAR xfc.
xfc-reptext_ddic = 'Material Description'.
xfc-fieldname = 'MAKTX'.
xfc-tabname = 'ITAB'.
xfc-outputlen = '40'.
APPEND xfc TO ifc.
CLEAR xfc.
xfc-reptext_ddic = 'Mov. Type'.
xfc-fieldname = 'BWART'.
xfc-tabname = 'ITAB'.
xfc-outputlen = '10'.
APPEND xfc TO ifc.
CLEAR xfc.
xfc-reptext_ddic = 'S. Loc'.
xfc-fieldname = 'LGORT'.
xfc-tabname = 'ITAB'.
xfc-outputlen = '8'.
APPEND xfc TO ifc.
CLEAR xfc.
xfc-reptext_ddic = 'Plant'.
xfc-fieldname = 'WERKS'.
xfc-tabname = 'ITAB'.
xfc-outputlen = '8'.
APPEND xfc TO ifc.
CLEAR xfc.
xfc-reptext_ddic = 'Val. Type'.
xfc-fieldname = 'BWTAR'.
xfc-tabname = 'ITAB'.
xfc-outputlen = '12'.
APPEND xfc TO ifc.
CLEAR xfc.
xfc-reptext_ddic = 'Qty'.
xfc-fieldname = 'MENGE'.
xfc-tabname = 'ITAB'.
xfc-outputlen = '8'.
APPEND xfc TO ifc.
CLEAR xfc.
xfc-reptext_ddic = 'UoM'.
xfc-fieldname = 'MEINS'.
xfc-tabname = 'ITAB'.
xfc-outputlen = '8'.
APPEND xfc TO ifc.
CLEAR xfc.
xfc-reptext_ddic = 'Cost Center'.
xfc-fieldname = 'KOSTL'.
xfc-tabname = 'ITAB'.
xfc-outputlen = '12'.
APPEND xfc TO ifc.
CLEAR xfc.
xfc-reptext_ddic = 'Pos. Date'.
xfc-fieldname = 'BUDAT'.
xfc-tabname = 'ITAB'.
xfc-outputlen = '10'.
APPEND xfc TO ifc.
CLEAR xfc.
xfc-reptext_ddic = 'Cost Center Description'.
xfc-fieldname = 'LTEXT'.
xfc-tabname = 'ITAB'.
xfc-outputlen = '20'.
APPEND xfc TO ifc.
CLEAR xfc.
xfc-reptext_ddic = 'Doc. Numb'.
xfc-fieldname = 'MBLNR'.
xfc-tabname = 'ITAB'.
xfc-outputlen = '10'.
APPEND xfc TO ifc.
* Call ABAP List Viewer (ALV)
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = repid
i_callback_user_command = 'HANDLE_USER_COMMAND'
it_fieldcat = ifc
TABLES
t_outtab = itab.
ENDFORM. "call_alv
***********************************************************************
* FORM handle_User_Command *
***********************************************************************
FORM handle_user_command USING r_ucomm LIKE sy-ucomm
rs_selfield TYPE slis_selfield.
CASE r_ucomm.
WHEN '&IC1'.
CASE rs_selfield-fieldname.
WHEN 'MATNR'.
SET PARAMETER ID 'MAT' FIELD rs_selfield-value.
CALL TRANSACTION 'MD04' AND SKIP FIRST SCREEN.
ENDCASE.
ENDCASE.
ENDFORM. "handle_user_command
Bluesky
