Колонка таблицы значений в строку + представление номеров накладных с экономией места в строке. Делалось для печатной формы ТТН

06.03.11

Задачи пользователя - Адаптация типовых решений

ФункцияПолучениеДанныхТаблицыИПреобразование(Документ)



Перем ТекущийЭлемент;

Перем СледующийЭлемент;

Перем ПервыйПроход;

Перем ФормируемаяСтрока;

Перем СчетчикПошел;

Перем ЦиклТолькоНачался;

Перем ПоследнийЭлемент;

Перем Список;



Запрос = Новый Запрос;

Запрос.Текст = "ВЫБРАТЬ

|ПутевойЛистРеестрДокументов.ДополнительныйНомер2 КАК ДополнительныйНомер2

|ИЗ

|Документ.ПутевойЛист.РеестрДокументов КАК ПутевойЛистРеестрДокументов

|ГДЕ

|ПутевойЛистРеестрДокументов.Ссылка = &Ссылка

|

|УПОРЯДОЧИТЬ ПО

|ДополнительныйНомер2";



Запрос.УстановитьПараметр("Ссылка", Документ);

Знак = ДопустимыйЗнак.Неотрицательный;

ТЗСДопНомерами2 = Новый ТаблицаЗначений;

ТЗСДопНомерами2.Колонки.Добавить("ДопНом2",,Новый ОписаниеТипов("Число",Новый КвалификаторыЧисла(10, 0, Знак)));





Результат = Запрос.Выполнить();



Если Не  (Результат.Пустой()) Тогда

Выборка = Результат.Выбрать();

Пока Выборка.Следующий() Цикл

НоваяСтрока = ТЗСДопНомерами2.Добавить();

НоваяСтрока["ДопНом2"] = Выборка.ДополнительныйНомер2;

КонецЦикла;

ФормируемаяСтрока = "";

СледующийЭлемент = Число(Выборка.ДополнительныйНомер2) + 1;

СамыйПоследнийЭлемет = Число(Выборка.ДополнительныйНомер2);

ПервыйПроход = Истина;

ЦиклТолькоНачался = Истина;

ПропуститьЧисло = Ложь;



Для Каждого СтрТЧ Из ТЗСДопНомерами2 Цикл



ТекущийЭлемент = Число(СтрТЧ.ДопНом2);



Если (Число(ТекущийЭлемент) <> Число(СледующийЭлемент)) И ПервыйПроход Тогда     

ФормируемаяСтрока = ФормируемаяСтрока + ТекущийЭлемент; 

ЦиклТолькоНачался = Истина;

Счетчик = 0;

КонецЕсли;



Если (Число(ТекущийЭлемент) = Число(СледующийЭлемент)) И ПервыйПроход Тогда     

ФормируемаяСтрока = ФормируемаяСтрока + ТекущийЭлемент; 

ЦиклТолькоНачался = Истина;

Счетчик = 0;

КонецЕсли;



Если (Число(ТекущийЭлемент) = Число(СледующийЭлемент)) И (Не ПервыйПроход)  Тогда 

Если ЦиклТолькоНачался И Не ПропуститьЧисло Тогда 

ФормируемаяСтрока = ФормируемаяСтрока + " - ";

ЦиклТолькоНачался = Ложь;

Счетчик = Счетчик + 1;

Иначе

ПропуститьЧисло = Истина;

Счетчик = Счетчик + 1;

КонецЕсли;

КонецЕсли;



Если (Число(ТекущийЭлемент) <> Число(СледующийЭлемент)) И (Не ПервыйПроход) Тогда 

Если Не ЦиклТолькоНачался И ПропуститьЧисло Тогда 

ФормируемаяСтрока = ФормируемаяСтрока + ПоследнийЭлемент;

ИначеЕсли Не ЦиклТолькоНачался И Не ПропуститьЧисло И Счетчик = 1 Тогда 

ФормируемаяСтрока = ФормируемаяСтрока + ПоследнийЭлемент;

КонецЕсли;



ФормируемаяСтрока = ФормируемаяСтрока + ", " + ТекущийЭлемент;

ЦиклТолькоНачался = Истина;

ПропуститьЧисло = Ложь;

Счетчик = 0;

КонецЕсли;



СледующийЭлемент = Число(ТекущийЭлемент) + 1;

ПоследнийЭлемент = ТекущийЭлемент;

ПервыйПроход = Ложь;

КонецЦикла;

Если Счетчик <> 0 Тогда  

ФормируемаяСтрока = ФормируемаяСтрока + СамыйПоследнийЭлемет;

КонецЕсли;

Список = ФормируемаяСтрока;

Иначе

Список = "";

КонецЕсли;

Возврат Список;



КонецФункции

 

См. также

Табличная часть в доп. реквизитах и формирование таблиц в шаблоне docx для 1С:ДО 3.0

Адаптация типовых решений Платформа 1С v8.3 1С:Документооборот Россия Платные (руб)

Расширение конфигурации для «1С:Документооборот КОРП», редакция 3.0. позволяет: 1.использовать произвольные табличные части в качестве дополнительных реквизитов к документу; 2 использовать произвольные табличные части в шаблонах в формате docx для автоматического заполнения таблиц.

29400 руб.

29.06.2023    4448    9    4    

18

Расширение для 1С:УНФ. Автоматическое снятие резервов в Заказах покупателей

Логистика, склад и ТМЦ Адаптация типовых решений Платформа 1С v8.3 1С:Управление нашей фирмой 1.6 1С:Управление нашей фирмой 3.0 Россия Управленческий учет Платные (руб)

Чтобы не допустить путаницы с обещаниями клиентам и для четкого контроля исполнения заказов мы используем резервирование товаров. Мы доработали УНФ, чтобы она автоматически отменяла старые резервы и не мешала эффективно продавать.

7200 руб.

02.08.2023    2950    4    0    

19

Переоткрытие внешних обработок

Универсальные функции Платформа 1С v8.3 Бесплатно (free)

На заключительных этапах, когда идет отладка или доработка интерфейса, необходимо много раз переоткрыть внешний объект. Вот один из способов автоматизации этого.

30.11.2023    3953    ke.92@mail.ru    16    

61

Валидация JSON через XDTO (включая массивы)

WEB-интеграция Универсальные функции Механизмы платформы 1С Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

При работе с интеграциями рано или поздно придется столкнуться с получением JSON файлов. И, конечно же, жизнь заставит проверять файлы перед тем, как записывать данные в БД.

28.08.2023    8800    YA_418728146    6    

141
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. Bober777 26 06.03.11 10:16 Сейчас в теме
Мне интересно, может у других участников есть другие предложения для решения данной задачи. Поправьте меня, если я в чем то не прав. Но данная функция уже год, как работает в одной компании. 8-)
2. Поручик 4670 06.03.11 21:31 Сейчас в теме
3. Bober777 26 07.03.11 18:29 Сейчас в теме
да у меня и нет ни каких вопросов, может кто-то предложит другой метод решения вопроса, не такой как у меня)
4. ildarovich 7850 09.03.11 01:43 Сейчас в теме
Вот более простой и универсальный метод решения той же задачи
Прикрепленные файлы:
Bober777; +1 Ответить
5. Bober777 26 09.03.11 09:09 Сейчас в теме
(4)Замечательно, спасибо ildarovich, :D. Делимся опытом молодые специалисты будут смотреть, и расти на наших ошибках и победах.
Оставьте свое сообщение