Inserting PO and Item fileds in settlement rule in IW31/32/33

Question

Hi ,
My requirement is as follows:
I want to store a PO and PO Item to a CS Order (IW31/32/33) in Settlement rule screen  exclusively.
I came to know that it is not possible to associate a purchase Order through configuration.
Plz suggest the possible Enhancement / exits/BADIs or any other methd for inserting a PO and Item field in settlement rule in transaction IW32.

Answer 1

Hi,
I am unable to attach the Screen Shot for your refrence, Here SCN is not supporting me .
So i have send you the Code:
I created ztable name ZPM_TABLE
with fields ZEBELN
                  ZEQUNR
                  ZTPLNR
In which PO No Equipment No and Functional Location Data is stored..
Then in Exit IWOC0003..
I written Code to fetch the Po Vendor Details  for that particular Equipment No or Functional Location Value as follows :
Please Note :
In My Code I have used Submit Program Name to get the Po Item Values :
Code as Follows:
{ if sy-tcode eq 'IW21' or
   sy-tcode eq  'IW31'.
tables : ekko,
         lfa1,
         adrc,
         t005u,
         t005t,
         zpm_table.
data : wa_lfa1 like lfa1 occurs 0 with header line,
       it_lfa1 like lfa1 occurs 0 with header line,
       wa_popup like zpm_table occurs 0 with header line,
       it_ekko like ekko occurs 0 with header line,
       wa_adrc like adrc occurs 0 with header line,
       po_serv type zpo_service1 with header line.
      it_ser  type zpo_service1 with header line.
*data : text_val type string.
data : begin of it_popup occurs 0,
       po_no like ekko-ebeln,
       po_no1 like ekko-ebeln,
       lifnr like lfa1-lifnr,
       name1 like lfa1-name1,
       mobile like lfa1-telf2,
       street1 like adrc-str_suppl1,
       street2 like adrc-str_suppl2,
       street like adrc-street,
       pin    like  adrc-post_code1,
       tel    like adrc-tel_number,
       fax    like adrc-fax_number,
       ext    like adrc-tel_extens,
       country like  t005t-landx,
       po_text(100) type c,
       end of it_popup.
data : begin of it_ser occurs 0,
      extrow type string,
      SRVPOS type string,
      KTEXT1 type string,
       menge  type esll-menge ,
       meins  type esll-meins,
       netwr  type esll-netwr,
       end of it_ser.
data : scrn_popup like it_popup occurs 0 with header line.
data: po type string,
       text_val type string,
      ven_add type string,
      ven_no type string,
      ven_name type string,
       antwort(1) type c,
       answer(1) type c,
       choise type sy-tabix,
      text1 type  string.
data: l_answer like sy-input.
if i_equnr  is not initial.                           "here I_equnr is the Equipment No which flows in the Screen .
  select * from zpm_table into
           corresponding fields of table wa_popup
           where zequnr = i_equnr.
elseif  i_equnr is not initial and i_tplnr  is not initial. "here I_tplnr is the FL No which flows in the Screen .
  clear : wa_popup.
  select * from zpm_table into
           corresponding fields of table wa_popup
           where zequnr = i_equnr and
                 ztplnr = i_tplnr.
elseif i_tplnr is not initial.
  clear : wa_popup.
  select * from zpm_table into
           corresponding fields of table wa_popup
           where ztplnr = i_tplnr.
endif.
if wa_popup[] is not initial.
  read table wa_popup.
  select ebeln lifnr from ekko
    into corresponding fields of table it_ekko
    where ebeln = wa_popup-zebeln.
  if it_ekko[] is not initial.
    select * from lfa1 into
      corresponding fields of table wa_lfa1
      for all entries in it_ekko
      where lifnr = it_ekko-lifnr.
  endif.
*endloop.
  loop at wa_lfa1 . "into it_lfa1 WITH TABLE KEY lifnr = it_ekko-lifnr.
    select * from adrc into
      corresponding fields of table wa_adrc
      where addrnumber = wa_lfa1-adrnr.
    data:wa_t005u type t005u occurs 0 with header line.
    select * from t005u into
          corresponding fields of table wa_t005u
                  where spras = 'EN'
                  and land1 = wa_adrc-country
                  and bland = wa_adrc-region.
    data:wa_t005t type t005t occurs 0 with header line.
    select * from t005t into
       corresponding fields of table wa_t005t
                where spras = 'EN'
                and land1 = wa_adrc-country.
    it_popup-po_no = wa_popup-zebeln.
    it_popup-lifnr  = wa_lfa1-lifnr.
    it_popup-name1  = wa_lfa1-name1.
    it_popup-mobile  = wa_lfa1-telf2.
    read table wa_adrc index 1.
    it_popup-street1 = wa_adrc-str_suppl1.
    it_popup-street2 = wa_adrc-str_suppl2.
    it_popup-street  = wa_adrc-street.
    it_popup-pin     =  wa_adrc-post_code1.
    it_popup-tel     = wa_adrc-tel_number.
    it_popup-fax     = wa_adrc-fax_number.
    it_popup-ext     = wa_adrc-tel_extens.
    it_popup-country = wa_t005t-landx.
    append it_popup.
  endloop.
  text1 =  'This Equip/Func.Location is Maintained or Service is undertaken by'.
  concatenate  'Vendor No      :  ' it_popup-lifnr
               into ven_no  .
  concatenate  'Vendor Name   :   ' it_popup-name1
               into ven_name  .
  concatenate it_popup-street1
              it_popup-street2
              it_popup-street
              it_popup-pin
              it_popup-country
             'Mob:' it_popup-mobile
             'Tel:' it_popup-tel '-' it_popup-ext
                  into ven_add  separated by space.
  concatenate  'Please Refer this PO No. :   ' it_popup-po_no
               into po  .
message 'Warning!!!' type 'I'.
  Function Module for Pop Up *
  call function 'POPUP_TO_CONFIRM_WITH_MESSAGE'
  exporting
DEFAULTOPTION = 'Y'
   diagnosetext1 = text1
   diagnosetext2 = ven_no
   diagnosetext3 = ven_name
   textline1 = ven_add
   textline2 = po
   titel = 'Warning!!!'
START_COLUMN = 25
START_ROW = 6
    cancel_display = 'X'
   importing
    answer =  antwort.
  " Area for option Yes or No "" .  
  if antwort = 'J'.
    if it_popup-po_no is not initial.                      " Please Note here im checking for PO No
      export it_popup-po_no to memory id 'Memo1'.  "Po No is exported to another Program there i coded for Po items
      submit zpm_po_services and return.
    endif.
  else.
*call TRANSACTION 'iw21'.
    call transaction 'IW21' and skip first screen.
  endif.
endif. " End of  Total itab value/
else.
exit.
endif.     }
This is the Code for zpm_po_services
For any Clarification Revert Back..
With Regards,
Vinu.R