Validar período

[Rodrigo MesquitaParticipante]

Senhores,

Consegui efetuar a validação, segue abaixo para quem precisar

function VERIFICA_PERIODO(pInicio in Date, pTermino in Date) return boolean is
Cursor cPeriodo Is (Select data_inicio,
data_termino
From Modelos_Documentos M
Where (m.data_inicio Between pInicio And pTermino Or
m.data_Termino Between pInicio And pTermino));
vResult Boolean;
Begin
vResult := True;
For i In cPeriodo Loop
If i.data_inicio Is Not Null And i.data_termino Is Null Then
If pInicio Is Not Null Then
If pInicio > i.data_inicio Then
vResult := False;
End If;
End If;
If pTermino Is Not Null Then
If pTermino > i.data_inicio Then
vResult := False;
End If;
End If;
Else
If pInicio Between i.data_inicio And i.data_termino Then
vResult := False;
End If;
If pTermino Between i.data_inicio And i.data_termino Then
vResult := False;
End If;
End If;
End Loop;
return(vResult);
end VERIFICA_PERIODO;