Здраствуйте.
Есть документ Корректировка амортизации. в нем есть колонка Способ начисления амортизации, необходимо сделать так чтобы в этой колонке автоматически поменять значение. Проблема в том ччто написал листинг все работает документ перебирается даже значение меняется но это значение в документ не подставляется а меняется только в созданной таблице значений. Подскажите как это выгрузить в документ
Вот листинг:
//*******************************************
Процедура Выполнить()
ТЗ=СоздатьОбъект("ТаблицаЗначений");
ТЗ.НоваяКолонка("ОС");
ТЗ.НоваяКолонка("ФКР_ОС");
ТЗ.НоваяКолонка("Сумма");
ТЗ.НоваяКолонка("ДатаПостОС");
ТЗ.НоваяКолонка("СрокПолезногоИспользования");
ТЗ.НоваяКолонка("СчетНачисленияАмортизации");
ТЗ.НоваяКолонка("СпособНачисленияАмортизации");
ТЗ.НоваяКолонка("СчетУчетаЗатрат");
ТЗ.НоваяКолонка("ФКР_Затрат");
ТЗ.НоваяКолонка("СубконтоЗатрат1");
ТЗ.НоваяКолонка("СубконтоЗатрат2");
ТЗ.НоваяКолонка("СубконтоЗатрат3");
ТЗ.НоваяКолонка("НачисленнаяАмортизация");
ТЗ.НоваяКолонка("КорректировкаАмортизации");
ТЗ.НоваяКолонка("Количество");
ТЗ.НоваяКолонка("НоваяАмотизация");
ТЗ.НоваяКолонка("Доначислять");
ТЗ.НоваяКолонка("ОставшийсяСрок");
ТЗ.НоваяКолонка("Цена");
Док=СоздатьОбъект("Документ.ОС_КорректировкаАмортизации");
Док.ВыбратьДокументы();
Пока Док.ПолучитьДокумент()=1 Цикл
Док.ВыбратьСтроки();
Пока Док.ПолучитьСтроку()=1 Цикл
ТЗ.НоваяСтрока();
ТЗ.ОС=Док.ОС;
ТЗ.ФКР_ОС=Док.ФКР_ОС;
ТЗ.Сумма=Док.Сумма;
ТЗ.ДатаПостОС=Док.ДатаПостОС;
ТЗ.СрокПолезногоИспользования=Док.СрокПолезногоИспользования;
ТЗ.СчетНачисленияАмортизации=Док.СчетНачисленияАмортизации;
ТЗ.СпособНачисленияАмортизации=Док.СпособНачисленияАмортизации;
ТЗ.СчетУчетаЗатрат=Док.СчетУчетаЗатрат;
ТЗ.ФКР_Затрат=Док.ФКР_Затрат;
ТЗ.СубконтоЗатрат1=Док.СубконтоЗатрат1;
ТЗ.СубконтоЗатрат2=Док.СубконтоЗатрат2;
ТЗ.СубконтоЗатрат3=Док.СубконтоЗатрат3;
ТЗ.НачисленнаяАмортизация=Док.НачисленнаяАмортизация;
ТЗ.КорректировкаАмортизации=Док.КорректировкаАмортизации;
ТЗ.Количество=Док.Количество;
ТЗ.НоваяАмотизация=Док.НоваяАмотизация;
ТЗ.Доначислять=Док.Доначислять;
ТЗ.ОставшийсяСрок=Док.ОставшийсяСрок;
ТЗ.Цена=Док.Цена;
КонецЦикла;
КонецЦикла;
ТЗ.Свернуть("ОС,СпособНачисленияАмортизации", "");
// в таблице значений заполняем колонку "СпособНачисленияАмортизации" конкретным значением "3"
ТЗ.Заполнить("3",,,"СпособНачисленияАмортизации");

Таб=Создатьобъект("Таблица");
Таб.ИсходнаяТаблица("Таблица");
ТЗ.ВыбратьСтроки();
Таб.ВывестиСекцию("Шапка");
Пока ТЗ.ПолучитьСтроку()=1 Цикл
Таб.ВывестиСекцию("Элемент");
КонецЦикла;
Таб.ТолькоПросмотр(1);
Таб.Показать("Таблица");
КонецПроцедуры

1.строки для вывода на печать сделаны для своей проверки того что перебор работате и значение меняется.
2.и вобще если мне нужна только одна колонка надо расписывать весь документ или нет?

serge_b77Похоже ТС новичок,и полагает что документы надо сначала мутить в ТЗ )).
Так и предпологал, что сначала нужно сформировать ТЗ и из нее уже записывать в док. Как понял уже что лопухнулся, а как правильно нужно?

спасибо огромное.

leafсчас вы его научите ... он от начала времен
перепроведет все документы по амортизации ...
ужасть
страна непуганных ... ладно не важно

да нет я про период знаю Док.ВыбратьДокументы(НачДата,КонДата);

у меня просто бухгалетр провел документ корректировку амортизации, и вид амортизации поставил не то вот и хотелось чтоб ручками не перебивать каждую строчку документа а автоматически помеять вид

так вот на копиях и учусь покрайне мере стараюсь. книжек начитался и пробую.

leafто есть вы все это затеили что бы один документ поправить ?
тогда и действовать надо по другому наверное
ВыбратьПоНомеру(<Номер>,<Дата>,<ИдентВида>)
может так ...
у меня 10 документов в каждом 300 записей

спасибо большое. учту!!!