时间戳

首页 > 解决方案 > 使用动态更新查询更新 Ledger_stat 表中的天数列的值

oracle - 使用动态更新查询更新 Ledger_stat 表中的天数列的值

问题描述

我有一个表LEDGER_STAT_DLY，其中我们有一个月中每一天的列（DAY_01是第 1 天DAY_02，...，DAY_31）。目前，我正在使用 case 语句来更新Day列的值，如下所示。


CASE DAY(V_DATE)
                WHEN 1 THEN
                UPDATE /*+ index(a LEDGER_STAT_DLY_IDX02_IN) */ LEDGER_STAT_DLY A
                    SET DAY_01 =  NVL(DAY_01,0) + NVL(V_AMOUNT,0)
                    WHERE IDENTITY_CODE =  NVL(V_IDENTITY_CODE,0)
                            AND YEAR_S =  NVL(V_YEAR_S,0)
                            AND MONTH_NO = NVL(V_MONTH,0)
                            AND CONSOLIDATION_CD =  NVL(V_CONSOLIDATION_CD,0)
                            AND FINANCIAL_ELEM_ID = NVL(V_FINANCIAL_ELEM_ID,0)
                            AND ORG_UNIT_ID   = NVL(V_ORG_UNIT_ID,0)
                            AND GL_ACCOUNT_ID = NVL(V_GL_ACCOUNT_ID,0)
                            AND COMMON_COA_ID = NVL(V_COMMON_COA_ID,0)
                            AND PRODUCT_1_ID  = NVL(V_PRODUCT_1_ID,0)
                            AND PRODUCT_ID    = NVL(V_PRODUCT_ID,0)
                            AND PRODUCT_3_ID  = NVL(V_PRODUCT_3_ID,0)
                            AND COST_TYPE_ID    = NVL(V_MEMO_GL_ACCOUNT_ID,0)
                            AND BALANCE_TYPE_CD = NVL(V_BALANCE_TYPE_CD,0);

                WHEN 2 THEN
                UPDATE /*+ index(a LEDGER_STAT_DLY_IDX02_IN) */ LEDGER_STAT_DLY A
                    SET DAY_02 =  NVL(DAY_02,0) + NVL(V_AMOUNT,0)
                    WHERE IDENTITY_CODE =  NVL(V_IDENTITY_CODE,0)
                            AND YEAR_S =  NVL(V_YEAR_S,0)
                            AND MONTH_NO = NVL(V_MONTH,0)
                            AND CONSOLIDATION_CD =  NVL(V_CONSOLIDATION_CD,0)
                            AND FINANCIAL_ELEM_ID = NVL(V_FINANCIAL_ELEM_ID,0)
                            AND ORG_UNIT_ID   = NVL(V_ORG_UNIT_ID,0)
                            AND GL_ACCOUNT_ID = NVL(V_GL_ACCOUNT_ID,0)
                            AND COMMON_COA_ID = NVL(V_COMMON_COA_ID,0)
                            AND PRODUCT_1_ID  = NVL(V_PRODUCT_1_ID,0)
                            AND PRODUCT_ID    = NVL(V_PRODUCT_ID,0)
                            AND PRODUCT_3_ID  = NVL(V_PRODUCT_3_ID,0)
                            AND COST_TYPE_ID    = NVL(V_MEMO_GL_ACCOUNT_ID,0)
                            AND BALANCE_TYPE_CD = NVL(V_BALANCE_TYPE_CD,0);

-- and so forth, I have written 31 blocks

虽然它工作正常，但程序中的代码超长。您能否建议我如何使用动态查询对其进行更新，以便此代码减少到更少的行/单个块，而不是 31 个单独的案例语句。提前感谢您的帮助！

PS：day 是从V_DATEusingday()函数中提取出来的。逻辑是，每当day(v_date)匹配表day_number(01, 02,03...)的列时LEDGER_STAT_DLY，相应地更新该列的值。

标签： oracleplsqltoad

解决方案

我同意 Bob Jarvis 的回答中表达的观点，但如果重构基础表不是您的选择，则可以使用动态 SQL 来完成。

在您提供的示例中，看起来有一个变量（// DAY_01...字段）需要在两个地方使用。所以这个字段需要替换到静态语句的其余部分。DAY_02DAY_03

下面是一个例子。

