zoukankan      html  css  js  c++  java
  • 修改信贷限额函数

    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.
  • 相关阅读:
    C++字符串(srtring)反转
    字典(Dictionary)
    畅通工程
    子串计算
    神奇的口袋
    SLT 优先队列 哈弗曼树最小带权路径
    大数阶乘
    整数拆分
    A+B (带有,的数字)
    Hdu 1232 畅通工程
  • 原文地址:https://www.cnblogs.com/sapSB/p/5025357.html
Copyright © 2011-2022 走看看