Remittance advice by email to vendors

Question

hi,
       requirement is that when remittance memo is created using f-58 then i want that payment advice to be send to the vendor mail id.....
    how can this be done......do BTE 2040 will be used for this...can any body explain in detail.

Answer 1

Hi,
Yes, BTE 2040 could be used for your requirements. Below are the steps:
1. Go to FIBF
2. Choose menu Settings-Identification-Partner then create a partner
3. Choose menu Settings-Products-of a partner-Edit, create a product
4. Choose menu Settings-Products-of a partner-Activate, list the product created here so it is recognized as active product
5. Choose menu Settings-P/S Function Modules-of a partner
6. List event 00002040 with the partner and product created above. Specify the custom FM for event 2040 here.
7. Go to SE37
8. You can use sample FM SAMPLE_PROCESS_00002040 as the basis. Below is the sample code for custom FM.
FUNCTION ZFM_PAYMENT_REMITTANCE_2040.
*"*"Local Interface:
*"  IMPORTING
*"     VALUE(I_REGUH) LIKE  REGUH STRUCTURE  REGUH
*"  TABLES
*"      T_FIMSG STRUCTURE  FIMSG
*"  CHANGING
*"     VALUE(C_FINAA) LIKE  FINAA STRUCTURE  FINAA
* data declaration for address routines
  TYPE-POOLS szadr.
  DATA: l_addr1_complete TYPE szadr_addr1_complete,
        l_adsmtp_line    TYPE szadr_adsmtp_line.
* default: print payment advice
  c_finaa-nacha = '1'.
* check that address number is available
  IF NOT i_reguh-zadnr IS INITIAL.
*   read complete address of vendor/customer
    CALL FUNCTION 'ADDR_GET_COMPLETE'
         EXPORTING
              addrnumber     = i_reguh-zadnr
         IMPORTING
              addr1_complete = l_addr1_complete
         EXCEPTIONS
              OTHERS         = 4.
    IF sy-subrc EQ 0.
*     check that internet address is available
*      READ TABLE l_addr1_complete-adsmtp_tab INTO l_adsmtp_line INDEX 1.   "Delete ECDK900445
      READ TABLE l_addr1_complete-adsmtp_tab                                "Insert ECDK900445
        INTO l_adsmtp_line                                                  "Insert ECDK900445
        WITH KEY adsmtp-flgdefault = 'X'.                                   "Insert ECDK900445
      IF sy-subrc EQ 0
      AND NOT l_adsmtp_line-adsmtp-smtp_addr IS INITIAL.
*       choose message type 'I'nternet and fill email address
        c_finaa-nacha = 'I'.
        c_finaa-intad = l_adsmtp_line-adsmtp-smtp_addr.
      ENDIF.
    ENDIF.
  ENDIF.
* if email was not possible: try fax (message type 2)
*Delete Begin ECDK900445
*  IF c_finaa-nacha NE 'I'.
*    IF NOT i_reguh-ztlfx IS INITIAL.
*      c_finaa-nacha      = '2'.                 "Fax
*      c_finaa-tdschedule = 'IMM'.               "Sofort
*      c_finaa-tdteleland = i_reguh-zland.         "Land der Faxnummer
*      c_finaa-tdtelenum  = i_reguh-ztlfx.         "Faxnummer
*      c_finaa-formc      = 'FI_FAX_COVER_A4'.   "SAPscript Deckblatt
*    ENDIF.
*  ENDIF.
*Delete End ECDK900445
ENDFUNCTION.
You could also use event 2050 for change the email subject.
Below is the sampe code.
FUNCTION ZFM_PAYMENT_REMITTANCE_2050.
*"*"Local Interface:
*"  IMPORTING
*"     VALUE(I_REGUH) LIKE  REGUH STRUCTURE  REGUH
*"     VALUE(I_GJAHR) LIKE  REGUD-GJAHR
*"     VALUE(I_NACHA) LIKE  FINAA-NACHA
*"     VALUE(I_AFORN) LIKE  T042B-AFORN
*"  CHANGING
*"     VALUE(C_ITCPO) LIKE  ITCPO STRUCTURE  ITCPO
*"     VALUE(C_ARCHIVE_INDEX) LIKE  TOA_DARA STRUCTURE  TOA_DARA
*"         DEFAULT SPACE
*"     VALUE(C_ARCHIVE_PARAMS) LIKE  ARC_PARAMS STRUCTURE  ARC_PARAMS
*"         DEFAULT SPACE
DATA: l_tdtitle      LIKE itcpo-tdtitle,
      txt_zeile(132) TYPE C.
l_tdtitle = text-001.
WRITE i_reguh-zaldt TO txt_zeile DD/MM/YYYY.
REPLACE '&' WITH txt_zeile INTO l_tdtitle.
c_itcpo-tdtitle = l_tdtitle.
ENDFUNCTION.
Regards,
Teddy