首先，添加一个变量来保存目标字段名称。（这并不是真正需要的，只是为了便于阅读）。

由于在第 1,2,3 天和字段DAY_01, DAY_02,之间的现有切换中存在有序转换DAY_03，这可以在直接赋值中确定。

然后在当前正在使用该开关的过程主体中，您可以使用EXECUTE IMMEDIATE，将语句中的列名替换（通过连接或字符串格式化程序，如UTL_LMS）用目标等替换列DAY_01名DAY_02在语句中的位置.

CREATE OR REPLACE PROCEDURE UPDATE_LEDGER_STAT_DLY(V_IDENTITY_CODE NUMBER,
                                                   V_CONSOLIDATION_CD NUMBER,
                                                   V_FINANCIAL_ELEM_ID NUMBER,
                                                   V_ORG_UNIT_ID NUMBER,
                                                   V_GL_ACCOUNT_ID NUMBER,
                                                   V_COMMON_COA_ID NUMBER,
                                                   V_PRODUCT_1_ID NUMBER,
                                                   V_PRODUCT_ID NUMBER,
                                                   V_PRODUCT_3_ID NUMBER,
                                                   V_DATE DATE,
                                                   V_AMOUNT NUMBER,
                                                   V_MEMO_GL_ACCOUNT_ID NUMBER DEFAULT 0,
                                                   V_POSTINGTYPE CHAR DEFAULT 'N',
                                                   V_BALANCE_TYPE_CD NUMBER DEFAULT 0)
    IS

    V_CNT    NUMBER;
    V_D      NUMBER;
    V_DAY    CHAR(6);
    V_MONTH  CHAR(2);
    V_MO     NUMBER;
    V_YEAR_S NUMBER;

BEGIN

    IF V_POSTINGTYPE = 'N' THEN

        IF NVL(V_AMOUNT, 0) <> 0 THEN

            V_MO := (MONTH(V_DATE));
            V_MONTH := LPAD(V_MO, 2, '0');
            V_YEAR_S := (YEAR(V_DATE));
            V_D := (DAY(V_DATE));
            V_DAY := 'DAY_' || lpad(V_D, 2, '0');


            EXECUTE IMMEDIATE UTL_LMS.FORMAT_MESSAGE('UPDATE /*+ index(a LEDGER_STAT_DLY_IDX02_IN) */ LEDGER_STAT_DLY A
                           SET %s =  NVL(%s,0) + NVL(:THE_AMOUNT,0)
                           WHERE IDENTITY_CODE =  NVL(:THE_IDENTITY_CODE,0)
                              AND YEAR_S =  NVL(:THE_YEAR_S,0)
                              AND MONTH_NO = NVL(:THE_MONTH,0)
                              AND CONSOLIDATION_CD =  NVL(:THE_CONSOLIDATION_CD,0)
                              AND FINANCIAL_ELEM_ID = NVL(:THE_FINANCIAL_ELEM_ID,0)
                              AND ORG_UNIT_ID   = NVL(:ORG_UNIT_ID,0)
                              AND GL_ACCOUNT_ID = NVL(:THE_GL_ACCOUNT_ID,0)
                              AND COMMON_COA_ID = NVL(:THE_COMMON_COA_ID,0)
                              AND PRODUCT_1_ID  = NVL(:THE_PRODUCT_1_ID,0)
                              AND PRODUCT_ID    = NVL(:THE_PRODUCT_ID,0)
                              AND PRODUCT_3_ID  = NVL(:THE_PRODUCT_3_ID,0)
                              AND COST_TYPE_ID    = NVL(:THE_MEMO_GL_ACCOUNT_ID,0)
                              AND BALANCE_TYPE_CD = NVL(:THE_BALANCE_TYPE_CD,0)', V_DAY, V_DAY)
                USING V_AMOUNT, V_IDENTITY_CODE, V_YEAR_S, V_MONTH, V_CONSOLIDATION_CD,
                V_FINANCIAL_ELEM_ID, V_ORG_UNIT_ID, V_GL_ACCOUNT_ID,
                V_COMMON_COA_ID, V_PRODUCT_1_ID, V_PRODUCT_ID, V_PRODUCT_3_ID, V_MEMO_GL_ACCOUNT_ID, V_BALANCE_TYPE_CD;

        END IF;

    END IF;

END;
/

推荐阅读