/* @tier hard @module cl @transform closing-online */
/*
 * cl_ol_0018.pgc - 마감 온라인 서비스 (CL_OL_0018)  [tier=hard]
 *
 * 마감 집계 반영: 요청 영업일(BIZDATE)의 원장 전체를 Σamount/count 로
 * 집계한 뒤, 그 결과를 집계요약행으로 원장에 반영한다. 요약행은
 * merch_id='*AGG', key=BIZDATE+"AG", status='S'(정산완료) 로 식별하며
 * amount 에 합계금액, fee 에 집계건수를 적재한다. 이미 요약행이 있으면
 * 재집계값으로 UPDATE, 없으면 INSERT 하는 멱등 upsert 로 처리한다.
 * 집계 조회 + 반영은 하나의 트랜잭션으로 커밋한다.
 */
#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_0018, ctx)
{
    EXEC SQL BEGIN DECLARE SECTION;
    char h_biz_date[9];
    char h_agg_key[16];
    long h_sum;
    int  h_cnt;
    int  h_exist;
    EXEC SQL END DECLARE SECTION;

    char bizdate[16];

    tx_log(TX_LOG_INFO, "[CL_OL_0018] 마감 집계 반영 서비스 진입");

    /* 1) 입력 수신 및 검증 */
    if (tx_buf_get(ctx->in, "BIZDATE", bizdate, sizeof(bizdate)) != TX_OK) {
        tx_log(TX_LOG_ERROR, "[CL_OL_0018] BIZDATE 누락");
        tx_buf_reset(ctx->out);
        tx_buf_sets(ctx->out, "RESPCODE", RESP_INVALID);
        tx_return(ctx, TX_EINVAL, ctx->out);
        return;
    }
    if (!date_is_valid(bizdate)) {
        tx_log(TX_LOG_WARN, "[CL_OL_0018] 영업일 형식 오류 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_biz_date, 0, sizeof(h_biz_date));
    strncpy(h_biz_date, bizdate, sizeof(h_biz_date) - 1);

    /* 집계 요약행 키 = 영업일 + "AG" (실집계 대상에서 요약행은 제외) */
    snprintf(h_agg_key, sizeof(h_agg_key), "%.8sAG", h_biz_date);

    /* 2) 트랜잭션 시작 */
    if (tx_begin() != TX_OK) {
        tx_log(TX_LOG_ERROR, "[CL_OL_0018] 트랜잭션 시작 실패");
        tx_buf_reset(ctx->out);
        tx_buf_sets(ctx->out, "RESPCODE", RESP_SYSERR);
        tx_return(ctx, TX_FAIL, ctx->out);
        return;
    }

    /* 3) 당일 실거래 집계 (요약행 '*AGG' 는 제외) */
    EXEC SQL SELECT coalesce(sum(amount), 0), count(*)
        INTO :h_sum, :h_cnt
        FROM cl_ledger
        WHERE biz_date = :h_biz_date
          AND merch_id <> '*AGG';

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

    /* 4) 기존 집계요약행 존재 여부 확인 */
    EXEC SQL SELECT count(*)
        INTO :h_exist
        FROM cl_ledger
        WHERE key = :h_agg_key;

    if (sqlca.sqlcode != TX_SQL_OK) {
        TX_DBIO_LOG_ERR("cl_ol_0018 요약존재확인");
        tx_abort();
        tx_buf_reset(ctx->out);
        tx_buf_sets(ctx->out, "RESPCODE", RESP_SYSERR);
        tx_return(ctx, TX_EDB, ctx->out);
        return;
    }

    /* 5) 멱등 upsert: 있으면 갱신, 없으면 삽입 (금액=합계, 수수료=건수) */
    if (h_exist > 0) {
        EXEC SQL UPDATE cl_ledger
            SET amount = :h_sum, fee = :h_cnt, status = 'S', upd_ts = now()
            WHERE key = :h_agg_key;
    } else {
        EXEC SQL INSERT INTO cl_ledger
            (key, merch_id, card_no, amount, biz_date, status, fee)
            VALUES
            (:h_agg_key, '*AGG', '*AGGREGATE*', :h_sum, :h_biz_date, 'S', :h_cnt);
    }

    if (sqlca.sqlcode != TX_SQL_OK) {
        TX_DBIO_LOG_ERR("cl_ol_0018 요약반영");
        tx_abort();
        tx_buf_reset(ctx->out);
        tx_buf_sets(ctx->out, "RESPCODE", RESP_SYSERR);
        tx_return(ctx, TX_EDB, ctx->out);
        return;
    }

    tx_commit();

    /* 6) 응답 구성 */
    tx_buf_reset(ctx->out);
    tx_buf_sets(ctx->out, "RESPCODE", RESP_OK);
    tx_buf_sets(ctx->out, "BIZDATE", bizdate);
    tx_buf_sets(ctx->out, "AGGKEY", h_agg_key);
    tx_buf_setlong(ctx->out, "AGGCNT", (long)h_cnt);
    tx_buf_setlong(ctx->out, "AGGSUM", h_sum);
    tx_buf_sets(ctx->out, "AGGMODE", h_exist > 0 ? "UPDATE" : "INSERT");

    tx_log(TX_LOG_INFO, "[CL_OL_0018] 집계반영 완료 date=%s 건수=%d 합계=%ld mode=%s",
           bizdate, h_cnt, h_sum, h_exist > 0 ? "UPDATE" : "INSERT");
    tx_return(ctx, TX_OK, ctx->out);
}