/* @tier easy @module cl @transform closing-online */
/*
 * cl_ol_0024.pgc - 마감 온라인 서비스 (CL_OL_0024)  [tier=easy]
 *
 * 리포트 요약
 * ----------------------------------------------------------------------
 * 요청 가맹점(MERCHID) + 영업일(BIZDATE) 범위의 원장을 하나의 싱글턴
 * 집계 SELECT 로 건수/합계금액/합계수수료/최소·최대금액을 산출하고,
 * 평균금액(정수 나눗셈, 0건 보호)과 실효 수수료율(bp, 만분율)을
 * 계산하여 요약 리포트로 응답한다.
 *
 * 금액 필드는 원화 표기를 병기하고, 감사추적을 위해 선택 입력 REQID 를
 * 반영한다. 대상 건이 없으면 건수 0 의 정상 리포트를 반환한다.
 */
#include <stdio.h>
#include <string.h>

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

EXEC SQL INCLUDE sqlca;

TX_SERVICE(CL_OL_0024, ctx)
{
    EXEC SQL BEGIN DECLARE SECTION;
    char h_merch_id[16];
    char h_biz_date[9];
    int  h_cnt;
    long h_sum;
    long h_fee;
    long h_min;
    long h_max;
    EXEC SQL END DECLARE SECTION;

    char merch[16];
    char bizdate[16];
    char reqid[32];
    char sum_won[32];
    char fee_won[32];
    char summary[TX_VAL_LEN];
    long avg_amt;
    long fee_bp;
    long net_amt;

    tx_log(TX_LOG_INFO, "[CL_OL_0024] 리포트 요약 서비스 진입");

    /* 1) 입력 수신 및 검증 */
    if (tx_buf_get(ctx->in, "MERCHID", merch, sizeof(merch)) != TX_OK ||
        tx_buf_get(ctx->in, "BIZDATE", bizdate, sizeof(bizdate)) != TX_OK) {
        tx_log(TX_LOG_ERROR, "[CL_OL_0024] 필수 필드 누락");
        tx_buf_reset(ctx->out);
        tx_buf_sets(ctx->out, "RESPCODE", RESP_INVALID);
        tx_return(ctx, TX_EINVAL, ctx->out);
        return;
    }
    if (tx_buf_get(ctx->in, "REQID", reqid, sizeof(reqid)) != TX_OK)
        strncpy(reqid, "-", sizeof(reqid) - 1);

    if (!date_is_valid(bizdate)) {
        tx_log(TX_LOG_WARN, "[CL_OL_0024] 영업일 형식 오류 date=%s", bizdate);
        tx_buf_reset(ctx->out);
        tx_buf_sets(ctx->out, "RESPCODE", RESP_INVALID);
        tx_return(ctx, TX_EINVAL, ctx->out);
        return;
    }

    memset(h_merch_id, 0, sizeof(h_merch_id));
    memset(h_biz_date, 0, sizeof(h_biz_date));
    strncpy(h_merch_id, merch, sizeof(h_merch_id) - 1);
    strncpy(h_biz_date, bizdate, sizeof(h_biz_date) - 1);

    /* 2) 가맹점+영업일 싱글턴 집계 (건수/합계/수수료/최소·최대) */
    EXEC SQL SELECT count(*), coalesce(sum(amount), 0), coalesce(sum(fee), 0),
                    coalesce(min(amount), 0), coalesce(max(amount), 0)
        INTO :h_cnt, :h_sum, :h_fee, :h_min, :h_max
        FROM cl_ledger
        WHERE merch_id = :h_merch_id
          AND biz_date = :h_biz_date;

    if (sqlca.sqlcode != TX_SQL_OK) {
        TX_DBIO_LOG_ERR("cl_ol_0024 리포트집계");
        tx_buf_reset(ctx->out);
        tx_buf_sets(ctx->out, "RESPCODE", RESP_SYSERR);
        tx_return(ctx, TX_EDB, ctx->out);
        return;
    }

    /* 3) 평균금액 및 실효 수수료율(bp) 산출 (0 보호) */
    avg_amt = (h_cnt > 0) ? (h_sum / h_cnt) : 0;
    fee_bp  = (h_sum > 0) ? (h_fee * 10000 / h_sum) : 0;
    net_amt = h_sum - h_fee;   /* 수수료 차감 후 정산 예상 순액 */
    amount_format_won(h_sum, sum_won, sizeof(sum_won));
    amount_format_won(h_fee, fee_won, sizeof(fee_won));

    /* 4) 리포트 요약 문구 구성 */
    snprintf(summary, sizeof(summary),
             "가맹점 %s / %s : %d건, 합계 %s, 수수료 %s, 평균 %ld원",
             merch, bizdate, h_cnt, sum_won, fee_won, avg_amt);

    tx_buf_reset(ctx->out);
    tx_buf_sets(ctx->out, "RESPCODE", RESP_OK);
    tx_buf_sets(ctx->out, "MERCHID", merch);
    tx_buf_sets(ctx->out, "BIZDATE", bizdate);
    tx_buf_sets(ctx->out, "REQID", reqid);
    tx_buf_setlong(ctx->out, "CNT", (long)h_cnt);
    tx_buf_setlong(ctx->out, "SUMAMT", h_sum);
    tx_buf_sets(ctx->out, "SUMAMTWON", sum_won);
    tx_buf_setlong(ctx->out, "SUMFEE", h_fee);
    tx_buf_sets(ctx->out, "SUMFEEWON", fee_won);
    tx_buf_setlong(ctx->out, "MINAMT", h_min);
    tx_buf_setlong(ctx->out, "MAXAMT", h_max);
    tx_buf_setlong(ctx->out, "AVGAMT", avg_amt);
    tx_buf_setlong(ctx->out, "FEEBP", fee_bp);
    tx_buf_setlong(ctx->out, "NETAMT", net_amt);
    tx_buf_sets(ctx->out, "SUMMARY", summary);

    tx_log(TX_LOG_INFO,
           "[CL_OL_0024] 완료 merch=%s date=%s 건수=%d 합계=%ld 평균=%ld 수수료율=%ldbp",
           merch, bizdate, h_cnt, h_sum, avg_amt, fee_bp);
    tx_return(ctx, TX_OK, ctx->out);
}