Как сделать счетчик по документу? Есть таблица значений СписокТоваров, колонку № скрыл, НомерСтроки1 добавил. По документу нужно установить правильную нумерацию.
Процедура ТабДокументыПриАктивизацииСтроки(Элемент)
ЭлементыФормы.СписокТоваров.ОтборСтрок.СсылкаНаДокумент.Использование = Истина;
ЭлементыФормы.СписокТоваров.ОтборСтрок.СсылкаНаДокумент.ВидСравнения = ВидСравнения.Равно;
ЭлементыФормы.СписокТоваров.ОтборСтрок.СсылкаНаДокумент.Значение = Элемент.ТекущиеДанные.Документ;
//Если (ТипЗнч(Элемент.ТекущиеДанные.Документ) = Тип("ДокументСсылка.ПоступлениеТоваровУслуг")) Тогда
ПараметрыОтбора = Новый Структура;
ПараметрыОтбора.Вставить("Отметка", Истина);
НайденныеСтроки = СписокТоваров.НайтиСтроки(ПараметрыОтбора);
ДокументТЗ = Элемент.ТекущиеДанные.Документ;
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("ДокументТЗ", ДокументТЗ);
Запрос.УстановитьПараметр("ТабТовары", СписокТоваров.Выгрузить());
Запрос.Текст = "ВЫБРАТЬ
| ТабТовары.Номенклатура
|ПОМЕСТИТЬ ВТ_ИсключаемаяНоменклатура
|ИЗ
| &ТабТовары КАК ТабТовары
|;
|
|//////////////////////////////////////////////////////////// ////////////////////
|ВЫБРАТЬ
| ПоступлениеТоваровУслугТовары.Номенклатура КАК Номенклатура,
| ПоступлениеТоваровУслугТовары.ЕдиницаИзмерения,
| ПоступлениеТоваровУслугТовары.Количество,
| ПоступлениеТоваровУслугТовары.Цена,
| ПоступлениеТоваровУслугТовары.Сумма,
| ПоступлениеТоваровУслугТовары.ХарактеристикаНоменклатуры,
| ЛОЖЬ КАК Отметка,
| ПоступлениеТоваровУслугТовары.СерияНоменклатуры,
| ПоступлениеТоваровУслугТовары.Ссылка КАК СсылкаНаДокумент
|ИЗ
| Документ.ПоступлениеТоваровУслуг.Товары КАК ПоступлениеТоваровУслугТовары
|ГДЕ
| ПоступлениеТоваровУслугТовары.Ссылка = &ДокументТЗ
| И НЕ ПоступлениеТоваровУслугТовары.Номенклатура В
| (ВЫБРАТЬ
| ВТ_ИсключаемаяНоменклатура.Номенклатура
| ИЗ
| ВТ_ИсключаемаяНоменклатура КАК ВТ_ИсключаемаяНоменклатура)";
Тз = Новый ТаблицаЗначений;
Тз = Запрос.Выполнить().Выгрузить();
Для Каждого ТекущаяСтрока Из Тз Цикл
НоваяСтрока = СписокТоваров.Добавить();
Если ТекущаяСтрока.Отметка = "Истина" Тогда
НоваяСтрока.Отметка = Истина;
КонецЕсли;
//НоваяСтрока.НомерСтроки = Ном;
НоваяСтрока.СсылкаНаДокумент = ТекущаяСтрока.СсылкаНаДокумент;
НоваяСтрока.Номенклатура = ТекущаяСтрока.Номенклатура;
НоваяСтрока.ХарактеристикаНоменклатуры = ТекущаяСтрока.ХарактеристикаНоменклатуры;
НоваяСтрока.СерияНоменклатуры = ТекущаяСтрока.СерияНоменклатуры;
НоваяСтрока.ЕдиницаИзмерения = ТекущаяСтрока.ЕдиницаИзмерения;
НоваяСтрока.Количество = ТекущаяСтрока.Количество;
НоваяСтрока.Цена = ТекущаяСтрока.Цена;
НоваяСтрока.Сумма = ТекущаяСтрока.Сумма;
КонецЦикла;
//КонецЕсли;
КонецПроцедуры
Процедура СписокТоваровНомерСтроки1ПриИзменении(Элемент)
Счетчик = 0;
Для каждого Стр Из СписокТоваров Цикл
Счетчик=Счетчик+1;
Стр.НомерСтроки1 = Счетчик;
КонецЦикла;
КонецПроцедуры
Процедура СписокТоваровПриПолученииДанных(Элемент, ОформленияСтрок)
Для Каждого офСтроки Из ОформленияСтрок Цикл
офСтроки.Ячейки.НомерСтроки1.УстановитьТекст(СписокТоваров.Индекс(ОфСтроки.ДанныеСтроки));
КонецЦикла
КонецПроцедуры
ПоказатьПрикрепленные файлы:
СозданиеРТУНаОснованииПТУ.epf
По теме из базы знаний
- «Программное заполнение настроек СКД» или «Как сделать отчёт на СКД с понятным для пользователя интерфейсом». (1С: Предприятие 8.1, 8.2 обычное приложение)
- Создание web-площадки на технологиях 1С, или как Водоканал сделал "Личный кабинет потребителя"
- Исправление резервов. Сверка остатков с резервами. Проверка на зависшие резервы. Заполнение документа списком кодов товаров. 1С 7.7
- Как работают управляемые формы и тонкий клиент 1С – взгляд "из-под капота"
- Переход на КЭДО: как настроить и внедрить сервис «1С:Кабинет сотрудника»
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот