The text below is selected, press Ctrl+C to copy to your clipboard. (⌘+C on Mac) No line numbers will be copied.
Guest
Asd
By Guest on 15th March 2018 06:13:27 PM | Syntax: ABAP | Views: 130



New paste | Download | Show/Hide line no. | Copy text to clipboard
  1. *&---------------------------------------------------------------------*
  2. *& Include          ZIN_PP_URUN_AGACI_JOB_F01
  3. *&---------------------------------------------------------------------*
  4.  
  5.   SELECT DISTINCT
  6.          a~matnr, m~werks, t~maktx, a~meins, a~laeng, a~breit, a~hoehe,
  7.          a~meabm, a~matkl, a~mtart, b~wgbez60 AS wgbez, c~mtbez,
  8.          m~sobsl, m~beskz, m~lgpro, a~bismt
  9.     FROM mara AS a
  10.     INNER JOIN makt AS t ON a~matnr EQ t~matnr
  11.                         AND t~spras EQ @sy-langu
  12.     LEFT OUTER JOIN t023t AS b ON a~matkl EQ b~matkl
  13.                          AND b~spras EQ @sy-langu
  14.     LEFT OUTER JOIN t134t AS c ON a~mtart EQ c~mtart
  15.                               AND c~spras EQ @sy-langu
  16.          INNER JOIN mast AS  s ON a~matnr EQ s~matnr
  17.          INNER JOIN marc AS  m ON s~matnr EQ m~matnr
  18.                               AND s~werks EQ m~werks
  19.     INTO CORRESPONDING FIELDS OF TABLE @gt_data.
  20.  
  21.  
  22.   DEFINE explode_bom.
  23.     IF &1 IS NOT INITIAL.
  24.       LOOP AT &1 ASSIGNING FIELD-SYMBOL(<fs_data>).
  25.         CALL FUNCTION 'CS_BOM_EXPL_MAT_V2'
  26.           EXPORTING
  27.             mtnrv                 = <fs_data>-matnr
  28.             werks                 = <fs_data>-werks
  29.             mehrs                 = 'X'
  30.             datuv                 = sy-datum
  31.             capid                 = 'PP01'
  32.             ehndl                 = '1'
  33.             emeng                 = '1'
  34.             mmory                 = '1'
  35.           TABLES
  36.             stb                   = gt_bom_temp
  37.           EXCEPTIONS
  38.             alt_not_found         = 1
  39.             call_invalid          = 2
  40.             material_not_found    = 3
  41.             missing_authorization = 4
  42.             no_bom_found          = 5
  43.             no_plant_data         = 6
  44.             no_suitable_bom_found = 7
  45.             conversion_error      = 8
  46.             OTHERS                = 9.
  47.         "macro 2
  48.         generate_bom_table gt_bom_temp gt_bom.
  49.       ENDLOOP.
  50.     ENDIF.
  51.  
  52.   DEFINE generate_bom_table.
  53.     LOOP AT &1 ASSIGNING FIELD-SYMBOL(<fs_bom_temp>).
  54.       gs_bom = CORRESPONDING #( <fs_bom_temp> ).
  55.       gs_bom-ust_matnr = <fs_data>-matnr.
  56.       gs_bom-GUNCELLEME_TARIH = sy-datum.
  57.       gs_bom-GUNCELLEME_SAAT = sy-uzeit.
  58.       APPEND gs_bom TO &2.
  59.     ENDLOOP.
  60.  
  61.   " macro 1
  62.   explode_bom gt_data.
  63.  
  64.   IF gt_bom is NOT INITIAL.
  65.     DELETE FROM ZIN_PP_MAT_BOM_T.
  66.     INSERT ZIN_PP_MAT_BOM_T FROM TABLE GT_BOM.
  67.   ENDIF.



  • Recent Pastes
  • Http:/prueba.com
    18 hours 57 mins 3 secs ago
  • Bley
    1 day 14 hours 4 mins 45 secs ago
  • Bbb
    1 day 21 hours 28 mins 56 secs ago
  • Prueb
    2 days 46 mins 26 secs ago
  • Test
    2 days 55 mins 40 secs ago