Hallo !

Ich hoffe Ihr könnt mir weiterhelfen ?

Kann ich die MM17 in einem periodischen Hintergrundjob laufen lassen ?

Bsp: Ich würde alle Materialien selektieren welche einen Sicherheitsbestand haben.

Für diese ermittelten Materialien möchte ich dann immer einen bestimmten Disponenten setzen wenn der nicht schon entsprechend gepflegt ist.

Diesen Vorgang würde ich gerne wöchentlich einmal sozusagen automatisiert machen anhand einer MM17. Bin mir aber überhaupt nicht sicher ob dies überhaupt geht!?

Könnt Ihr mir hier weiterhelfen ? Geht dies überhaupt ? Wenn ja, muß ich was bestimmtes hierzu beachten/tun ?

Ich sag schon mal Danke für Eure Unterstützung.

    REPORT  ztest31                                                     .

    DATA headdata   LIKE   bapimathead.
    DATA return   LIKE   bapiret2.

    DATA salesdata LIKE   bapi_mvke.
    DATA salesdatax LIKE   bapi_mvkex.
    DATA plantdata   LIKE   bapi_marc.
    DATA plantdatax   LIKE   bapi_marcx.
    DATA storagelocationdata   LIKE   bapi_mard.
    DATA storagelocationdatax   LIKE   bapi_mardx.
    DATA valuationdata  LIKE bapi_mbew.
    DATA valuationdatax LIKE bapi_mbewx.
    DATA clientdata TYPE bapi_mara.
    DATA clientdatax TYPE bapi_marax.
    DATA forecastparameters TYPE bapi_mpop.
    DATA forecastparametersx TYPE bapi_mpopx.

    DATA taxclassifications TYPE TABLE OF bapi_mlan WITH HEADER LINE.
    DATA materiallongtext TYPE TABLE OF bapi_mltx WITH HEADER LINE.
    DATA materialdescr TYPE TABLE OF bapi_makt WITH HEADER LINE.

    DATA unitsofmeasure   LIKE   bapi_marm.
    DATA unitsofmeasurex   LIKE   bapi_marmx.
    DATA internationalartnos   LIKE   bapi_mean.
    DATA returnmessages   LIKE   bapi_matreturn2 OCCURS 0.
    DATA prtdata   LIKE   bapi_mfhm.
    DATA prtdatax   LIKE   bapi_mfhmx.
    DATA extensionin   LIKE   bapiparex.
    DATA extensioninx   LIKE   bapiparexx.

    DATA tname TYPE tdobname.
    DATA:  e_rol_return           LIKE bapiret2.
    DATA:  e_com_return           LIKE bapiret2.

    PARAMETERS: material TYPE mara-matnr DEFAULT '000000000000001002'.

    PERFORM xtendmat.

    RETURN.

    *&--------------------------------------------------------------------*
    *&      Form  Xtendmat
    *&--------------------------------------------------------------------*
    *       text
    *---------------------------------------------------------------------*
    FORM xtendmat.



    * KOPF Daten (Sichten) ************************************************
      headdata-material = material.
      headdata-matl_type = 'HAWA'.
      headdata-ind_sector ='M'.
      headdata-sales_view = 'X'.
      headdata-mrp_view = 'X'.
      headdata-storage_view = 'X'.
      headdata-account_view  = 'X'.
      headdata-purchase_view = 'X'.
      headdata-quality_view = 'X'.

    * Prognosedaten *****************************************************
    forecastparameters-PLANT = '0050'.

    forecastparametersx-PLANT = '0050'.
    * MARA Basisdaten *****************************************************
      clientdata-base_uom = 'ST'.
      clientdata-base_uom_iso = 'ST'.
    *CLIENTDATA-PO_UNIT
    *CLIENTDATA-PO_UNIT_ISO
      clientdata-matl_group = '01'.



      clientdatax-base_uom = 'X'.
      clientdatax-base_uom_iso = 'X'.
      clientdatax-matl_group = 'X'.
    * Verkaufsdaten *******************************************************
      salesdata-sales_org = '0001'.
      salesdata-distr_chan = '01'.
      salesdata-delyg_plnt = '0050'.
      salesdata-item_cat = 'NORM'.
      salesdata-matl_grp_4 = 'E10'.
      salesdata-matl_stats = '1'.  " Statistikgruppe Material

      salesdatax-sales_org = '0001'.
      salesdatax-distr_chan = '01'.
      salesdatax-delyg_plnt = 'X'.
      salesdatax-item_cat = 'X'.
      salesdatax-matl_grp_4 = 'X'.
      salesdatax-matl_stats = 'X'. "Statistikgruppe Material

    * Werksdaten *********************************************************
      plantdata-plant = '0050'.      " Werk
      plantdata-iss_st_loc = '0050'. " Lagerort
      plantdata-sloc_exprc = '0050'." Vorschlagslagerort f Fremdbeschaffung
      plantdata-mrp_type = 'ND'.     " Dispositionsmerkmal
      plantdata-pur_group = '001'.   " EK gruppe
      plantdata-loadinggrp = '0001'. " Ladegruppe
      plantdata-sourcelist = space.  " Kennzeichen Orderbuchpflicht
      plantdata-auto_p_ord = space.  " Kz: Automatische Bestellung erlaubt
      plantdata-plnd_delry = '10'.   " Planlieferzeit
      plantdata-profit_ctr = 'A00'.  "Profit Center

      plantdata-COMM_CODE = '4711'."Stat.WarenNr / Import-CodeNr für Außenhandel !!!!

      plantdatax-plant = '0050'.     " Werk
      plantdatax-iss_st_loc = 'X'.   " Lagerort
      plantdatax-sloc_exprc = 'X'.   " Vorschlagslort für Fremdbeschaffung
      plantdatax-mrp_type = 'X'.     " Dispositionsmerkmal
      plantdatax-pur_group = 'X'.    " EK gruppe
      plantdatax-loadinggrp = 'X'.   " Ladegruppe
      plantdatax-sourcelist = 'X'.  " Kennzeichen Orderbuchpflicht
      plantdatax-auto_p_ord = 'X'.  " Kz: Automatische Bestellung erlaubt
      plantdatax-plnd_delry = 'X'.   " Planlieferzeit
      plantdatax-profit_ctr = 'X'.   "Profit Center


      plantdatax-COMM_CODE = 'X'.  " Stat.WarenNr / Import-CodeNr für Außenhandel !!!!


    * Lagerort ***********************************************************
      storagelocationdata-plant = '0050'.
      storagelocationdata-stge_loc = '0050'.

      storagelocationdatax-plant =    '0050'.
      storagelocationdatax-stge_loc = '0050'.

    * Bewertungsdaten ****************************************************
      valuationdata-val_area = '0050'. "Bewertungskreis
      valuationdata-price_ctrl = 'V'.  "Preissteuerungskennzeichen
    *VALUATIONDATA-STD_PRICE
      valuationdata-val_class = '3040'.

      valuationdatax-val_area = '0050'. "Bewertungskreis
      valuationdatax-price_ctrl = 'X'.  "Preissteuerungskennzeichen
    *VALUATIONDATA-STD_PRICE
      valuationdatax-val_class = 'X'.

    *** TABELLEN >
    * Steuerklassifikation MLAN ******************************************
      taxclassifications-depcountry = 'DE'.
      taxclassifications-tax_type_1 = 'MWST'.
      taxclassifications-taxclass_1 = '1'.
      taxclassifications-tax_ind = space.
      APPEND taxclassifications.

    * Vertriebslangtext
    *000000000271132151 0001 01
      CONCATENATE material '000101' INTO tname.
      materiallongtext-text_name = tname.
      materiallongtext-applobject = 'MVKE'.
      materiallongtext-text_id = '0001'.
      materiallongtext-langu = 'D'.
      materiallongtext-format_col = '*'.
      materiallongtext-text_line = 'Hier nun der Langtext'.
      APPEND materiallongtext.

    * Materialkurztext(MAKT)
      materialdescr-langu = sy-langu.
    *LANGU_ISO
      materialdescr-matl_desc = 'Abstinence in a material world'.
    *materialdescr-DEL_FLAG =
      APPEND materialdescr.

      CALL FUNCTION 'BAPI_MATERIAL_SAVEDATA'
        EXPORTING
         headdata                   = headdata
        clientdata                 = clientdata
        clientdatax                = clientdatax
         plantdata                  = plantdata
         plantdatax                 = plantdatax
    *   FORECASTPARAMETERS         =
    *   FORECASTPARAMETERSX        =
    *   PLANNINGDATA               =
    *   PLANNINGDATAX              =
         storagelocationdata        = storagelocationdata
         storagelocationdatax       = storagelocationdatax
         valuationdata              = valuationdata
         valuationdatax             = valuationdatax
    *   WAREHOUSENUMBERDATA        =
    *   WAREHOUSENUMBERDATAX       =
         salesdata                  = salesdata
         salesdatax                 = salesdatax
    *   STORAGETYPEDATA            =
    *   STORAGETYPEDATAX           =
    *   FLAG_ONLINE                = ' '
    *   FLAG_CAD_CALL              = ' '
    *   NO_DEQUEUE                 = ' '
       IMPORTING
         return                     = return
       TABLES
          materialdescription        = materialdescr[]
    *   UNITSOFMEASURE             =
    *   UNITSOFMEASUREX            =
    *   INTERNATIONALARTNOS        =
          materiallongtext           = materiallongtext[]
          taxclassifications         = taxclassifications[]
          returnmessages             = returnmessages[]
    *   PRTDATA                    =
    *   PRTDATAX                   =
    *   EXTENSIONIN                =
    *   EXTENSIONINX               =
                .

      IF return-type = 'E' OR return-type = 'A'.
        WRITE:/ 'Fehler Bapi'.
        WRITE:/ 'Type       ', return-type.
        WRITE:/ 'ID         ', return-id.
        WRITE:/ 'NUMBER     ', return-number.
        WRITE:/ return-message.
        WRITE:/ '-----------------------------------------'.
      ENDIF.

      CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
        EXPORTING
          wait   = 'X'
        IMPORTING
          return = e_com_return.

      IF e_com_return-type NE space.

        CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'
          IMPORTING
            return = e_rol_return.
        WRITE:/ 'Rollback', e_rol_return-type.
      ENDIF.

    ENDFORM.                    "Xtendmat