Remittance Advice Split Lockbox BAI2

Delete statement:

1. Get KUKEY from table FEBKO where EDATE = today or date of import
2. Run program RFEBKA96; application = 0003; ID = KUKEY; delete statement

View Lockbox or Checks:

1. Run /nFLB1; Date = date of file; execute; view other display
2. Use payt adv number to view table AVIP where AVSID = payt advice

User exit to set split line value:
RFEBLB00->RFEBLB20->EXIT_RFEBLB20_001->ZXF01U3
e_avik-texts = 'SPLT'.
e_avik-vorgc = 500.


The actual split logic is in fm FIEB_SPLIT_LOCKBOX_ADVICE (called by RFEBLB00) on line 116. It basically selects AVIP and totals NEBTR until it gets to 500 lines. If the total is positive it checks the next line up to 500 lines etc. Basically making sure none of the advices will result in a negative amount.

Logic:

  loop at l_avip assigning <avip>.  
   l_nebtr = l_nebtr + <avip>-nebtr.  
   l_lines = l_lines + 1.  
   if l_lines = i_max_lines.  
    if l_nebtr < 0.  
     message s672(fv) raising not_possible.  
    endif.  
    clear l_lines.  
    clear l_nebtr.  
   endif.  
  endloop.  
  if l_nebtr < 0.  
   message s672(fv) raising not_possible.  
  endif.