ВЫБРАТЬ
    ПростойВагонаСрезПоследних.НомерВагона,
    ПростойВагонаСрезПоследних.ПрибытияВагона,
    ПростойВагонаСрезПоследних.ВозвратПВст
ПОМЕСТИТЬ ВТ_РСПростой
ИЗ
    РегистрСведений.ПростойВагона.СрезПоследних(&Период, ) КАК ПростойВагонаСрезПоследних
;

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
    ВТ_РСПростой.НомерВагона,
    ВТ_РСПростой.ПрибытияВагона,
    ВТ_РСПростой.ВозвратПВстКраматорск КАК СдачаНаСтКраматорск,
    ВЫБОР
        КОГДА ВТ_РСПростой.ПрибытияВагона <> ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0)
                И ВТ_РСПростой.ВозвратПВстКраматорск <> ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0)
            ТОГДА РАЗНОСТЬДАТ(ВТ_РСПростой.ПрибытияВагона, ВТ_РСПростой.ВозвратПВст, ЧАС)
        ИНАЧЕ ВЫБОР
                КОГДА ВТ_РСПростой.ПрибытияВагона <> ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0)
                        И ВТ_РСПростой.ВозвратПВст= ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0)
                    ТОГДА РАЗНОСТЬДАТ(ВТ_РСПростой.ПрибытияВагона, &Период, ЧАС)
                ИНАЧЕ 0
            КОНЕЦ
    КОНЕЦ КАК ВсегоЧасовПростоя,
    ВЫБОР
        КОГДА ВТ_РСПростой.ПрибытияВагона <> ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0)
                И ВТ_РСПростой.ВозвратПВст <> ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0)
            ТОГДА РАЗНОСТЬДАТ(ВТ_РСПростой.ПрибытияВагона, ВТ_РСПростой.ВозвратПВст, СЕКУНДА)
        ИНАЧЕ ВЫБОР
                КОГДА ВТ_РСПростой.ПрибытияВагона <> ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0)
                        И ВТ_РСПростой.ВозвратПВст = ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0)
                    ТОГДА РАЗНОСТЬДАТ(ВТ_РСПростой.ПрибытияВагона, &Период, СЕКУНДА)
                ИНАЧЕ 0
            КОНЕЦ
    КОНЕЦ КАК ВсегоСекундПростоя,
    "" КАК ВремяПростоя
ИЗ
    ВТ_РСПростой КАК ВТ_РСПростой

Функция ПолучитьВремя(Секунды)  Экспорт;
    Часов=Цел(Секунды/3600);
    СекОстМин= Секунды%3600;    
    Минут=Цел(СекОстМин/60);
    Сек=СекОстМин%60;
    
    Попытка
        Если Число(Часов)<10 Тогда
            Часов="0"+СокрЛП(Часов);
        Иначе
            Часов=СокрЛП(Часов); 
        КонецЕсли;
        
        Если Число(Минут)<10 Тогда
            Минут="0"+СокрЛП(Минут);    
        Иначе
            Минут=СокрЛП(Минут);
        КонецЕсли;
        
        Если Число(Сек)<10 Тогда
            Сек="0"+СокрЛП(Сек);    
        Иначе
            Сек=СокрЛП(Сек);
        КонецЕсли;
        
        Время = Часов + ":" + Минут + ":" + Сек;
        Возврат  Время;
    Исключение
     Сообщить(ИнформацияОбОшибке().Описание,СтатусСообщения.Важное);
    Возврат Неопределено;    
    КонецПопытки;
КонецФункции