与信事後管理システム — 延滞、引当金、NPLのデータフロー

                  +--------------------------------------+
                  |        与信元帳 (Loan Ledger)          |
                  |  口座マスター / 返済スケジュール /      |
                  |  取引履歴                              |
                  +---+--------+--------+--------+-------+
                      |        |        |        |
        +-------------+        |        |        +--------------+
        v                      v        v                       v
+---------------+  +----------------+  +-----------+  +----------------+
| 利息/返済処理  |  | 延滞管理       |  | 健全性    |  | 引当金エンジン  |
| - 日次利息計上 |  | - バケット遷移 |  | 分類      |  | - IFRS 9 ECL   |
| - 収納/充当    |  | - 延滞利息     |  | - 5段階   |  | - Stage判定    |
| - 繰上返済     |  | - 期限利益喪失 |  | - FLC     |  | - 会計連動     |
+---------------+  +-------+--------+  +-----------+  +----------------+
                           |
              +------------+-------------+
              v                          v
       +--------------+         +----------------+
       | 督促・回収    |         | NPL処理        |
       | - コール配分  |         | - 償却(write-off)
       | - 約束(PTP)   |         | - 売却(プール構成)
       | - 行為規制    |         | - 債務調整の反映 |
       +--------------+         +----------------+
              |                          |
              +------------+-------------+
                           v
              +--------------------------+
              | 監督報告 / 情報系         |
              | - 業務報告書, 延滞率      |
              | - 信用情報集中機関への登録|
              +--------------------------+

from decimal import Decimal, ROUND_DOWN, ROUND_HALF_UP

UNIT = Decimal("1")  # 最小通貨単位への丸め用

def round_unit(amount: Decimal, mode=ROUND_DOWN) -> Decimal:
    """最小単位の処理。切り捨て/四捨五入は商品条件に従う。"""
    return amount.quantize(UNIT, rounding=mode)

def equal_installment(principal: Decimal, annual_rate: Decimal,
                      months: int) -> list[dict]:
    """元利均等: 毎月の返済額が同一。
    返済額 = P * r * (1+r)^n / ((1+r)^n - 1), r = 月利
    """
    r = annual_rate / Decimal("12")
    factor = (Decimal("1") + r) ** months
    payment = round_unit(principal * r * factor / (factor - Decimal("1")),
                         ROUND_HALF_UP)
    schedule, balance = [], principal
    for seq in range(1, months + 1):
        interest = round_unit(balance * r)
        principal_due = payment - interest
        if seq == months:               # 最終回で端数調整
            principal_due = balance
            payment = principal_due + interest
        balance -= principal_due
        schedule.append({"seq": seq, "payment": payment,
                         "principal": principal_due,
                         "interest": interest, "balance": balance})
    return schedule

def equal_principal(principal: Decimal, annual_rate: Decimal,
                    months: int) -> list[dict]:
    """元金均等: 毎月の元金返済額が同一、利息は残高基準。"""
    r = annual_rate / Decimal("12")
    base_principal = round_unit(principal / Decimal(months))
    schedule, balance = [], principal
    for seq in range(1, months + 1):
        interest = round_unit(balance * r)
        principal_due = base_principal if seq < months else balance
        balance -= principal_due
        schedule.append({"seq": seq,
                         "payment": principal_due + interest,
                         "principal": principal_due,
                         "interest": interest, "balance": balance})
    return schedule

def bullet(principal: Decimal, annual_rate: Decimal,
           months: int) -> list[dict]:
    """期日一括: 毎月利息のみ、満期に元金全額。"""
    r = annual_rate / Decimal("12")
    schedule = []
    for seq in range(1, months + 1):
        interest = round_unit(principal * r)
        principal_due = principal if seq == months else Decimal("0")
        schedule.append({"seq": seq,
                         "payment": principal_due + interest,
                         "principal": principal_due,
                         "interest": interest,
                         "balance": principal - principal_due})
    return schedule

