function zfi_paymedium_customer_xbpnr.
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*"  IMPORTING
*"     VALUE(I_FPAYH) LIKE  FPAYH STRUCTURE  FPAYH
*"     VALUE(I_FPAYHX) LIKE  FPAYHX STRUCTURE  FPAYHX
*"  TABLES
*"      T_FPAYP STRUCTURE  FPAYP
*"      T_PAYMENT_DETAILS STRUCTURE  FPM_PAYD
*"  CHANGING
*"     REFERENCE(C_XAVIS_REQ) DEFAULT 'ZTEST'
*"----------------------------------------------------------------------
*{   INSERT         E21K904714                                        1
  data:
    ln_line_h(10) type n,
    ln_line_d(10) type n.

  data:
    ls_note        type fpm_payd,
    lv_note        type string,
    lv_note_kum    type string,
    lv_zzxblnrcust type   char50,
    lv_line        type i,
    lv_dat_str     type  string,
    lv_doclr_txt   type string.

*DATA:
*it_t_fpayp   TYPE STANDARD TABLE OF FPAYP,"TABLES PARAM
*wa_t_fpayp   LIKE LINE OF it_t_fpayp ,
*it_t_payment_details   TYPE STANDARD TABLE OF FPM_PAYD,"TABLES PARAM
*wa_t_payment_details   LIKE LINE OF it_t_payment_details .

*DATA(ld_c_xavis_req) = 'some text here'.
*
*DATA(ld_i_fpayh) = 'Check type of data required'.
*
*DATA(ld_i_fpayhx) = 'Check type of data required'.

  field-symbols: <doc> like line of t_fpayp.

  describe table t_fpayp lines ln_line_d.

  if ( i_fpayh is not initial ) and ( ln_line_d > 0 ).

    refresh t_payment_details.
    clear lv_line.

    if ln_line_d <= 4.

      loop at t_fpayp assigning <doc> where laufd = i_fpayh-laufd and laufi = i_fpayh-laufi and xvorl = i_fpayh-xvorl and origin = i_fpayh-dorigin.

        clear: lv_note.
        lv_line = lv_line + 1.
        concatenate <doc>-bldat+6(2) <doc>-bldat+4(2) <doc>-bldat(4) into lv_dat_str separated by '.'.

        select single zzxblnrcust into lv_zzxblnrcust from bkpf
         where   xblnr = <doc>-xblnr.

        if lv_zzxblnrcust is not initial.
          lv_zzxblnrcust =  substring( val = lv_zzxblnrcust off = 0 len = 30 ).

          ls_note-length = 32.
          lv_note = lv_zzxblnrcust && ' -'.
          ls_note-text   = lv_note.
          ls_note-typeg   = 1.
          ls_note-type   = 1.
          ls_note-line   =  lv_line.

        else.
          if sy-langu = 'D'.
            lv_note = |Re. |.
          else.
            lv_note = |Inv. |.
          endif.
          lv_note = lv_note && |{ <doc>-xblnr }/|.
          lv_note = lv_note && |{ lv_dat_str } -|.

          ls_note-length = 32.
          ls_note-text   = lv_note.
          ls_note-typeg   = 1.
          ls_note-type   = 1.
          ls_note-line   = lv_line.
        endif.

        append ls_note to t_payment_details.
      endloop.

*    clear ls_note.
*    ls_note-length = 32.
*    ls_note-typeg   = 1.
*    ls_note-type   = 1.
*    ls_note-line   = lv_line  + 1.
*    append ls_note to t_payment_details.

      clear: lv_note.
      lv_doclr_txt = |{ i_fpayh-doc1r+4(10) }|.
      lv_note = |{ lv_doclr_txt }|.
      ls_note-length = 35.
      ls_note-text   = lv_note.
      ls_note-typeg   = 2.
      ls_note-type   = 2.
      ls_note-line   = 1.
      append ls_note to t_payment_details.
*
      clear: lv_note.
      lv_note = 'SEPA CT/'.
      ls_note-length = 12.
      ls_note-text   = lv_note.
      ls_note-type   = 3.
      ls_note-line   = 1.
      append ls_note to t_payment_details.

    else.

*      loop at t_fpayp assigning <doc> where laufd = i_fpayh-laufd and laufi = i_fpayh-laufi and xvorl = i_fpayh-xvorl and origin = i_fpayh-dorigin .
*        lv_line = lv_line + 1.
*        concatenate <doc>-bldat+6(2) <doc>-bldat+4(2) <doc>-bldat(4) into lv_dat_str separated by '.'.
*        continue.
*      endloop.

      READ TABLE t_fpayp assigning <doc> WITH KEY laufd = i_fpayh-laufd laufi = i_fpayh-laufi xvorl = i_fpayh-xvorl origin = i_fpayh-dorigin.

      clear: lv_note.
      if sy-langu = 'D'.
        lv_note = |Avis |.
      else.
        lv_note = |PayAdv |.
      endif.
      lv_note = lv_note && |{ i_fpayh-doc1r+4(10) }|.

      if sy-langu = 'D'.
        lv_note = lv_note && | vom |.
      else.
        lv_note = lv_note && | from |.
      endif.

      lv_note = lv_note && |{ i_fpayh-zaldt } |.
      ls_note-length =  32.
      ls_note-text   = lv_note.
      ls_note-typeg   = 4.
      ls_note-type   = 1.
      ls_note-line   = 1.
      append ls_note to t_payment_details.

      ls_note-typeg   = 4.
      ls_note-type   = 4.
      ls_note-line   = 1.
      append ls_note to t_payment_details.

      clear: lv_note.
      lv_note = 'SEPA CT/'.
      ls_note-length = 12.
      ls_note-text   = lv_note.
      ls_note-type   = 3.
      ls_note-line   = 1.
      append ls_note to t_payment_details.

    endif.

  endif.

*}   INSERT
endfunction.