diff --git a/README.md b/README.md
index aacfb95..ed5860b 100644
--- a/README.md
+++ b/README.md
@@ -13,6 +13,15 @@
> 실전 레거시성)으로 **전량 실측**해 정리. 포털에서도 실시간 확인:
> `#arch`(호출그래프 552노드·41 모듈간 경로), `#mig`(마이그레이션 난이도 브리핑).
> 지표는 전부 소스에서 자동 집계된다(`tools/gen_callgraph.py`, `tools/gen_metrics.py`).
+>
+> **Oracle 계보(As-Is)** — [`docs/ORACLE_PROVENANCE.md`](docs/ORACLE_PROVENANCE.md):
+> 원본은 Oracle 19c + Pro\*C 였고, 현행 코드는 그 1차 이관본(ECPG/PostgreSQL)이다.
+> `legacy-oracle/` 에 As-Is Pro\*C/PL-SQL 역사 원본을 보존(컴파일 제외)하고, Oracle→
+> PostgreSQL 방언 이관 매핑을 문서화한다.
+>
+> **포털 화면 구성** — `#sys`(시스템 현황: 상태·아키텍처 토폴로지·채널·큐·정산사이클),
+> `#arch`(아키텍처 토폴로지), `#econ`(정산 경제: 수수료 3층·펀딩·순액정산·MCC·ISO8583),
+> `#mig`(마이그레이션 난이도, Forge 관점).
---
diff --git a/app/ui/index.html b/app/ui/index.html
index ea71484..3ef0763 100644
--- a/app/ui/index.html
+++ b/app/ui/index.html
@@ -123,7 +123,7 @@
diff --git a/app/ui/metrics.js b/app/ui/metrics.js
index 37f2543..34ff4e7 100644
--- a/app/ui/metrics.js
+++ b/app/ui/metrics.js
@@ -1,2 +1,2 @@
/* 자동생성: tools/gen_metrics.py — 소스 실측 마이그레이션 난이도 지표. 손대지 말 것. */
-window.METRICS={"SCALE":[{"k":"소스 파일 (.pgc/.c/.h)","v":4640,"u":"개"},{"k":"총 코드 라인","v":331856,"u":"LOC"},{"k":"온라인 서비스","v":1470,"u":"본"},{"k":"배치 잡","v":506,"u":"본"},{"k":"임베디드 SQL(EXEC SQL)","v":23817,"u":"블록"},{"k":"Tuxedo tpcall 호출","v":989,"u":"곳"},{"k":"전역 트랜잭션 tpbegin","v":1234,"u":"곳"},{"k":"UBF 버퍼 필드접근","v":47127,"u":"곳"},{"k":"DB 테이블","v":86,"u":"개"},{"k":"카피북 헤더(.h)","v":2214,"u":"개"}],"HAZARDS":[{"t":"Tuxedo ATMI (tpcall/tpservice/tpreturn)","n":989,"u":"호출","why":"Java·Spring에 1:1 대응 API가 없다. 서비스 호출 모델 자체를 REST/메시지로 재설계해야 하며, 문법 치환으로는 불가능."},{"t":"XA 2PC 전역 트랜잭션 (최대 6단 중첩)","n":1234,"u":"tpbegin","why":"형제 XA 브랜치 격리·2단계 커밋 의미론이 Spring @Transactional 경계와 다르다. 잘못 옮기면 교착·이중전기가 그대로 재현된다."},{"t":"ECPG 임베디드 SQL (호스트변수·커서·sqlca)","n":23817,"u":"블록","why":"EXEC SQL 블록마다 호스트변수 바인딩·sqlcode 분기·커서 수명을 JPA/MyBatis 의미로 옮겨야 한다. 자동 변환기가 가장 많이 깨지는 지점."},{"t":"UBF(FML32) 타입리스 버퍼","n":47127,"u":"필드접근","why":"필드ID 기반 동적 버퍼라 타입·필수여부가 컴파일타임에 없다. Java DTO로 옮기려면 47,000여 접근점의 계약을 사람이 복원해야 한다."},{"t":"카피북 공유(#include) 팬아웃","n":6906,"u":"참조","why":"한 카피북을 수십 프로그램이 공유해 구조체 변경이 전방위로 파급된다. 경계 없는 결합이라 모듈 단위 절단이 어렵다."},{"t":"전처리 매크로(#define)","n":2254,"u":"정의","why":"매크로가 코드 생성·분기를 숨겨 정적 분석을 방해한다. 전개 후에야 실제 로직이 드러난다."}],"TRACE":[{"root":"ACQUIRE","tree":{"svc":"ACQUIRE","mod":"ac","wr":["cm_log"],"children":[{"svc":"RECONCILE","mod":"rc","wr":["cm_log","ledger"],"children":[{"svc":"SETTLE","mod":"st","wr":["ledger","settlement"],"children":[{"svc":"ST_MDR","mod":"st","wr":["ledger"],"children":[{"svc":"LG_SETTLEPOST","mod":"lg","wr":["cm_log"],"children":[{"svc":"LG_BALCHK","mod":"lg","wr":["cm_log"],"children":[]}]}]}]}]}]},"stat":{"programs":6,"tables":3,"xa_branches":6,"tablelist":["cm_log","ledger","settlement"]}},{"root":"PAY_APPROVE","tree":{"svc":"PAY_APPROVE","mod":"py","wr":["cm_log","py_payout"],"children":[{"svc":"PAY_FILEGEN","mod":"py","wr":["cm_log","py_file","py_payout"],"children":[{"svc":"PAY_ACCTCHK","mod":"py","wr":["cm_log"],"children":[{"svc":"LG_POST","mod":"lg","wr":["cm_log"],"children":[{"svc":"LG_BALCHK","mod":"lg","wr":["cm_log"],"children":[]}]}]}]}]},"stat":{"programs":5,"tables":3,"xa_branches":5,"tablelist":["cm_log","py_file","py_payout"]}},{"root":"CL_DAILY","tree":{"svc":"CL_DAILY","mod":"cl","wr":["cm_log"],"children":[{"svc":"VL_SALES","mod":"vl","wr":[],"children":[{"svc":"RC_EXCEPTION","mod":"rc","wr":["cm_log"],"children":[{"svc":"CM_LOG","mod":"cm","wr":[],"children":[]}]}]},{"svc":"LG_CLOSE_LINK","mod":"lg","wr":["cm_log","lg_ledger_line"],"children":[{"svc":"CL_LOCK","mod":"cl","wr":["SET","cl_close_log","cl_period_lock","cm_log"],"children":[]}]}]},"stat":{"programs":6,"tables":5,"xa_branches":6,"tablelist":["SET","cl_close_log","cl_period_lock","cm_log","lg_ledger_line"]}}],"LEGACY":{"copybook_total":2214,"copybook_shared_max":139,"copybook_shared_name":"acq_common.h","macro_defs":2254,"goto":64,"userlog":17185,"sqlca_checks":18795,"embedded_sql_density":9.8}};
+window.METRICS={"SCALE":[{"k":"소스 파일 (.pgc/.c/.h)","v":4640,"u":"개"},{"k":"총 코드 라인","v":331856,"u":"LOC"},{"k":"온라인 서비스","v":1470,"u":"본"},{"k":"배치 잡","v":506,"u":"본"},{"k":"임베디드 SQL(EXEC SQL)","v":23817,"u":"블록"},{"k":"Tuxedo tpcall 호출","v":989,"u":"곳"},{"k":"전역 트랜잭션 tpbegin","v":1234,"u":"곳"},{"k":"UBF 버퍼 필드접근","v":47127,"u":"곳"},{"k":"DB 테이블","v":86,"u":"개"},{"k":"카피북 헤더(.h)","v":2214,"u":"개"}],"HAZARDS":[{"t":"Tuxedo ATMI (tpcall/tpservice/tpreturn)","n":989,"u":"호출","why":"Java·Spring에 1:1 대응 API가 없다. 서비스 호출 모델 자체를 REST/메시지로 재설계해야 하며, 문법 치환으로는 불가능."},{"t":"XA 2PC 전역 트랜잭션 (최대 6단 중첩)","n":1234,"u":"tpbegin","why":"형제 XA 브랜치 격리·2단계 커밋 의미론이 Spring @Transactional 경계와 다르다. 잘못 옮기면 교착·이중전기가 그대로 재현된다."},{"t":"ECPG 임베디드 SQL (호스트변수·커서·sqlca)","n":23817,"u":"블록","why":"EXEC SQL 블록마다 호스트변수 바인딩·sqlcode 분기·커서 수명을 JPA/MyBatis 의미로 옮겨야 한다. 자동 변환기가 가장 많이 깨지는 지점."},{"t":"UBF(FML32) 타입리스 버퍼","n":47127,"u":"필드접근","why":"필드ID 기반 동적 버퍼라 타입·필수여부가 컴파일타임에 없다. Java DTO로 옮기려면 47,000여 접근점의 계약을 사람이 복원해야 한다."},{"t":"카피북 공유(#include) 팬아웃","n":6906,"u":"참조","why":"한 카피북을 수십 프로그램이 공유해 구조체 변경이 전방위로 파급된다. 경계 없는 결합이라 모듈 단위 절단이 어렵다."},{"t":"전처리 매크로(#define)","n":2254,"u":"정의","why":"매크로가 코드 생성·분기를 숨겨 정적 분석을 방해한다. 전개 후에야 실제 로직이 드러난다."}],"TRACE":[{"root":"ACQUIRE","tree":{"svc":"ACQUIRE","mod":"ac","wr":["cm_log"],"children":[{"svc":"RECONCILE","mod":"rc","wr":["cm_log","ledger"],"children":[{"svc":"SETTLE","mod":"st","wr":["ledger","settlement"],"children":[{"svc":"ST_MDR","mod":"st","wr":["ledger"],"children":[{"svc":"LG_SETTLEPOST","mod":"lg","wr":["cm_log"],"children":[{"svc":"LG_BALCHK","mod":"lg","wr":["cm_log"],"children":[]}]}]}]}]}]},"stat":{"programs":6,"tables":3,"xa_branches":6,"tablelist":["cm_log","ledger","settlement"]}},{"root":"PAY_APPROVE","tree":{"svc":"PAY_APPROVE","mod":"py","wr":["cm_log","py_payout"],"children":[{"svc":"PAY_FILEGEN","mod":"py","wr":["cm_log","py_file","py_payout"],"children":[{"svc":"PAY_ACCTCHK","mod":"py","wr":["cm_log"],"children":[{"svc":"LG_POST","mod":"lg","wr":["cm_log"],"children":[{"svc":"LG_BALCHK","mod":"lg","wr":["cm_log"],"children":[]}]}]}]}]},"stat":{"programs":5,"tables":3,"xa_branches":5,"tablelist":["cm_log","py_file","py_payout"]}},{"root":"CL_DAILY","tree":{"svc":"CL_DAILY","mod":"cl","wr":["cm_log"],"children":[{"svc":"VL_SALES","mod":"vl","wr":[],"children":[{"svc":"RC_EXCEPTION","mod":"rc","wr":["cm_log"],"children":[{"svc":"CM_LOG","mod":"cm","wr":[],"children":[]}]}]},{"svc":"LG_CLOSE_LINK","mod":"lg","wr":["cm_log","lg_ledger_line"],"children":[{"svc":"CL_LOCK","mod":"cl","wr":["SET","cl_close_log","cl_period_lock","cm_log"],"children":[]}]}]},"stat":{"programs":6,"tables":5,"xa_branches":6,"tablelist":["SET","cl_close_log","cl_period_lock","cm_log","lg_ledger_line"]}}],"LEGACY":{"copybook_total":2214,"copybook_shared_max":139,"copybook_shared_name":"acq_common.h","macro_defs":2254,"goto":64,"userlog":17185,"sqlca_checks":18795,"embedded_sql_density":9.8},"ORACLE":{"asis_files":9,"asis_proc":7,"asis_plsql":2,"asis_loc":1827,"dialects":[{"t":"PL/SQL 패키지 호출 (pkg_x.proc)","n":18},{"t":"NVL / NVL2 널가드","n":60},{"t":"DECODE 다분기","n":16},{"t":"SYSDATE / SYSTIMESTAMP","n":42},{"t":"FROM DUAL","n":15},{"t":"시퀀스 .NEXTVAL","n":27},{"t":"ROWNUM 의사컬럼","n":6},{"t":"구식 외부조인 (+)","n":8},{"t":"CONNECT BY 계층질의","n":3},{"t":"WHENEVER SQLERROR 라벨분기","n":16},{"t":"TO_DATE / TO_CHAR 포맷","n":35},{"t":"RAISE_APPLICATION_ERROR","n":13}]}};
diff --git a/docs/ORACLE_PROVENANCE.md b/docs/ORACLE_PROVENANCE.md
new file mode 100644
index 0000000..d5c4614
--- /dev/null
+++ b/docs/ORACLE_PROVENANCE.md
@@ -0,0 +1,69 @@
+# Oracle 계보 (As-Is) — acquire-core-x
+
+> **이 시스템의 원본은 Oracle 이다.** BC 매입시스템 As-Is 는 Oracle 19c + Pro\*C +
+> Tuxedo/ATMI 였고(BAIS RFI 기준), 본 저장소의 현행 코드는 그 시스템을 오픈 스택
+> (Enduro/X + ECPG + PostgreSQL)으로 **이식한 1차 이관본**이다. Klaro Forge 가
+> 수행할 다음 이관은 이 레거시 → Java Spring Boot 다.
+>
+> `legacy-oracle/` 에 **As-Is Oracle Pro\*C 역사 원본**을 보존한다(컴파일 대상 아님).
+> 현행 이식본(`app/src/**/*.pgc`, ECPG/PostgreSQL)과 1:1로 대조 가능하다.
+
+## 3단 계보
+
+```
+ ┌── As-Is ───────────┐ ┌── 현행(1차 이관본) ─────┐ ┌── To-Be (Forge) ──────┐
+ │ Oracle 19c │ │ PostgreSQL 16 │ │ PostgreSQL 16 │
+ │ Pro*C (proc) │ → │ ECPG (EXEC SQL) │ → │ JPA / MyBatis │
+ │ Tuxedo/ATMI │ │ Enduro/X (open ATMI) │ │ Spring Boot 3.x │
+ │ PL/SQL 패키지 │ │ (패키지→서비스 인라인) │ │ @Service / @Transactional
+ │ legacy-oracle/*.pc │ │ app/src/**/*.pgc │ │ (target) │
+ └─────────────────────┘ └─────────────────────────┘ └────────────────────────┘
+```
+
+- As-Is → 현행: **DB 엔진 이관**(Oracle→PostgreSQL)은 끝났다. Oracle 방언·Pro\*C·PL/SQL
+ 패키지를 PostgreSQL/ECPG 로 옮긴 결과가 현행 코드다.
+- 현행 → To-Be: 남은 난제는 **애플리케이션 계층**(ATMI·임베디드SQL·UBF·XA)이며,
+ 이게 Forge 가 다룰 대상이다. DB 엔진은 이미 PostgreSQL 이라 To-Be 와 일치한다.
+
+## Oracle → PostgreSQL 방언 이관 매핑 (1차 이관에서 실제로 옮긴 것들)
+
+| Oracle (As-Is, Pro\*C) | PostgreSQL (현행, ECPG) | 이관 난이도·주의 |
+|---|---|---|
+| `VARCHAR2(n)` / Pro\*C `VARCHAR h[n]` | `TEXT` / `char h[n]` | 널·공백 트림 의미 차이 |
+| `NVL(x, d)` | `COALESCE(x, d)` | 인자 개수 차이(NVL2→CASE) |
+| `DECODE(e, k1,v1, k2,v2, d)` | `CASE WHEN e=k1 THEN v1 ... ELSE d END` | 다분기 전개, NULL 동등성 차이 |
+| `SYSDATE` / `SYSTIMESTAMP` | `now()` / `current_date` | 시간대·타입 차이 |
+| `... FROM DUAL` | (FROM 절 생략) | 시퀀스·스칼라 조회 재작성 |
+| `seq.NEXTVAL` / `seq.CURRVAL` | `nextval('seq')` / `currval('seq')` | 문법·세션 시맨틱 차이 |
+| `ROWNUM = 1` / `ROWNUM <= n` | `LIMIT 1` / `LIMIT n` | ROWNUM 은 정렬 前 적용 → 의미 함정 |
+| 외부조인 `t1.a (+) = t2.b` | `LEFT/RIGHT JOIN ... ON` | 구식 `(+)` 전면 재작성 |
+| `CONNECT BY PRIOR` 계층질의 | `WITH RECURSIVE` CTE | 계층 재귀 완전 재작성(최난이도) |
+| `TO_DATE(s,'YYYYMMDD')` / `TO_CHAR(d,fmt)` | `to_date`/`to_char` (포맷토큰 일부 상이) | 포맷 마스크 검증 필요 |
+| `(+)`/`MINUS`/`ROWID` | `EXCEPT`/`ctid`(비권장) | 세트연산·행식별자 대체 |
+| Pro\*C `EXEC SQL WHENEVER SQLERROR GOTO` | ECPG 동일 문 + `sqlca.sqlcode` 분기 | 라벨분기 유지 가능 |
+| Pro\*C `EXEC SQL INCLUDE oraca` / `EXEC ORACLE OPTION` | (해당 없음) | Oracle 전용 진단영역 제거 |
+| **PL/SQL 패키지** (`pkg_x.proc`) | ECPG 서비스 인라인 / 함수 | 패키지 상태·오버로드 소실, 로직 서비스로 흡수 |
+| `RAISE_APPLICATION_ERROR(-20001,...)` | `RAISE EXCEPTION` / 리턴코드 | 예외 프로토콜 재설계 |
+| `UTL_FILE` 파일 I/O | 서버 파일 I/O / COPY | 배치 파일생성 재작성 |
+
+## As-Is 원본 보존 목록 (`legacy-oracle/`)
+
+| 원본 (Oracle Pro\*C / PL-SQL) | 현행 이식본 (ECPG) | 업무 |
+|---|---|---|
+| `proc/ACQUIRE.pc` | `app/src/ac/svc/ACQUIRE.pgc` | 매입 접수 |
+| `proc/AUTH_APPROVE.pc` | `app/src/au/svc/AUTH_APPROVE.pgc` | 승인 확정 |
+| `proc/ST_MDR.pc` | `app/src/st/svc/ST_MDR.pgc` | MDR 수수료 기표 |
+| `proc/SETTLE.pc` | `app/src/st/svc/SETTLE.pgc` | 정산 확정 |
+| `proc/RECONCILE.pc` | `app/src/rc/svc/RECONCILE.pgc` | 대사 (CONNECT BY) |
+| `proc/CL_DAILY.pc` | `app/src/cl/svc/CL_DAILY.pgc` | 일마감 배치 |
+| `proc/PAY_FILEGEN.pc` | `app/src/py/svc/PAY_FILEGEN.pgc` | 지급파일 생성 배치 |
+| `plsql/PKG_SETTLE.sql` | (서비스로 인라인) | 정산 PL/SQL 패키지 |
+| `plsql/PKG_LEDGER.sql` | (서비스로 인라인) | 원장 기표 PL/SQL 패키지 |
+
+## 왜 DB 는 PostgreSQL 인가 (Oracle 로 되돌리지 않는 이유)
+
+- **To-Be 가 PostgreSQL** 이다(BAIS RFI: Oracle 19c → PostgreSQL 16). DB 이관은 이미
+ 완료 상태로 두고, Forge 가 다룰 **애플리케이션 이관**(ATMI/임베디드SQL/UXA)에 집중한다.
+- 라이선스·재현성: 오픈 스택이라 `docker compose up` 한 번으로 어디서든 실동작.
+- 마이그레이션 난이도의 본질은 DB 엔진이 아니라 그 위의 Pro\*C·Tuxedo·XA 계층이며,
+ 그 난이도는 위 원본들에서 그대로 확인된다.
diff --git a/legacy-oracle/plsql/PKG_LEDGER.sql b/legacy-oracle/plsql/PKG_LEDGER.sql
new file mode 100644
index 0000000..6e4b201
--- /dev/null
+++ b/legacy-oracle/plsql/PKG_LEDGER.sql
@@ -0,0 +1,182 @@
+--==========================================================================
+-- PKG_LEDGER.sql - 원장 복식부기 기표 패키지 (As-Is 원본, Oracle PL/SQL)
+----------------------------------------------------------------------------
+-- 대상 : BC 매입시스템 / 회계 원장 도메인 공용 패키지 PKG_LEDGER
+-- DBMS : Oracle 19c
+-- ※ 이 파일은 As-Is 역사 원본이다. pkg_settle 및 ACQUIRE/SETTLE/ST_MDR
+-- 계열이 호출하는 복식부기(차/대변) 기표 엔진이다. 현행 오픈스택
+-- 이식본에서는 ledger 단식 INSERT (app/src/st/svc/*, LG_* 서비스) 로
+-- 단순화되었다. 컴파일 대상 아님(빌드 제외).
+----------------------------------------------------------------------------
+-- 변경이력
+-- 1998.12.05 KIM K.H 최초작성 (전표 헤더/명세 복식부기 기표)
+-- 2007.06.18 PARK J.S 전표유형->계정 매핑 DECODE 테이블 도입
+-- 2014.02.27 LEE S.W 전표 역분개 reverse_voucher, 차대 균형검증 강화
+-- 2019.09.01 CHOI H.W Oracle 11g -> 19c, 예외코드 -20600 대역 정리
+--==========================================================================
+
+CREATE OR REPLACE PACKAGE pkg_ledger AS
+
+ -- 차/대변 구분
+ C_DEBIT CONSTANT VARCHAR2(1) := 'D'; -- 차변
+ C_CREDIT CONSTANT VARCHAR2(1) := 'C'; -- 대변
+
+ -- 사용자정의 예외 (-20600 대역)
+ e_unbalanced EXCEPTION;
+ e_bad_type EXCEPTION;
+ e_no_voucher EXCEPTION;
+ PRAGMA EXCEPTION_INIT(e_unbalanced, -20601);
+ PRAGMA EXCEPTION_INIT(e_bad_type, -20602);
+ PRAGMA EXCEPTION_INIT(e_no_voucher, -20603);
+
+ -- 전표유형 -> (차변계정, 대변계정) 매핑
+ PROCEDURE map_accounts(p_type IN VARCHAR2,
+ o_dr_acct OUT VARCHAR2,
+ o_cr_acct OUT VARCHAR2);
+
+ -- 단일 전표 복식부기 기표 (헤더 1 + 명세 2: 차변/대변)
+ PROCEDURE post_voucher(p_pid IN NUMBER,
+ p_type IN VARCHAR2,
+ p_amount IN NUMBER,
+ p_bizdate IN DATE);
+
+ -- 전표 역분개 (차대 반대로 재기표)
+ PROCEDURE reverse_voucher(p_voucher_id IN NUMBER, p_reason IN VARCHAR2);
+
+ -- 전표 차대 균형 검증 (미균형시 예외)
+ FUNCTION is_balanced(p_voucher_id IN NUMBER) RETURN BOOLEAN;
+
+END pkg_ledger;
+/
+
+CREATE OR REPLACE PACKAGE BODY pkg_ledger AS
+
+ ----------------------------------------------------------------------
+ -- map_accounts : 전표유형별 차변/대변 계정 결정 (DECODE 매핑)
+ ----------------------------------------------------------------------
+ PROCEDURE map_accounts(p_type IN VARCHAR2,
+ o_dr_acct OUT VARCHAR2,
+ o_cr_acct OUT VARCHAR2)
+ IS
+ BEGIN
+ -- 매입채권(1101)/미지급금(2101)/수수료수익(4101)/현금(1001)
+ o_dr_acct := DECODE(p_type,
+ 'MDR', '1101', -- 매입채권 / 수수료수익
+ 'SETTLE', '1101', -- 매입채권 / 정산미지급
+ 'PAYOUT', '2101', -- 정산미지급 / 현금
+ 'SETTLE_REV', '2101', -- (역) 정산미지급 / 매입채권
+ NULL);
+ o_cr_acct := DECODE(p_type,
+ 'MDR', '4101',
+ 'SETTLE', '2101',
+ 'PAYOUT', '1001',
+ 'SETTLE_REV', '1101',
+ NULL);
+ IF o_dr_acct IS NULL OR o_cr_acct IS NULL THEN
+ RAISE_APPLICATION_ERROR(-20602, '미정의 전표유형 type='||p_type);
+ END IF;
+ END map_accounts;
+
+ ----------------------------------------------------------------------
+ -- post_voucher : 복식부기 전표 1건 기표
+ ----------------------------------------------------------------------
+ PROCEDURE post_voucher(p_pid IN NUMBER,
+ p_type IN VARCHAR2,
+ p_amount IN NUMBER,
+ p_bizdate IN DATE)
+ IS
+ v_vid ledger_voucher.voucher_id%TYPE;
+ v_dr VARCHAR2(8);
+ v_cr VARCHAR2(8);
+ v_abs NUMBER := ABS(p_amount);
+ v_side VARCHAR2(1);
+ BEGIN
+ map_accounts(p_type, v_dr, v_cr);
+
+ -- 음수 전표(역기표)는 차/대변을 교차
+ IF p_amount < 0 THEN
+ v_side := v_dr; v_dr := v_cr; v_cr := v_side;
+ END IF;
+
+ v_vid := ledger_voucher_seq.NEXTVAL;
+ INSERT INTO ledger_voucher
+ (voucher_id, purchase_id, entry_type, amount, biz_date, status, created_at)
+ VALUES (v_vid, p_pid, p_type, p_amount, p_bizdate, 'N', SYSDATE);
+
+ -- 명세 2행: 차변 / 대변
+ INSERT INTO ledger_entry
+ (entry_id, voucher_id, account_cd, dc_flag, amount, biz_date)
+ VALUES (ledger_entry_seq.NEXTVAL, v_vid, v_dr, C_DEBIT, v_abs, p_bizdate);
+ INSERT INTO ledger_entry
+ (entry_id, voucher_id, account_cd, dc_flag, amount, biz_date)
+ VALUES (ledger_entry_seq.NEXTVAL, v_vid, v_cr, C_CREDIT, v_abs, p_bizdate);
+
+ -- 균형 검증 (방어적)
+ IF NOT is_balanced(v_vid) THEN
+ RAISE_APPLICATION_ERROR(-20601, '전표 차대 불균형 vid='||v_vid);
+ END IF;
+ END post_voucher;
+
+ ----------------------------------------------------------------------
+ -- reverse_voucher : 기존 전표를 역분개
+ ----------------------------------------------------------------------
+ PROCEDURE reverse_voucher(p_voucher_id IN NUMBER, p_reason IN VARCHAR2)
+ IS
+ r_vou ledger_voucher%ROWTYPE;
+ CURSOR c_ent(cp_vid NUMBER) IS
+ SELECT account_cd, dc_flag, amount
+ FROM ledger_entry
+ WHERE voucher_id = cp_vid;
+ v_newvid ledger_voucher.voucher_id%TYPE;
+ v_flip VARCHAR2(1);
+ BEGIN
+ SELECT * INTO r_vou
+ FROM ledger_voucher
+ WHERE voucher_id = p_voucher_id
+ FOR UPDATE OF status;
+
+ IF r_vou.status = 'R' THEN
+ RAISE_APPLICATION_ERROR(-20603, '이미 역분개 vid='||p_voucher_id);
+ END IF;
+
+ v_newvid := ledger_voucher_seq.NEXTVAL;
+ INSERT INTO ledger_voucher
+ (voucher_id, purchase_id, entry_type, amount, biz_date, status, ref_voucher, created_at)
+ VALUES (v_newvid, r_vou.purchase_id, r_vou.entry_type||'_REV',
+ -r_vou.amount, TRUNC(SYSDATE), 'N', p_voucher_id, SYSDATE);
+
+ -- 원전표 명세를 차대 반대로 복제
+ FOR e IN c_ent(p_voucher_id) LOOP
+ v_flip := DECODE(e.dc_flag, C_DEBIT, C_CREDIT, C_DEBIT);
+ INSERT INTO ledger_entry
+ (entry_id, voucher_id, account_cd, dc_flag, amount, biz_date)
+ VALUES (ledger_entry_seq.NEXTVAL, v_newvid, e.account_cd,
+ v_flip, e.amount, TRUNC(SYSDATE));
+ END LOOP;
+
+ UPDATE ledger_voucher
+ SET status = 'R', reverse_rsn = p_reason, reversed_at = SYSDATE
+ WHERE voucher_id = p_voucher_id;
+ EXCEPTION
+ WHEN NO_DATA_FOUND THEN
+ RAISE_APPLICATION_ERROR(-20603, '전표 없음 vid='||p_voucher_id);
+ END reverse_voucher;
+
+ ----------------------------------------------------------------------
+ -- is_balanced : 전표 차변합 = 대변합 여부
+ ----------------------------------------------------------------------
+ FUNCTION is_balanced(p_voucher_id IN NUMBER) RETURN BOOLEAN
+ IS
+ v_dr NUMBER := 0;
+ v_cr NUMBER := 0;
+ BEGIN
+ SELECT NVL(SUM(DECODE(dc_flag, C_DEBIT, amount, 0)), 0),
+ NVL(SUM(DECODE(dc_flag, C_CREDIT, amount, 0)), 0)
+ INTO v_dr, v_cr
+ FROM ledger_entry
+ WHERE voucher_id = p_voucher_id;
+ RETURN (v_dr = v_cr AND v_dr > 0);
+ END is_balanced;
+
+END pkg_ledger;
+/
diff --git a/legacy-oracle/plsql/PKG_SETTLE.sql b/legacy-oracle/plsql/PKG_SETTLE.sql
new file mode 100644
index 0000000..6131ea0
--- /dev/null
+++ b/legacy-oracle/plsql/PKG_SETTLE.sql
@@ -0,0 +1,214 @@
+--==========================================================================
+-- PKG_SETTLE.sql - 정산 처리 패키지 (As-Is 원본, Oracle PL/SQL)
+----------------------------------------------------------------------------
+-- 대상 : BC 매입시스템 / 정산 도메인 공용 패키지 PKG_SETTLE
+-- DBMS : Oracle 19c
+-- ※ 이 파일은 As-Is 역사 원본이다. ACQUIRE.pc 의
+-- "pkg_settle.acquire_post(:h_pid,:h_merch,:h_amount,:h_fee,:h_net)"
+-- 호출 대상이며, 현행 오픈스택 이식본에서는 SETTLE/ST_MDR 서비스
+-- (app/src/st/svc/*) 로 인라인 전개되었다. 컴파일 대상 아님(빌드 제외).
+----------------------------------------------------------------------------
+-- 변경이력
+-- 1998.11.20 KIM K.H 최초작성 (매입시점 정산예정 적재)
+-- 2005.03.14 PARK J.S 가맹점 일단위 묶음정산 settle_merchant_day 추가
+-- 2012.09.01 LEE S.W 정산확정/취소 프로시저 분리, 원장연계 pkg_ledger
+-- 2019.09.01 CHOI H.W Oracle 11g -> 19c, 예외코드 -20500 대역 정리
+--==========================================================================
+
+CREATE OR REPLACE PACKAGE pkg_settle AS
+
+ -- 정산 상태 상수
+ C_PENDING CONSTANT VARCHAR2(1) := 'P'; -- 정산예정
+ C_SETTLED CONSTANT VARCHAR2(1) := 'S'; -- 정산확정
+ C_CANCELED CONSTANT VARCHAR2(1) := 'X'; -- 정산취소
+
+ -- 사용자정의 예외 (-20500 대역)
+ e_bad_amount EXCEPTION;
+ e_no_purchase EXCEPTION;
+ e_already_set EXCEPTION;
+ PRAGMA EXCEPTION_INIT(e_bad_amount, -20501);
+ PRAGMA EXCEPTION_INIT(e_no_purchase, -20502);
+ PRAGMA EXCEPTION_INIT(e_already_set, -20503);
+
+ -- ACQUIRE.pc 가 매입확정 직후 호출: 정산예정행 + 원장기표
+ PROCEDURE acquire_post(p_pid IN NUMBER,
+ p_merch IN VARCHAR2,
+ p_amount IN NUMBER,
+ p_fee IN NUMBER,
+ p_net IN NUMBER);
+
+ -- 가맹점 일단위 묶음정산 (커서 집계 -> settlement 확정)
+ PROCEDURE settle_merchant_day(p_merch IN VARCHAR2,
+ p_bizdate IN DATE,
+ o_sid OUT NUMBER,
+ o_net OUT NUMBER);
+
+ -- 정산 확정 (P -> S) : 원장 정산기표 연계
+ PROCEDURE confirm_settlement(p_sid IN NUMBER);
+
+ -- 정산 취소 (S/P -> X) : 역기표
+ PROCEDURE cancel_settlement(p_sid IN NUMBER, p_reason IN VARCHAR2);
+
+END pkg_settle;
+/
+
+CREATE OR REPLACE PACKAGE BODY pkg_settle AS
+
+ ----------------------------------------------------------------------
+ -- acquire_post : 매입 1건 정산예정 적재 + MDR/정산 원장기표
+ ----------------------------------------------------------------------
+ PROCEDURE acquire_post(p_pid IN NUMBER,
+ p_merch IN VARCHAR2,
+ p_amount IN NUMBER,
+ p_fee IN NUMBER,
+ p_net IN NUMBER)
+ IS
+ v_sid settlement.settlement_id%TYPE;
+ v_bizdate purchase.biz_date%TYPE;
+ v_cnt PLS_INTEGER;
+ BEGIN
+ IF p_amount <= 0 OR p_net < 0 THEN
+ RAISE_APPLICATION_ERROR(-20501,
+ '정산 금액 오류 amount='||p_amount||' net='||p_net);
+ END IF;
+
+ -- 매입행 존재/영업일 확인
+ BEGIN
+ SELECT biz_date INTO v_bizdate
+ FROM purchase
+ WHERE purchase_id = p_pid;
+ EXCEPTION
+ WHEN NO_DATA_FOUND THEN
+ RAISE_APPLICATION_ERROR(-20502,
+ '매입원장 없음 pid='||p_pid);
+ END;
+
+ -- 중복 정산예정 방지
+ SELECT COUNT(*) INTO v_cnt
+ FROM settlement
+ WHERE purchase_id = p_pid
+ AND status <> C_CANCELED;
+ IF v_cnt > 0 THEN
+ RAISE_APPLICATION_ERROR(-20503,
+ '이미 정산예정 존재 pid='||p_pid);
+ END IF;
+
+ v_sid := settlement_seq.NEXTVAL;
+ INSERT INTO settlement
+ (settlement_id, purchase_id, merchant_id,
+ net, fee, biz_date, status, created_at)
+ VALUES (v_sid, p_pid, p_merch,
+ p_net, p_fee, v_bizdate, C_PENDING, SYSDATE);
+
+ -- 매입시점 원장기표 : 수수료(MDR) + 정산부채
+ pkg_ledger.post_voucher(p_pid, 'MDR', p_fee, v_bizdate);
+ pkg_ledger.post_voucher(p_pid, 'SETTLE', p_net, v_bizdate);
+ END acquire_post;
+
+ ----------------------------------------------------------------------
+ -- settle_merchant_day : 가맹점 당일 정산예정 묶음 -> 확정
+ ----------------------------------------------------------------------
+ PROCEDURE settle_merchant_day(p_merch IN VARCHAR2,
+ p_bizdate IN DATE,
+ o_sid OUT NUMBER,
+ o_net OUT NUMBER)
+ IS
+ CURSOR c_pend IS
+ SELECT s.settlement_id, s.purchase_id, s.net
+ FROM settlement s
+ WHERE s.merchant_id = p_merch
+ AND s.biz_date = p_bizdate
+ AND s.status = C_PENDING
+ FOR UPDATE OF s.status;
+ r_pend c_pend%ROWTYPE;
+ v_sum NUMBER := 0;
+ v_cnt PLS_INTEGER := 0;
+ BEGIN
+ OPEN c_pend;
+ LOOP
+ FETCH c_pend INTO r_pend;
+ EXIT WHEN c_pend%NOTFOUND;
+ v_sum := v_sum + NVL(r_pend.net, 0);
+ v_cnt := v_cnt + 1;
+ UPDATE settlement
+ SET status = C_SETTLED, settled_at = SYSDATE
+ WHERE CURRENT OF c_pend;
+ END LOOP;
+ CLOSE c_pend;
+
+ IF v_cnt = 0 THEN
+ RAISE_APPLICATION_ERROR(-20502,
+ '정산예정 없음 merch='||p_merch||' date='||TO_CHAR(p_bizdate,'YYYYMMDD'));
+ END IF;
+
+ o_sid := settle_batch_seq.NEXTVAL;
+ o_net := v_sum;
+ INSERT INTO settle_batch
+ (batch_id, merchant_id, biz_date, txn_count, net_amount, status, created_at)
+ VALUES (o_sid, p_merch, p_bizdate, v_cnt, v_sum, C_SETTLED, SYSDATE);
+ END settle_merchant_day;
+
+ ----------------------------------------------------------------------
+ -- confirm_settlement : 개별 정산예정 확정
+ ----------------------------------------------------------------------
+ PROCEDURE confirm_settlement(p_sid IN NUMBER)
+ IS
+ r_set settlement%ROWTYPE;
+ BEGIN
+ SELECT * INTO r_set
+ FROM settlement
+ WHERE settlement_id = p_sid
+ FOR UPDATE OF status;
+
+ IF r_set.status = C_SETTLED THEN
+ RAISE_APPLICATION_ERROR(-20503, '이미 확정 sid='||p_sid);
+ ELSIF r_set.status = C_CANCELED THEN
+ RAISE_APPLICATION_ERROR(-20503, '취소건 확정불가 sid='||p_sid);
+ END IF;
+
+ UPDATE settlement
+ SET status = C_SETTLED, settled_at = SYSDATE
+ WHERE settlement_id = p_sid;
+
+ pkg_ledger.post_voucher(r_set.purchase_id, 'PAYOUT',
+ r_set.net, r_set.biz_date);
+ EXCEPTION
+ WHEN NO_DATA_FOUND THEN
+ RAISE_APPLICATION_ERROR(-20502, '정산건 없음 sid='||p_sid);
+ END confirm_settlement;
+
+ ----------------------------------------------------------------------
+ -- cancel_settlement : 정산 취소 + 역기표
+ ----------------------------------------------------------------------
+ PROCEDURE cancel_settlement(p_sid IN NUMBER, p_reason IN VARCHAR2)
+ IS
+ v_pid settlement.purchase_id%TYPE;
+ v_net settlement.net%TYPE;
+ v_bd settlement.biz_date%TYPE;
+ v_st settlement.status%TYPE;
+ BEGIN
+ SELECT purchase_id, net, biz_date, status
+ INTO v_pid, v_net, v_bd, v_st
+ FROM settlement
+ WHERE settlement_id = p_sid
+ FOR UPDATE OF status;
+
+ IF v_st = C_CANCELED THEN
+ RAISE_APPLICATION_ERROR(-20503, '이미 취소 sid='||p_sid);
+ END IF;
+
+ UPDATE settlement
+ SET status = C_CANCELED,
+ cancel_rsn = p_reason,
+ canceled_at = SYSDATE
+ WHERE settlement_id = p_sid;
+
+ -- 역기표 (음수 정산)
+ pkg_ledger.post_voucher(v_pid, 'SETTLE_REV', -v_net, v_bd);
+ EXCEPTION
+ WHEN NO_DATA_FOUND THEN
+ RAISE_APPLICATION_ERROR(-20502, '정산건 없음 sid='||p_sid);
+ END cancel_settlement;
+
+END pkg_settle;
+/
diff --git a/legacy-oracle/proc/ACQUIRE.pc b/legacy-oracle/proc/ACQUIRE.pc
new file mode 100644
index 0000000..9c449b1
--- /dev/null
+++ b/legacy-oracle/proc/ACQUIRE.pc
@@ -0,0 +1,177 @@
+/*==========================================================================*/
+/* ACQUIRE.pc - 매입 접수 온라인 서비스 (As-Is 원본, Oracle Pro*C) */
+/*--------------------------------------------------------------------------*/
+/* 대상 : BC 매입시스템 / Tuxedo ATMI 서비스 ACQUIRE */
+/* DBMS : Oracle 19c 전처리 : Pro*C/C++ (proc) */
+/* ※ 이 파일은 **As-Is 역사 원본**이다. 현행 오픈스택 이식본은 */
+/* app/src/ac/svc/ACQUIRE.pgc (ECPG/PostgreSQL). 대조는 */
+/* docs/ORACLE_PROVENANCE.md 참조. 컴파일 대상 아님(빌드 제외). */
+/*--------------------------------------------------------------------------*/
+/* 변경이력 */
+/* 1998.11.02 KIM K.H 최초작성 (신용승인 연계 매입) */
+/* 2004.06.18 PARK J.S 체크카드 매입구분 추가, DECODE 요율분기 */
+/* 2011.03.30 LEE S.W 원천징수(3.3%) 반영, 세금계산서 연계 */
+/* 2019.09.01 CHOI H.W Oracle 11g -> 19c, CHAR->VARCHAR2 정비 */
+/*==========================================================================*/
+#include