Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Неназначенных незавершенных заказов: 1
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Вход | Зарегистрироваться )



> получить данные всех строк и вставить их в одну ячейку печатной формы через запятую          
raiden.80 Подменю пользователя
сообщение 16.01.16, 20:48
Сообщение #1

Общительный
**
Группа: Пользователи
Сообщений: 13
Спасибо сказали: 0 раз
Рейтинг: 0

здравствуйте, не пойму как это реализовать: у меня есть таблица с одним реквизитом "номера_вагонов", в которую я вношу номера вагонов. номеров может много. В дальнейшем мне нужно распечатать все ранее введенные номера в одной ячейке через запятую, подскажите как это можно реализовать ?

Pepe Подменю пользователя
сообщение 16.01.16, 20:52
Сообщение #2

Почти крутой
Иконка группы
Группа: Местный
Сообщений: 1448
Из: Ужгород
Спасибо сказали: 763 раз
Рейтинг: 0

Перебор таблицы. В цикле формируете строку Вагоны=вагоны+ " ,"+текущийвагон. На выходе строка с номерами вагонов через запятую.

raiden.80 Подменю пользователя
сообщение 16.01.16, 22:06
Сообщение #3

Общительный
**
Группа: Пользователи
Сообщений: 13
Спасибо сказали: 0 раз
Рейтинг: 0

Pepe @ Сегодня, 21:52 *,
спасибо, завтра попробую 32000000.gif

CobraS Подменю пользователя
сообщение 17.01.16, 13:37
Сообщение #4

Завсегдатай
Иконка группы
Группа: Местный
Сообщений: 109
Спасибо сказали: 91 раз
Рейтинг: 79.9

raiden.80 @ Вчера, 20:48 *,
А можно и без цикла. Выгрузив колонку с вагонами в список, использовать функцию ВСтрокуСРазделителями().
В полученной строке удалить двойные кавычки.

raiden.80 Подменю пользователя
сообщение 17.01.16, 22:46
Сообщение #5

Общительный
**
Группа: Пользователи
Сообщений: 13
Спасибо сказали: 0 раз
Рейтинг: 0

Цитата(CobraS @ 17.01.16, 14:37) *
raiden.80 @ Вчера, 20:48 *,
А можно и без цикла. Выгрузив колонку с вагонами в список, использовать функцию ВСтрокуСРазделителями().
В полученной строке удалить двойные кавычки.

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


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


 ! 

Выделяйте код
 


Сообщение отредактировал Vofka - 18.01.16, 9:38

Vofka Подменю пользователя
сообщение 18.01.16, 9:40
Сообщение #6

У нас здесь своя атмосфера...
***********
Группа: Основатель
Сообщений: 14050
Из: Киев
Спасибо сказали: 4613 раз
Рейтинг: 3750.1

Может так?

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


Сообщение отредактировал Vofka - 18.01.16, 9:40

CobraS Подменю пользователя
сообщение 18.01.16, 9:49
Сообщение #7

Завсегдатай
Иконка группы
Группа: Местный
Сообщений: 109
Спасибо сказали: 91 раз
Рейтинг: 79.9

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

Будь ласка: 32000000.gif
ТЗ = СоздатьОбъект ("ТаблицаЗначений");
СЗ = СоздатьОбъект("СписокЗначений");
ВыгрузитьТабличнуюЧасть (ТЗ, "номера_вагонов");
ТЗ.Выгрузить(СЗ,,,"номера_вагонов");
нв = " # вагона:  " +СтрЗаменить(СЗ.ВСтрокуСРазделителями(),"""","")

raiden.80 Подменю пользователя
сообщение 18.01.16, 13:21
Сообщение #8

Общительный
**
Группа: Пользователи
Сообщений: 13
Спасибо сказали: 0 раз
Рейтинг: 0

CobraS @ Сегодня, 10:49 *,
Спасибо за ответы, буду на работе попробую исправить )))

raiden.80 Подменю пользователя
сообщение 15.02.16, 13:13
Сообщение #9

Общительный
**
Группа: Пользователи
Сообщений: 13
Спасибо сказали: 0 раз
Рейтинг: 0

Цитата(CobraS @ 18.01.16, 9:49) *
еще один вопрос а как после запятой вставить пробел, а то вставляется так: 123,123,123, а нужно 123, 133, 123. спасибо


TipsyKID Подменю пользователя
сообщение 15.02.16, 13:28
Сообщение #10

Оратор
Иконка группы
Группа: Местный
Сообщений: 413
Из: Киев
Спасибо сказали: 161 раз
Рейтинг: 0

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


Signature
Специалист : Технологическая платформа 8.х, Бухгалтерия для Украины, Управление торговлей для Украины, Зарплата и Управление Персоналом для Украины

raiden.80 Подменю пользователя
сообщение 15.02.16, 13:58
Сообщение #11

Общительный
**
Группа: Пользователи
Сообщений: 13
Спасибо сказали: 0 раз
Рейтинг: 0

TipsyKID @ Сегодня, 13:28 *,
Спасибо

Не нашли ответа на свой вопрос?
Зарегистрируйтесь и задайте новый вопрос.


Ответить Новая тема
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

RSS Текстовая версия Сейчас: 26.06.25, 13:18
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!