Oracle PLSQL and PHP smarty 2782年カオス01

■項目：PLSQL　
・機能
PDF（埋火葬許可書）がアップロードされたかチェック用のデータを作成

・PDF_UPCHECK
CREATE OR REPLACE PROCEDURE PDF_UPCHECK (

CREATE OR REPLACE PROCEDURE PDF_UPCHECK (

    P_GYOCD IN NUMBER, --業者コード

    P_UKENEND IN NUMBER, -- 受付年度

    P_UKECD IN NUMBER, -- 受付番号

    P_RSLT OUT NUMBER, --ステータス(0:正常終了　99:エラー)

    P_SQLCODE OUT NUMBER, --エラーコード

    P_SQLERRM OUT VARCHAR2 --エラーメッセージ

)

 /*******************************************************************************

* 関数名 : PDF_UPCHECK

* 作成者 : 夏目智徹

* 作成日 : 2023/11/10

* 概要   : Web予約 PDF_UPロードチェック用プロシージャ

* 機能   : PDF（埋火葬許可書）がアップロードされたかチェック用のデータを作成

* 履歴   : 2023/11/10    夏目      新規

*          

※＝＝＝　予約時間もパラメータで渡せるので、必要に応じて追加できる。

暗証番号

予約日

死亡者姓

死亡者名

取得して、INSERT

*******************************************************************************/

 /*======================================

  変数宣言

======================================*/ IS

    CURSOR C_WK1 IS

    SELECT

        業者コード,

        業者名,

        受付年度,

        受付番号,

        予約日付,

        死亡者姓,

        死亡者名

    FROM

        火葬受付

    WHERE

        業者コード = P_GYOCD --- 業者コード

        AND 受付年度 = P_UKENEND --- 受付年度

        AND 受付番号 = P_UKECD --- 受付番号

        AND 死亡者姓 IS NOT NULL;

 --ﾚｺｰﾄﾞ宣言

    R_WK1 C_WK1%ROWTYPE;

 /*======================================

  本体

======================================*/

BEGIN

 --初期処理

    P_RSLT := 0;

    P_SQLCODE := 0;

    P_SQLERRM := NULL;

 -- カーソルオープン

    OPEN C_WK1;

 -- カーソルフェッチ

    FETCH C_WK1 INTO R_WK1;

    IF C_WK1%FOUND THEN

 --- 業者コードが NULLじゃなかった場合

        IF P_GYOCD IS NOT NULL THEN

            INSERT INTO PDF_UPDETA (

                業者コード,

                業者名,

                受付年度,

                受付番号,

                予約日付,

                死亡者姓,

                死亡者名

            ) VALUES (

                R_WK1.業者コード,

                R_WK1.業者名,

                R_WK1.受付年度,

                R_WK1.受付番号,

                R_WK1.予約日付,

                R_WK1.死亡者姓,

                R_WK1.死亡者名

            );

        END IF;

    ELSE

        DBMS_OUTPUT.PUT_LINE('Fetchができない');

    END IF;

 -- カーソルクローズ

    CLOSE C_WK1;

 /*======================================

 例外処理

======================================*/

EXCEPTION

    WHEN OTHERS THEN

        P_RSLT := 99;

        P_SQLCODE := SQLCODE;

        P_SQLERRM := SQLERRM;

END;

 

■PDF_CHECK_SELECT

・PDF_UPCHECK　のプロシージャで、インサートしたテーブルから、SELECTして抽出したデータを、PDFがアップロードされているかのチェック判別で使うように、テンポラリーテーブルへインサートする。

create or replace PROCEDURE PDF_CHECK_SELECT (
    p_SID IN VARCHAR2, --セッションID
    p_GYOCD IN NUMBER, --業者コード
   --- P_UKENEND IN NUMBER, -- 受付年度
   --- P_UKEDATE IN NUMBER, -- 受付番号
    p_RSLT OUT NUMBER, --ステータス(0:正常終了　99:エラー)
    p_SQLCODE OUT NUMBER, --エラーコード
    p_SQLERRM OUT VARCHAR2 --エラーメッセージ
)
 /*******************************************************************************
* 関数名 : PDF_UPCHECK
* 作成者 : 夏目智徹
* 作成日 : 2023/11/10
* 概要   : Web予約 PDF_UPロードチェック用プロシージャ
* 機能   : PDF（埋火葬許可書）がアップロードされたかチェック用のデータを作成
* 履歴   : 2023/11/10    夏目      新規
*          

※＝＝＝　予約時間もパラメータで渡せるので、必要に応じて追加できる。

暗証番号
予約日
死亡者姓
死亡者名
取得して、INSERT

*******************************************************************************/
 /*======================================
  変数宣言
======================================*/

 IS

CURSOR c_WK1 IS 
    SELECT 業者コード, 業者名, 受付年度, 受付番号, 予約日付, 死亡者姓, 死亡者名
        FROM (
            SELECT 業者コード, 業者名, 受付年度, 受付番号, 予約日付, 死亡者姓, 死亡者名,
            ROWNUM AS rnum
            FROM PDF_UPDETA
            WHERE 業者コード = p_GYOCD
        AND 予約日付 BETWEEN 
            (SELECT MIN(予約日付) FROM PDF_UPDETA WHERE 業者コード = p_GYOCD)
        AND 
            (SELECT MAX(予約日付) FROM PDF_UPDETA WHERE 業者コード = p_GYOCD)
)
WHERE rnum <= 100;

--- WHERE rnum <= 100; LIMIT 100; の役割

--- レコードの宣言
r_WK1 c_WK1%ROWTYPE;
/*======================================
  本体
======================================*/
BEGIN 
--- 初期処理
p_RSLT := 0;
p_SQLCODE := 0;
p_SQLERRM := NULL;


 --- テンプテーブル　クリア
    DELETE FROM TMP_PDF_UPDETA
        WHERE SID = p_SID;

 --- 業者コードが NULLじゃなかった場合
    IF p_GYOCD IS NOT NULL THEN

        FOR r_WK1 IN c_WK1 LOOP
            INSERT INTO TMP_PDF_UPDETA(
                SID,            --- セッションID
                GYOUSYA_CD,     --- 業者コード
                GYOUSA_MEI,     --- 業者名
                UKETUKE_NENDO,  --- 受付年度
                UKETUKE_NUM,    --- 受付番号
                YOYAKU_DATE,    --- 予約日付
                SIBOUSHA_SEI,   --- 死亡者姓
                SIBOUSHA_MEI    --- 死亡者名
            ) VALUES (
                p_SID,
                r_WK1.業者コード,
                r_WK1.業者名,
                r_WK1.受付年度,
                r_WK1.受付番号,
                r_WK1.予約日付,
                r_WK1.死亡者姓,
                r_WK1.死亡者名
            );
            END LOOP;

    END IF;

/*======================================
 例外処理
======================================*/
EXCEPTION
WHEN OTHERS THEN

p_RSLT := 99;
p_SQLCODE := SQLCODE;
p_SQLERRM := SQLERRM;

END;