修改信贷接口

男娘i 2022-07-15 05:07 89阅读 0赞

FUNCTION ZSD\_CREDITLIMIT\_CHANGE .  
\*"----------------------------------------------------------------------  
\*"\*"本地接口：  
\*"  IMPORTING  
\*"     VALUE(I\_KUNNR) TYPE  KNKK-KUNNR  
\*"     VALUE(I\_KKBER) TYPE  KNKK-KKBER DEFAULT '1000'  
\*"     VALUE(I\_KLIMK) TYPE  KNKK-KLIMK  
\*"  EXPORTING  
\*"     VALUE(E\_SUCC) TYPE  CHAR1  
\*"     VALUE(E\_MESSAGE) TYPE  GTER\_TEXT  
\*"----------------------------------------------------------------------  
   DATA : L\_KNA1       TYPE KNA1 ,  
        L\_KNKA       TYPE KNKA ,  
        L\_KNKK       TYPE KNKK ,  
        Y\_KNKA       TYPE KNKA ,  
        Y\_KNKK       TYPE KNKK ,  
        LV\_UPD\_KNKK  TYPE  C ,  
        LV\_XNEUA     TYPE  C .  
  
   CALL  FUNCTION  'CONVERSION\_EXIT\_ALPHA\_INPUT'  
     EXPORTING  
       INPUT   = I\_KUNNR  
     IMPORTING  
       OUTPUT  = I\_KUNNR .  
   SELECT  SINGLE \*  FROM KNA1  INTO L\_KNA1  WHERE KUNNR  = I\_KUNNR .  
   IF SY \-SUBRC <>  0 .  
    E\_SUCC  =  'E' .  
    E\_MESSAGE  =  '客户编码不存在!' .  
   ENDIF .  
   CHECK E\_SUCC <>  'E' .  
  
   SELECT  SINGLE \*  FROM KNKA  INTO Y\_KNKA  WHERE KUNNR  = I\_KUNNR .  
  L\_KNKA  = Y\_KNKA .  
  
   SELECT  SINGLE \*  FROM KNKK  INTO Y\_KNKK  WHERE KUNNR  = I\_KUNNR  
                                           AND KKBER  = I\_KKBER .  
   IF SY \-SUBRC <>  0 .  
    LV\_UPD\_KNKK  =  'I' .  
    L\_KNKK \-KUNNR  = I\_KUNNR .  
    L\_KNKK \-KKBER  = I\_KKBER .  
    L\_KNKK \-KNKLI  = I\_KUNNR .  
   ELSE .  
    LV\_XNEUA  =  'X' .  
    LV\_UPD\_KNKK  =  'U' .  
    L\_KNKK  = Y\_KNKK .  
    L\_KNKK \-AEDAT  = SY \-DATUM .  
    L\_KNKK \-AENAM  = SY \-UNAME .  
   ENDIF .  
  L\_KNKK \-KLIMK  = I\_KLIMK .  
  
  
   CALL  FUNCTION  'CREDITLIMIT\_CHANGE'  
     EXPORTING  
      I\_KNKA    = L\_KNKA  
      I\_KNKK    = L\_KNKK  
      UPD\_KNKA  =  ''  
      UPD\_KNKK  = LV\_UPD\_KNKK  
      XNEUA     = LV\_XNEUA  
\*     XREFL    = ' '  
      YKNKA     = Y\_KNKA  
      YKNKK     = Y\_KNKK .  
   IF SY \-SUBRC  =  0 .  
    E\_SUCC  =  'S' .  
    E\_MESSAGE  =  '更新成功！' .  
   ELSE .  
    E\_SUCC  =  'E' .  
    E\_MESSAGE  =  '更新失败！' .  
   ENDIF .  
  
  
  
ENDFUNCTION .