[SRC PLSQL][src]for  select nmash,vrem_begin from grafik where data=:IN_DATE and nsm=:IN_NCM  order by neks,vrem_begin into :ne_,:vb_  /*выбрали все записи по всем машинам*/
       do begin

       select vrem_begin from grafik where nmash=:ne_ and data=:in_date
           and vrem_begin>:vb_ and nsm=:in_ncm order by vrem_begin rows 1 into :out_dat; /*out_dat это vrem_begin след.записи*/

       begin
       if (:out_dat is not null) then  begin /*есть запись с временем конца*/
               ve_=:out_dat;
               update grafik set vrem_end=:ve_,vsego=(:ve_-:vb_)*24 where nmash=:ne_ and data=:in_date and vrem_begin=:vb_ and 
                          nsm=:in_ncm;
       end

        if (:out_dat is  null) then  begin /*нет записи с временем конца*/
        update grafikd set vrem_end=:in_kon,vsego=(:in_kon-:vb_)*24  where nmash=:ne_ and data=:in_date and vrem_begin=:vb_ and 
                         nsm=:in_ncm;     /*обновляет посл.запись*/

         end
         out_dat =null;
       end
     end

UPDATE grafik
SET vrem_end = t.vrem_end
	,vsego = t.vsego
FROM (
	SELECT g.nmash
                ,g.data
		,g.nsm
		,g.vrem_begin
		,gn.vrem_begin AS vrem_end
		,(gn.vrem_begin - g.vrem_begin) * 24 AS vsego
	FROM grafik g
	OUTER APPLY (
		SELECT TOP 1 g1.vrem_begin
		FROM grafik g1
		WHERE g1.nmash = g.nmash
			AND g1.nsm = g.nsm
			AND g1.vrem_begin > g1.vrem_begin
		ORDER BY vrem_begin
		) gn
	) t
WHERE grafik.nmash = t.nmash
            AND grafik.data= t.data
	    AND grafik.nsm = t.nsm

            AND grafik.nmash = @IN_MASH
            AND grafik.data = @IN_DATA
	    AND grafik.nsm = @IN_NSM

UPDATE grafik SET vrem_end = t.vrem_end--,vsego = t.vsego 
							,vsego=0	
			   FROM (
					 SELECT g.nmash, g.data, g.ncm, g.vrem_begin,
					        gn.vrem_begin AS vrem_end
						    --(gn.vrem_begin - g.vrem_begin) * 24 AS vsego 
						    FROM grafik g
						   
	                 OUTER APPLY (
		                  SELECT TOP 1 g1.vrem_begin FROM grafik g1
								 WHERE g1.nmash= g.nmash
									   AND g1.ncm = g.ncm
									   AND g1.vrem_begin > g.vrem_begin 
									   and g1.ncm = 1 
									   and g1.data= '2018-09-01' 
									   and g1.nmash=41 ORDER BY vrem_begin) gn
	            ) t
		WHERE 
		--grafikd.nmash= t.nmash
		--AND grafikd.data = t.data 
		--AND grafikd.ncm = t.ncm 
		
	        grafikd.data = '2018-09-01'
		AND grafikd.ncm = 1
		and grafikd.nmash=41