FUNCTION zrfc_mm016.

*"----------------------------------------------------------------------

*"*"Local interface:

*"  IMPORTING

*"     VALUE(CALLNO) TYPE  ZCALLNO

*"     VALUE(BUKRS) LIKE  BSIK-BUKRS

*"     VALUE(GJAHR) LIKE  BSIK-GJAHR

*"  EXPORTING

*"     VALUE(FLAG) LIKE  BAPIRET2-TYPE

*"     VALUE(MESSAGE) LIKE  BAPIRET2-MESSAGE

*"  TABLES

*"      ZRS_EBELN STRUCTURE  ZRS_EBELN OPTIONAL

*"      ZRS_LIFNR STRUCTURE  ZRS_LIFNR OPTIONAL

*"      ZYFYE STRUCTURE  ZYFYE OPTIONAL

*"----------------------------------------------------------------------

TYPES:BEGIN OF ty_regup,

  lifnr   TYPE    regup-lifnr,   "供应商

  bukrs   TYPE    regup-bukrs,   "公司代码

  gjahr   TYPE    regup-gjahr,   "年度

  blart   TYPE    regup-blart,   "凭证类型

  xref3   TYPE    regup-xref3,   "参考码3

  dmbtr   TYPE    regup-dmbtr,   "金额

  wmwst   TYPE    regup-wmwst,   "税额

  zzbelnr TYPE    regup-zzbelnr, "付款成功标识

  END OF ty_regup.

DATA:lt_regup    TYPE TABLE OF ty_regup,

     lt_regup_y  TYPE TABLE OF ty_regup,

     lt_regup1   TYPE TABLE OF ty_regup,

     lt_regup_y1 TYPE TABLE OF ty_regup,

     ls_regup    TYPE ty_regup,

     ls_regup_y  TYPE ty_regup,

     l_syed      TYPE regup-dmbtr. "剩余额度

DATA:dmbtr(),

     lv_datano TYPE i.

SELECT lifnr bukrs gjahr blart xref3 dmbtr wmwst zzbelnr

  INTO TABLE lt_regup

  FROM regup

  WHERE xvorl = 'X'

   AND  zbukr = bukrs

   AND  lifnr IN zrs_lifnr

   AND  bukrs = bukrs

   AND  gjahr = gjahr

   AND  xref3 IN zrs_ebeln.

DELETE lt_regup WHERE zzbelnr = ''. "删除支付不成功的凭证

SORT lt_regup BY lifnr bukrs blart xref3.

lt_regup_y  =  lt_regup.

DELETE lt_regup   WHERE blart = 'KA'.  "应付款额度

DELETE lt_regup_y WHERE blart NE 'KA'. "预付款额度

*--汇总应付金额

LOOP AT lt_regup INTO ls_regup.

CLEAR:ls_regup-blart,ls_regup-zzbelnr.

COLLECT ls_regup INTO lt_regup1.

ENDLOOP.

*--汇总预付金额

LOOP AT lt_regup_y INTO ls_regup_y.

CLEAR:ls_regup_y-blart,ls_regup_y-zzbelnr.

COLLECT ls_regup_y INTO lt_regup_y1.

ENDLOOP.

LOOP AT lt_regup_y1 INTO ls_regup_y.

zyfye-bukrs = ls_regup_y-bukrs.  "公司

zyfye-gjahr = ls_regup_y-gjahr.  "年度

zyfye-lifnr = ls_regup_y-lifnr.  "供应商

zyfye-ebeln = ls_regup_y-xref3.  "PO号（参考码3）

*--预付额度 = 预付额度 + 预付税额

l_syed = ls_regup_y-dmbtr + ls_regup_y-wmwst.

READ TABLE lt_regup1 INTO ls_regup WITH KEY xref3  = ls_regup_y-xref3.

*--剩余额度 = 预付额度 - 应付额度

zyfye-dmbtr  = l_syed - ls_regup-dmbtr.

APPEND zyfye.

CLEAR:l_syed,ls_regup,ls_regup_y,zyfye.

ENDLOOP.

IF zyfye[] IS NOT INITIAL.

   flag = 'S'.

ELSE.

   flag = 'E'.

   message = '没有数据'.

ENDIF.

*---记录日志

 CLEAR:gt_log,gs_log.

  LOOP AT zyfye.

    dmbtr = zyfye-dmbtr.

    lv_datano     = lv_datano + .

    gs_log-name   = 'ZRFC_MM016'.

    gs_log-cdate  = sy-datum.

    GET TIME.

    gs_log-ctime  = sy-uzeit.

    gs_log-callno = callno.

    gs_log-datano = lv_datano.

    gs_log-flag   = flag.

    gs_log-log    = message.

    CONCATENATE zrs_ebeln-sign  zrs_ebeln-option  zrs_ebeln-low  zrs_ebeln-high

                zrs_lifnr-sign  zrs_lifnr-option  zrs_lifnr-low  zrs_lifnr-high

                zyfye-bukrs     zyfye-gjahr       zyfye-lifnr    zyfye-ebeln

                dmbtr

    INTO gs_log-content SEPARATED BY '|'.

    CONDENSE gs_log-content NO-GAPS.

    gs_log-length = STRLEN( gs_log-content ).

    APPEND gs_log TO gt_log.

  ENDLOOP.

  IF gt_log IS NOT INITIAL.

    INSERT zrfc_mm01out_log FROM TABLE gt_log.

    IF sy-subrc = .

      COMMIT WORK.

    ENDIF.

  ENDIF.

ENDFUNCTION.