FUNCTION Z_PARTNERNAME_FILL.
*"----------------------------------------------------------------------
*"*"Локальный интерфейс:
*"  IMPORTING
*"     VALUE(I_POSTAB) LIKE  RFPOS STRUCTURE  RFPOS
*"  EXPORTING
*"     VALUE(E_POSTAB) LIKE  RFPOS STRUCTURE  RFPOS
*"----------------------------------------------------------------------

   tables: lfa1, kna1, bseg.
   data:    zkunnr like bseg-kunnr,
      zlifnr like bseg-lifnr.

   if i_postab-KOART = 'K' and not i_postab-KONTO is initial.
      select single name1 into i_postab-zzpartnername
      from lfa1
      where lifnr = i_postab-konto.
   endif.

   if i_postab-KOART = 'D' and not i_postab-KONTO is initial.
      select single name1 into i_postab-zzpartnername
      from kna1
      where kunnr = i_postab-konto.
   endif.

   if i_postab-KOART = 'S'.
      select single lifnr kunnr into (zlifnr, zkunnr)
      from bseg
      where    bukrs = i_postab-bukrs
         and gjahr = i_postab-gjahr
         and belnr = i_postab-belnr
         and buzei = i_postab-buzei.

      if sy-subrc = 0.
         if not zlifnr is initial.
            select single name1 into i_postab-zzpartnername
            from lfa1
            where lifnr = zlifnr.
         elseif not zkunnr is initial.
            select single name1 into i_postab-zzpartnername
            from kna1
            where kunnr = zkunnr.
         else.
            select single lifnr kunnr into (zlifnr, zkunnr)
            from bseg where bukrs = i_postab-bukrs and
            gjahr = i_postab-gjahr and
            belnr = i_postab-belnr and
            ( koart = 'D' or koart = 'K' ).
            
            if not zlifnr is initial.
               select single name1 into i_postab-zzpartnername
               from lfa1
               where lifnr = zlifnr.
            elseif not zkunnr is initial.
               select single name1 into i_postab-zzpartnername
               from kna1
               where kunnr = zkunnr.
            endif.
         endif.
      endif.
   endif.

   E_POSTAB = I_POSTAB.
ENDFUNCTION.