首页 > 代码库 > DECLARE

DECLARE

-- 修正用プログラム
DECLARE
    CURSOR c_adv_fee_detail IS
        SELECT adv_fee.fee_mgmt_num,
               adv_fee.fee_mgmt_eda,
               adv_fee.receipt_num,
               adv_fee.his,
               adv_fee.ksai_sha_code,
               adv_fee.teisei_kubun,
               adv_fee.adv_baitai_bunrui_code,
               adv_fee.moko_kind,
               adv_fee.adv_kind_mcode,
               adv_fee.adv_sha_name,
               adv_fee.dan_kansan_space,
               adv_fee.gross_fee,
               adv_fee.input_per_code
        FROM tb_adv_fee_detail adv_fee
        WHERE
        --料金情報(基本)に存在する(料金管理番号、枝番で結合する)
         EXISTS (SELECT 1
          FROM tb_fee_info_basic fee
          WHERE fee.fee_mgmt_num = adv_fee.fee_mgmt_num
          AND fee.fee_mgmt_eda =
                 ‘0‘ || substr(adv_fee.fee_mgmt_eda, 2, 2))
        --受付番号、履歴番号と掲載者の条件を追加して、料金情報(基本)に存在しない
         AND NOT EXISTS (SELECT 1
          FROM tb_fee_info_basic fee
          WHERE fee.receipt_num = adv_fee.receipt_num
          AND fee.his = adv_fee.his
          AND fee.ksai_sha_code = adv_fee.ksai_sha_code
          AND fee.fee_mgmt_num = adv_fee.fee_mgmt_num
          AND fee.fee_mgmt_eda =
                 ‘0‘ || substr(adv_fee.fee_mgmt_eda, 2, 2))
         AND adv_fee.input_per_code = ‘IKOU‘
        /* AND adv_fee.receipt_num = ‘W12022000286‘
        AND adv_fee.his = ‘002‘
        AND adv_fee.ksai_sha_code = ‘1‘*/
        ;
    vReceiptNum tb_adv_fee_detail.receipt_num%TYPE;
    vHis tb_adv_fee_detail.his%TYPE;

    CURSOR c_tafd_1 IS
        SELECT *
        FROM (SELECT tafd.receipt_num,
                       tafd.his,
                       tafd.ksai_sha_code,
                       tafd.dan_kansan_space,
                       row_number() over(PARTITION BY tafd.receipt_num, tafd.his, tafd.ksai_sha_code ORDER BY tafd.fee_mgmt_num DESC, tafd.fee_mgmt_eda DESC) rn
                FROM tb_adv_fee_detail tafd
                WHERE tafd.adv_kind_mcode = ‘1‘ --記事下
                AND tafd.dan_kansan_space <> 0 --段換算スペース
                AND tafd.moko_kind NOT IN (‘12‘, ‘19‘) --フリー、仮版
                AND tafd.teisei_kubun IN (‘2‘, ‘3‘) --黒、訂正なし
                AND tafd.input_per_code = ‘IKOU‘
                AND NOT EXISTS
                 (SELECT 1
                        FROM tb_tokei_dansu_kanri dan
                        WHERE dan.receipt_num = tafd.receipt_num
                        AND dan.his = tafd.his
                        AND dan.ksai_sha_code = tafd.ksai_sha_code
                        AND dan.fee_mgmt_num = ‘************‘
                        AND dan.fee_mgmt_eda = ‘***‘))
        WHERE rn = 1;

    CURSOR c_tafd_2 IS
        SELECT tafd.receipt_num,
               tafd.his,
               tafd.ksai_sha_code,
               tafd.fee_mgmt_num,
               tafd.fee_mgmt_eda,
               tafd.dan_kansan_space
        FROM tb_adv_fee_detail tafd
        WHERE ((tafd.adv_kind_mcode = ‘1‘ AND tafd.dan_kansan_space <> 0 AND
               tafd.moko_kind NOT IN (‘12‘, ‘19‘)) OR
               (tafd.adv_kind_mcode = ‘2‘ AND tafd.dan_kansan_space <> 0))
        AND tafd.input_per_code = ‘IKOU‘
        AND NOT EXISTS
         (SELECT 1
                FROM tb_tokei_dansu_kanri dan
                WHERE dan.receipt_num = tafd.receipt_num
                AND dan.his = tafd.his
                AND dan.ksai_sha_code = tafd.ksai_sha_code
                AND dan.fee_mgmt_num = tafd.fee_mgmt_num
                AND dan.fee_mgmt_eda = tafd.fee_mgmt_eda);

    vErrKey VARCHAR2(1024);

