declare

begin

For rvd In (Select *

From Pdm_Sectiondoc p

Where trunc(p.dplandateproj) = trunc(p.dfactdateproj))

Loop

PDM_SectionDocDPI.SetnDelayProj(rvd.id, null);

End Loop;

end;