FUNCTION ZKRED_SALDO.
*"----------------------------------------------------------------------
*"*"Локальный интерфейс:
*"  IMPORTING
*"     VALUE(COMPANYCODE) TYPE  BUKRS
*"     VALUE(KEYDATE) TYPE  BUDAT DEFAULT SY-DATUM
*"     VALUE(VENDOR) TYPE  LIFNR
*"     VALUE(NOTEDITEMS) LIKE  BAPI3008-NTDITMS_RQ DEFAULT SPACE
*"     VALUE(BALANCESPGLI) LIKE  BAPI3008-BAL_SGLIND DEFAULT SPACE
*"  EXPORTING
*"     REFERENCE(RETURN) LIKE  BAPIRETURN STRUCTURE  BAPIRETURN
*"  TABLES
*"      SALDO STRUCTURE  ZKREDSAL
*"----------------------------------------------------------------------

  DATA: XLINEITEMS LIKE BSIK OCCURS 0 WITH HEADER LINE.

  RANGES: BSTAT FOR XLINEITEMS-BSTAT.

  CLEAR: BSTAT, XLINEITEMS, SALDO.
  REFRESH: BSTAT, XLINEITEMS, SALDO.

  BSTAT-LOW    = SPACE.
  BSTAT-OPTION = 'EQ'.
  BSTAT-SIGN   = 'I'.
  APPEND BSTAT.

  IF NOT NOTEDITEMS IS INITIAL.
    BSTAT-LOW    = 'S'.
    BSTAT-OPTION = 'EQ'.
    BSTAT-SIGN   = 'I'.
    APPEND BSTAT.
  ENDIF.



  SELECT * FROM BSIK APPENDING CORRESPONDING FIELDS OF TABLE XLINEITEMS
    WHERE BUDAT <= KEYDATE
    AND   BUKRS EQ COMPANYCODE
    AND   LIFNR EQ VENDOR
    AND   BSTAT IN BSTAT.

  SELECT * FROM BSAK APPENDING CORRESPONDING FIELDS OF TABLE XLINEITEMS
    WHERE BUDAT <= KEYDATE
    AND   AUGDT >  KEYDATE
    AND   BUKRS EQ COMPANYCODE
    AND   LIFNR EQ VENDOR
    AND   BSTAT IN BSTAT.


  LOOP AT XLINEITEMS.
    CLEAR SALDO.
    IF NOT BALANCESPGLI IS INITIAL.
      SALDO-UMSKZ = XLINEITEMS-UMSKZ.
    ENDIF.
    SALDO-WAERS = 'RUB'.
    SALDO-HKONT = XLINEITEMS-HKONT.
    IF XLINEITEMS-SHKZG = 'H'.
       SALDO-SALHW = 0 - XLINEITEMS-DMBTR.
    ELSE.
       SALDO-SALHW = XLINEITEMS-DMBTR.
    ENDIF.
    COLLECT SALDO.
  ENDLOOP.

ENDFUNCTION.