/* @tier easy @module vl @transform validation-online */
/*
 * vl_ol_0032.pgc - 정합성 리포트 요약 서비스 (VL_OL_0032)  [tier=easy]
 *
 * 입력 영업일의 대상/완료/불일치/정산 건수와 금액합계를 여러 집계 SQL 로
 * 모아 하나의 리포트 응답으로 구성한다.
 */
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include "txcore.h"
#include "txcore_dbio.h"
#include "acq_util.h"
#include "vl_core.h"

EXEC SQL INCLUDE sqlca;

TX_SERVICE(VL_OL_0032, ctx)
{
    EXEC SQL BEGIN DECLARE SECTION;
    char h_bizdate[9];
    long h_total_cnt;
    long h_total_amt;
    long h_done_cnt;
    long h_fail_cnt;
    long h_settle_cnt;
    long h_settle_amt;
    EXEC SQL END DECLARE SECTION;

    char bizdate[16];
    char amt_disp[32];
    long fail_rate;

    tx_log(TX_LOG_INFO, "[VL_OL_0032] 정합성 리포트 요약 서비스 진입");

    if (tx_buf_get(ctx->in, "BIZDATE", bizdate, sizeof(bizdate)) != TX_OK) {
        tx_log(TX_LOG_ERROR, "[VL_OL_0032] 영업일(BIZDATE) 누락");
        tx_buf_sets(ctx->out, "ERRCODE", "VL3200");
        tx_return(ctx, TX_EINVAL, ctx->out);
        return;
    }
    if (!date_is_valid(bizdate)) {
        tx_log(TX_LOG_WARN, "[VL_OL_0032] 영업일 형식 오류 date=%s", bizdate);
        tx_buf_sets(ctx->out, "ERRCODE", "VL3201");
        tx_return(ctx, TX_EINVAL, ctx->out);
        return;
    }

    strncpy(h_bizdate, bizdate, sizeof(h_bizdate) - 1);
    h_bizdate[sizeof(h_bizdate) - 1] = '\0';

    /* 1) 대상 전체 건수/금액 */
    h_total_cnt = 0;
    h_total_amt = 0;
    EXEC SQL SELECT COUNT(*), COALESCE(SUM(amount), 0)
          INTO :h_total_cnt, :h_total_amt
          FROM vl_ledger
         WHERE biz_date = :h_bizdate;

    if (sqlca.sqlcode != TX_SQL_OK) {
        TX_DBIO_LOG_ERR("리포트 대상집계 vl_ledger");
        tx_buf_sets(ctx->out, "ERRCODE", "VL3208");
        tx_return(ctx, TX_EDB, ctx->out);
        return;
    }

    /* 2) 완료/불일치 건수 */
    h_done_cnt = 0;
    h_fail_cnt = 0;
    EXEC SQL SELECT
            COALESCE(SUM(CASE WHEN status = 'M' THEN 1 ELSE 0 END), 0),
            COALESCE(SUM(CASE WHEN status = 'U' THEN 1 ELSE 0 END), 0)
          INTO :h_done_cnt, :h_fail_cnt
          FROM vl_ledger
         WHERE biz_date = :h_bizdate;

    if (sqlca.sqlcode != TX_SQL_OK) {
        TX_DBIO_LOG_ERR("리포트 상태집계 vl_ledger");
        tx_buf_sets(ctx->out, "ERRCODE", "VL3209");
        tx_return(ctx, TX_EDB, ctx->out);
        return;
    }

    /* 3) 정산 건수/금액 */
    h_settle_cnt = 0;
    h_settle_amt = 0;
    EXEC SQL SELECT COUNT(*), COALESCE(SUM(settle_amt), 0)
          INTO :h_settle_cnt, :h_settle_amt
          FROM vl_settle
         WHERE biz_date = :h_bizdate;

    if (sqlca.sqlcode != TX_SQL_OK) {
        TX_DBIO_LOG_ERR("리포트 정산집계 vl_settle");
        tx_buf_sets(ctx->out, "ERRCODE", "VL3210");
        tx_return(ctx, TX_EDB, ctx->out);
        return;
    }

    /* 불일치율(%) = 불일치 / 대상 * 100 */
    fail_rate = (h_total_cnt > 0) ? (h_fail_cnt * 100 / h_total_cnt) : 0;

    memset(amt_disp, 0, sizeof(amt_disp));
    amount_format_won(h_total_amt, amt_disp, sizeof(amt_disp));

    tx_buf_reset(ctx->out);
    tx_buf_sets(ctx->out, "BIZDATE", bizdate);
    tx_buf_setlong(ctx->out, "TOTALCNT", h_total_cnt);
    tx_buf_setlong(ctx->out, "TOTALAMT", h_total_amt);
    tx_buf_sets(ctx->out, "TOTALAMTDISP", amt_disp);
    tx_buf_setlong(ctx->out, "DONECNT", h_done_cnt);
    tx_buf_setlong(ctx->out, "FAILCNT", h_fail_cnt);
    tx_buf_setlong(ctx->out, "SETTLECNT", h_settle_cnt);
    tx_buf_setlong(ctx->out, "SETTLEAMT", h_settle_amt);
    tx_buf_setlong(ctx->out, "FAILRATE", fail_rate);
    tx_buf_sets(ctx->out, "ERRCODE", RESP_OK);

    tx_log(TX_LOG_INFO,
           "[VL_OL_0032] 리포트 date=%s 대상=%ld 완료=%ld 불일치=%ld 정산=%ld",
           bizdate, h_total_cnt, h_done_cnt, h_fail_cnt, h_settle_cnt);
    tx_return(ctx, TX_OK, ctx->out);
}