In this document ; Bill of material list report developed with alv concept to run all of materials which are listed by users. The most important trick is a solution of dublicate records in BOM tables so change number records.
For example : In belowed printscreen that you can see STPO table.
If you read STPO table without a restriction , you will get 2 rows for PY200005 Bom item material.
If you do not benefit change number functionality , you can join tables like belowed and it can be used to list BOMs.
But , change number functionality cause additional records in STPO and other related PP tables.
To solve this problem , you can benefit belowed alv report.
This report provides last record of changing component with change number.
Go to SE38 , add this code and list results.
*&---------------------------------------------------------------------*
*& Report ZPP_BILL_OF_MATERIAL
*&
*&---------------------------------------------------------------------*
*& M.Ozgur Unal ------ 04.11.2014
*& Ürün ağaçları listeleme raporudur.
*& özgü 🙂
*&---------------------------------------------------------------------*
REPORT ZPP_BILL_OF_MATERIAL.
TYPE-POOLS : slis.
CONSTANTS : c_tcode(4) TYPE c VALUE 'CS03'.
TABLES : mast , stko , stpo , stas , makt , mara .
*************************
* DATA TYPES DEFINITIONS*
*************************
DATA: BEGIN OF it_mast OCCURS 0 ,
matnr LIKE mast-matnr,
werks LIKE mast-werks,
stlan LIKE mast-stlan,
stlnr LIKE mast-stlnr,
stlal LIKE mast-stlal,
maktx LIKE makt-maktx,
matkl LIKE mara-matkl,
END OF it_mast.
DATA : BEGIN OF it_stko OCCURS 0,
stlnr LIKE stko-stlnr,
stlal LIKE stko-stlal,
datuv LIKE stko-datuv,
bmein LIKE stko-bmein,
bmeng LIKE stko-bmeng,
stlst LIKE stko-stlst,
END OF it_stko.
DATA : BEGIN OF it_stpo OCCURS 0,
stlnr LIKE stpo-stlnr,
stlkn LIKE stpo-stlkn,
datuv LIKE stpo-datuv,
idnrk LIKE stpo-idnrk,
meins LIKE stpo-meins,
menge LIKE stpo-menge,
aennr LIKE stpo-aennr,
andat LIKE stpo-andat,
annam LIKE stpo-annam,
aenam LIKE stpo-aenam,
posnr LIKE stpo-posnr,
maktx LIKE makt-maktx,
vgknt LIKE stpo-vgknt,
stvkn LIKE stpo-stvkn,
stpoz LIKE stpo-stpoz,
vgpzl LIKE stpo-vgpzl,
matkl LIKE mara-matkl,
END OF it_stpo.
DATA : BEGIN OF it_stas OCCURS 0,
stlnr LIKE stas-stlnr,
stlal LIKE stas-stlal,
stlkn LIKE stas-stlkn,
aennr LIKE stas-aennr,
lkenz LIKE stas-lkenz,
stvkn LIKE stas-stvkn,
END OF it_stas.
DATA : BEGIN OF it_final OCCURS 0,
matnr LIKE mast-matnr,
werks LIKE mast-werks,
stlan LIKE mast-stlan,
stlnr LIKE mast-stlnr,
stlal LIKE mast-stlal,
datuv LIKE stko-datuv,
bmein LIKE stko-bmein,
bmeng LIKE stko-bmeng,
idnrk LIKE stpo-idnrk,
posnr LIKE stpo-posnr,
meins LIKE stpo-meins,
menge LIKE stpo-menge,
maktx LIKE makt-maktx,
aennr LIKE stpo-aennr,
andat LIKE stpo-andat,
annam LIKE stpo-annam,
aenam LIKE stpo-aenam,
matkl LIKE mara-matkl,
stlst LIKE stko-stlst,
lkenz LIKE stas-lkenz,
maktx2 LIKE makt-maktx,
stvkn LIKE stas-stvkn,
vgknt LIKE stpo-vgknt,
stlkn LIKE stpo-stlkn,
stvkn2 LIKE stpo-stvkn,
stpoz LIKE stpo-stpoz,
vgpzl LIKE stpo-vgpzl,
matkl2 LIKE mara-matkl,
END OF it_final.
DATA : wa_mast LIKE LINE OF it_mast.
DATA : wa_stko LIKE LINE OF it_stko.
DATA : wa_stpo LIKE LINE OF it_stpo,
wa_stas LIKE LINE OF it_stas,
gw_final LIKE LINE OF it_final,
gw_final2 LIKE LINE OF it_final,
gt_fcat TYPE slis_t_fieldcat_alv,
gw_fcat TYPE slis_fieldcat_alv.
******************
*SELECTION SCREEN*
******************
SELECTION-SCREEN BEGIN OF BLOCK blk WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_matnr FOR mast-matnr,
s_matkl FOR mara-matkl.
PARAMETERS p_werks TYPE mast-werks OBLIGATORY DEFAULT 1006.
SELECTION-SCREEN END OF BLOCK blk.
*******************************
*GET DATA & INSERT TO GT_FINAL*
*******************************
PERFORM get_data.
PERFORM loop_data.
IF it_final[] IS NOT INITIAL.
PERFORM f_fill_fcat .
PERFORM f_display_alv .
ELSE .
MESSAGE 'Veri bulunamadı' TYPE 'I'.
ENDIF.
PERFORM plant_validation.
*&---------------------------------------------------------------------*
*& Form FETCH_DATA_RETREIVE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM get_data .
" break ounal.
SELECT mast~matnr mast~werks mast~stlan mast~stlnr mast~stlal
makt~maktx mara~matkl
INTO CORRESPONDING FIELDS OF TABLE it_mast
FROM mast
INNER JOIN makt
ON mast~matnr = makt~matnr
INNER JOIN mara
ON makt~matnr = mara~matnr
WHERE mast~matnr IN s_matnr
AND mast~werks = p_werks
AND mast~stlan = '1'
AND mara~matkl IN s_matkl.
IF LINES( it_mast ) GT 0.
SELECT stlnr stlal datuv bmein bmeng
aennr andat annam aenam stlst
FROM stko
INTO CORRESPONDING FIELDS OF TABLE it_stko
FOR ALL ENTRIES IN it_mast
WHERE stlnr = it_mast-stlnr AND
stlal = it_mast-stlal.
SORT it_stko BY datuv DESCENDING.
SELECT stlnr stlal stlkn lkenz aennr stvkn
FROM stas INTO CORRESPONDING FIELDS OF TABLE it_stas
FOR ALL ENTRIES IN it_mast
WHERE stlnr = it_mast-stlnr AND
stlal = it_mast-stlal.
SORT it_stas BY lkenz DESCENDING.
ENDIF.
*20.11.2014 - M.Ozgur Unal
*Üretim tarafından bileşenlerin mal grubu eklenmesi talebi ile
*revize edildi.
IF LINES( it_stko ) GT 0.
SELECT stpo~stlnr stpo~stlkn stpo~datuv stpo~idnrk
stpo~posnr stpo~meins stpo~menge stpo~aennr
stpo~andat stpo~annam stpo~aenam stpo~posnr
makt~maktx stpo~vgknt stpo~stvkn stpo~stpoz
stpo~vgpzl mara~matkl
FROM stpo
INNER JOIN makt
ON stpo~idnrk = makt~matnr
INNER JOIN mara
ON makt~matnr = mara~matnr
INTO CORRESPONDING FIELDS OF TABLE it_stpo
FOR ALL ENTRIES IN it_mast
WHERE stlnr = it_mast-stlnr.
ENDIF.
ENDFORM. " FETCH_DATA_RETREIVE
*&---------------------------------------------------------------------*
*& Form LOOP_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM loop_data .
REFRESH it_final.
LOOP AT it_mast INTO wa_mast.
LOOP AT it_stpo INTO wa_stpo WHERE stlnr = wa_mast-stlnr.
IF sy-subrc = 0.
MOVE: wa_mast-matnr TO gw_final-matnr,
wa_mast-stlnr TO gw_final-stlnr,
wa_mast-werks TO gw_final-werks,
wa_mast-stlal TO gw_final-stlal,
wa_mast-stlan TO gw_final-stlan,
wa_mast-matkl TO gw_final-matkl,
wa_mast-maktx TO gw_final-maktx2,
wa_stpo-matkl TO gw_final-matkl2,
wa_stpo-idnrk TO gw_final-idnrk,
wa_stpo-menge TO gw_final-menge,
wa_stpo-aennr TO gw_final-aennr,
wa_stpo-andat TO gw_final-andat,
wa_stpo-annam TO gw_final-annam,
wa_stpo-aenam TO gw_final-aenam,
wa_stpo-posnr TO gw_final-posnr,
wa_stpo-meins TO gw_final-meins,
wa_stpo-maktx TO gw_final-maktx,
wa_stpo-datuv TO gw_final-datuv,
wa_stpo-stlkn TO gw_final-stlkn,
wa_stpo-vgknt TO gw_final-vgknt,
wa_stpo-stvkn TO gw_final-stvkn2,
wa_stpo-stpoz TO gw_final-stpoz,
wa_stpo-vgpzl TO gw_final-vgpzl.
READ TABLE it_stko INTO wa_stko WITH KEY stlnr = wa_mast-stlnr
stlal = wa_mast-stlal.
IF sy-subrc = 0.
MOVE: wa_stko-stlst TO gw_final-stlst,
wa_stko-bmein TO gw_final-bmein,
wa_stko-bmeng TO gw_final-bmeng.
ENDIF.
ENDIF.
READ TABLE it_stas INTO wa_stas WITH KEY stlnr = wa_stpo-stlnr
" stlkn = wa_stpo-stlkn
stvkn = wa_stpo-stvkn.
MOVE: wa_stas-stvkn TO gw_final-stvkn,
wa_stas-lkenz TO gw_final-lkenz.
APPEND gw_final TO it_final.
CLEAR gw_final.
ENDLOOP.
ENDLOOP.
*add by ounal.
*Silinip yerine değişiklik no ile atama yapılan kalemlerin ürün
*ağaçlarında standart dışında eski düğüm ve eski sayaç no yu
*kullanarak atama yapıyoruz.
FIELD-SYMBOLS: <fs_it_final> LIKE LINE OF it_final,
<fs_it_final2> LIKE LINE OF it_final.
SORT it_final BY stlnr stlkn ASCENDING.
IF LINES( it_final ) NE 0.
LOOP AT it_final ASSIGNING <fs_it_final>.
LOOP AT it_final ASSIGNING <fs_it_final2>.
IF <fs_it_final> IS ASSIGNED.
IF <fs_it_final2> IS ASSIGNED.
IF <fs_it_final>-stlnr = <fs_it_final2>-stlnr AND
<fs_it_final>-stlkn = <fs_it_final2>-vgknt AND
<fs_it_final>-stpoz = <fs_it_final2>-vgpzl.
<fs_it_final>-idnrk = <fs_it_final2>-idnrk.
<fs_it_final>-menge = <fs_it_final2>-menge.
<fs_it_final>-aennr = <fs_it_final2>-aennr.
<fs_it_final>-matkl2 = <fs_it_final2>-matkl2.
<fs_it_final>-lkenz = ''.
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
ENDLOOP.
ENDIF.
ENDFORM. " LOOP_DATA
*&---------------------------------------------------------------------*
*& Form f_fill_fcat
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM f_fill_fcat .
gw_fcat-col_pos = 1.
gw_fcat-fieldname = 'WERKS'.
gw_fcat-tabname = 'IT_FINAL'.
gw_fcat-seltext_m = 'Üretim yeri'.
APPEND gw_fcat TO gt_fcat.
CLEAR gw_fcat.
gw_fcat-col_pos = 2.
gw_fcat-fieldname = 'STLNR'.
gw_fcat-tabname = 'IT_FINAL'.
gw_fcat-seltext_m = 'Ürün ağacı no.'.
APPEND gw_fcat TO gt_fcat.
CLEAR gw_fcat.
gw_fcat-col_pos = 3.
gw_fcat-fieldname = 'STLAL'.
gw_fcat-tabname = 'IT_FINAL'.
gw_fcat-seltext_m = 'Alternatif bom'.
* gw_fcat-do_sum = 'X'.
APPEND gw_fcat TO gt_fcat.
CLEAR gw_fcat.
gw_fcat-col_pos = 4.
gw_fcat-fieldname = 'MATNR'.
gw_fcat-tabname = 'IT_FINAL'.
gw_fcat-seltext_m = 'Malzeme No.'.
APPEND gw_fcat TO gt_fcat.
CLEAR gw_fcat.
gw_fcat-col_pos = 5.
gw_fcat-fieldname = 'MAKTX2'.
gw_fcat-tabname = 'IT_FINAL'.
gw_fcat-seltext_m = 'Kısa metin'.
APPEND gw_fcat TO gt_fcat.
CLEAR gw_fcat.
gw_fcat-col_pos = 6.
gw_fcat-fieldname = 'IDNRK'.
gw_fcat-tabname = 'IT_FINAL'.
gw_fcat-seltext_m = 'Bileşen'.
gw_fcat-outputlen = 10.
* gw_fcat-emphasize = 'X'.
* gw_fcat-key = 'X'.
APPEND gw_fcat TO gt_fcat.
CLEAR gw_fcat.
gw_fcat-col_pos = 7.
gw_fcat-fieldname = 'POSNR'.
gw_fcat-tabname = 'IT_FINAL'.
gw_fcat-seltext_m = 'Kalem no'.
APPEND gw_fcat TO gt_fcat.
CLEAR gw_fcat.
gw_fcat-col_pos = 8.
gw_fcat-fieldname = 'BMENG'.
gw_fcat-tabname = 'IT_FINAL'.
gw_fcat-seltext_m = 'Temel miktar'.
APPEND gw_fcat TO gt_fcat.
CLEAR gw_fcat.
gw_fcat-col_pos = 9.
gw_fcat-fieldname = 'MENGE'.
gw_fcat-tabname = 'IT_FINAL'.
gw_fcat-seltext_m = 'Bileşen miktarı'.
APPEND gw_fcat TO gt_fcat.
CLEAR gw_fcat.
gw_fcat-col_pos = 10.
gw_fcat-fieldname = 'AENAM'.
gw_fcat-tabname = 'IT_FINAL'.
gw_fcat-seltext_m = 'Değiştiren'.
APPEND gw_fcat TO gt_fcat.
CLEAR gw_fcat.
gw_fcat-col_pos = 11.
gw_fcat-fieldname = 'MATKL'.
gw_fcat-tabname = 'IT_FINAL'.
gw_fcat-seltext_m = 'Mal grubu'.
APPEND gw_fcat TO gt_fcat.
CLEAR gw_fcat.
gw_fcat-col_pos = 12.
gw_fcat-fieldname = 'AENNR'.
gw_fcat-tabname = 'IT_FINAL'.
gw_fcat-seltext_m = 'Değişiklik no'.
APPEND gw_fcat TO gt_fcat.
CLEAR gw_fcat.
gw_fcat-col_pos = 13.
gw_fcat-fieldname = 'ANDAT'.
gw_fcat-tabname = 'IT_FINAL'.
gw_fcat-seltext_m = 'Kayıt tarihi'.
APPEND gw_fcat TO gt_fcat.
CLEAR gw_fcat.
gw_fcat-col_pos = 14.
gw_fcat-fieldname = 'ANNAM'.
gw_fcat-tabname = 'IT_FINAL'.
gw_fcat-seltext_m = 'Kaydeden'.
APPEND gw_fcat TO gt_fcat.
CLEAR gw_fcat.
gw_fcat-col_pos = 15.
gw_fcat-fieldname = 'DATUV'.
gw_fcat-tabname = 'IT_FINAL'.
gw_fcat-seltext_m = 'Geçerlilik başı'.
APPEND gw_fcat TO gt_fcat.
CLEAR gw_fcat.
gw_fcat-col_pos = 16.
gw_fcat-fieldname = 'STLST'.
gw_fcat-tabname = 'IT_FINAL'.
gw_fcat-seltext_m = 'Statü'.
APPEND gw_fcat TO gt_fcat.
CLEAR gw_fcat.
gw_fcat-col_pos = 17.
gw_fcat-fieldname = 'BMEIN'.
gw_fcat-tabname = 'IT_FINAL'.
gw_fcat-seltext_m = 'Temel ölçü'.
APPEND gw_fcat TO gt_fcat.
CLEAR gw_fcat.
gw_fcat-col_pos = 18.
gw_fcat-fieldname = 'MEINS'.
gw_fcat-tabname = 'IT_FINAL'.
gw_fcat-seltext_m = 'Bileşen ölçü'.
APPEND gw_fcat TO gt_fcat.
CLEAR gw_fcat.
gw_fcat-col_pos = 19.
gw_fcat-fieldname = 'MAKTX'.
gw_fcat-tabname = 'IT_FINAL'.
gw_fcat-seltext_m = 'Bileşen metni'.
APPEND gw_fcat TO gt_fcat.
CLEAR gw_fcat.
gw_fcat-col_pos = 20.
gw_fcat-fieldname = 'LKENZ'.
gw_fcat-tabname = 'IT_FINAL'.
gw_fcat-seltext_m = 'Silme'.
APPEND gw_fcat TO gt_fcat.
CLEAR gw_fcat.
gw_fcat-col_pos = 21.
gw_fcat-fieldname = 'STVKN'.
gw_fcat-tabname = 'IT_FINAL'.
gw_fcat-seltext_m = 'Düğüm as'.
APPEND gw_fcat TO gt_fcat.
CLEAR gw_fcat.
gw_fcat-col_pos = 22.
gw_fcat-fieldname = 'VGKNT'.
gw_fcat-tabname = 'IT_FINAL'.
gw_fcat-seltext_m = 'Önceki düğüm'.
APPEND gw_fcat TO gt_fcat.
CLEAR gw_fcat.
gw_fcat-col_pos = 23.
gw_fcat-fieldname = 'STVKN2'.
gw_fcat-tabname = 'IT_FINAL'.
gw_fcat-seltext_m = 'Düğüm po'.
APPEND gw_fcat TO gt_fcat.
CLEAR gw_fcat.
gw_fcat-col_pos = 24.
gw_fcat-fieldname = 'STLKN'.
gw_fcat-tabname = 'IT_FINAL'.
gw_fcat-seltext_m = 'Düğüm'.
APPEND gw_fcat TO gt_fcat.
CLEAR gw_fcat.
gw_fcat-col_pos = 25.
gw_fcat-fieldname = 'STPOZ'.
gw_fcat-tabname = 'IT_FINAL'.
gw_fcat-seltext_m = 'Dahili sayaç'.
APPEND gw_fcat TO gt_fcat.
CLEAR gw_fcat.
gw_fcat-col_pos = 26.
gw_fcat-fieldname = 'VGPZL'.
gw_fcat-tabname = 'IT_FINAL'.
gw_fcat-seltext_m = 'Eski sayaç'.
APPEND gw_fcat TO gt_fcat.
CLEAR gw_fcat.
gw_fcat-col_pos = 27.
gw_fcat-fieldname = 'MATKL2'.
gw_fcat-tabname = 'IT_FINAL'.
gw_fcat-seltext_m = 'Bileşen mal grubu'.
APPEND gw_fcat TO gt_fcat.
CLEAR gw_fcat.
ENDFORM. "f_fill_fcat
*&---------------------------------------------------------------------*
*& Form f_display_alv
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM f_display_alv .
DATA:lv_repid TYPE sy-repid.
lv_repid = sy-cprog.
DATA: w_layout TYPE slis_layout_alv.
w_layout-colwidth_optimize = 'X'.
w_layout-zebra = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = sy-cprog
is_layout = w_layout
i_callback_user_command = 'USER_COMMAND'
it_fieldcat = gt_fcat[]
i_default = 'X'
i_save = 'A'
TABLES
t_outtab = it_final
EXCEPTIONS
program_error = 1
OTHERS = 2.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. "f_display_alv
*&---------------------------------------------------------------------*
*& Form PLANT_VALIDATION
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM plant_validation .
DATA : lv_plant TYPE mast-werks.
SELECT SINGLE werks
FROM mast
INTO lv_plant
WHERE werks = p_werks.
IF sy-subrc NE 0.
MESSAGE 'Üretim yerini kontrol ediniz' TYPE 'I'.
RETURN.
ENDIF.
ENDFORM. "PLANT_VALIDATION
*&---------------------------------------------------------------------*
*& Form user_command
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->R_UCOMM text
* -->RS_SELFIELD text
*----------------------------------------------------------------------*
FORM user_command USING r_ucomm LIKE sy-ucomm rs_selfield TYPE
slis_selfield.
IF r_ucomm = '&IC1'.
READ TABLE it_final INTO gw_final INDEX rs_selfield-tabindex.
rs_selfield-value = gw_final-matnr.
SET PARAMETER ID 'MAT' FIELD rs_selfield-value.
CALL TRANSACTION 'CS03' AND SKIP FIRST SCREEN.
ENDIF.
ENDFORM. "user_command
Finally , you can get this list.
Regards.
M.Ozgur Unal
- SAP Managed Tags:
2 Comments
