INSERT INTO 00tetsPrTemp ( Id, Worker, DateFrom, DateTo, CurMonth, CurYear )
SELECT [00tetsPr].Id, [00tetsPr].Worker, [00tetsPr].DatePr AS DateFrom, 
(SELECT TOP 1 DateOT FROM [00tetsOt] where [00tetsOt].Worker=[00tetsPr].Worker and DateOT>=DatePr order by DateOT) AS DateTo, 
[00tetsPr].CurMonth, [00tetsPr].CurYear
FROM 00tetsPr;

SELECT starts.dDate vStart, MIN(ends.dDate) vEnd
FROM ( SELECT dDate
       FROM table
       WHERE tStatus = 'Пр' ) starts,
     ( SELECT dDate
       FROM table
       WHERE tStatus = 'От' ) ends
WHERE starts.dDate < ends.dDate
GROUP BY starts.dDate

INSERT INTO 00tetsPrTemp ( Worker, DateFrom, DateTo )
SELECT [00tetsPr].Worker, DatePr, Min(DateOT) AS [Min-DateOT]
FROM 00tetsOt INNER JOIN 00tetsPr ON [00tetsOt].Worker = [00tetsPr].Worker
WHERE (((DateOT)>[DatePr]))
GROUP BY [00tetsPr].Worker, DatePr;