ДокТЗ =  Документы.ТехническоеЗадание.Выбрать(НачПериода,КонПериода);
    
    Пока ДокТЗ.Следующий() цикл
    Для Каждого ТекущаяСтрока Из ДокТЗ.Работы Цикл
    
    
    
        Если НачалоДня( ТекущаяСтрока.ДатаНачала) <> НачалоДня(ТекущаяСтрока.ДатаОкончания) Тогда
            НачальныеСекунды = (НачалоДня(ТекущаяСтрока.ДатаНачала)+(18*3600) - ТекущаяСтрока.ДатаНачала) /3600;
            ДнейВПромежутке = ((НачалоДня(ТекущаяСтрока.ДатаОкончания) - НачалоДня(ТекущаяСтрока.ДатаНачала))/86400)-1;
            КонечныеСекунды = ((ТекущаяСтрока.ДатаОкончания) - (НачалоДня(ТекущаяСтрока.ДатаОкончания)+(8*3600))) /3600;
            КоличествоВыходных = ОпределитьКоличествоВыходныхДней(НачалоДня(ТекущаяСтрока.ДатаНачала)+86400,НачалоДня(ТекущаяСтрока.ДатаОкончания)-86400);
            ВремяВыполнения1 = НачальныеСекунды+(ДнейВпромежутке-КоличествоВыходных)*ПродолжительностьРабочейСмены+КонечныеСекунды;
            
        Иначе
            Если ТекущаяСтрока.ДатаОкончания=ТекущаяСтрока.ДатаНачала тогда
                ВремяВыполнения1 =0;
            иначе
                ВремяВыполнения1 = (ТекущаяСтрока.ДатаОкончания - ТекущаяСтрока.ДатаНачала) /3600;
            КонецЕсли;
        КонецЕсли;
                Если ЗначениеЗаполнено(ТекущаяСтрока.ДатаНачала) = 0  Тогда
                ДатаНачалаПустая = 1;
            КонецЕсли;

                Если ВремяВыполнения1 > 7000 тогда
                     ВремяВыполнения1=0;
                КонецЕсли;
    
                Сообщить("ТЗ "+ТекущаяСтрока.Операция+"  "+ВремяВыполнения1);
                ТекущаяСтрока.ВремяВыполнения = ОКР(ВремяВыполнения1,2);
    КонецЦикла;     
    
         ДокТЗ.Записать();
    КонецЦикла;     
    

выдает
Поле объекта недоступно для записи (ВремяВыполнения)
                ТекущаяСтрока.ВремяВыполнения = ОКР(ВремяВыполнения1,2);

ДокТЗ какой тип?

Тип Документ.Техзадание

Пока ДокТЗ.Следующий() цикл

изменить на

//-------
Пока ДокТЗ.Следующий() цикл
обДок = ДокТЗ.ПолучитьОбъект();
Для Каждого ТекущаяСтрока Из обДок.Работы Цикл
//-------

(1) выборка, разумеется... ТС не знает проПолучитьОбъект....

(4) 44 года, Стаж: 3 года 4 месяца 8 дней, 120 тем, 690 сообщений - и допустить такую ошибку?
видимо, в Нижнем до сих пор празднуют...

Все получилось!!!!!  
Праздновать еще не заканчивали...

Предлагаю в след раз без фотки топлес ТС не помогать:-)

А то про обычную фотку никто и не вспомнил

(7) https://lh3.googleusercontent.com/-tKC0QwGdLpQ/Us1TBcPUcdI/AAAAAAAAXic/s4FCYRrer48/w346-h232/UCg6HoUG7cM.jpg сойдет?))

(7) А что? У тебя фотка есть?

(7) я топлесс фотографироваться ради ТС не буду

остается фотка за ДенисЧ! Он помогал и помог!)

эх, а ведь должно быть у кого-то из местных девушек моё фото топлесс.. ;)

(13) точно не у меня))

(14) меняемся?

(15) давай свою фотку))

(16) только на ушко

(17) http://content.foto.mail.ru/mail/s1jukov/_answers/i-1199.jpg :)