BOM Änderung "CSAP_MAT_BOM_MAINTAIN"

Code: Alles auswählen.

*&---------------------------------------------------------------------*
*&      Form  maint_bom
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM maint_bom.

* für BOM_OPEN
  DATA: BEGIN OF tstpo2 OCCURS 0.
          INCLUDE STRUCTURE stpo_api02.
  DATA: END OF tstpo2.

  DATA ls_tstpo2 TYPE stpo_api02.

  DATA lv_matnr TYPE matnr.

  DATA lv_ptext(80).
  DATA lv_txt(6).
  DATA lv_cnt TYPE i.

  CHECK NOT <p>-component IS INITIAL.

* Böse Falle !
  DO 100 TIMES.
    WAIT UP TO 1 SECONDS.

    CALL FUNCTION 'CSAP_MAT_BOM_OPEN'
      EXPORTING
        material         = <p>-component
        plant            = p_werk
        bom_usage        = p_stlan
        valid_from       = gv_heute
*       change_no        = <p>-aennr
        fl_no_change_doc = 'X'
      TABLES
        t_stpo           = tstpo2
      EXCEPTIONS
        error            = 1
        OTHERS           = 2.

    IF sy-subrc = 0. " Test(ohne wait) erreicht 4-5 durchläufe !
      EXIT.
    ENDIF.

  ENDDO.

  IF sy-subrc = 0.
    i = lines( it_bom ).

    LOOP AT it_bom.
      lv_cnt = sy-tabix.
      CLEAR ls_tstpo2.


      MOVE-CORRESPONDING it_bom TO ls_tstpo2.
*      ls_tstpo2-item_categ = 'L'.         "Mußeingabe

      IF ls_tstpo2-bulk_mat = 'X' AND ls_tstpo2-item_categ = 'L'.
        ls_tstpo2-rel_cost = space.
        ls_tstpo2-rel_engin = space.
        ls_tstpo2-rel_pmaint = space.
        ls_tstpo2-rel_sales = space.
        ls_tstpo2-rel_prod = 'X'.
      ENDIF.

*        CLEAR ls_tstpo2-BULK_MAT.

      IF ls_tstpo2-item_categ = 'D'.
        ls_tstpo2-document = ls_tstpo2-component.
        CLEAR ls_tstpo2-component.
        CLEAR ls_tstpo2-bulk_mat.
        ls_tstpo2-doc_type = 'SEG'.
      ENDIF.

      CALL FUNCTION 'CSAP_BOM_ITEM_MAINTAIN'
        EXPORTING
          i_stpo = ls_tstpo2
        EXCEPTIONS
          error  = 1
          OTHERS = 2.

      IF sy-subrc <> 0.
        IF ls_tstpo2-component IS INITIAL.
          PERFORM write_log USING ls_tstpo2-document 'could not be saved'(009).
        ELSE.
          PERFORM write_log USING ls_tstpo2-component 'could not be saved'(009).
        ENDIF.

        rc = 1.
      ENDIF.


* Fortschrittsanzeige
      lv_ptext = 'bearbeite Material'.
      CONCATENATE lv_ptext ls_tstpo2-component INTO lv_ptext
      SEPARATED BY space.

      WRITE lv_cnt TO lv_txt.
      CONDENSE lv_txt NO-GAPS.
      CONCATENATE lv_ptext '-' lv_txt 'von' INTO lv_ptext
      SEPARATED BY space.

      WRITE i TO lv_txt.
      CONDENSE lv_txt NO-GAPS.
      CONCATENATE lv_ptext lv_txt INTO lv_ptext
      SEPARATED BY space.


      CALL FUNCTION 'PROGRESS_INDICATOR'
        EXPORTING
          i_text               = lv_ptext
          i_processed          = lv_cnt
          i_total              = i
          i_output_immediately = 'X'.

    ENDLOOP.

    CALL FUNCTION 'CSAP_MAT_BOM_CLOSE'
      EXCEPTIONS
        error  = 1
        OTHERS = 2.

  ELSE.
    PERFORM write_log USING <p>-component 'could not be Opened'.
  ENDIF.

ENDFORM.                    "maint_bom

Code: Alles auswählen.

 CALL FUNCTION 'ECM_PROCESSOR_INIT'
      EXPORTING
*        topmatnr       = wa_matnr-matnr
        batchlauf      = 'X'
        batch_aeef     = h_aeef
      TABLES
        parameter      = l_t_param
      EXCEPTIONS
        exit_in_dynpro = 1.

    CHECK sy-subrc = 0.

    LOOP AT so_werks.
      MOVE so_werks-low TO lv_werk.
    ENDLOOP.