FUNCTION z_floe_payment_advice.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     VALUE(IM_ETYPE) TYPE  /FLOE/ETYPE_CODE
*"     VALUE(IM_LANGU) TYPE  /FLOE/ELANG
*"     VALUE(IM_IMMED) TYPE  FLAG
*"     VALUE(IM_REGUH) TYPE  REGUH
*"     VALUE(IM_REGUP) TYPE  FI_T_REGUP
*"     VALUE(IM_RECIPIENT) TYPE  AD_SMTPADR
*"  EXPORTING
*"     VALUE(EX_SUBRC) TYPE  SYSUBRC
*"----------------------------------------------------------------------

  DATA: ls_rec           TYPE /floe/rec_email_s,
        lt_rec           TYPE /floe/rec_email_t,
        ls_vars          TYPE /floe/vars_s,
        lt_vars_temp     TYPE /floe/vars_t,
        lt_vars          TYPE /floe/vars_t,
        l_langu          TYPE /floe/elang.

* Fill recipient table
*
  ls_rec-email =  im_recipient.
  ls_rec-type = 1.
  APPEND ls_rec TO lt_rec.
*
* Fill variables table
*
* Header
  CALL METHOD /floe/core=>get_data_from_structure
    EXPORTING
      im_structure = im_reguh
    IMPORTING
      ex_vars      = lt_vars_temp.
*
  APPEND LINES OF lt_vars_temp TO lt_vars.
*
* Items
  CALL METHOD /floe/core=>get_data_from_table
    EXPORTING
      im_table = im_regup
    IMPORTING
      ex_vars  = lt_vars_temp.
*
  APPEND LINES OF lt_vars_temp TO lt_vars.
*
* Trigger Floe
*
  CALL FUNCTION '/FLOE/EMAIL_OUT'
    EXPORTING
      im_etype            = im_etype
      im_elang            = im_langu
*     IM_ESUBJECT_LONG    =
      im_rec_emails       = lt_rec
      im_variables        = lt_vars
      im_send_immediately = im_immed
    IMPORTING
      ex_subrc            = ex_subrc.
*
ENDFUNCTION.