Копирует строку из ТЗИ в ТЗР

Различные полезные вещи для программистов 1С

Копирует строку из ТЗИ в ТЗР

Сообщение julyp » Чт июл 01, 2010 12:20 pm

// Структура ТЗИ и ТЗР должны совпадать
Процедура глСкопироватьСтрокуТЗ(ТЗИ, НСИ, ТЗР, НСР=0) Экспорт
Если ПустоеЗначение(ТЗИ)=1 Тогда
Возврат;
КонецЕсли;
Если ТипЗначенияСтр(ТЗР)<>"ТаблицаЗначений" Тогда
Возврат;
КонецЕсли;
Если НСИ=0 Тогда
Возврат;
КонецЕсли;
Если НСИ>ТЗИ.КоличествоСтрок() Тогда
Возврат;
КонецЕсли;

Если НСР=0 Тогда
ТЗР.НоваяСтрока();
НСР = ТЗР.КоличествоСтрок();
КонецЕсли;

КолКол = ТЗИ.КоличествоКолонок();
Для ааа=1 По КолКол Цикл
Попытка
Значение = ТЗИ.ПолучитьЗначение(НСИ,ааа);
ТЗР.УстановитьЗначение(НСР,ааа,Значение);
Исключение
Возврат;
КонецПопытки;
КонецЦикла;
КонецПроцедуры //глСкопироватьСтрокуТЗ
julyp
Администратор
 
Сообщения: 127
Зарегистрирован: Вт май 25, 2010 6:55 am

Re: Копирует строку из ТЗИ в ТЗР

Сообщение Vladimir » Чт июл 22, 2010 5:59 pm

Спасибо! Хотелось бы конечно больше активности в этой ветке форума
Повышайте Ваши возможности вместе с нами - http://www.inkast.ru
Vladimir
Администратор
 
Сообщения: 63
Зарегистрирован: Чт май 27, 2010 7:16 am


Вернуться в Полезные вещи

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2

cron