修改信贷限额函数

 

 

 

 

SELECT SINGLE * INTO CORRESPONDING FIELDS OF gs_knkk
         FROM knkk WHERE kunnr = gs_zsds003-kunnr AND kkber = gs_zsds003-kkber.
      IF sy-subrc = 0.
        gv_upd = 'U'.
      ELSE.
        gv_upd = 'I'.
      ENDIF.

      SELECT SINGLE * INTO CORRESPONDING FIELDS OF gs_knka
        FROM knka WHERE kunnr = gs_zsds003-kunnr.

      gs_knkk-kunnr = gs_zsds003-kunnr.
      gs_knkk-knkli = gs_zsds003-kunnr.
      gs_knkk-kkber = gs_zsds003-kkber.
      gs_knkk-klimk = gs_zsds003-klimk.
      gs_knkk-erdat = sy-uname.
      gs_knkk-ctlpc = gs_zsds003-ctlpc.


      CALL FUNCTION 'CREDITLIMIT_CHANGE'
        EXPORTING
          i_knka   = gs_knka
          i_knkk   = gs_knkk
          upd_knka = '0'
          upd_knkk = gv_upd
*         XNEUA    = ' '
*         XREFL    = ' '
          yknka    = gv_knka
          yknkk    = gv_knkk.
      IF sy-subrc = 0.
        mesgadd:'RETURN' 'S',
                'MESSAGE' '信贷更新成功！'.
      ELSE.
        mesgadd:'RETURN' 'E',
                'MESSAGE' '信贷更新失败！'.
      ENDIF.