信贷额度的组成：假如某客户信用限额1万；开出销售订单时锁定1万；一旦发货1万，销售订单1万限额释放，变成发货锁定限额1万。一旦开票，发货1万限额释放，应收锁定1万限额。清帐成功，应收释放1万。信用限额又回到1万了，如此循环。 

 未清订单价值：未清订单价值是所有未交货的订单条目的价值；未清订单的价值是基于已确认数量的（已

确认数量乘以信用价格=订单的未清订单价值）；因信用检查已经被锁住的订单不包含已确认的数量；

只要锁还在，未清订单价值就不会增加 

 未清交货价值：未清交货价值是所有尚未出具发票的交货条目的价值；做了交货装载未做交货确认（客

户收货）。 

 未清出具发票价值：未清出具发票价值是所有尚未传输到会计的出具发票条目的价值 

 来自特殊总账事务的预收款：如果它们与信用限额相关（例如，付款），则会从特殊承付款转移到总承

付款；系统基于付款者更新价值；

http://wenku.baidu.com/link?url=oPMuwXni1B0tSevcDr_o1EPnS87vmuYSrg-AKhoho6xDIBCgDaAr4LsWyHcdzrxdZir25PAwjSYxmi8EfnA9FinymWcFuaMbs4iTs-iCQ6K

以上部分为标准信贷管理的配置和说明，下面就说说临时信贷的东西，临时信贷不在SAP标准范围了，这是根据业务需要整出来为一些信用超额的用户实行的特殊管理。

一张临时授信表，对应到客户级别，订单级别，信贷范围级别，且每条授信数据都是有有效期。

逻辑说明：在信用检查的出口中计算客户的临时授信等数据，并参与到标准的信用计算中，最终对于结果给出标准的信贷返回值。

程序出口：LVKMPFZ1

