Цитата(dimon_if @ 03.12.15, 15:31)
Поможіть хочу вивести на друк всі e-mailи із справочника контрагентів через кому
// =======================
Процедура Печать()
Тов=СоздатьОбъект("Справочник.Контрагенты");
Укр = Константа.ФормыНаУкраинском;
ВыбТовар=ТекущийЭлемент();
глЧислоСтрок=0;
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица(?(Укр = Да,"Укр","Рус"));
Тов.ВыбратьЭлементы();
Пока Тов.ПолучитьЭлемент()>0 Цикл
Таб.ВывестиСекцию("Товар");
КонецЦикла;
Таб.ПовторятьПриПечатиСтроки(4,4);
// Вызов выходного отчета в окно просмотра и редактирования.
Таб.Опции(0,0,0,0);
Таб.Защита(Константа.ФлагЗащитыТаблиц);
Таб.ТолькоПросмотр(1);
ВыбТовар = 0;
КонецПроцедуры
ПОМОЖІТЬ
Справочник КОНТРАГЕНТИ вивести E-MAILи через кому
можливо є простіший код
Открытая тема (есть новые ответы)
Опрос (есть новые голоса)
Открытая тема (нет новых ответов)
Опрос (нет новых голосов)
Горячая тема (есть новые ответы)
Закрытая тема
Горячая тема (нет новых ответов)
Тема перемещена