客户信贷管理&hg0088-布布扣

曲目:客户信贷管理&hg0088-布布扣
NJ:
时间:2018/03/09
发行:



随从:des   事务   class   style   log   com   http   si   it   

信任位置的排队:条件客户的信誉位置是1万;使接受定单时锁定1万;装货1万后,交易定单1万限时表现,增大一点钟1万的装运限度局限。一旦一张票被翻开,讲演1万限度局限表现,1万个限度局限可能锁定在。结算成,版本1万。信誉位置回到1万。,这么样一点钟彻底改变。 
无偿的次序面值:未清定单面值是承认未讲演的定单条出击目标面值;的未结定单面值是因为决定的数
承认号码乘以信誉价钱=转嫁或;为信誉反省而锁定的定单除非保兑的定单。;
由于锁还在,一点钟未结定单面值不会的扩张
讲演不妥面值:未讲演的面值是承认还缺少成讲演物的面值。;讲演缺少作出讲演承认。
家内的收执)。 
未发行的发票面值:未发行的发票面值是缺少承认发票项出击目标面值
特别普通账事务暂收款:条件它们与信誉位置相互关系(比如,,归还),它将从对大会的特别许诺转变发生。
归还;因为归还人面值的建立;

结束平衡是规范信誉卡的无效地利用和塑造。,嗨有些人在附近临时荣誉的事。,临时信誉外出SAP规范中,这是其中的一部分因为B的特别信任超重的用户的特别完成。。

一张hg0088表,对应于客户平均的,定单平均的,信誉漫游,每个信誉创纪录的都是无效的。。

逻辑阐明:在信誉反省的传播中计算客户的hg0088等创纪录的,参与者规范信任计算,最初塌下导致的规范信誉报应值。。

顺序传播: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 returncodeCLEAR 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-磷酸胞苷唾液酸。
*变量作业的变量值SCC UCC
     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.
  READTABLE XVBPA INDEX 1.
  IF SY-SUBRC = 0.
    CLEAR:LV_DMBTR.
      CALLFUNCTIONZFM_DYN_DUE_PAYEXPORTING
          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.
  CALLFUNCTIONZSD_SKD_HKJEEXPORTING
      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.
  CALLFUNCTIONZFM_GET_TEMP_CREDITEXPORTING*     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.

* 态度 AlterungPERFORM CREDIT_MASTER_GET
    USING SCC_KKBER
          SCC_KNKLI
          T691F-ERLTA
          T691F-ERLST
    CHANGING SAV_FI_VEKTOR_AKTUELL KNKK.
* get credit exposure SDIF T691F-STVAW EQTRUEOR T691F-STVLW EQTRUE.
    PERFORM CREDIT_EXPOSURE_GET
      USING SCC_KKBER
            SCC_KNKLI
            DATE_CREDIT_EXPOSURE
            T014
            T691F-STVAW             "open order
            T691F-STVLW             "open delivery
            T691F-STVLW             "open invoiceCHANGING
            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 databaseCLEAR: DELTA_OEIKW, DELTA_OLIKW, DELTA_OFAKW.
  IF T691F-STVAW EQTRUEOR T691F-STVLW EQTRUE.
    IF SCC_FLG_ORDER EQTRUE.
      PERFORM CREDIT_DELTA_ORDER.
*       CHANGING DELTA_OEIKW DELTA_OLIKW DELTA_OFAKW.ENDIF.
*
IF SCC_FLG_ORDER EQ 节俭的的。
      PERFORM CREDIT_DELTA_SM_ORDER.
    ENDIF.
*
IF SCC_FLG_DELIVERY EQTRUE.
      PERFORM CREDIT_DELTA_DELIVERY.
*       CHANGING DELTA_OEIKW DELTA_OLIKW DELTA_OFAKW.ENDIF.
  ENDIF.
* 显然法度 威尔特 规则

   SCC_SUM_OPENS = SCC_SUM_OPENS - LV_SHKDJE - LV_LSXYED.

  IF T691F-STVAW EQTRUE.
    ADD DELTA_OEIKW TO SCC_OPEN_ORDER.
    SCC_SUM_OPENS = SCC_SUM_OPENS + SCC_OPEN_ORDER.
  ENDIF.
  IF T691F-STVLW EQTRUE.
    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 anpassenPERFORM KNKK-KLIMK_CHANGE USING T691F CHANGING SAV_KNKK_KLIMK.
* open values  > creditlimitIF 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 dataPERFORM 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                 限制修正,在必要更改在前方反省声明,不然,声明将转储。

信誉位置限额:CREDITLIMIT_CHANGE            upd_knkk ‘I’ ‘U‘...

客户信任完成&hg0088

随从:des   事务   class   style   log   com   http   si   it   

原文:

点击查看原文:客户信贷管理&hg0088-布布扣


旅游