客户信贷

• 文章

  SAP信贷余额表取数逻辑

  ABAP

  FORM GET_DATA . DATA:LT_KNA1 LIKE TABLE OF KNA1 WITH HEADER LINE, LT_S066 LIKE TABLE OF S066 WITH HEADER LINE, LT_S067 LIKE TABLE OF S067 WITH HEADER LINE, LT_T001 LIKE TABLE OF T001 WITH HEADER LINE, LT_ZFT_HKH LIKE TABLE OF ZFT_HKH WITH HEADER LINE. SELECT KUNNR KLIMK KNKLI FROM KNKK INTO CORRESPONDING FIELDS OF TABLE GT_ITAB WHERE KKBER = P_KKBER AND KUNNR IN S_KUNNR. IF GT_ITAB[] IS NOT INITIAL. SELECT * FROM KNA1 INTO TABLE LT_KNA1 FOR ALL ENTRIES IN GT_ITAB WHERE KUNNR = GT_ITAB-KUNNR. SELECT * FROM S066 INTO TABLE LT_S066 FOR ALL ENTRIES IN GT_ITAB WHERE KKBER = P_KKBER AND KNKLI = GT_ITAB-KNKLI. SELECT * FROM S067 INTO TABLE LT_S067 FOR ALL ENTRIES IN GT_ITAB WHERE KKBER = P_KKBER AND KNKLI = GT_ITAB-KNKLI. SELECT * FROM T001 INTO TABLE LT_T001 WHERE KKBER = P_KKBER. IF LT_T001[] IS NOT INITIAL. SELECT * FROM ZFT_HKH INTO TABLE LT_ZFT_HKH FOR ALL ENTRIES IN GT_ITAB WHERE KUNNR = GT_ITAB-KUNNR AND LOEDK = '' AND ZKSTO = '' AND ZFBSK = 'B'. ENDIF. ENDIF. LOOP AT GT_ITAB ASSIGNING <ITAB>. READ TABLE LT_KNA1 WITH KEY KUNNR = <ITAB>-KUNNR. IF SY-SUBRC = 0. <ITAB>-NAME1 = LT_KNA1-NAME1. ENDIF. LOOP AT LT_S066 WHERE KNKLI = <ITAB>-KNKLI. ADD LT_S066-OEIKW TO <ITAB>-OEIKW. ENDLOOP. LOOP AT LT_S067 WHERE KNKLI = <ITAB>-KNKLI. ADD LT_S067-OLIKW TO <ITAB>-OLIKW. ADD LT_S067-OFAKW TO <ITAB>-OFAKW. ENDLOOP. LOOP AT LT_T001 WHERE KKBER = P_KKBER. LOOP AT LT_ZFT_HKH WHERE BUKRS = LT_T001-BUKRS AND KUNNR = <ITAB>-KUNNR. ADD LT_ZFT_HKH-HKBTR TO <ITAB>-HKBTR. ENDLOOP. ENDLOOP. <ITAB>-KYED = <ITAB>-KLIMK + <ITAB>-HKBTR - <ITAB>-OEIKW - <ITAB>-OLIKW - <ITAB>-OFAKW. ENDLOOP. ENDFORM. " GET_DATA

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56

  FORM GET_DATA .   DATA:LT_KNA1    LIKE TABLE OF KNA1 WITH HEADER LINE,        LT_S066    LIKE TABLE OF S066 WITH HEADER LINE,        LT_S067    LIKE TABLE OF S067 WITH HEADER LINE,        LT_T001    LIKE TABLE OF T001 WITH HEADER LINE,        LT_ZFT_HKH LIKE TABLE OF ZFT_HKH WITH HEADER LINE.   SELECT KUNNR KLIMK KNKLI     FROM KNKK     INTO CORRESPONDING FIELDS OF TABLE GT_ITAB   WHERE KKBER = P_KKBER     AND KUNNR IN S_KUNNR.   IF GT_ITAB[] IS NOT INITIAL.     SELECT * FROM KNA1 INTO TABLE LT_KNA1       FOR ALL ENTRIES IN GT_ITAB       WHERE KUNNR  = GT_ITAB-KUNNR.     SELECT * FROM S066 INTO TABLE LT_S066       FOR ALL ENTRIES IN GT_ITAB       WHERE KKBER = P_KKBER         AND KNKLI = GT_ITAB-KNKLI.     SELECT * FROM S067 INTO TABLE LT_S067       FOR ALL ENTRIES IN GT_ITAB       WHERE KKBER = P_KKBER         AND KNKLI = GT_ITAB-KNKLI.     SELECT * FROM T001 INTO TABLE LT_T001       WHERE KKBER = P_KKBER.     IF LT_T001[] IS  NOT INITIAL.       SELECT * FROM ZFT_HKH INTO TABLE LT_ZFT_HKH         FOR ALL ENTRIES IN GT_ITAB         WHERE KUNNR = GT_ITAB-KUNNR           AND LOEDK = ''           AND ZKSTO = ''           AND ZFBSK = 'B'.     ENDIF.   ENDIF.     LOOP AT GT_ITAB ASSIGNING <ITAB>.     READ TABLE LT_KNA1 WITH KEY KUNNR = <ITAB>-KUNNR.     IF SY-SUBRC = 0.       <ITAB>-NAME1 = LT_KNA1-NAME1.     ENDIF.     LOOP AT LT_S066 WHERE KNKLI = <ITAB>-KNKLI.       ADD LT_S066-OEIKW TO <ITAB>-OEIKW.     ENDLOOP.     LOOP AT LT_S067 WHERE KNKLI = <ITAB>-KNKLI.       ADD LT_S067-OLIKW TO <ITAB>-OLIKW.       ADD LT_S067-OFAKW TO <ITAB>-OFAKW.     ENDLOOP.     LOOP AT LT_T001 WHERE KKBER = P_KKBER.       LOOP AT LT_ZFT_HKH WHERE BUKRS = LT_T001-BUKRS                             AND KUNNR = <ITAB>-KUNNR.         ADD LT_ZFT_HKH-HKBTR TO <ITAB>-HKBTR.       ENDLOOP.     ENDLOOP.     <ITAB>-KYED = <ITAB>-KLIMK + <ITAB>-HKBTR - <ITAB>-OEIKW - <ITAB>-OLIKW - <ITAB>-OFAKW.   ENDLOOP. ENDFORM.                    " GET_DATA

   

  ag

  2017.05.30

  2.5K000
• 文章

  通过SAP ABAP接口修改客户信贷主数据

  此程序的核心函数为CREDITLIMIT_CHANGE，可以通过事物代码FD33检验结果。

  ABAP

  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.

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70

  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.

  ag

  2017.05.20

  3.3K010