Project

General

Profile

query buat cek organisasi yang double2 O ke P

User documentation
02/04/2025

DECLARE @now VARCHAR
SET @now = dbo.fn_formatdatetime(GETDATE, 'yyyymmdd')

DECLARE @cekdoubleOkP TABLE (
ObjectIDP VARCHAR,
countOBJ VARCHAR

);
INSERT INTO @cekdoubleOkP
select distinct RelationshipObject,COUNT from PHROM0002 where objectClass = 'O' and RelationshipDirectory = 'A' and RelationshipClass = 'P' AND StartDate <= @now
AND EndDate >= @now
group by RelationshipObject,ObjectID

DECLARE @cekdoubleOkPP TABLE (
StartDate VARCHAR,
EndDate VARCHAR,
ObjectID VARCHAR,
ObjectClass VARCHAR,
RelationshipDirectory VARCHAR,
RelationshipClass VARCHAR,
RelationshipObject VARCHAR

);
INSERT INTO @cekdoubleOkPP
select distinct StartDate,EndDate,ObjectID,ObjectClass,RelationshipDirectory,RelationshipClass,RelationshipObject from PHROM0002 where objectClass = 'O' and RelationshipDirectory = 'A' and RelationshipClass = 'P' AND StartDate <= @now
AND EndDate >= @now and RelationshipObject in (select ObjectIDP from @cekdoubleOkP)

DECLARE @cekdoubleOkPPP TABLE (
ObjectIDP VARCHAR,
countOBJ VARCHAR

);
INSERT INTO @cekdoubleOkPPP
select RelationshipObject, count(RelationshipObject) from @cekdoubleOkPP group by RelationshipObject

select * from @cekdoubleOkPPP where countOBJ > 1
--select * from PHROM0002 where objectClass = 'O' and RelationshipDirectory = 'A' and RelationshipClass = 'P' AND StartDate <= @now
-- AND EndDate >= @now and RelationshipObject = '00004028'

Files

New file