/* @tier hard @module lg @transform ledger-online */
/*
 * lg_ol_0031.pgc - 원장 온라인 서비스 (LG_OL_0031)  [tier=hard]
 *
 * 승인원장 요약조회: 가맹점(MERCHID)+영업일(BIZDATE) 조합의 처리완료(M)
 * 승인건에 대한 건수/합계/평균(정수 나눗셈)을 단일 SELECT 로 조회 응답한다.
 */
#include <stdio.h>
#include <string.h>

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

EXEC SQL INCLUDE sqlca;

/*
 * [업무 개요]
 *   가맹점 포털/정산 조회 화면에서 "가맹점 + 영업일" 조합의 승인 완료건
 *   요약(건수/합계/평균)을 단일 호출로 제공한다. 평균은 실수 대신 정수
 *   나눗셈(원 단위 절사)으로 산출하여 회계 표기와 일치시킨다.
 *
 * [집계 대상]
 *   status = 'M'(처리완료) 인 승인 전표만 포함. 접수(R)/취소(U)/정산(S) 는
 *   승인원장 요약에서 제외한다.
 *
 * [평균 산식]
 *   AVG = SUM / CNT   (정수 나눗셈; CNT=0 이면 미등록으로 별도 처리)
 *
 * [처리 절차]
 *   1) MERCHID, BIZDATE 추출 및 검증.
 *   2) 3개 조건(merch_id, biz_date, status='M') 단일 집계 SELECT.
 *   3) 건수 0 이면 RESP_NOMERCH.
 *   4) 평균 산출 및 원화 표기 구성 후 응답.
 *
 * [응답 필드]
 *   RESPCODE  처리결과코드
 *   MERCHID   가맹점번호(에코)
 *   BIZDATE   영업일(에코)
 *   CNT       승인 완료 건수
 *   SUM       승인 합계금액
 *   AVG       건당 평균(정수)
 *   AVGWON    평균 원화표기
 *
 * [주의]
 *   조회 전용. 집계는 항상 1행이므로 singleton SELECT INTO 를 사용한다.
 */
TX_SERVICE(LG_OL_0031, ctx)
{
    EXEC SQL BEGIN DECLARE SECTION;
    char h_merch_id[16];
    char h_biz_date[9];
    char h_status_m[2];
    long h_cnt;
    long h_sum;
    EXEC SQL END DECLARE SECTION;

    char merch[16], bizdate[16];
    char wonbuf[32];
    long avg;

    tx_log(TX_LOG_INFO, "[LG_OL_0031] 승인원장 요약조회 진입");

    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, "[LG_OL_0031] 필수 필드 누락");
        tx_buf_reset(ctx->out);
        tx_buf_sets(ctx->out, "RESPCODE", RESP_INVALID);
        tx_return(ctx, TX_EINVAL, ctx->out);
        return;
    }
    if (merch[0] == '\0' || !date_is_valid(bizdate)) {
        tx_log(TX_LOG_WARN, "[LG_OL_0031] 입력 검증 실패 merch=%s date=%s", merch, bizdate);
        tx_buf_reset(ctx->out);
        tx_buf_sets(ctx->out, "RESPCODE", RESP_INVALID);
        tx_return(ctx, TX_EINVAL, ctx->out);
        return;
    }

    strncpy(h_merch_id, merch, sizeof(h_merch_id) - 1);
    h_merch_id[sizeof(h_merch_id) - 1] = '\0';
    strncpy(h_biz_date, bizdate, sizeof(h_biz_date) - 1);
    h_biz_date[sizeof(h_biz_date) - 1] = '\0';
    strncpy(h_status_m, LG_ST_DONE, sizeof(h_status_m) - 1);
    h_status_m[sizeof(h_status_m) - 1] = '\0';

    /* 가맹점+영업일+승인완료 단일 집계 */
    EXEC SQL SELECT count(*), coalesce(sum(amount), 0)
        INTO :h_cnt, :h_sum
        FROM lg_ledger
        WHERE merch_id = :h_merch_id
          AND biz_date = :h_biz_date
          AND status   = :h_status_m;
    if (sqlca.sqlcode != TX_SQL_OK && sqlca.sqlcode != TX_SQL_NOTFOUND) {
        TX_DBIO_LOG_ERR("lg_ol_0031 summary");
        tx_buf_reset(ctx->out);
        tx_buf_sets(ctx->out, "RESPCODE", RESP_SYSERR);
        tx_return(ctx, TX_EDB, ctx->out);
        return;
    }

    if (h_cnt == 0) {
        tx_log(TX_LOG_WARN, "[LG_OL_0031] 승인건 없음 merch=%s date=%s", merch, bizdate);
        tx_buf_reset(ctx->out);
        tx_buf_sets(ctx->out, "RESPCODE", RESP_NOMERCH);
        tx_buf_setlong(ctx->out, "CNT", 0);
        tx_buf_setlong(ctx->out, "SUM", 0);
        tx_buf_setlong(ctx->out, "AVG", 0);
        tx_return(ctx, TX_ENOENT, ctx->out);
        return;
    }

    /* 평균 = 합계 / 건수 (정수 나눗셈) */
    avg = h_sum / h_cnt;
    amount_format_won(avg, wonbuf, sizeof(wonbuf));

    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_setlong(ctx->out, "CNT", h_cnt);
    tx_buf_setlong(ctx->out, "SUM", h_sum);
    tx_buf_setlong(ctx->out, "AVG", avg);
    tx_buf_sets(ctx->out, "AVGWON", wonbuf);
    tx_log(TX_LOG_INFO, "[LG_OL_0031] 요약조회 merch=%s date=%s 건수=%ld 평균=%ld",
           merch, bizdate, h_cnt, avg);
    tx_return(ctx, TX_OK, ctx->out);
}