Extensiones de MailCenter

Ejemplos de mejora del cliente

Almacenamiento desde MailCenter Outlook para consulta de proveedores – transacción ME43

Requisito del cliente: ¿Es posible enviar a la solicitud y al presupuesto al mismo tiempo cuando se envía a la solicitud del proveedor (transacciones ME43 y ME48)? Dependiendo del progreso de la solicitud, sería deseable a la solicitud o la oferta y ahí surgió la idea: ¿por qué no al mismo tiempo a ambos …

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.

¿Tiene preguntas sobre este tema?

¡Contáctenos ahora!

Expansión de la estrategia de lanzamiento de compras

Requisito del cliente: Para los contratos con un grupo de productos específico (contratos a largo plazo), necesitamos nuestra propia estrategia de lanzamiento. ¿Cómo podemos implementar esto?

Solución: Extensión CMOD M06E0004 – Cambios en la estructura de comunicación para Freig. Recibo. Con esta extensión, puede cambiar la estructura de comunicación a la
Cambie la estrategia de lanzamiento para comprar documentos.

*&---------------------------------------------------------------------*
*& Incluye ZXM06U22
*&---------------------------------------------------------------------*

DATOS: wa_bekpo TIPO DE LÍNEA DE mmpur_bekpo.

e_cekko = i_cekko.

CASO i_cekko-bstyp.
  CUANDO “F”.
  SI i_cekko-matkl ES INICIAL. "diferente matkl en artículos
  LEA LA TABLA it_bekpo EN wa_bekpo CON CLAVE matkl = “325”.
  IF sy-subrc = 0.
  e_cekko-matkl = “325”.
  MÁS.
  e_cekko-matkl = “324”.
  ENDIF.
  ENDIF.
  CUANDO “K”.
  e_cekko-matkl = “325”. "Los contratos se verifican de manera análoga al grupo de productos básicos 325, es decir, todos están inicialmente bloqueados.
  CUANDO OTROS.
  "No hacer nada
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.