from decimal import Decimal

def apply_payment(received: Decimal, dues: dict) -> dict:
    """収納額を充当順序どおりに配分。duesは基準日現在の未収項目。"""
    order = ["fees", "overdue_interest", "interest", "principal"]
    applied = {}
    remaining = received
    for bucket in order:
        due = dues.get(bucket, Decimal("0"))
        take = min(remaining, due)
        applied[bucket] = take
        remaining -= take
        if remaining <= Decimal("0"):
            break
    applied["unapplied"] = remaining   # 残余額は前受金として処理
    return applied

繰上返済手数料 (例示の構造)

手数料 = 繰上返済元金 x 料率 x (満期までの残存日数 / 貸出総日数)

例: 残高1億ウォンのうち5千万ウォンを返済、料率1.2%、
    総期間1,095日のうち365日経過 (残存730日)
  手数料 = 50,000,000 x 0.012 x (730 / 1,095)
         = 400,000ウォン

延滞バケットの遷移 (日次バッチが毎日判定)

 正常(Current) --未納発生--> 1~29日 (Bucket 1, 初期延滞)
      ^                          |
      | 全額正常化               v
      +<----------- 30~59日 (Bucket 2)
      |                          |
      |                          v
      +<----------- 60~89日 (Bucket 3)
      |                          |
      |                          v
      +<-----?----- 90日以上 (デフォルト認識ゾーン)
                                 |
                                 v
                  期限の利益喪失 (EOD: Event of Default)
                                 |
                                 v
              全額即時返済義務 / 回収強化 / NPLトラック

延滞利息の計算 (一般的な構造の例)

延滞利率 = MIN(約定金利 + 延滞加算金利, 法定上限)

(1) 期限の利益喪失前: 延滞した「当該回次の未納額」基準
    延滞利息 = 未納約定返済額 x 延滞利率 x 延滞日数 / 365

(2) 期限の利益喪失後: 「元金残高の全体」基準
    延滞利息 = 元金残高 x 延滞利率 x 経過日数 / 365

例: 未納返済額100万ウォン、約定金利5%、加算3% -> 延滞利率8%
    延滞40日なら
  延滞利息 = 1,000,000 x 0.08 x 40 / 365 = 8,767ウォン (切捨ルール適用)

IFRS 9 ECL 3段階

 Stage 1                Stage 2                  Stage 3
 (正常)                 (信用リスクの著しい増大)  (信用減損)
 12か月ECLを計上        全期間(Lifetime)ECL       全期間ECL
 利息収益: 総帳簿価額    利息収益: 総帳簿価額      利息収益: 純帳簿価額
 基準                   基準                      (帳簿価額 - 引当金) 基準

 移行トリガー(例):
  Stage 1 -> 2 : 30日以上の延滞(反証可能な推定),
                 信用格付の著しい低下、ウォッチリスト登載など (SICR)
  Stage 2 -> 3 : 90日以上の延滞、期限の利益喪失,
                 債務調整(信用減損の認識)など
  回復方向     : 治癒期間(probation)の経過後に上方移行

ECL計算の骨格

ECL = SUM over t [ PD(t) x LGD(t) x EAD(t) x 割引係数(t) ]

  - Stage 1: t = 今後12か月
  - Stage 2/3: t = 残存満期の全体 (Lifetime)
  - マクロ経済シナリオ(楽観/基準/悲観)ごとに算出して確率加重
  - PD/LGD/EADはCSS・IRB体系のパラメータを会計目的に変形

延滞口座の流入 (日次バッチ)
   |
   v
セグメンテーション
  - 延滞バケット、回収スコア(Collection Score)、金額、商品
  - 自社回収 / 委託回収 / 法的手続トラックの分離
   |
   v
キャンペーン/キュー配分
  - 初期(1~29日): SMS/アプリ通知中心、低コストチャネル
  - 中期(30~89日): オペレーターへのコール配分、約束管理
  - 後期(90日~): 専担組織、法的手続の検討
   |
   v
