1с 7.7 Обработка табличной части документа

"1с 7.7<br>Есть документ в табличной части указаны цены.<br>как из внешней обработки установить Цена=Цена*коэфф и записать док?<br><br>Такой код:<br>Док1.ВыбратьСтроки();<br>  Пока  Док1.ПолучитьСтроку()=1 цикл<br>   Ц1=Док1.ПолучитьАтрибут("Цена"); <br>   Ц2=Ц1*Коэфф;<br>   Док1.УстановитьАтрибут("Цена",Ц2);<br>КонецЦикла;<br><br>Не работает. Вернее работает но цена в документе не меняется(<br>"

в обработке есть ТЗ соответствующая ТЧ дока ?

можно расшифровать ТЗ и ТЧ?)

ТЗ - Таблица Значения в обработке<br>ТЧ - Табличная Часть документа

нет наверное. а как они выглядят?<br><br>там выше весь код. Док1 выбирается из реквизита диалога. и все.

показывай внешнюю обработку

"//*******************************************<br>//Док1 это поле ввода<br><br>Процедура Сформировать()<br>  <br>  Если ПустоеЗначение(Док1)=1 Тогда<br>   Предупреждение("Документ не задан");<br>   Возврат;<br>  КонецЕсли;<br>  <br>  Если Док1.Проведен()=1 Тогда<br>   Предупреждение("Документ проведен. Данная операция возможна только на непроведенном документе.");<br>   Возврат;<br>  КонецЕсли; <br>  <br>  Док1.ВыбратьСтроки();<br> Пока  Док1.ПолучитьСтроку()=1 цикл<br>   Ц1=Док1.ПолучитьАтрибут("Цена"); <br>   Ц2=Ц1*Коэфф;<br>   Док1.УстановитьАтрибут("Цена",Ц2);<br> КонецЦикла;<br><br>КонецПроцедуры<br><br><br>Коэфф=2<br>"

1. ужас, ничего не понял<br>2. почему проведенный нельзя изменять?<br>3. что такое Коэфф

1. а что не понятно ?<br>2. что бы случайно в проведенном доке не поменять цены.<br>3. коэфф это коэффициент на который надо изменить цену в документе по всем строкам.<br><br>ну короче в табличной части дока были <br>яблоки по 10 р<br>груши по 20 р<br>надо умножить на коэфф=2<br>получим<br>яблоки 20р<br>груши 40 р

"Процедура Сформировать()<br> <br> Если ПустоеЗначение(Док1)=1 Тогда<br>  Предупреждение("Документ не задан");<br>  Возврат;<br> КонецЕсли;<br> <br> Если Док1.Проведен()=1 Тогда<br>  Предупреждение("Документ проведен. Данная операция возможна только на непроведенном документе.");<br>  Возврат;<br> КонецЕсли;<br>  <br>  Док2 = СоздатьОбъект("Документ."+Док1.Вид());<br>  Док2.НайтиДокумент(Док1.ТекущийДокумент());<br> <br> Док2.ВыбратьСтроки();<br>Пока  Док2.ПолучитьСтроку()=1 цикл<br>  Ц1=Док2.ПолучитьАтрибут("Цена");<br>  Ц2=Ц1*Коэфф;<br>  Док2.УстановитьАтрибут("Цена",Ц2);<br>КонецЦикла;<br>  Док2.Записать();<br><br>//аплодисменты ! =)<br><br>КонецПроцедуры"