Модераторы: stron
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> использование таблицы значений, использование таблицы значений 
:(
    Опции темы
dmd1980
Дата 14.5.2009, 04:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 19
Регистрация: 21.4.2009

Репутация: нет
Всего: нет



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

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

1.строки для вывода на печать сделаны для своей проверки того что перебор работате и значение меняется.
2.и вобще если мне нужна только одна колонка надо расписывать весь документ или нет?
PM MAIL   Вверх
AkelaSQL
Дата 14.5.2009, 08:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 392
Регистрация: 14.9.2007
Где: Москва

Репутация: 6
Всего: 7



ВыгрузитьТабличнуюЧасть()
ЗагрузитьТабличнуюЧасть()


--------------------
user posted image
PM MAIL ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "1C: Предприятие, SAP, ERP и учётные системы"
stron

Запрещается!

1. Обсуждение крэков, кейгенов и других подобных программ

Пробуйте искать сами или обращайтесь в приват к участникам форума.

Темы с подобными вещами будут немедленно удаляться, а нарушители - получать предупреждения.

Также запрещается обсуждение проблем работы этих программ (что куда вписать, куда что скопировать и т.п...)

2. Давать ссылки на взломанные продукты

  • Пожалуйста, пользуйтесь поиском перед тем, как задать вопрос - возможно ответ уже есть на форуме.
  • Название темы должно отражать её суть
  • Действия модераторов можно обсудить здесь

С уважением, stron, Pegas.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | 1C: Предприятие, SAP, ERP и учётные системы | Следующая тема »


 




[ Время генерации скрипта: 0.0629 ]   [ Использовано запросов: 20 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.