/* @tier medium @module vl @transform validation-online */
/*
 * vl_ol_0022.pgc - 가맹점별 정합성 집계 서비스 (VL_OL_0022)  [tier=medium]
 *
 * 입력 가맹점ID 에 대해 완료(status='M') / 불일치(status='U') 의 건수와
 * 금액합계를 각각 집계하여 응답한다.
 */
#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_0022, ctx)
{
    EXEC SQL BEGIN DECLARE SECTION;
    char h_merch[16];
    long h_done_cnt;
    long h_done_amt;
    long h_fail_cnt;
    long h_fail_amt;
    EXEC SQL END DECLARE SECTION;

    char merch[16];
    long total_cnt, total_amt;

    tx_log(TX_LOG_INFO, "[VL_OL_0022] 가맹점별 정합성 집계 서비스 진입");

    if (tx_buf_get(ctx->in, "MERCHID", merch, sizeof(merch)) != TX_OK) {
        tx_log(TX_LOG_ERROR, "[VL_OL_0022] 가맹점ID(MERCHID) 누락");
        tx_buf_sets(ctx->out, "ERRCODE", "VL2200");
        tx_return(ctx, TX_EINVAL, ctx->out);
        return;
    }
    if (strlen(merch) == 0) {
        tx_log(TX_LOG_WARN, "[VL_OL_0022] 가맹점ID 공백");
        tx_buf_sets(ctx->out, "ERRCODE", "VL2201");
        tx_return(ctx, TX_EINVAL, ctx->out);
        return;
    }

    strncpy(h_merch, merch, sizeof(h_merch) - 1);
    h_merch[sizeof(h_merch) - 1] = '\0';

    h_done_cnt = 0;
    h_done_amt = 0;
    EXEC SQL
        SELECT COUNT(*), COALESCE(SUM(amount), 0)
          INTO :h_done_cnt, :h_done_amt
          FROM vl_ledger
         WHERE merch_id = :h_merch
           AND status   = 'M';

    if (sqlca.sqlcode != TX_SQL_OK) {
        TX_DBIO_LOG_ERR("SELECT 완료집계 vl_ledger");
        tx_buf_sets(ctx->out, "ERRCODE", "VL2208");
        tx_return(ctx, TX_EDB, ctx->out);
        return;
    }

    h_fail_cnt = 0;
    h_fail_amt = 0;
    EXEC SQL
        SELECT COUNT(*), COALESCE(SUM(amount), 0)
          INTO :h_fail_cnt, :h_fail_amt
          FROM vl_ledger
         WHERE merch_id = :h_merch
           AND status   = 'U';

    if (sqlca.sqlcode != TX_SQL_OK) {
        TX_DBIO_LOG_ERR("SELECT 불일치집계 vl_ledger");
        tx_buf_sets(ctx->out, "ERRCODE", "VL2209");
        tx_return(ctx, TX_EDB, ctx->out);
        return;
    }

    total_cnt = h_done_cnt + h_fail_cnt;
    total_amt = h_done_amt + h_fail_amt;

    tx_buf_reset(ctx->out);
    tx_buf_sets(ctx->out, "MERCHID", merch);
    tx_buf_setlong(ctx->out, "DONECNT", h_done_cnt);
    tx_buf_setlong(ctx->out, "DONEAMT", h_done_amt);
    tx_buf_setlong(ctx->out, "FAILCNT", h_fail_cnt);
    tx_buf_setlong(ctx->out, "FAILAMT", h_fail_amt);
    tx_buf_setlong(ctx->out, "TOTALCNT", total_cnt);
    tx_buf_setlong(ctx->out, "TOTALAMT", total_amt);

    /* 불일치가 하나라도 있으면 주의 플래그 */
    if (h_fail_cnt > 0) {
        tx_buf_sets(ctx->out, "RESULT", "HASFAIL");
    } else {
        tx_buf_sets(ctx->out, "RESULT", "CLEAN");
    }
    tx_buf_sets(ctx->out, "ERRCODE", RESP_OK);

    tx_log(TX_LOG_INFO,
           "[VL_OL_0022] 집계 merch=%s 완료=%ld/%ld 불일치=%ld/%ld",
           merch, h_done_cnt, h_done_amt, h_fail_cnt, h_fail_amt);
    tx_return(ctx, TX_OK, ctx->out);
}
