Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: получить данные всех строк и вставить их в одну ячейку печатной формы через запятую
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 7.7
raiden.80
16.01.16, 20:48
здравствуйте, не пойму как это реализовать: у меня есть таблица с одним реквизитом "номера_вагонов", в которую я вношу номера вагонов. номеров может много. В дальнейшем мне нужно распечатать все ранее введенные номера в одной ячейке через запятую, подскажите как это можно реализовать ?
Pepe
16.01.16, 20:52
Перебор таблицы. В цикле формируете строку Вагоны=вагоны+ " ,"+текущийвагон. На выходе строка с номерами вагонов через запятую.
raiden.80
16.01.16, 22:06
Pepe @ Сегодня, 21:52 необходимо зарегистрироваться для просмотра ссылки,
спасибо, завтра попробую 32000000.gif
CobraS
17.01.16, 13:37
raiden.80 @ Вчера, 20:48 необходимо зарегистрироваться для просмотра ссылки,
А можно и без цикла. Выгрузив колонку с вагонами в список, использовать функцию ВСтрокуСРазделителями().
В полученной строке удалить двойные кавычки.
raiden.80
17.01.16, 22:46
Цитата(CobraS @ 17.01.16, 14:37) необходимо зарегистрироваться для просмотра ссылки
raiden.80 @ Вчера, 20:48 необходимо зарегистрироваться для просмотра ссылки,
А можно и без цикла. Выгрузив колонку с вагонами в список, использовать функцию ВСтрокуСРазделителями().
В полученной строке удалить двойные кавычки.

А можно пример кода ???,
вот мой пример: 
ТЗ = СоздатьОбьект ("ТаблицаЗначений");
ВыгрузитьТабличнуюЧасть (ТЗ, "номера_вагонов");
ТЗ.ВыбратьСтроки();
Пока ТЗ.Получить строку()=1 цикл
нв = " # вагона:  " +н_вагонов+" , "+ТЗ.н_вагонов;
КонецЦикла;


Я наверное что-то не так делаю, у меня выставляется только первый и последний.номер вагона


 ! 

Выделяйте код
 
Vofka
18.01.16, 9:40
Может так?

ТЗ = СоздатьОбьект ("ТаблицаЗначений");
ВыгрузитьТабличнуюЧасть (ТЗ, "номера_вагонов");
ТЗ.ВыбратьСтроки();
нв = "";
Пока ТЗ.Получить строку()=1 цикл
     нв = нв + " # вагона:  " + ТЗ.н_вагонов + ", ";
КонецЦикла;
CobraS
18.01.16, 9:49
Цитата(raiden.80 @ 17.01.16, 22:46) необходимо зарегистрироваться для просмотра ссылки
А можно пример кода ???,
вот мой пример:
ТЗ = СоздатьОбьект ("ТаблицаЗначений");
ВыгрузитьТабличнуюЧасть (ТЗ, "номера_вагонов");
ТЗ.ВыбратьСтроки();
Пока ТЗ.Получить строку()=1 цикл
нв = " # вагона:  " +н_вагонов+" , "+ТЗ.н_вагонов;
КонецЦикла;

Будь ласка: 32000000.gif 
ТЗ = СоздатьОбъект ("ТаблицаЗначений");
СЗ = СоздатьОбъект("СписокЗначений");
ВыгрузитьТабличнуюЧасть (ТЗ, "номера_вагонов");
ТЗ.Выгрузить(СЗ,,,"номера_вагонов");
нв = " # вагона:  " +СтрЗаменить(СЗ.ВСтрокуСРазделителями(),"""","")
raiden.80
18.01.16, 13:21
CobraS @ Сегодня, 10:49 необходимо зарегистрироваться для просмотра ссылки,
Спасибо за ответы, буду на работе попробую исправить )))
raiden.80
15.02.16, 13:13
Цитата(CobraS @ 18.01.16, 9:49) необходимо зарегистрироваться для просмотра ссылки
еще один вопрос а как после запятой вставить пробел, а то вставляется так: 123,123,123, а нужно 123, 133, 123. спасибо

TipsyKID
15.02.16, 13:28
    ТЗ = СоздатьОбъект ("ТаблицаЗначений");
    СЗ = СоздатьОбъект("СписокЗначений");
    ВыгрузитьТабличнуюЧасть (ТЗ, "номера_вагонов");
    ТЗ.Выгрузить(СЗ,,,"номера_вагонов");
    нв = " # вагона:  " +СтрЗаменить(СЗ.ВСтрокуСРазделителями(),"""","");
    нв = СтрЗаменить(нв,",",", ");
raiden.80
15.02.16, 13:58
TipsyKID @ Сегодня, 13:28 необходимо зарегистрироваться для просмотра ссылки,
Спасибо
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.