Passing values to outbound ORDERS05 idoc.

Question

Hi,
I have to do an enhancement wherein whenever a PO is created and sent through EDI an outbound idoc will be created which will contain some additional data in some segemnts.For e.g. I have to fill stras, ort01 and pstlz fields of segment  E1EDPA1 from KNA1 where lifnr value is equal to the lifnr in PO.
How do I pass the values to the segment and append it to the idoc data?
Need help urgently!!
Thanks,
Sandeep.

Answer 1

Hi,
Check the code below:
FUNCTION ..........
Checking the Purchase Order types
  PERFORM fill_bsart.
Selecting the data and putting it into the final internal table.
  PERFORM fill_final.
Checking the case inorder to populate the data in the new segments
  CASE int_edidd-segnam.
    WHEN gc_e1edk01.
    Populate Header segment
      PERFORM f_populate_header.
    WHEN gc_e1edp01.
    Populate Item segment
      PERFORM f_populate_item.
  ENDCASE.
ENDFUNCTION.
FORM f_populate_header .
  CLEAR: gv_e1edk01, gv_hsegment.
  MOVE int_edidd-sdata TO gv_e1edk01.
  MOVE : gv_e1edk01-belnr TO gv_hsegment-purchase_order,
         gv_e1edk01-bsart TO gv_hsegment-order_type.
  CLEAR: gs_final.
Reading the final internal table with Index 1 and moving the data to int_edidd
  READ TABLE gt_final INTO gs_final INDEX 1.
  IF sy-subrc EQ 0.
    MOVE: gs_final-eknam TO gv_hsegment-eknam.
    MOVE: gs_final-stras TO gv_hsegment-street,
          gs_final-netwr TO gv_hsegment-netwr,
          gs_final-oknam TO gv_hsegment-po_approver.
    MOVE: gv_hsegment TO int_edidd-sdata,
          gc_hseg TO int_edidd-segnam.
    APPEND int_edidd TO int_edidd.
    CLEAR int_edidd.
    CLEAR : gs_final.
  ENDIF.
ENDFORM.                    " f_populate_header
FORM f_populate_item .
  CLEAR: gv_isegment,gs_final.
  MOVE int_edidd-sdata TO gv_e1edp01.
Reading the final internal table with key ebelp and moving the data to int_edidd
  READ TABLE gt_final INTO gs_final WITH KEY ebelp = gv_e1edp01-posex.
  IF sy-subrc EQ 0.
    MOVE: gs_final-bsart TO gv_isegment-order_type,
          gs_final-eindt TO gv_isegment-eeind,
          gs_final-ebelp TO gv_isegment-ebelp,
          gs_final-ean11 TO gv_isegment-ean11,
          gs_final-numtp TO gv_isegment-numtp,
          gs_final-txz01 TO gv_isegment-txz01,
          gs_final-meins TO gv_isegment-meins,
          gs_final-idnlf TO gv_isegment-idnlf.
    MOVE: gv_isegment TO int_edidd-sdata,
          gc_iseg     TO int_edidd-segnam.
    APPEND int_edidd TO int_edidd.
    CLEAR int_edidd.
  ENDIF.
ENDFORM.                    " f_populate_item
FORM fill_bsart .
  CONSTANTS: lc_i TYPE c  VALUE 'I',
             lc_eq TYPE char2 VALUE 'EQ',
             lc_ylro TYPE char4 VALUE 'ylro',
             lc_yspo TYPE char4 VALUE 'yspo',
             lc_ylso TYPE char4 VALUE 'ylso',
             lc_ysub TYPE char4 VALUE 'ysub',
             lc_yvwh TYPE char4 VALUE 'yvwh'.
  CLEAR: gt_bsart.
  gt_bsart_line-sign = lc_i.
  gt_bsart_line-option = lc_eq.
  gt_bsart_line-low = lc_ylro.
  APPEND gt_bsart_line TO gt_bsart.
  CLEAR :gt_bsart_line.
  gt_bsart_line-sign = lc_i.
  gt_bsart_line-option = lc_eq.
  gt_bsart_line-low = lc_ylso.
  APPEND gt_bsart_line TO gt_bsart.
  CLEAR :gt_bsart_line.
  gt_bsart_line-sign = lc_i.
  gt_bsart_line-option = lc_eq.
  gt_bsart_line-low = lc_yspo.
  APPEND gt_bsart_line TO gt_bsart.
  CLEAR :gt_bsart_line.
  gt_bsart_line-sign = lc_i.
  gt_bsart_line-option = lc_eq.
  gt_bsart_line-low = lc_ysub.
  APPEND gt_bsart_line TO gt_bsart.
  CLEAR :gt_bsart_line.
  gt_bsart_line-sign = lc_i.
  gt_bsart_line-option = lc_eq.
  gt_bsart_line-low = lc_yvwh.
  APPEND gt_bsart_line TO gt_bsart.
  CLEAR :gt_bsart_line.
  LOOP AT gt_bsart INTO gt_bsart_line.
    IF xekko-bsart NE gt_bsart_line.
      EXIT.
    ENDIF.
  ENDLOOP.
ENDFORM.                    " fill_bsart
FORM fill_final .
  REFRESH :gt_ekko.
