User-Exit for MR1M/MIRO

Question

The unplanned delivery costs can be posted with the help of the User Exit EXIT_SAPLMRMH_014 (for Transaction MR1M / MIRO). It is not possible to settle planned delivery costs. To pass Unplanned Delivery costs (freight), you have to fill also the tax jurisdiction Code for the delivery costs, because the default jurisdiction code from customizing is not relevant for EDI case. So you have to fill the
following fields:E_RBKPV-MWSKZ_BNK
E_RBKPV-TXJCD_BNK  using the idoc segment E1EDK04.Please give me an idea how to code?
Title edited by: Alvaro Tejada Galindo on Jun 12, 2008 12:15 PM

Answer 1

Hi the code in the user exit is based on the idoc segment.I have to make use of segment E1EDK04.
Please help.The code is below.still they havent used the above mentioned the above segment.
*&  Include           ZXM08U25                                         *
""Lokale Schnittstelle:
*"  IMPORTING
*"     VALUE(I_IDOC_DATA) TYPE  EDIDD
*"  EXPORTING
*"     VALUE(E_CHANGE) TYPE  C
*"  TABLES
*"      T_FRSEG TYPE  MMCR_TFRSEG
*"  CHANGING
*"     VALUE(E_RBKPV) TYPE  MRM_RBKPV
*"  EXCEPTIONS
*"      ERROR_MESSAGE
Local Variables (Segment Definitions)
*-Unplanned delivery costs
DATA: lv_beznk      TYPE beznk.
*-Segments
DATA: ls_e1edp02    LIKE e1edp02.
DATA: ls_e1edp19    LIKE e1edp19.
DATA: ls_e1edk05    LIKE e1edk05.
DATA: ls_e1edk02    LIKE e1edk02.
DATA: ls_e1edk03    LIKE e1edk03.
DATA: ls_e1edkt2    LIKE e1edkt2.
Park the Invoice Automatically (Requirement from ENH038)
**-Set the Status as Parked
e_rbkpv-rbstat = '1'.                                       "A or 1
***rbkpv-ivtyp = '4'.
***e_rbkpv-xzuordli = 'X'.
**-Set the Change Indicator
e_change = 'X'.
This Exit is called once for every E1EDPnn segments before it calls
EXIT_SAPLMRMH_013 (which determines the PO Line Item).
Save the Material/Vendor Article/EAN-UPC to be passed to the above
User exit
*-Setup the lookup structure for PO Line items
CASE i_idoc_data-segnam.
*-IDoc: Document Item Reference Data Segment
  WHEN 'E1EDP02'.
    MOVE i_idoc_data-sdata TO ls_e1edp02.
*-  Evaluate the Qualifier
    CASE ls_e1edp02-qualf.
*-    Purchase Order
      WHEN '001'.
*-      Save the values for PO Item Lookup
        CLEAR gs_ekpo_for_lookup.
        MOVE ls_e1edp02-belnr  TO gs_ekpo_for_lookup-ebeln.
        MOVE ls_e1edp02-zeile  TO gs_ekpo_for_lookup-ebelp.
    ENDCASE.
*-IDoc: Document Item Object Identification
  WHEN 'E1EDP19'.
*-  Setup the structure data
    MOVE i_idoc_data-sdata TO ls_e1edp19.
*Article description
    MOVE ls_e1edp19-KTEXT TO gs_ekpo_for_lookup-txz01.
***-  Evaluate the Qualifier and save the values for PO Item Lookup
    CASE ls_e1edp19-qualf.
*-    Material
      WHEN '001'.
        MOVE ls_e1edp19-idtnr  TO gs_ekpo_for_lookup-matnr.
*-    Vendor Article
      WHEN '002'.
        MOVE ls_e1edp19-idtnr  TO gs_ekpo_for_lookup-idnlf.
*-    EAN/UPC
      WHEN '003'.
        MOVE ls_e1edp19-idtnr  TO gs_ekpo_for_lookup-ean11.
    ENDCASE.
**NXH999 - Use this field of the lookup as a last ditch effort to
**match invoice to PO Item
       MOVE ls_e1edp19-idtnr  TO gs_ekpo_for_lookup-idtnr.
*-IDoc: Document header reference data
  WHEN 'E1EDK02'.
*-  Setup the structure data
    MOVE i_idoc_data-sdata TO ls_e1edk02.
    CASE ls_e1edk02-qualf.
      WHEN '010'.
        WRITE ls_e1edk02-belnr TO ls_notes-scaccd.
        CONCATENATE 'SCAC Code:' ls_notes-scaccd
               INTO gt_notes-tdline SEPARATED BY space.
        APPEND gt_notes.
      WHEN '063'.
        WRITE ls_e1edk02-belnr TO ls_notes-bolnbr.
        CONCATENATE 'Bill of Lading:' ls_notes-bolnbr
               INTO gt_notes-tdline SEPARATED BY space.
        APPEND gt_notes.
    ENDCASE.
*-IDoc: Document header date segment
  WHEN 'E1EDK03'.
*-  Setup the structure data
    MOVE i_idoc_data-sdata TO ls_e1edk03.
    CASE ls_e1edk03-iddat.
      WHEN '010'.
        WRITE ls_e1edk03-datum TO ls_notes-shdate.
        CONCATENATE 'Ship Date:' ls_notes-shdate
               INTO gt_notes-tdline SEPARATED BY space.
        WRITE ls_e1edk03-datum TO gt_notes-tdline.
        APPEND gt_notes.
    ENDCASE.
*- Unplanned Delivery Costs (Requirement #5 from ENH115)
  WHEN 'E1EDK05'.
*-  Setup the structure data
    MOVE i_idoc_data-sdata TO ls_e1edk05.
*-  Look for Match Condition Record in T076I table (OBCB Transaction)
    READ TABLE gt_t076i TRANSPORTING NO FIELDS
         WITH KEY ewlnr = ls_e1edk05-kschl BINARY SEARCH.
    IF sy-subrc EQ 0.
      CALL FUNCTION 'CURRENCY_AMOUNT_IDOC_TO_SAP'
        EXPORTING
          currency    = e_rbkpv-waers
          idoc_amount = ls_e1edk05-kobtr
        IMPORTING
          sap_amount  = lv_beznk.
      IF ls_e1edk05-alckz EQ '-'.
        e_rbkpv-beznk = e_rbkpv-beznk - lv_beznk.
      ELSE.
        e_rbkpv-beznk = e_rbkpv-beznk + lv_beznk.
      ENDIF.
    ENDIF.
ENDCASE.