How to send different message types to different partners in purchase orde?

Question

Hi Folks,
I have been searching the forum for my question and have not found a solution yet. Maybe there is one out there that can give the solution.
The situation is as follows.
PO is created and output is determined for the Vendor and medium is correctly set to 5 (External Message, PDF).
The requirement is the be able to either manualle add a partner and enter a email address or get it via automatically determination from buyer (Pur.Grp.)
I have made a new Message type as a copy of neu and only allowed partner BU (Buyer). However that does not seem to work
Anyone out there that could help?
Thanks in advance,
Thomas

Answer 1

Hi Craig,
In the print program we call the form z_get_mail_address
    when '5'.
      data:  lvs_comm_type     type   ad_comm,
             lvs_comm_values   type   szadr_comm_values.
  ... use stratagy to get communication type
enhancement-section lmedruckf1o_01 spots es_saplmedruck .
      call function 'ADDR_GET_NEXT_COMM_TYPE'
        exporting
          strategy           = nast-tcode
          address_number     = lfa1-adrnr
        importing
          comm_type          = lvs_comm_type
          comm_values        = lvs_comm_values
        exceptions
          address_not_exist  = 1
          person_not_exist   = 2
          no_comm_type_found = 3
          internal_error     = 4
          parameter_error    = 5
          others             = 6.
end-enhancement-section.
      if sy-subrc <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      endif.
*Begin 27-09-2011
      perform z_get_mail_address changing lvs_comm_type lvs_comm_values.
End 27-09-2011 xkgu
convert communication data
      move-corresponding nast to intnast.
      move sy-repid           to xprogramm.
      call function 'CONVERT_COMM_TYPE_DATA'
        exporting
          pi_comm_type              = lvs_comm_type
          pi_comm_values            = lvs_comm_values
          pi_country                = lfa1-land1
          pi_repid                  = xprogramm
          pi_snast                  = intnast
        importing
          pe_itcpo               
we added the following code:
form z_get_mail_address changing lvs_comm_type type ad_comm lvs_comm_values type szadr_comm_values.
  data: c_recipient(2) type c value $R
        c_buyer(2)      type c value 'ZC',
        l_mail              like lvs_comm_values-adsmtp-smtp_addr.
  tables: pa0105.
    case nast-parvw.
      when c_indkoeber.
Get mail address in infotype PA0150 subtype 0009.
nast-parnr must be personal number from HR.
        select single * from pa0105 where
              pernr = nast-parnr
          and subty = '0010'
          and begda <= nast-erdat
          and endda >= nast-erdat.
        if sy-subrc = 0.
          l_mail = pa0105-usrid_long.
          perform z_get_mail using l_mail. " some logic here
          lvs_comm_values-adsmtp-smtp_addr = l_mail.
          translate l_mail to upper case.
          lvs_comm_values-adsmtp-smtp_srch  = l_mail.
          lvs_comm_values-adsmtp-consnumber = '001'.
          lvs_comm_values-adsmtp-flgdefault = 'X'.
          lvs_comm_values-adsmtp-home_flag  = 'X'.
          lvs_comm_type = 'INT'.
        endif.
      when c_recipient
Get mail address in PO item (EKPO-AFNAM)
        l_mail = ekpo-afnam.
        perform z_get_mail changing l_mail.
        lvs_comm_values-adsmtp-smtp_addr = l_mail.
        translate l_mail to upper case.
        lvs_comm_values-adsmtp-smtp_srch  = l_mail.
        lvs_comm_values-adsmtp-consnumber = '001'.
        lvs_comm_values-adsmtp-flgdefault = 'X'.
        lvs_comm_values-adsmtp-home_flag  = 'X'.
        lvs_comm_type = 'INT'.
    endcase.
endform.                    " Z_GET_MAIL_ADDRESS