***INCLUDE LVKMPFZ1 .* Subroutines for user credit check 1*---------------------------------------------------------------------**       FORM USER_CREDIT_CHECK1                                       **---------------------------------------------------------------------**       this routine must be programmed, if user activates credit     **       check user 1 in T691f                                         **       please regard message numbers V1170, V1171 in Table T100      **---------------------------------------------------------------------**  -->  UCC1_UPDATE       'X' means during posting a document         **                         ' ' means during processing items           **  -->  UCC1_KKBER        credit control area                         **  -->  UCC1_KNKLI        credit customer                             **  -->  UCC1_FLG_ORDER    'X' means document is an order              **  -->  UCC1_FLG_DELIVERY 'X' means document is a  delivery note      **  <--  UCC1_RC           returncode: 0 means OK, 4 means not OK      **---------------------------------------------------------------------*FORM USER_CREDIT_CHECK1 USING   UCC1_UPDATE                                UCC1_KKBER                                UCC1_KNKLI                                UCC1_FLG_ORDER                                UCC1_FLG_DELIVERY                          CHANGING                                UCC1_RC.* clear the returncode  CLEAR UCC1_RC.* credit check: if not positiv, set returncode* MOVE CON_RC_NOK TO UCC1_RC."""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(1) Form USER_CREDIT_CHECK1, End                                                                                                                      A*$*$-Start: (1)---------------------------------------------------------------------------------$*$*ENHANCEMENT 1  ZLVKMPFZ1_CHECK.    "active versionDATA: DATE_CREDIT_EXPOSURE TYPE D VALUE '99991231',      SCC_OPEN_ORDER    LIKE S066-OEIKW,      SCC_OPEN_DELIVERY LIKE S067-OLIKW,      SCC_OPEN_INVOICE  LIKE S067-OFAKW,      SCC_SUM_OPENS     LIKE S067-OFAKW,      SCC_RC,      SCC_RC_ALL,      SCC_RC_WARNING,      SCC_RC_ERROR,      SCC_RC_STATUS_SET,      SCC_UPDATE,      SCC_KKBER LIKE rlikp-kkbeR,      SCC_KNKLI LIKE rlikp-knkli,      SCC_FLG_ORDER,      SCC_FLG_DELIVERY,      SCC_CMPSX LIKE    rkvbuk-cmpsa.*变量赋值将UCC的变量值赋值给SCC     SCC_KKBER =  UCC1_KKBER.     SCC_KNKLI =   UCC1_KNKLI.     SCC_FLG_ORDER = UCC1_FLG_ORDER.     SCC_FLG_DELIVERY = UCC1_FLG_DELIVERY.     SCC_UPDATE =  UCC1_UPDATE.     "*执行标准的静态检查程序    CLEAR SCC_RC.  "实时应回款金额  DATA:LV_DMBTR TYPE DMBTR.  CLEAR:LV_DMBTR.  READ TABLE XVBPA INDEX 1.  IF SY-SUBRC = 0.    CLEAR:LV_DMBTR.      CALL FUNCTION 'ZFM_DYN_DUE_PAY'        EXPORTING          IM_VBELC       = ''          IM_VBELA       = XVBPA-VBELN          IM_ERDAT       = SY-DATUM        IMPORTING          EX_DMBTR       = LV_DMBTR.        IF LV_DMBTR <= 0.           UCC1_RC = 0.        ELSE.           UCC1_RC = 4.        ENDIF.  ENDIF.  "收款单货款金额  DATA:LV_SHKDJE TYPE DMBTR.  CLEAR:LV_SHKDJE.  CALL FUNCTION 'ZSD_SKD_HKJE'    EXPORTING      IM_KUNNR       = UCC1_KNKLI      IM_KKBER       = UCC1_KKBER*     IM_ZDJLX       =*     IM_GJAHR       = SY-DATUM+0(4)    IMPORTING      EX_ZHKJE       = LV_SHKDJE.  "获取临时信用额度  DATA:LV_LSXYED TYPE DMBTR.  CLEAR:LV_LSXYED.  CALL FUNCTION 'ZFM_GET_TEMP_CREDIT'    EXPORTING*     IM_VBELC        =      IM_VBELA        = XVBPA-VBELN      IM_KUNNR        = UCC1_KNKLI      IM_KKBER        = UCC1_KKBER      IM_ERDAT        = SY-DATUM*     IM_ERDAT2       = SY-DATUM*     IM_CRBLB        =    IMPORTING*     EX_ZJLH         =      EX_LSXYJE       = LV_LSXYED.* Ermitteln Alterung  PERFORM CREDIT_MASTER_GET    USING SCC_KKBER          SCC_KNKLI          T691F-ERLTA          T691F-ERLST    CHANGING SAV_FI_VEKTOR_AKTUELL KNKK.* get credit exposure SD  IF T691F-STVAW EQ TRUE  OR T691F-STVLW EQ TRUE.    PERFORM CREDIT_EXPOSURE_GET      USING SCC_KKBER            SCC_KNKLI            DATE_CREDIT_EXPOSURE            T014            T691F-STVAW             "open order            T691F-STVLW             "open delivery            T691F-STVLW             "open invoice      CHANGING            SCC_OPEN_ORDER            SCC_OPEN_DELIVERY            SCC_OPEN_INVOICE            SAV_OPEN_ORDER_SECURE            SAV_OPEN_DELIVERY_SECURE            SAV_OPEN_INVOICE_SECURE            DELTA_SPTAG            DELTA_SPWOC            DELTA_SPMON            DELTA_SPBUP.  ENDIF.* gets the delta of current order, that must computed to credit database  CLEAR: DELTA_OEIKW, DELTA_OLIKW, DELTA_OFAKW.  IF T691F-STVAW EQ TRUE  OR T691F-STVLW EQ TRUE.    IF SCC_FLG_ORDER EQ TRUE.      PERFORM CREDIT_DELTA_ORDER.*       CHANGING DELTA_OEIKW DELTA_OLIKW DELTA_OFAKW.    ENDIF.*    IF SCC_FLG_ORDER EQ CHARY.      PERFORM CREDIT_DELTA_SM_ORDER.    ENDIF.*    IF SCC_FLG_DELIVERY EQ TRUE.      PERFORM CREDIT_DELTA_DELIVERY.*       CHANGING DELTA_OEIKW DELTA_OLIKW DELTA_OFAKW.    ENDIF.  ENDIF.* offene werte bestimmen   SCC_SUM_OPENS = SCC_SUM_OPENS - LV_SHKDJE - LV_LSXYED.  IF T691F-STVAW EQ TRUE.    ADD DELTA_OEIKW TO SCC_OPEN_ORDER.    SCC_SUM_OPENS = SCC_SUM_OPENS + SCC_OPEN_ORDER.  ENDIF.  IF T691F-STVLW EQ TRUE.    ADD DELTA_OLIKW TO SCC_OPEN_DELIVERY.    ADD DELTA_OFAKW TO SCC_OPEN_INVOICE.    SCC_SUM_OPENS = SCC_SUM_OPENS + SCC_OPEN_DELIVERY                                  + SCC_OPEN_INVOICE.  ENDIF.* Kreditlimit anpassen  PERFORM KNKK-KLIMK_CHANGE USING T691F CHANGING SAV_KNKK_KLIMK.* open values  > creditlimit  IF SCC_SUM_OPENS GT SAV_KNKK_KLIMK.    PERFORM MESSAGE_EXCEEDED_VALUE USING SCC_FLG_ORDER SCC_SUM_OPENS.    MOVE CON_RC_NOK TO SCC_RC.    ELSE.      CLEAR:RC_CHECK,RC_WARNING.*      IF SY-TCODE = 'VA02'.*        CALL FUNCTION 'SD_ORDER_CREDIT_RELEASE'*          EXPORTING*            VBELN             = XVBPA-VBELN**           IF_SYNCHRON       = 'X'*                  .**      ENDIF.  ENDIF.* set returncodes and status*  PERFORM INDICATORS_SET USING    SCC_UPDATE*                                  SCC_RC*                                  T691F-STSET*                                  T691F-STREA*                         CHANGING SCC_RC_ALL*                                  SCC_RC_WARNING*                                  SCC_RC_ERROR*                                  SCC_RC_STATUS_SET*                                  SCC_CMPSX.* set returncodes and status for ageing FI data  PERFORM AGEING_FI_DATA       USING    SAV_FI_VEKTOR_AKTUELL                                        SCC_UPDATE                                        T691F-STSET                                        T691F-STREA                               CHANGING RC_CHECK_M                                        SCC_RC_ALL                                        SCC_RC_WARNING                                        SCC_RC_STATUS_SET                                        RKVBUK-CMPSM                                        FI_VEKT_REA.ENDENHANCEMENT.*$*$-End:   (1)---------------------------------------------------------------------------------$*$*ENDFORM.

 

 

订单解冻函数：SD_ORDER_CREDIT_RELEASE 效果等同于VKM1

状态更新函数：I_CHANGE_STATUS                 强制修改状态，用前需检查状态未变更，否则状态会DUMP

信贷金额限度：CREDITLIMIT_CHANGE            upd_knkk ‘I’ 'U'...