Tabelle MARC editieren

Code: Alles auswählen.

    DATA: header           TYPE bapimathead,
          return           TYPE bapiret2,
          extension        TYPE STANDARD TABLE OF bapiparex,
          extensionx       TYPE STANDARD TABLE OF bapiparexx,
          marc             TYPE bapi_marc,
          marcx            TYPE bapi_marcx,
          wa_bapi_te_marc  TYPE bapi_te_marc,
          wa_bapi_te_marcx TYPE bapi_te_marcx.

    header = VALUE #( material = iv_matnr
                                 mrp_view = abap_true ).

    wa_bapi_te_marc-plant = iv_plant.
    wa_bapi_te_marc-ZZFELD = iv_value.

    wa_bapi_te_marcx-plant =  iv_plant.
    wa_bapi_te_marcx-ZZFELD = abap_true.

    APPEND INITIAL LINE TO extension ASSIGNING FIELD-SYMBOL(<extension>).
    IF <extension> IS ASSIGNED.
      <extension>-structure = 'BAPI_TE_MARC'.
      <extension>-valuepart1+0(4) = wa_bapi_te_marc-plant.
      <extension>-valuepart1+25(10) = wa_bapi_te_marc-ZZFELD   "<<<---- eventuell ist hier Fehler

      APPEND INITIAL LINE TO extensionx ASSIGNING FIELD-SYMBOL(<extensionx>).
      IF <extensionx> IS ASSIGNED.
        <extensionx>-structure = 'BAPI_TE_MARCX'.
        <extensionx>-valuepart1+0(4) = wa_bapi_te_marcx-plant.
        <extensionx>-valuepart1+7(1) = wa_bapi_te_marcx-ZZFELD.
      ENDIF.
    ENDIF.

    marc  = VALUE #( plant = '2001' ).
    marcx = VALUE #( plant = '2001' ).

    CALL FUNCTION 'BAPI_MATERIAL_SAVEDATA'
      EXPORTING
        headdata     = header
        plantdata    = marc
        plantdatax   = marcx
*       forecastparameters   =
*       forecastparametersx  =
*       planningdata =
*       planningdatax        =
*       storagelocationdata  =
*       storagelocationdatax =
*       valuationdata        =
*       valuationdatax       =
*       warehousenumberdata  =
*       warehousenumberdatax =
*       salesdata    =
*       salesdatax   =
*       storagetypedata      =
*       storagetypedatax     =
*       flag_online  = space
*       flag_cad_call        = space
*       no_dequeue   = space
*       no_rollback_work     = space
*       clientdatacwm        =
*       clientdatacwmx       =
*       valuationdatacwm     =
*       valuationdatacwmx       =
*       matplstadata =
*       matplstadatax        =
*       marc_aps_extdata     =
*       marc_aps_extdatax    =
      IMPORTING
        return       = return
      TABLES
        extensionin  = extension
        extensioninx = extensionx.

    IF return-type CA 'EA'.
      ROLLBACK WORK.
    ELSE.
      CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
    ENDIF.

Code: Alles auswählen.

describe field <extension>-structure length data(lv_length) in character mode.

Code: Alles auswählen.

append initial line to lt_extension assigning field-symbol(<extension>).
<extension>-structure = 'BAPI_TE_MARC'.
<extension>+30 = value bapi_te_marc(
  plant   = iv_plant
  zzfeld1 = iv_value1
  zzfeld2 = iv_value2
  " usw.
).

Code: Alles auswählen.

append initial line to lt_extension_x assigning field-symbol(<extension_x>).
<extension_x>-structure = 'BAPI_TE_MARCX'.
<extension_x>+30 = value bapi_te_marcx(
  plant   = iv_plant
  zzfeld1 = abap_true
  zzfeld2 = abap_true
  " usw.
).