여신 사후관리 시스템 — 연체, 충당금, NPL의 데이터 흐름

                  +--------------------------------------+
                  |        여신 원장 (Loan Ledger)        |
                  |  계좌 마스터 / 상환 스케줄 / 거래내역 |
                  +---+--------+--------+--------+-------+
                      |        |        |        |
        +-------------+        |        |        +--------------+
        v                      v        v                       v
+---------------+  +----------------+  +-----------+  +----------------+
| 이자/상환 처리 |  | 연체 관리      |  | 건전성    |  | 충당금 엔진     |
| - 일이자 계상  |  | - 버킷 전이    |  | 분류      |  | - IFRS 9 ECL   |
| - 수납/충당    |  | - 연체이자     |  | - 5단계   |  | - Stage 판정   |
| - 중도상환     |  | - 기한이익상실 |  | - FLC     |  | - 회계 연동    |
+---------------+  +-------+--------+  +-----------+  +----------------+
                           |
              +------------+-------------+
              v                          v
       +--------------+         +----------------+
       | 추심 시스템   |         | NPL 처리       |
       | - 콜 배분     |         | - 상각(write-off)
       | - 약속(PTP)   |         | - 매각(Pool 구성)
       | - 행위 규제   |         | - 채무조정 반영 |
       +--------------+         +----------------+
              |                          |
              +------------+-------------+
                           v
              +--------------------------+
              | 감독 보고 / 정보계        |
              | - 업무보고서, 연체율      |
              | - 신용정보 집중기관 등록  |
              +--------------------------+

from decimal import Decimal, ROUND_DOWN, ROUND_HALF_UP

WON = Decimal("1")  # 원 단위 절사용

def round_won(amount: Decimal, mode=ROUND_DOWN) -> Decimal:
    """원 단위 처리. 절사/반올림은 상품 조건에 따름."""
    return amount.quantize(WON, 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_won(principal * r * factor / (factor - Decimal("1")),
                        ROUND_HALF_UP)
    schedule, balance = [], principal
    for seq in range(1, months + 1):
        interest = round_won(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_won(principal / Decimal(months))
    schedule, balance = [], principal
    for seq in range(1, months + 1):
        interest = round_won(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_won(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일 이상 (부도/Default 인식 구간)
                                 |
                                 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일): 문자/앱 알림 중심, 저비용 채널
  - 중기(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 빈티지/롤레이트 분석 마트 적재