SET QUOTED_IDENTIFIER ON SET ANSI_NULLS ON GO ALTER PROCEDURE [dbo].[rpt_PL_REQUEST_FUND_Template] @p_TR_REQUEST_DOC_ID varchar(15) = NULL AS -----------------BẢNG CHI TIẾT----------------- --SELECT ROW_NUMBER() OVER (ORDER BY DT_RESULT.REQ_DT_ID) AS STT, DT_RESULT.* --FROM( -- SELECT -- PD.REQ_DT_ID, -- PD.HH_ID, -- PD.DESCRIPTION, -- PD.QUANTITY, -- (SELECT dbo.FN_FORMAT_MONEY_REPORT_PRICE (PD.UNIT_PRICE)) AS UNIT_PRICE, -- (SELECT dbo.FN_FORMAT_MONEY_REPORT_PRICE(PD.UNIT_PRICE * PD.QUANTITY)) AS TOTAL_AMT -- FROM PL_APPOINT_CONTRACTOR_DT PD -- JOIN PL_APPOINT_CONTRACTOR PC ON PD.REQ_ID = PC.REQ_ID -- WHERE PC.TR_REQUEST_DOC_ID = @p_TR_REQUEST_DOC_ID --) AS DT_RESULT -----------------TỔNG CỘNG + TIỀN THUẾ + TỔNG CỘNG GỒM THUẾ + TỔNG TIỀN CHỮ---------------------- --SELECT -- (SELECT dbo.FN_FORMAT_MONEY_REPORT_PRICE (ISNULL(SUM(PD.UNIT_PRICE * PD.QUANTITY), 0))) -- AS SUM_TOTAL_AMT, -- (SELECT dbo.FN_FORMAT_MONEY_REPORT_PRICE(ISNULL(SUM(PD.VAT_AMT), 0))) -- AS VAT_SUM_TOTAL_AMT, -- (SELECT dbo.FN_FORMAT_MONEY_REPORT_PRICE( -- ISNULL(SUM(PD.UNIT_PRICE * PD.QUANTITY), 0) + ISNULL(SUM(PD.VAT_AMT), 0) -- )) AS TOTAL_AMT_AFTER_VAT, -- (SELECT dbo.ReadMoneyVN( -- ISNULL(SUM(PD.UNIT_PRICE * PD.QUANTITY), 0) + ISNULL(SUM(PD.VAT_AMT), 0) -- )) AS TOTAL_AMT_IN_TEXT --FROM PL_APPOINT_CONTRACTOR_DT PD --JOIN PL_APPOINT_CONTRACTOR PC ON PD.REQ_ID = PC.REQ_ID --WHERE PC.TR_REQUEST_DOC_ID = @p_TR_REQUEST_DOC_ID --------------------------CHỮ KÝ DMMS-------------------- DECLARE @t_SIGN_TABLE_DMMS TABLE( APPROVE_DT VARCHAR(30), SIGN_NAME NVARCHAR(50), TYPE VARCHAR(15) ) DECLARE @p_APPROVE_DT_KSV VARCHAR(25), @p_KSV_NAME NVARCHAR(50), --KSV @p_APPROVE_DT_GDDV VARCHAR(25), @p_GDDV_NAME NVARCHAR(50), --GDDV @p_ROLE_PP NVARCHAR(100) = N'PHÓ PHÒNG HÀNH CHÍNH', @p_APPROVE_DT_PP VARCHAR(25), @p_PP_NAME NVARCHAR(50) --KSV/PP.HC INSERT INTO @t_SIGN_TABLE_DMMS -----------------KSV DMMS---------------- SELECT TOP 1 ISNULL(FORMAT(D.APPROVE_DT, 'dd/MM/yyyy,HH:mm:ss'),'') AS APPROVE_DT, C.TLFullName AS SIGN_NAME, 'KSV' AS TYPE FROM PL_REQUEST_PROCESS_CHILD A LEFT JOIN PL_REQUEST_PROCESS B ON A.PROCESS_ID = B.ID LEFT JOIN TL_USER C ON A.TLNAME = C.TLNANME LEFT JOIN PL_PROCESS D ON B.REQ_ID = D.REQ_ID AND A.TLNAME = D.CHECKER_ID WHERE B.REQ_ID = @p_TR_REQUEST_DOC_ID AND A.TYPE_JOB = 'KS' AND A.STATUS_JOB = 'P' AND (((B.DVDM_ID = 'DM0000000000003' OR B.DVDM_ID = 'DMMS00000000001') AND A.TLNAME = 'tanvt') OR B.DVDM_ID <> 'DM0000000000003') ORDER BY D.ID DESC /*================= PP.HC DMMS ===============*/ INSERT INTO @t_SIGN_TABLE_DMMS SELECT TOP 1 ISNULL(FORMAT(D.APPROVE_DT, 'dd/MM/yyyy,HH:mm:ss'),'') AS APPROVE_DT, C.TLFullName AS SIGN_NAME, 'PP' AS TYPE FROM PL_REQUEST_PROCESS_CHILD A LEFT JOIN PL_REQUEST_PROCESS B ON A.PROCESS_ID = B.ID LEFT JOIN TL_USER C ON A.TLNAME = C.TLNANME LEFT JOIN PL_PROCESS D ON B.REQ_ID = D.REQ_ID AND A.TLNAME = D.CHECKER_ID WHERE B.REQ_ID = @p_TR_REQUEST_DOC_ID AND A.TYPE_JOB = 'KS' AND A.STATUS_JOB = 'P' AND A.TLNAME = 'vanpt2' ORDER BY D.ID DESC INSERT INTO @t_SIGN_TABLE_DMMS ---------------Trưởng đơn vị DMMS------------ SELECT DISTINCT ISNULL(FORMAT(A.APPROVE_DT, 'dd/MM/yyyy,HH:mm:ss'),'') AS APPROVE_DT, B.TLFullName AS SIGN_NAME, 'GDDV' AS TYPE FROM PL_REQUEST_PROCESS A LEFT JOIN TL_USER B ON A.CHECKER_ID = B.TLNANME WHERE A.REQ_ID = @p_TR_REQUEST_DOC_ID AND A.PROCESS_ID = 'DMMS' AND A.STATUS = 'P' ------KSV DMMS----- SET @p_APPROVE_DT_KSV = (SELECT A.APPROVE_DT FROM @t_SIGN_TABLE_DMMS A WHERE A.TYPE = 'KSV') SET @p_KSV_NAME = (SELECT A.SIGN_NAME FROM @t_SIGN_TABLE_DMMS A WHERE A.TYPE = 'KSV') ------GDDV DMMS---- SET @p_APPROVE_DT_GDDV = (SELECT A.APPROVE_DT FROM @t_SIGN_TABLE_DMMS A WHERE A.TYPE = 'GDDV') SET @p_GDDV_NAME = (SELECT A.SIGN_NAME FROM @t_SIGN_TABLE_DMMS A WHERE A.TYPE = 'GDDV') ----- PP DMMS -------- SET @p_APPROVE_DT_PP = (SELECT A.APPROVE_DT FROM @t_SIGN_TABLE_DMMS A WHERE A.TYPE = 'PP') SET @p_PP_NAME = (SELECT A.SIGN_NAME FROM @t_SIGN_TABLE_DMMS A WHERE A.TYPE = 'PP') DECLARE @REQ_DT DATETIME, @CREATE_PL_APP DATETIME SELECT TOP 1 @REQ_DT = REQ_DT, @CREATE_PL_APP = CREATE_DT FROM PL_APPOINT_CONTRACTOR WHERE TR_REQUEST_DOC_ID = @p_TR_REQUEST_DOC_ID ------------LẤY TÊN NG DUYỆT--------------- SELECT ISNULL(@p_KSV_NAME, '') AS KSV_NAME, ISNULL(@p_GDDV_NAME,'') AS DMMS_NAME, ISNULL(@p_PP_NAME,'') AS PP_NAME -------------LẤY NGÀY DUYỆT-------------- IF(CONVERT(DATE,@REQ_DT,103) < CONVERT(DATE,@CREATE_PL_APP,103)) BEGIN SELECT CASE WHEN ISNULL(@p_APPROVE_DT_KSV, '') <> '' THEN ISNULL(FORMAT(@REQ_DT, 'dd/MM/yyyy,HH:mm:ss'), '') ELSE '' END AS APPROVE_DT_KSV, CASE WHEN ISNULL(@p_APPROVE_DT_GDDV, '') <> '' THEN ISNULL(FORMAT(@REQ_DT, 'dd/MM/yyyy,HH:mm:ss'), '') ELSE '' END AS APPROVE_DT_GDDV, CASE WHEN ISNULL(@p_APPROVE_DT_PP, '') <> '' THEN ISNULL(FORMAT(@REQ_DT, 'dd/MM/yyyy,HH:mm:ss'), '') ELSE '' END AS APPROVE_DT_PP END ELSE BEGIN SELECT ISNULL(@p_APPROVE_DT_KSV, '') AS APPROVE_DT_KSV, ISNULL(@p_APPROVE_DT_GDDV, '') AS APPROVE_DT_GDDV, ISNULL(@p_APPROVE_DT_PP, '') AS APPROVE_DT_PP END --------------------CHỮ KÝ CÁC GDK/ PTGDK-------------------- DECLARE @t_SIGN_TABLE_GDK TABLE( ROLE_NAME NVARCHAR(200), APPROVE_DT VARCHAR(30), SIGN_NAME NVARCHAR(50), TYPE VARCHAR(15) ) DECLARE -----GDK hỗ trợ-------- @p_ROLE_GDKHT NVARCHAR(200), @p_APPROVE_DT_GDKHT VARCHAR(25), @p_GDKHT_NAME NVARCHAR(50), ------GDK tài chính------ @p_ROLE_GDKTC NVARCHAR(200), @p_APPROVE_DT_GDKTC VARCHAR(25), @p_GDKTC_NAME NVARCHAR(50), ------PTGDK hỗ trợ-------- @p_ROLE_PTGD NVARCHAR(200), @p_APPROVE_DT_PTGD VARCHAR(25), @p_PTGD_NAME NVARCHAR(50) INSERT INTO @t_SIGN_TABLE_GDK -----GDK hỗ trợ-------- SELECT CEL.POS_NAME AS ROLE_NAME, ISNULL(FORMAT(PRP.APPROVE_DT, 'dd/MM/yyyy,HH:mm:ss'),'') AS APPROVE_DT, TU.TLFullName AS SIGN_NAME, 'GDKHT' AS TYPE FROM PL_REQUEST_PROCESS PRP LEFT JOIN TL_USER TU ON PRP.CHECKER_ID = TU.TLNANME LEFT JOIN CM_EMPLOYEE_LOG CEL ON TU.TLNANME = CEL.USER_DOMAIN WHERE PRP.REQ_ID = @p_TR_REQUEST_DOC_ID AND PRP.PROCESS_ID = 'GDK_PYC' AND PRP.DVDM_ID = 'DM0000000000015' ---PHÒNG HỖ TRỢ AND PRP.STATUS = 'P' INSERT INTO @t_SIGN_TABLE_GDK ------GDK tài chính------ SELECT CEL.POS_NAME AS ROLE_NAME, ISNULL(FORMAT(PRP.APPROVE_DT, 'dd/MM/yyyy,HH:mm:ss'),'') AS APPROVE_DT, TU.TLFullName AS SIGN_NAME, 'GDKTC' AS TYPE FROM PL_REQUEST_PROCESS PRP LEFT JOIN TL_USER TU ON PRP.CHECKER_ID = TU.TLNANME LEFT JOIN CM_EMPLOYEE_LOG CEL ON TU.TLNANME = CEL.USER_DOMAIN WHERE PRP.REQ_ID = @p_TR_REQUEST_DOC_ID AND PRP.PROCESS_ID = 'GDK_CDT_TC' AND PRP.DVDM_ID = 'DM0000000000017' ---PHÒNG HỖ TRỢ AND PRP.STATUS = 'P' INSERT INTO @t_SIGN_TABLE_GDK ------PTGDK hỗ trợ------ SELECT CEL.POS_NAME AS ROLE_NAME, ISNULL(FORMAT(PRP.APPROVE_DT, 'dd/MM/yyyy,HH:mm:ss'),'') AS APPROVE_DT, TU.TLFullName AS SIGN_NAME, 'PTGDK' AS TYPE FROM PL_REQUEST_PROCESS PRP LEFT JOIN TL_USER TU ON PRP.CHECKER_ID = TU.TLNANME LEFT JOIN CM_EMPLOYEE_LOG CEL ON TU.TLNANME = CEL.USER_DOMAIN WHERE PRP.REQ_ID = @p_TR_REQUEST_DOC_ID --AND PRP.PROCESS_ID = 'PTGDK_CDT' AND PRP.PROCESS_ID ='GDK_PYC' AND PRP.DVDM_ID = 'DM0000000000015' ---PHÒNG HỖ TRỢ AND PRP.STATUS = 'P' -----GDK hỗ trợ-------- SET @p_ROLE_GDKHT = (SELECT A.ROLE_NAME FROM @t_SIGN_TABLE_GDK A WHERE A.TYPE = 'GDKHT') SET @p_APPROVE_DT_GDKHT = (SELECT A.APPROVE_DT FROM @t_SIGN_TABLE_GDK A WHERE A.TYPE = 'GDKHT') SET @p_GDKHT_NAME = (SELECT A.SIGN_NAME FROM @t_SIGN_TABLE_GDK A WHERE A.TYPE = 'GDKHT') -----GDK tài chính-------- SET @p_ROLE_GDKTC = (SELECT A.ROLE_NAME FROM @t_SIGN_TABLE_GDK A WHERE A.TYPE = 'GDKTC') SET @p_APPROVE_DT_GDKTC = (SELECT A.APPROVE_DT FROM @t_SIGN_TABLE_GDK A WHERE A.TYPE = 'GDKTC') SET @p_GDKTC_NAME = (SELECT A.SIGN_NAME FROM @t_SIGN_TABLE_GDK A WHERE A.TYPE = 'GDKTC') ------PTGDK hỗ trợ------ ---- 30112023_secretkey: TẠM THỜI KHÓA ĐỂ KHÔNG IN DOUBLE CHỮ KÝ LÃNH ĐẠO KHỐI HỖ TRỢ SET @p_ROLE_PTGD = (SELECT A.ROLE_NAME FROM @t_SIGN_TABLE_GDK A WHERE A.TYPE = 'PTGDK_1') SET @p_APPROVE_DT_PTGD = (SELECT A.APPROVE_DT FROM @t_SIGN_TABLE_GDK A WHERE A.TYPE = 'PTGDK_1') SET @p_PTGD_NAME = (SELECT A.SIGN_NAME FROM @t_SIGN_TABLE_GDK A WHERE A.TYPE = 'PTGDK_1') ------------LẤY CHỨC VỤ NG DUYỆT--------------- SELECT ISNULL(@p_ROLE_GDKHT, '') AS ROLE_GDKHT, ISNULL(@p_ROLE_PTGD,'') AS ROLE_PTGD, ISNULL(@p_ROLE_GDKTC,'') AS ROLE_GDKTC ------------LẤY TÊN NG DUYỆT--------------- SELECT ISNULL(@p_GDKHT_NAME, '') AS GDKHT_NAME, ISNULL(@p_PTGD_NAME,'') AS PTGD_NAME, ISNULL(@p_GDKTC_NAME,'') AS GDKTC_NAME -------------LẤY NGÀY DUYỆT-------------- IF(CONVERT(DATE,@REQ_DT,103) < CONVERT(DATE,@CREATE_PL_APP,103)) BEGIN SELECT CASE WHEN ISNULL(@p_APPROVE_DT_GDKHT, '') <> '' THEN ISNULL(FORMAT(@REQ_DT, 'dd/MM/yyyy,HH:mm:ss'), '') ELSE '' END AS APPROVE_DT_GDKHT, CASE WHEN ISNULL(@p_APPROVE_DT_PTGD, '') <> '' THEN ISNULL(FORMAT(@REQ_DT, 'dd/MM/yyyy,HH:mm:ss'), '') ELSE '' END AS APPROVE_DT_PTGD, CASE WHEN ISNULL(@p_APPROVE_DT_GDKTC, '') <> '' THEN ISNULL(FORMAT(@REQ_DT, 'dd/MM/yyyy,HH:mm:ss'), '') ELSE '' END AS APPROVE_DT_GDKTC END ELSE BEGIN SELECT ISNULL(@p_APPROVE_DT_GDKHT, '') AS APPROVE_DT_GDKHT, ISNULL(@p_APPROVE_DT_PTGD, '') AS APPROVE_DT_PTGD, ISNULL(@p_APPROVE_DT_GDKTC, '') AS APPROVE_DT_GDKTC END ----------GDK HỖ TRỢ----------- --SELECT -- CEL.POS_NAME AS ROLE_GDKHT, -- TU.TLFullName AS GDKHT_NAME, -- ISNULL(FORMAT(PRP.APPROVE_DT, 'dd/MM/yyyy,HH:mm:ss'),'') AS APPROVE_DT_GDKHT --FROM PL_REQUEST_PROCESS PRP --LEFT JOIN TL_USER TU ON PRP.CHECKER_ID = TU.TLNANME --LEFT JOIN CM_EMPLOYEE_LOG CEL ON TU.TLNANME = CEL.USER_DOMAIN --WHERE PRP.REQ_ID = @p_TR_REQUEST_DOC_ID --AND PRP.PROCESS_ID = 'GDK_PYC' --AND PRP.DVDM_ID = 'DM0000000000015' ---PHÒNG HỖ TRỢ --AND PRP.STATUS = 'P' --------GDK TÀI CHÍNH------------- --SELECT -- CEL.POS_NAME AS ROLE_GDKTC, -- TU.TLFullName AS GDKTC_NAME, -- ISNULL(FORMAT(PRP.APPROVE_DT, 'dd/MM/yyyy,HH:mm:ss'),'') AS APPROVE_DT_GDKTC --FROM PL_REQUEST_PROCESS PRP --LEFT JOIN TL_USER TU ON PRP.CHECKER_ID = TU.TLNANME --LEFT JOIN CM_EMPLOYEE_LOG CEL ON TU.TLNANME = CEL.USER_DOMAIN --WHERE PRP.REQ_ID = @p_TR_REQUEST_DOC_ID --AND PRP.PROCESS_ID = 'GDK_CDT_TC' --AND PRP.DVDM_ID = 'DM0000000000017' --AND PRP.STATUS = 'P' --------PTGDK HỖ TRỢ--------------- --SELECT -- CEL.POS_NAME AS ROLE_PTGD, -- TU.TLFullName AS PTGD_NAME, -- ISNULL(FORMAT(PRP.APPROVE_DT, 'dd/MM/yyyy,HH:mm:ss'),'') AS APPROVE_DT_PTGD --FROM PL_REQUEST_PROCESS PRP --LEFT JOIN TL_USER TU ON PRP.CHECKER_ID = TU.TLNANME --LEFT JOIN CM_EMPLOYEE_LOG CEL ON TU.TLNANME = CEL.USER_DOMAIN --WHERE PRP.REQ_ID = @p_TR_REQUEST_DOC_ID --AND PRP.PROCESS_ID = 'PTGDK_CDT' --AND PRP.DVDM_ID = 'DM0000000000015' --AND PRP.STATUS = 'P' ------------------CHỮ KÝ THƯ KÝ TGD + TGĐ---------------------- DECLARE @t_SIGN_TABLE_TGD TABLE( APPROVE_DT VARCHAR(30), SIGN_NAME NVARCHAR(50), TYPE VARCHAR(15) ) DECLARE ----Thư ký TGD-------- @p_APPROVE_DT_TKTGD VARCHAR(25), @p_TKTGD_NAME NVARCHAR(50), ------TGD------ @p_APPROVE_DT_TGD VARCHAR(25), @p_TGD_NAME NVARCHAR(50) INSERT INTO @t_SIGN_TABLE_TGD ------TKTGD------ SELECT ISNULL(FORMAT(PRP.APPROVE_DT, 'dd/MM/yyyy,HH:mm:ss'),'') AS APPROVE_DT, TU.TLFullName AS SIGN_NAME, 'TKTGD' AS TYPE FROM PL_REQUEST_PROCESS PRP LEFT JOIN TL_USER TU ON PRP.CHECKER_ID = TU.TLNANME WHERE PRP.REQ_ID = @p_TR_REQUEST_DOC_ID AND PRP.PROCESS_ID = 'TKTGD_CDT' -- AND PRP.DVDM_ID = 'DM0000000000013' AND PRP.STATUS = 'P' INSERT INTO @t_SIGN_TABLE_TGD ------TGD------ SELECT ISNULL(FORMAT(PRP.APPROVE_DT, 'dd/MM/yyyy,HH:mm:ss'),'') AS APPROVE_DT, TU.TLFullName AS SIGN_NAME, 'TGD' AS TYPE FROM PL_REQUEST_PROCESS PRP LEFT JOIN TL_USER TU ON PRP.CHECKER_ID = TU.TLNANME WHERE PRP.REQ_ID = @p_TR_REQUEST_DOC_ID AND PRP.PROCESS_ID = 'TGD_CDT' -- AND PRP.DVDM_ID = 'DM0000000000013' AND PRP.STATUS = 'P' -----TKTGD-------- SET @p_APPROVE_DT_TKTGD = (SELECT A.APPROVE_DT FROM @t_SIGN_TABLE_TGD A WHERE A.TYPE = 'TKTGD') SET @p_TKTGD_NAME = (SELECT A.SIGN_NAME FROM @t_SIGN_TABLE_TGD A WHERE A.TYPE = 'TKTGD') -----TGD-------- SET @p_APPROVE_DT_TGD = (SELECT A.APPROVE_DT FROM @t_SIGN_TABLE_TGD A WHERE A.TYPE = 'TGD') SET @p_TGD_NAME = (SELECT A.SIGN_NAME FROM @t_SIGN_TABLE_TGD A WHERE A.TYPE = 'TGD') ------------LẤY TÊN NG DUYỆT--------------- SELECT ISNULL(@p_TKTGD_NAME, '') AS TKTGD_NAME, ISNULL(@p_TGD_NAME,'') AS TGD_NAME -------------LẤY NGÀY DUYỆT-------------- IF(CONVERT(DATE,@REQ_DT,103) < CONVERT(DATE,@CREATE_PL_APP,103)) BEGIN SELECT CASE WHEN ISNULL(@p_APPROVE_DT_TKTGD, '') <> '' THEN ISNULL(FORMAT(@REQ_DT, 'dd/MM/yyyy,HH:mm:ss'), '') ELSE '' END AS APPROVE_DT_TKTGD, CASE WHEN ISNULL(@p_APPROVE_DT_TGD, '') <> '' THEN ISNULL(FORMAT(@REQ_DT, 'dd/MM/yyyy,HH:mm:ss'), '') ELSE '' END AS APPROVE_DT_TGD END ELSE BEGIN SELECT ISNULL(@p_APPROVE_DT_TKTGD, '') AS APPROVE_DT_TKTGD, ISNULL(@p_APPROVE_DT_TGD, '') AS APPROVE_DT_TGD END SELECT CASE WHEN ISNULL(@p_APPROVE_DT_KSV, '') <> '' THEN N'KIỂM SOÁT VIÊN' ELSE '' END AS KSV_TITLE, CASE WHEN ISNULL(@p_APPROVE_DT_GDDV, '') <> '' THEN N'TRƯỞNG PHÒNG HÀNH CHÍNH' ELSE '' END AS GDDVMS_TITLE, CASE WHEN (ISNULL(@p_APPROVE_DT_GDKHT, '') <> '' OR ISNULL(@p_APPROVE_DT_PTGD, '') <> '' OR ISNULL(@p_APPROVE_DT_GDKTC, '') <> '' OR ISNULL(@p_APPROVE_DT_TKTGD, '') <> '' OR ISNULL(@p_APPROVE_DT_TGD, '') <> '') THEN N'PHÊ DUYỆT' ELSE '' END AS APPROVE_TITLE, CASE WHEN ISNULL(@p_APPROVE_DT_TKTGD, '') <> '' THEN N'THƯ KÝ BAN TỔNG GIÁM ĐỐC' ELSE '' END AS TKTGD_TITLE, CASE WHEN ISNULL(@p_APPROVE_DT_TGD, '') <> '' THEN N'TỔNG GIÁM ĐỐC' ELSE '' END AS TGD_TITLE --SELECT -- TU.TLFullName AS TGD_NAME, -- ISNULL(FORMAT(PRP.APPROVE_DT, 'dd/MM/yyyy,HH:mm:ss'),'') AS APPROVE_DT_TGD --FROM PL_REQUEST_PROCESS PRP --LEFT JOIN TL_USER TU ON PRP.CHECKER_ID = TU.TLNANME --WHERE PRP.REQ_ID = @p_TR_REQUEST_DOC_ID --AND PRP.PROCESS_ID = 'TGD_CDT' --AND PRP.DVDM_ID = 'DM0000000000013' --AND PRP.STATUS = 'P' --04042025_sECRETKEY