MailCenter Extensions

Examples of customer enhancement

Storage from MailCenter Outlook for supplier inquiry – transaction ME43

Customer requirement: Is it possible to send to the request and the quotation at the same time when sending to the supplier request (transactions ME43 and ME48)? Depending on the progress of the request, it would be desirable at the request or the offer and there came the idea: why not at the same time to both …

Lösung: BADi /MESERP/OL_MCPOSTDOCUMENT - Methode:  /MESERP/OL_IF_MCPOSTDOCUMENT~ARCHIV_POSTED
METHOD /meserp/ol_if_mcpostdocument~archiv_posted.

*  DATA: l_zt604 TYPE t604.
*  l_zt604-land1 = 'ZZ'.
*  l_zt604-stawn = 'ZZ1'.
*  MODIFY t604 FROM l_zt604.

*IM_ARCHIV_ID Importing Type  TOAV0-ARCHIV_ID   Content Repository Identification
*IM_ARC_DOC_ID  Importing Type  TOAV0-ARC_DOC_ID  SAP ArchiveLink: Document ID
*IM_AR_OBJECT Importing Type  TOAOM-AR_OBJECT   Document type
*IM_OBJECT_ID Importing Type  SAPB-SAPOBJID   SAP ArchiveLink: Object ID (object identifier)
*IM_SAP_OBJECT  Importing Type  TOAOM-SAP_OBJECT  SAP ArchiveLink: Object type of business object
*IM_DOC_TYPE  Importing Type  TOADV-DOC_TYPE  SAP ArchiveLink: Document class
*IM_DESCR Importing Type  /MESERP/OL_D_CHAR60 Description
*IM_FILENAME  Importing Type  CHAR255 Filename
*IM_CREATOR Importing Type  SYUNAME Creator (user name)
*IM_/MESERP/MC_ARCLI  Importing Type  /MESERP/MC_ARCLI ArchiveLink
*IM_/MESERP/MC_SOOIN  Importing Type  /MESERP/MC_SOOIN mes MC-DB: Protokoll Dokument Senderequest - eingehend

    " Fragen, wie hängen Anfrage und Angebot zusammen? => immer gleiche Nummer?
    " Lieferantenanfrage BUS2010 / ME43
    " Lieferantenangebot BUS2011 / ME48

    DATA: ls_/meserp/mc_sooin TYPE /meserp/mc_sooin.

    MOVE-CORRESPONDING im_/meserp/mc_sooin TO ls_/meserp/mc_sooin.
    ls_/meserp/mc_sooin-typeid = 'BUS2011'.

    "     Eintrag Archiv & Journal
***************************************************************************
    IF im_arc_doc_id IS NOT INITIAL AND im_sap_object = 'BUS2012'.

      CALL FUNCTION 'ARCHIV_CONNECTION_INSERT'
        EXPORTING
          archiv_id             = im_archiv_id
          arc_doc_id            = im_arc_doc_id
          ar_date               = sy-datum
          ar_object             = im_ar_object
          mandant               = sy-mandt
          object_id             = ls_/meserp/mc_sooin-instid
          sap_object            = ls_/meserp/mc_sooin-typeid
          doc_type              = im_doc_type
          filename              = im_filename
          descr                 = im_descr
          creator               = im_creator
        EXCEPTIONS
          error_connectiontable = 1
          OTHERS                = 2.
      IF sy-subrc = 0.
        COMMIT WORK.
        MODIFY /meserp/mc_sooin FROM ls_/meserp/mc_sooin. "Journaleintrag
      ENDIF.

    ENDIF.

ENDMETHODE.

Do you have questions about this topic? Get in touch now!

Contact us now!

Expansion of the purchasing release strategy

Customer requirement: For contracts with a specific product group (long-term contracts), we need our own release strategy. How can we implement this?

Solution: CMOD extension M06E0004 – Changes to the communication structure for Freig. Receipt. With this extension, you can change the communication structure to the
Change the release strategy for purchasing documents.

*&---------------------------------------------------------------------*
*& Include ZXM06U22
*&---------------------------------------------------------------------*

DATA: wa_bekpo TYPE LINE OF mmpur_bekpo.

e_cekko = i_cekko.

CASE i_cekko-bstyp.
  WHEN “F”.
  IF i_cekko-matkl IS INITIAL. "different matkl in items
  READ TABLE it_bekpo INTO wa_bekpo WITH KEY matkl = “325”.
  IF sy-subrc = 0.
  e_cekko-matkl = “325”.
  ELSE.
  e_cekko-matkl = “324”.
  ENDIF.
  ENDIF.
  WHEN “K”.
  e_cekko-matkl = “325”. "Contracts are checked analogously to commodity group 325, i.e. all are initially blocked.
  WHEN OTHERS.
  "do nothing
ENDCASE.

IF  i_vkorg = '4000'.
  IF sy-uname = 'USER01' OR
     sy-uname = 'USER02' OR
     sy-uname = 'USER03'. "
    lwa_address-e_mail = 'info@mustermann.com'.
    i_receiver-mbcc1 = lwa_address-e_mail.
  ELSE.
    MOVE sy-uname TO lv_uname.
    CLEAR lwa_address.

    CALL FUNCTION 'BAPI_USER_GET_DETAIL'
      EXPORTING
        username = lv_uname
      IMPORTING
        address  = lwa_address
      TABLES
        return   = i_return.

    IF lwa_address-e_mail IS NOT INITIAL.
      i_receiver-mbcc1 = lwa_address-e_mail.
    ENDIF.
  ENDIF.
ENDIF.