/* Processed by ecpg (15.18 (Debian 15.18-0+deb12u1)) */ /* These include files are added by the preprocessor */ #include #include #include /* End of automatic include section */ #line 1 "app/online/rc_ol_0022.pgc" /* @tier medium @module rc @transform reconciliation-online */ /* * rc_ol_0022.pgc - 대사 자동보정 온라인 서비스 (RC_OL_0022) * * 승인금액(APPRAMT) 과 원장 거래금액의 차이를 허용오차(TOL) 와 비교하여 * 자동보정 여부를 판정한다. * * [입력] * KEY - 처리키(승인/거래 번호) * APPRAMT - 승인금액(원) * TOL - 허용오차(원, 0 이상) * * [판정] * diff = amount - APPRAMT, absd = |diff| * - diff == 0 → ACTION=NOOP, 상태 변경 없음. * - absd <= TOL → 자동보정(허용오차 이내) → 매입확정('M'), ACTION=CORRECTED, * 보정액(adj)=diff 를 로그로 남긴다. * - absd > TOL → 허용오차 초과 → 불일치('U'), ACTION=MANUAL(수기검토). * * [응답] * KEY / DIFF / TOL / ACTION / STATUS * * 커서를 사용하지 않는 단건 처리 서비스이다. */ #include #include #include "txcore.h" #include "txcore_dbio.h" #include "acq_util.h" #include "rc_core.h" #line 1 "/usr/include/postgresql/sqlca.h" #ifndef POSTGRES_SQLCA_H #define POSTGRES_SQLCA_H #ifndef PGDLLIMPORT #if defined(WIN32) || defined(__CYGWIN__) #define PGDLLIMPORT __declspec (dllimport) #else #define PGDLLIMPORT #endif /* __CYGWIN__ */ #endif /* PGDLLIMPORT */ #define SQLERRMC_LEN 150 #ifdef __cplusplus extern "C" { #endif struct sqlca_t { char sqlcaid[8]; long sqlabc; long sqlcode; struct { int sqlerrml; char sqlerrmc[SQLERRMC_LEN]; } sqlerrm; char sqlerrp[8]; long sqlerrd[6]; /* Element 0: empty */ /* 1: OID of processed tuple if applicable */ /* 2: number of rows processed */ /* after an INSERT, UPDATE or */ /* DELETE statement */ /* 3: empty */ /* 4: empty */ /* 5: empty */ char sqlwarn[8]; /* Element 0: set to 'W' if at least one other is 'W' */ /* 1: if 'W' at least one character string */ /* value was truncated when it was */ /* stored into a host variable. */ /* * 2: if 'W' a (hopefully) non-fatal notice occurred */ /* 3: empty */ /* 4: empty */ /* 5: empty */ /* 6: empty */ /* 7: empty */ char sqlstate[5]; }; struct sqlca_t *ECPGget_sqlca(void); #ifndef POSTGRES_ECPG_INTERNAL #define sqlca (*ECPGget_sqlca()) #endif #ifdef __cplusplus } #endif #endif #line 33 "app/online/rc_ol_0022.pgc" TX_SERVICE(RC_OL_0022, ctx) { rc_rec_t rec; char key[16]; long appr_amt = 0; long tol = 0; long diff, absd, adj = 0; int rc; const char *action; const char *new_st; int do_update = 0; tx_log(TX_LOG_INFO, "[RC_OL_0022] 대사 자동보정 서비스 진입"); if (tx_buf_get(ctx->in, "KEY", key, sizeof(key)) != TX_OK) { tx_log(TX_LOG_ERROR, "[RC_OL_0022] KEY 누락"); tx_return(ctx, TX_EINVAL, ctx->out); return; } if (tx_buf_getlong(ctx->in, "APPRAMT", &appr_amt) != TX_OK) { tx_log(TX_LOG_ERROR, "[RC_OL_0022] APPRAMT(승인금액) 누락"); tx_return(ctx, TX_EINVAL, ctx->out); return; } if (tx_buf_getlong(ctx->in, "TOL", &tol) != TX_OK) { tx_log(TX_LOG_ERROR, "[RC_OL_0022] TOL(허용오차) 누락"); tx_return(ctx, TX_EINVAL, ctx->out); return; } if (tol < 0) { tx_log(TX_LOG_WARN, "[RC_OL_0022] 허용오차 음수 오류 tol=%ld", tol); tx_return(ctx, TX_EINVAL, ctx->out); return; } memset(&rec, 0, sizeof(rec)); rc = rc_rec_select(key, &rec); if (rc != TX_OK) { tx_log(TX_LOG_WARN, "[RC_OL_0022] 원장 조회 실패 key=%s rc=%d(%s)", key, rc, tx_strerror(rc)); tx_return(ctx, rc, ctx->out); return; } diff = rec.amount - appr_amt; absd = (diff < 0) ? -diff : diff; if (diff == 0) { /* 완전일치 → 무처리 */ action = "NOOP"; new_st = rec.status; do_update = 0; tx_log(TX_LOG_INFO, "[RC_OL_0022] 완전일치 key=%s 변경없음", key); } else if (absd <= tol) { /* 허용오차 이내 → 자동보정 후 매입확정 */ action = "CORRECTED"; new_st = RC_ST_DONE; adj = diff; do_update = 1; tx_log(TX_LOG_INFO, "[RC_OL_0022] 자동보정 key=%s 차이=%ld 허용오차=%ld 보정액=%ld", key, diff, tol, adj); } else { /* 허용오차 초과 → 불일치, 수기검토 대상 */ action = "MANUAL"; new_st = RC_ST_FAIL; do_update = 1; tx_log(TX_LOG_WARN, "[RC_OL_0022] 허용오차 초과(수기검토) key=%s 차이=%ld 허용오차=%ld", key, diff, tol); } if (do_update) { rc = rc_rec_update_status(key, new_st); if (rc != TX_OK) { tx_log(TX_LOG_ERROR, "[RC_OL_0022] 상태전이 실패 key=%s rc=%d", key, rc); tx_return(ctx, rc, ctx->out); return; } } tx_buf_reset(ctx->out); tx_buf_sets(ctx->out, "KEY", rec.key); tx_buf_setlong(ctx->out, "DIFF", diff); tx_buf_setlong(ctx->out, "TOL", tol); tx_buf_sets(ctx->out, "ACTION", action); tx_buf_sets(ctx->out, "STATUS", new_st); /* 자동보정 판정 이력을 rc_autocorrect_log 에 임베디드 SQL 로 적재 */ { /* exec sql begin declare section */ #line 126 "app/online/rc_ol_0022.pgc" char h_ac_key [ 16 ] ; #line 127 "app/online/rc_ol_0022.pgc" long h_ac_diff ; #line 128 "app/online/rc_ol_0022.pgc" long h_ac_tol ; #line 129 "app/online/rc_ol_0022.pgc" long h_ac_adj ; #line 130 "app/online/rc_ol_0022.pgc" char h_ac_action [ 12 ] ; /* exec sql end declare section */ #line 131 "app/online/rc_ol_0022.pgc" strncpy(h_ac_key, key, sizeof(h_ac_key) - 1); h_ac_key[sizeof(h_ac_key) - 1] = '\0'; h_ac_diff = diff; h_ac_tol = tol; h_ac_adj = adj; strncpy(h_ac_action, action, sizeof(h_ac_action) - 1); h_ac_action[sizeof(h_ac_action) - 1] = '\0'; if (tx_begin() == TX_OK) { { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "insert into rc_autocorrect_log ( rec_key , diff_amt , tol_amt , adj_amt , action ) values ( $1 , $2 , $3 , $4 , $5 )", ECPGt_char,(h_ac_key),(long)16,(long)1,(16)*sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_long,&(h_ac_diff),(long)1,(long)1,sizeof(long), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_long,&(h_ac_tol),(long)1,(long)1,sizeof(long), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_long,&(h_ac_adj),(long)1,(long)1,sizeof(long), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_char,(h_ac_action),(long)12,(long)1,(12)*sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);} #line 144 "app/online/rc_ol_0022.pgc" if (sqlca.sqlcode != TX_SQL_OK) { TX_DBIO_LOG_ERR("INSERT rc_autocorrect_log"); tx_abort(); } else { tx_commit(); } } } tx_log(TX_LOG_INFO, "[RC_OL_0022] 자동보정 완료 key=%s 조치=%s", key, action); tx_return(ctx, TX_OK, ctx->out); }