report_zvs_bom.
INCLUDE zvs_strukturen.

TYPES: BEGIN OF itab_it .
*        INCLUDE STRUCTURE STPOB.
        INCLUDE STRUCTURE capp_itm.
TYPES: END OF itab_it.

TYPES: itab TYPE STANDARD TABLE OF itab_it.
DATA g_wa_itab TYPE itab_it.
DATA: gi_itab TYPE itab,
      gj_itab TYPE itab.

DATA: l_count(10)           TYPE p
     ,l_index(2)            TYPE c
     ,stlnr1 LIKE stko-stlnr
     .
INCLUDE zvs_bidata.
INCLUDE zvs_bifunc.

SELECTION-SCREEN BEGIN OF BLOCK bl_001 WITH FRAME TITLE text-001.
PARAMETERS: matnr LIKE mast-matnr OBLIGATORY "DEFAULT ''
           ,werks LIKE mast-werks OBLIGATORY " DEFAULT ''
           ,stlan LIKE mast-stlan OBLIGATORY DEFAULT '1'
           ,stlal LIKE mast-stlal OBLIGATORY  DEFAULT '1'
           .
SELECTION-SCREEN END OF BLOCK bl_001.

START-OF-SELECTION.

  PERFORM read_bom.

  PERFORM bom_execute.


*&--------------------------------------------------------------------
*
*&      Form  read_bom
*&--------------------------------------------------------------------
*
*       text
*---------------------------------------------------------------------
*
FORM read_bom.
  SELECT SINGLE stlnr FROM mast
    INTO stlnr1
    WHERE matnr EQ matnr
    AND werks EQ werks
    AND stlan EQ stlan
    AND stlal EQ stlal.
  IF sy-subrc EQ '4'.
    IF sy-langu EQ 'D'.
      CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT'
        EXPORTING
          textline1 =3D 'Es wurde keine St=FCckliste gefunden'.
      LEAVE TO TRANSACTION 'ZBOM'.
    ELSE.
      CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT'
        EXPORTING
          textline1 =3D 'No BOM could be found.'.
      LEAVE TO TRANSACTION 'ZBOM'.
    ENDIF.
  ENDIF.

  CALL FUNCTION 'CABM_READ_BOM_ITEM'
    EXPORTING
      i_stlty         =3D 'M'
      i_stlnr         =3D stlnr1
      i_stlal         =3D stlal
      i_date_from     =3D sy-datum
      i_date_to       =3D sy-datum
      i_werks         =3D werks
    TABLES
      exp_bom_item    =3D gi_itab
    EXCEPTIONS
      no_record_found =3D 01.
ENDFORM.                    "read_bom

*&--------------------------------------------------------------------
*
*&      Form  bom_execute
*&--------------------------------------------------------------------
*
*       text
*---------------------------------------------------------------------
*
FORM bom_execute.
  DATA: l_tcode                TYPE sy-tcode
     ,l_ok                   LIKE flg_ok
     ,l_mode(1)              TYPE c
     ,l_count(10)            TYPE p
     ,l_dynfld(20)           TYPE c
     ,l_bismt(18)            TYPE c
     ,l_verid(4)             TYPE c
     ,l_matnr(18)            TYPE c
     ,field(30)              TYPE c
     ,l_index                TYPE string
     .

*  break anba.
  l_mode =3D 'E'.
  l_tcode =3D 'RWBE'.


  PERFORM bi_init_dynpro       USING 'RWBEST01' '1000'.
  PERFORM bi_fill_dynpro_field USING 'BDC_OKCODE' '=3DDIS_LIST'.
  PERFORM bi_fill_dynpro_field USING 'P_VKORG' ' '.
  PERFORM bi_fill_dynpro_field USING 'P_VTWEG' ' '.
  PERFORM bi_fill_dynpro_field USING 'S_WERKS-LOW' werks.
  PERFORM bi_fill_dynpro_field USING 'P_KZLSO' 'X'.
  PERFORM bi_fill_dynpro_field USING 'P_KZLON' 'X'.

  PERFORM bi_init_dynpro       USING 'RWBEST01' '1000'.
  PERFORM bi_fill_dynpro_field USING 'BDC_OKCODE' '=3D%003'.
  PERFORM bi_fill_dynpro_field USING 'BDC_CURSOR' 'P_KZVST0'.
  PERFORM bi_fill_dynpro_field USING 'P_KZVST0' 'X'.
  PERFORM bi_fill_dynpro_field USING 'P_KZNUL' ' '.
  PERFORM bi_fill_dynpro_field USING 'P_KZBWG' 'X'.
  PERFORM bi_fill_dynpro_field USING 'P_KZWER' 'X'.
  PERFORM bi_fill_dynpro_field USING 'P_KZLGO' 'X'.
  PERFORM bi_fill_dynpro_field USING 'P_KZSON' 'X'.


*  PERFORM bi_fill_dynpro_field USING 'BDC_CURSOR' 'RSCSEL-
SLOW_I(04)'.

  LOOP AT gi_itab INTO g_wa_itab.
    ADD 1 TO l_count.
    l_index =3D l_count.
    l_index =3D 1.
    PERFORM bi_init_dynpro       USING 'SAPLALDB' '3000'.
    PERFORM bi_fill_dynpro_field USING 'BDC_OKCODE' '=3DLINS'.
    PERFORM bi_fill_dynpro_field USING 'BDC_CURSOR' 'RSCSEL-
SLOW_I(01)'.

    CONCATENATE 'RSCSEL-SLOW_I(' l_index ')' INTO field.
    PERFORM bi_fill_dynpro_field USING field g_wa_itab-idnrk.

  ENDLOOP.
    PERFORM bi_init_dynpro       USING 'SAPLALDB' '3000'.
    PERFORM bi_fill_dynpro_field USING 'BDC_OKCODE' '=3DACPT'.

  PERFORM bi_init_dynpro       USING 'RWBEST01' '1000'.
  PERFORM bi_fill_dynpro_field USING 'BDC_OKCODE' '=3DONLI'.

  PERFORM bi_init_dynpro       USING 'RWBEST01' '0800'.
  PERFORM bi_fill_dynpro_field USING 'BDC_OKCODE' '=3D/00'.

  PERFORM bi_call_trans USING l_tcode l_mode 'X'
                     CHANGING l_ok.


ENDFORM.                    "bom_execute