SAP客户标准信用额度修改和创建详解编程语言

FUNCTION zfm_credit. 
*"---------------------------------------------------------------------- 
*"*"本地接口： 
*"  TABLES 
*"      T_TAB STRUCTURE  ZJKS001 OPTIONAL 
*"      T_TAB_I STRUCTURE  ZJKS002 OPTIONAL 
*"---------------------------------------------------------------------- 
 
  DATA:gs_zsds001 TYPE zsds001. 
  DATA:gs_zsds002 TYPE zsds002. 
  DATA:lv_func TYPE char50."结构ID 
  DATA:s_tab TYPE zjks001."表头结构 
  DATA:s_tab_i TYPE zjks002."表体结构 
  DATA:gt_table TYPE ddfields, 
       gs_table TYPE dfies. 
  DATA:gs_knka TYPE knka, 
       gs_knkk TYPE knkk, 
       gv_knka TYPE knka, 
       gv_knkk TYPE knkk, 
       gv_upd  TYPE cdpos-chngind. 
  DATA:gv_name1 TYPE kna1-name1. 
  DATA:gt_kna1 TYPE TABLE OF zsknb1, 
       gs_kna1 TYPE          zsknb1. 
  DATA:lv_line TYPE i. 
 
 
  DATA:gs_zsds003 TYPE zsds003. 
 
  DATA:gt_message TYPE TABLE OF bdcmsgcoll. 
  DATA:gs_message TYPE bdcmsgcoll. 
  DATA:lv_str TYPE string. 
  DATA:lv_int TYPE i. 
 
  FIELD-SYMBOLS:  <dyn_wa>,"表头 
                  <dyn_la>,"表体 
                  <dyn_field>."字段 
  DATA lv_col_sting TYPE string . 
 
  DEFINE mesgadd."返回消息赋值 
    S_TAB-FIELDNAME = &1. 
    S_TAB-VALUE = &2. 
    IF &2 is not INITIAL . 
      APPEND S_TAB TO T_TAB. 
    ENDIF. 
  END-OF-DEFINITION. 
 
  DEFINE mesgaddi."返回消息赋值 
    lv_col_sting = &1 . 
    CONCATENATE &2 lv_col_sting into S_TAB_I-FIELDNAME . 
    SHIFT S_TAB_I-FIELDNAME RIGHT DELETING TRAILING space. 
    CONDENSE S_TAB_I-FIELDNAME NO-GAPS. 
    S_TAB_I-VALUE = &3. 
    CONDENSE S_TAB_I-VALUE NO-GAPS. 
    APPEND S_TAB_I TO T_TAB_I. 
  END-OF-DEFINITION. 
 
 
  CLEAR:gs_zsds001,gs_zsds002,lv_func,s_tab,gt_table[],gs_zsds003,lv_str,gt_message. 
 
  READ TABLE t_tab INTO s_tab WITH KEY fieldname = 'FUNCTION'. 
  IF sy-subrc = 0. 
    lv_func = s_tab-value. 
  ELSE. 
    REFRESH:t_tab. 
    mesgadd:'RETURN' 'E', 
            'MESSAGE' '未指定函数！'. 
    RETURN. 
  ENDIF. 
 
  CASE lv_func. 
    WHEN 'CREDIT02'. 
      ASSIGN gs_zsds003 TO <dyn_wa>."表头结构 
    WHEN OTHERS. 
  ENDCASE. 
 
 
  LOOP AT t_tab INTO s_tab."表头数据装换 
    ASSIGN COMPONENT s_tab-fieldname OF STRUCTURE <dyn_wa> TO <dyn_field>. 
    IF sy-subrc = 0. 
      <dyn_field> = s_tab-value. 
      IF s_tab-fieldname = 'KLIMK'. 
        lv_int = s_tab-value. 
        gs_zsds003-klimk = lv_int. 
      ENDIF. 
    ENDIF. 
  ENDLOOP. 
 
  REFRESH:t_tab."清空表头 
 
  CASE lv_func. 
 
    WHEN 'CREDIT02'. 
 
      IF gs_zsds003-ctlpc IS INITIAL. 
        gs_zsds003-ctlpc = 'Z01'. 
      ENDIF. 
      CONCATENATE 'Z' gs_zsds003-kkber INTO gs_zsds003-kkber. 
      CONDENSE gs_zsds003-kkber NO-GAPS. 
      IF gs_zsds003-waers IS INITIAL. 
        gs_zsds003-waers = 'CNY'. 
      ENDIF. 
      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' 
        EXPORTING 
          input  = gs_zsds003-kunnr 
        IMPORTING 
          output = gs_zsds003-kunnr. 
 
      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. 
 
       WHEN OTHERS. 
  ENDCASE. 
 
 
 
ENDFUNCTION.