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.
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.
*&---------------------------------------------------------------------*
*& 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'. "Kontrakte werden analog Warengruppe 325 geprüft, sprich alle werden zunächst gesperrt.
WHEN OTHERS.
"do nothing
ENDCASE.
Configurar el receptor BCC automáticamente
Requisito del cliente: Cada correo electrónico debe enviarse automáticamente a un empleado interno con BCC.
Solución: Programación de ZMESERP_MC_CUSTOMER_007 de salida de usuario de MailCenter
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.
Otros enlaces de interés:
Descripción general de SAP IDOC
Ordenación automática de SAP
Liberar pedido SAP