BEGIN

    DELETE FROM tb_tokei_dansu_kanri dan
    WHERE EXISTS
     (SELECT 1
            FROM tb_adv_fee_detail adv_fee
            WHERE
            --料金情報(基本)に存在する(料金管理番号、枝番で結合する)
             EXISTS (SELECT 1
              FROM tb_fee_info_basic fee
              WHERE fee.fee_mgmt_num = adv_fee.fee_mgmt_num
              AND fee.fee_mgmt_eda =
                     ‘0‘ || substr(adv_fee.fee_mgmt_eda, 2, 2))
            --受付番号、履歴番号と掲載者の条件を追加して、料金情報(基本)に存在しない
          AND NOT EXISTS (SELECT 1
              FROM tb_fee_info_basic fee
              WHERE fee.receipt_num = adv_fee.receipt_num
              AND fee.his = adv_fee.his
              AND fee.ksai_sha_code = adv_fee.ksai_sha_code
              AND fee.fee_mgmt_num = adv_fee.fee_mgmt_num
              AND fee.fee_mgmt_eda =
                     ‘0‘ || substr(adv_fee.fee_mgmt_eda, 2, 2))
          AND dan.receipt_num = adv_fee.receipt_num
          AND dan.his = adv_fee.his
          AND dan.ksai_sha_code = adv_fee.ksai_sha_code
          AND ((dan.fee_mgmt_num = ‘************‘ AND
            dan.fee_mgmt_eda = ‘***‘) OR
            (dan.fee_mgmt_num = adv_fee.fee_mgmt_num AND
            dan.fee_mgmt_eda = adv_fee.fee_mgmt_eda))
            /* AND adv_fee.receipt_num = ‘W12022000286‘
            AND adv_fee.his = ‘002‘
            AND adv_fee.ksai_sha_code = ‘1‘*/
            );

    FOR c_row IN c_adv_fee_detail
    LOOP
        BEGIN
            vErrKey := c_row.receipt_num || ‘-‘ || c_row.his || ‘-‘ ||
                       c_row.ksai_sha_code || ‘-‘ || c_row.fee_mgmt_num || ‘-‘ ||
                       c_row.fee_mgmt_eda;
            -- 料金情報基本から受付番号と履歴番号を取得
            SELECT receipt_num,
                   his
            INTO vReceiptNum,
                   vHis
            FROM tb_fee_info_basic
            WHERE fee_mgmt_num = c_row.fee_mgmt_num
            AND fee_mgmt_eda = ‘0‘ || substr(c_row.fee_mgmt_eda, 2, 2);
        
            -- 広告料金明細を更新
            UPDATE tb_adv_fee_detail
            SET receipt_num = vReceiptNum,
                   his = vHis,
                   update_date_time = SYSDATE,
                   update_per_code = ‘M0013510‘
            WHERE fee_mgmt_num = c_row.fee_mgmt_num
            AND fee_mgmt_eda = c_row.fee_mgmt_eda;
        EXCEPTION
            WHEN OTHERS THEN
                dbms_output.put_line(‘1:‘ || vErrKey || ‘:‘ ||
                                     SQLERRM(SQLCODE));
        END;
    END LOOP;

    FOR c_row1 IN c_tafd_1
    LOOP
        BEGIN
            vErrKey := c_row1.receipt_num || ‘-‘ || c_row1.his || ‘-‘ ||
                       c_row1.ksai_sha_code || ‘-‘ || ‘************‘ || ‘-‘ ||
                       ‘***‘;
        
            INSERT /*+APPEND*/
            INTO tb_tokei_dansu_kanri
                (receipt_num,
                 his,
                 ksai_sha_code,
                 fee_mgmt_num,
                 fee_mgmt_eda,
                 tokei_dansu,
                 input_date_time,
                 input_per_code,
                 update_date_time,
                 update_per_code,
                 update_count,
                 del_flg,
                 del_date_time,
                 del_per_code)
            VALUES
                (c_row1.receipt_num,
                 c_row1.his,
                 c_row1.ksai_sha_code,
                 ‘************‘,
                 ‘***‘,
                 c_row1.dan_kansan_space,
                 SYSDATE,
                 ‘IKOU‘,
                 SYSDATE,
                 ‘M0013510‘,
                 0,
                 ‘0‘,
                 NULL,
                 NULL);
        
            UPDATE tb_moko_info_ksai_sha_betsu
            SET tokei_dansu = c_row1.dan_kansan_space
            WHERE receipt_num = c_row1.receipt_num
            AND his = c_row1.his
            AND ksai_sha_code = c_row1.ksai_sha_code;
        EXCEPTION
            WHEN OTHERS THEN
                dbms_output.put_line(‘2:‘ || vErrKey || ‘:‘ ||
                                     SQLERRM(SQLCODE));
        END;
    END LOOP;

    FOR c_row2 IN c_tafd_2
    LOOP
        BEGIN
            vErrKey := c_row2.receipt_num || ‘-‘ || c_row2.his || ‘-‘ ||
                       c_row2.ksai_sha_code || ‘-‘ || c_row2.fee_mgmt_num || ‘-‘ ||
                       c_row2.fee_mgmt_eda;
        
            INSERT /*+APPEND*/
            INTO tb_tokei_dansu_kanri
                (receipt_num,
                 his,
                 ksai_sha_code,
                 fee_mgmt_num,
                 fee_mgmt_eda,
                 tokei_dansu,
                 input_date_time,
                 input_per_code,
                 update_date_time,
                 update_per_code,
                 update_count,
                 del_flg,
                 del_date_time,
                 del_per_code)
            VALUES
                (c_row2.receipt_num,
                 c_row2.his,
                 c_row2.ksai_sha_code,
                 c_row2.fee_mgmt_num,
                 c_row2.fee_mgmt_eda,
                 c_row2.dan_kansan_space,
                 SYSDATE,
                 ‘IKOU‘,
                 SYSDATE,
                 ‘M0013510‘,
                 0,
                 ‘0‘,
                 NULL,
                 NULL);
        
            UPDATE tb_moko_info_ksai_sha_betsu
            SET tokei_dansu = c_row2.dan_kansan_space
            WHERE receipt_num = c_row2.receipt_num
            AND his = c_row2.his
            AND ksai_sha_code = c_row2.ksai_sha_code;
        EXCEPTION
            WHEN OTHERS THEN
                dbms_output.put_line(‘3:‘ || vErrKey || ‘:‘ ||
                                     SQLERRM(SQLCODE));
        END;
    END LOOP;

END;