CO01 BADI

Code: Alles auswählen.

    DATA:
      all_operations TYPE STANDARD TABLE OF afvgd,
      operation      TYPE afvgd.

    " Read all operations of current order
    CALL FUNCTION 'CO_BT_AFVG_GET_ALL'
      EXPORTING
        aufnr_imp = is_header_dialog-aufnr
      TABLES
        afvgd_tab = all_operations.

    " (Re-) Set index pointer for operations
    CALL FUNCTION 'CO_BT_AFVG_SET'
      EXPORTING
        aufnr_act = is_header_dialog-aufnr
        index     = 1.

    LOOP AT all_operations INTO DATA(one_operation).
      " Get next operation
      CALL FUNCTION 'CO_BT_AFVG_GET'
        EXPORTING
          aufnr_act = is_header_dialog-aufnr
        IMPORTING
          afvgd_exp = operation.

      operation-ltxa1 = |Operation { operation-vornr }|.

      " Set new data of operation
      CALL FUNCTION 'CO_BT_AFVG_PUT'
        EXPORTING
          afvgd_new = operation.
    ENDLOOP.