Страница 1 из 1

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

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

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

КолКол = ТЗИ.КоличествоКолонок();
Для ааа=1 По КолКол Цикл
Попытка
Значение = ТЗИ.ПолучитьЗначение(НСИ,ааа);
ТЗР.УстановитьЗначение(НСР,ааа,Значение);
Исключение
Возврат;
КонецПопытки;
КонецЦикла;
КонецПроцедуры //глСкопироватьСтрокуТЗ

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

СообщениеДобавлено: Чт июл 22, 2010 5:59 pm
Vladimir
Спасибо! Хотелось бы конечно больше активности в этой ветке форума