[[poliburro]]

Código Delphi [-]
 
     Select Rentas.IdDoc, Rentas.FechaIni, 
                RentFin.Fechafin, Rentas.Contrato, Rentas,Observaciones
       From Rentas As Rentas
Inner Join ( 
                 Select Contrato, Min(FechaIni) As FechaIni,
                             Max(FechaFin) Fechafin
                   From Rentas
                  Group By Contrato
                )  RentFin
           On Rentas.Contrato = RentFin.Contrato And
                 Rentas.FechaIni = RentFin.FechaIni