信贷额度的组成：假如某客户信用限额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 version DATA: 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’…
原创文章，作者：ItWorker，如若转载，请注明出处：https://blog.ytso.com/18639.html