Archive Link for outgoing FI documents (correspondence)

Question

Is there anyone that has already implemented the Archiving of FI correspondence using BTE (business transaction events)?
I don't understand if I have to use just archiving function (for instance FI_OPT_ARCHIVE_CORRESPONDENCE) or I need also to activate the specific function of Event (for instance SAMPLE_PROCESS_00002310).
Could you help me please?
Thank in advance
Salvatore Testa

Answer 1

Hi Salvatore,
I have the same requirement, i have did the same way to create a custom function module and assigned as follows:-
1) Go to FIBF.
2) Settings>Product> of a Customer: Create an entry with Product/Text and Activate
3) Settings>Process Modules> of a Customer: Select Process 00002310, enter your Function Module (here is your logic to pick up email address and change output to email (finaa-nacha = 'I'. and finaa-nacha = '2'.).
But still not able to send the mail and fax the custom  code is as follows:
FUNCTION zsample_process_00002310.
""Local Interface:
*"  IMPORTING
*"     VALUE(I_BKORM) LIKE  BKORM STRUCTURE  BKORM
*"     VALUE(I_KOART) LIKE  BKORM-KOART
*"     VALUE(I_KNA1) LIKE  KNA1 STRUCTURE  KNA1 OPTIONAL
*"     VALUE(I_KNB1) LIKE  KNB1 STRUCTURE  KNB1 OPTIONAL
*"     VALUE(I_LFA1) LIKE  LFA1 STRUCTURE  LFA1 OPTIONAL
*"     VALUE(I_LFB1) LIKE  LFB1 STRUCTURE  LFB1 OPTIONAL
*"  TABLES
*"      T_FIMSG STRUCTURE  FIMSG
*"  CHANGING
*"     VALUE(C_FINAA) LIKE  FINAA STRUCTURE  FINAA
*"     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 Declarations
  CONSTANTS : lc_pdf TYPE textf VALUE 'PDF',
              lc_email TYPE fi_nacha VALUE 'I',
              lc_fax TYPE fi_nacha VALUE '2',
              lc_imm TYPE skschedule VALUE 'IMM',
              lc_form TYPE formc VALUE 'Z140_CUS_STAT_01',
              lc_d TYPE bkorm-koart VALUE 'D'.
Consider only the Customer Account type
  IF i_koart = lc_d.
Popoulate the Email address
    IF i_knb1-intad IS NOT INITIAL.
      c_finaa-nacha      = lc_email.            " Email communication method
      c_finaa-intad      = i_knb1-intad.
      c_finaa-textf      = lc_pdf.
    ENDIF.
    IF i_knb1-intad IS NOT INITIAL.
      c_finaa-nacha      = lc_fax.                " Fax Communicaion method
      c_finaa-tdschedule = lc_imm.                " Send immediately
      c_finaa-tdteleland = i_kna1-land1.
      c_finaa-tdtelenum  = i_knb1-tlfxs.
      c_finaa-tdfaxuser  = space.
      c_finaa-namep      = i_knb1-zsabe.
      c_finaa-formc      = lc_form.
      c_finaa-fornr      = lc_form.
    ENDIF.
  ENDIF.
ENDFUNCTION.
Can you please elaborate, how did you solved your problem?
Thanks in advance
Dhirendra