Getting the data from EKKO table
  SELECT ebeln
         bsart
         ernam
         lifnr
         waers
         bedat
         ekgrp
   FROM  ekko
   INTO CORRESPONDING FIELDS OF TABLE gt_ekko
  WHERE bsart EQ gv_e1edk01-bsart
    AND ebeln EQ gv_e1edk01-belnr.
  IF sy-subrc EQ 0.
    SORT gt_ekko BY ebeln ekgrp.
  ENDIF.
  REFRESH: gt_ekpo, gt_t024, gt_erev, gt_lfa1.
  IF NOT gt_ekko[] IS INITIAL.
  Getting the data from EKPO
    SELECT ebeln
           ebelp
           bstyp
           txz01
           matnr
           idnlf
           menge
           meins
           netpr
           netwr
           ean11
     FROM  ekpo
     INTO CORRESPONDING FIELDS OF TABLE gt_ekpo
      FOR ALL ENTRIES IN gt_ekko
    WHERE ebeln EQ gt_ekko-ebeln.
    IF sy-subrc EQ 0.
      SORT gt_ekpo BY ebeln ebelp matnr.
    ENDIF.
  Getting the data from EREV
    SELECT   bstyp
             edokn
             edokp
             revno
             oknam
       FROM erev
       INTO CORRESPONDING FIELDS OF TABLE gt_erev
       FOR ALL ENTRIES IN gt_ekko
     WHERE bstyp EQ gt_ekko-bstyp.
    IF sy-subrc EQ 0.
      SORT gt_erev BY bstyp oknam.
    ENDIF.
  Getting the data from LFA1
    SELECT lifnr
           stras
      FROM lfa1
      INTO CORRESPONDING FIELDS OF TABLE gt_lfa1
       FOR ALL ENTRIES IN gt_ekko
        WHERE lifnr EQ gt_ekko-lifnr.
    IF sy-subrc EQ 0.
      SORT gt_lfa1 BY lifnr.
    ENDIF.
  Getting the data from T024
    SELECT ekgrp
           eknam
      FROM t024
      INTO CORRESPONDING FIELDS OF TABLE gt_t024
       FOR ALL ENTRIES IN gt_ekko
     WHERE ekgrp EQ gt_ekko-ekgrp.
    IF sy-subrc EQ 0.
      SORT gt_t024 BY ekgrp eknam.
    ENDIF.
  ENDIF.
  IF NOT gt_ekpo[] IS INITIAL.
  Getting the data from MARA
    SELECT matnr
           ean11
           numtp
      FROM mara
      INTO CORRESPONDING FIELDS OF TABLE gt_mara
       FOR ALL ENTRIES IN gt_ekpo
     WHERE matnr EQ gt_ekpo-matnr.
    IF sy-subrc EQ 0.
      SORT gt_mara BY matnr ean11.
    ENDIF.
  Getting the data from EKET
    SELECT ebeln
           ebelp
           eindt
      FROM eket
      INTO CORRESPONDING FIELDS OF TABLE gt_eket
       FOR ALL ENTRIES IN gt_ekpo
     WHERE ebeln EQ gt_ekpo-ebeln.
    IF sy-subrc EQ 0.
      SORT gt_eket BY ebeln ebelp eindt.
    ENDIF.
  ENDIF.
Moving the data to the final internal table
  LOOP AT gt_ekpo INTO gs_ekpo.
    gs_final-ebelp = gs_ekpo-ebelp.
    gs_final-matnr = gs_ekpo-matnr.
    CLEAR :gs_ekko.
    READ TABLE gt_ekko INTO gs_ekko
             WITH KEY ebeln = gs_ekpo-ebeln BINARY SEARCH.
    IF sy-subrc EQ 0.
      gs_final-ebeln = gs_ekko-ebeln.
      gs_final-bsart = gs_ekko-bsart.
      gs_final-lifnr = gs_ekko-lifnr.
      gs_final-ekgrp = gs_ekko-ekgrp.
    ENDIF.
    CLEAR : gs_mara.
    READ TABLE gt_mara INTO gs_mara WITH KEY matnr = gs_ekpo-matnr.
    IF sy-subrc EQ 0.
      gs_final-ean11 = gs_mara-ean11.
      gs_final-numtp = gs_mara-numtp.
    ENDIF.
    CLEAR: gs_t024.
    READ TABLE gt_t024 INTO gs_t024 WITH KEY ekgrp = gs_ekko-ekgrp.
    IF sy-subrc EQ 0.
      gs_final-eknam = gs_t024-eknam.
    ENDIF.
    CLEAR: gs_eket.
    READ TABLE gt_eket INTO gs_eket WITH KEY ebeln = gs_ekko-ebeln.
    IF sy-subrc EQ 0.
      gs_final-eindt = gs_eket-eindt.
    ENDIF.
    CLEAR: gs_erev.
    READ TABLE gt_erev INTO gs_erev WITH KEY bstyp = gs_ekko-bstyp.
    IF sy-subrc EQ 0.
      gs_final-oknam = gs_erev-oknam.
    ENDIF.
    CLEAR:gs_lfa1.
    READ TABLE gt_lfa1 INTO gs_lfa1 WITH KEY lifnr = gs_ekko-lifnr.
    IF sy-subrc EQ 0.
      gs_final-stras = gs_lfa1-stras.
    ENDIF.
    APPEND gs_final TO gt_final.
    CLEAR :gs_final.
  ENDLOOP.
  SORT gt_final BY ebeln ebelp.
ENDFORM.                    " fill_final
Regards
Kannaiah