オペレーターのワークリスト
  - 通話結果コード、約束(PTP)の登録、次のアクションの日程

NPL売却パイプライン

プール(Pool)構成      実査(Due Diligence)      落札/譲渡実行
  - 対象債権の抽出      - データテープの提供      - 債権譲渡契約
  - 除外条件フィルタ      (借主/担保/延滞履歴)    - 譲渡通知 (対抗要件)
    (調整中, 訴訟中,    - 入札価格の算定          - 元帳の除却処理
     保証付など)        - Q&A対応                 - 事後精算
                                                   (基準日以後の回収金)

+---------------+       +--------------------+       +-------------------+
| LOAN_ACCOUNT  |1-----N| REPAY_SCHEDULE     |       | RATE_HISTORY      |
|---------------|       |--------------------|       |-------------------|
| account_id PK |       | account_id FK      |       | account_id FK     |
| product_cd    |       | seq, due_date      |       | from_date, rate   |
| principal     |       | principal_due      |       | reason_cd         |
| open_date     |       | interest_due       |       +-------------------+
| maturity_date |       | status (予定/完納/  |
| status        |       |   一部納/延滞)      |       +-------------------+
| repay_method  |       | version_no         |1-----N| TXN_HISTORY       |
+------+--------+       +--------------------+       |-------------------|
       |                                             | txn_id PK         |
       |1                                            | account_id FK     |
       |                                             | txn_date, type    |
       N                                             | amount, applied_to|
+---------------+       +--------------------+       | (費用/利息/元金)   |
| DELINQ_EPISODE|1-----N| BUCKET_TRANSITION  |       +-------------------+
|---------------|       |--------------------|
| episode_id PK |       | episode_id FK      |       +-------------------+
| account_id FK |       | trans_date         |       | CLASSIFICATION    |
| start_date    |       | from_bucket        |       |-------------------|
| end_date      |       | to_bucket          |       | account_id FK     |
| eod_flag      |       +--------------------+       | base_date         |
| eod_date      |                                    | class_cd (5段階)   |
+------+--------+       +--------------------+       | split_amount      |
       |1               | COLLECTION_ACTION  |       | reason_cd         |
       |                |--------------------|       +-------------------+
       N                | action_id PK       |
+---------------+       | episode_id FK      |       +-------------------+
| PTP_PROMISE   |       | channel, result_cd |       | ECL_RESULT        |
|---------------|       | action_ts, agent   |       |-------------------|
| promise_id PK |       +--------------------+       | account_id FK     |
| episode_id FK |                                    | base_date, stage  |
| promise_date  |                                    | ecl_amount        |
| promise_amt   |                                    | model_ver         |
| kept_yn       |                                    | scenario_set_id   |
+---------------+                                    +-------------------+

日次バッチ (EOD) — 順序がそのまま整合性

  01 収納確定処理 (自動引落の結果反映)
  02 日次利息計上 (未収利息の積数)
  03 延滞判定 / バケット遷移      <- 02の後 (当日収納の反映後)
  04 延滞利息の計算              <- 03の後 (バケット/EOD状態の確定後)
  05 期限の利益喪失の候補抽出/通知
  06 回収キューへの積載/回収      <- 03, 05の後
  07 信用情報登録の電文生成
  08 元帳-会計の照合 (日次締め)
  09 情報系への蓄積

月次バッチ (月次締め)

  M1 優遇金利条件の再判定        <- 次の利息サイクルの前
  M2 行動スコア/回収スコアの算出
  M3 資産健全性分類             <- 延滞/担保データの確定後
  M4 IFRS 9 Stage判定 / ECL算出  <- M2, M3の後
  M5 引当金の会計仕訳 / 決算連動
  M6 監督報告書の算出            <- M3, M4, M5の後
  M7 ビンテージ/ロールレート分析マートへの蓄積