![]() |
Модераторы: stron |
![]() ![]() ![]() |
|
dmd1980 |
|
|||
Новичок Профиль Группа: Участник Сообщений: 19 Регистрация: 21.4.2009 Репутация: нет Всего: нет |
Здраствуйте.
Есть документ Корректировка амортизации. в нем есть колонка Способ начисления амортизации, необходимо сделать так чтобы в этой колонке автоматически поменять значение. Проблема в том ччто написал листинг все работает документ перебирается даже значение меняется но это значение в документ не подставляется а меняется только в созданной таблице значений. Подскажите как это выгрузить в документ Вот листинг: //******************************************* Процедура Выполнить() ТЗ=СоздатьОбъект("ТаблицаЗначений"); ТЗ.НоваяКолонка("ОС"); ТЗ.НоваяКолонка("ФКР_ОС"); ТЗ.НоваяКолонка("Сумма"); ТЗ.НоваяКолонка("ДатаПостОС"); ТЗ.НоваяКолонка("СрокПолезногоИспользования"); ТЗ.НоваяКолонка("СчетНачисленияАмортизации"); ТЗ.НоваяКолонка("СпособНачисленияАмортизации"); ТЗ.НоваяКолонка("СчетУчетаЗатрат"); ТЗ.НоваяКолонка("ФКР_Затрат"); ТЗ.НоваяКолонка("СубконтоЗатрат1"); ТЗ.НоваяКолонка("СубконтоЗатрат2"); ТЗ.НоваяКолонка("СубконтоЗатрат3"); ТЗ.НоваяКолонка("НачисленнаяАмортизация"); ТЗ.НоваяКолонка("КорректировкаАмортизации"); ТЗ.НоваяКолонка("Количество"); ТЗ.НоваяКолонка("НоваяАмотизация"); ТЗ.НоваяКолонка("Доначислять"); ТЗ.НоваяКолонка("ОставшийсяСрок"); ТЗ.НоваяКолонка("Цена"); Док=СоздатьОбъект("Документ.ОС_КорректировкаАмортизации"); Док.ВыбратьДокументы(); Пока Док.ПолучитьДокумент()=1 Цикл Док.ВыбратьСтроки(); Пока Док.ПолучитьСтроку()=1 Цикл ТЗ.НоваяСтрока(); ТЗ.ОС=Док.ОС; ТЗ.ФКР_ОС=Док.ФКР_ОС; ТЗ.Сумма=Док.Сумма; ТЗ.ДатаПостОС=Док.ДатаПостОС; ТЗ.СрокПолезногоИспользования=Док.СрокПолезногоИспользования; ТЗ.СчетНачисленияАмортизации=Док.СчетНачисленияАмортизации; ТЗ.СпособНачисленияАмортизации=Док.СпособНачисленияАмортизации; ТЗ.СчетУчетаЗатрат=Док.СчетУчетаЗатрат; ТЗ.ФКР_Затрат=Док.ФКР_Затрат; ТЗ.СубконтоЗатрат1=Док.СубконтоЗатрат1; ТЗ.СубконтоЗатрат2=Док.СубконтоЗатрат2; ТЗ.СубконтоЗатрат3=Док.СубконтоЗатрат3; ТЗ.НачисленнаяАмортизация=Док.НачисленнаяАмортизация; ТЗ.КорректировкаАмортизации=Док.КорректировкаАмортизации; ТЗ.Количество=Док.Количество; ТЗ.НоваяАмотизация=Док.НоваяАмотизация; ТЗ.Доначислять=Док.Доначислять; ТЗ.ОставшийсяСрок=Док.ОставшийсяСрок; ТЗ.Цена=Док.Цена; КонецЦикла; КонецЦикла; ТЗ.Свернуть("ОС,СпособНачисленияАмортизации", ""); // в таблице значений заполняем колонку "СпособНачисленияАмортизации" конкретным значением "3" ТЗ.Заполнить("3",,,"СпособНачисленияАмортизации"); Таб=Создатьобъект("Таблица"); Таб.ИсходнаяТаблица("Таблица"); ТЗ.ВыбратьСтроки(); Таб.ВывестиСекцию("Шапка"); Пока ТЗ.ПолучитьСтроку()=1 Цикл Таб.ВывестиСекцию("Элемент"); КонецЦикла; Таб.ТолькоПросмотр(1); Таб.Показать("Таблица"); КонецПроцедуры 1.строки для вывода на печать сделаны для своей проверки того что перебор работате и значение меняется. 2.и вобще если мне нужна только одна колонка надо расписывать весь документ или нет? |
|||
|
||||
AkelaSQL |
|
|||
![]() Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 392 Регистрация: 14.9.2007 Где: Москва Репутация: 6 Всего: 7 |
ВыгрузитьТабличнуюЧасть()
ЗагрузитьТабличнуюЧасть() |
|||
|
||||
![]() ![]() ![]() |
Правила форума "1C: Предприятие, SAP, ERP и учётные системы" | |
|
Запрещается! 1. Обсуждение крэков, кейгенов и других подобных программ Пробуйте искать сами или обращайтесь в приват к участникам форума. Темы с подобными вещами будут немедленно удаляться, а нарушители - получать предупреждения. Также запрещается обсуждение проблем работы этих программ (что куда вписать, куда что скопировать и т.п...) 2. Давать ссылки на взломанные продукты
|
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | 1C: Предприятие, SAP, ERP и учётные системы | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |