Как изменить значение реквизита табличной части? |
Я |
11.06.14 — 09:44
Хэлп…есть справочник, у него есть табличная часть…как изменить значение реквизита этой табличной части? Стандартным механизмом обхода табличной части в цикле, нахождения нужной строки и изменением значения не прокатывает. Сообщить показывает, что значение поменялось, но на форме отображается старое значение…
&НаКлиенте
Процедура ПроектОснованиеПриИзменении(Элемент)
Структура=ИзменитьИсточникФинансирования();
Для каждого строка из Объект.ДополнительныеРеквизиты цикл
Если Найти(строка.Свойство,»Источник финансирования»)=Истина тогда
Сообщить(» ЗашЁЛ!!!»+ строка.Значение+» «+Структура.ИсточникФин+»»);
строка.Значение = Структура.ИсточникФин;
КонецЕсли;
Конеццикла;
КонецПроцедуры
1 — 11.06.14 — 09:45
Записать()
2 — 11.06.14 — 09:46
Не…Когда записываю записывает старое значение…
3 — 11.06.14 — 09:47
Если Найти(строка.Свойство,»Источник финансирования»)=Истина тогда
— это АдЪ
4 — 11.06.14 — 09:47
ИзменитьИсточникФинансирования();
там то что?
5 — 11.06.14 — 09:47
т.е. значение, которое на данный момент отображается
6 — 11.06.14 — 09:48
делай на сервере с ТЧ объекта, а не с элементом формы
7 — 11.06.14 — 09:48
ИзменитьИсточникФинансирования();
там то что?
Там на сервере получаю значения структурой..
8 — 11.06.14 — 09:49
делай на сервере с ТЧ объекта, а не с элементом формы
на сервере тоже самое получается. Но я и тут делаю с табличной частью объекта…Дополнительные реквизиты это тч
9 — 11.06.14 — 09:49
(7) на сервере и меняй
10 — 11.06.14 — 09:51
(7) на сервере и меняй
бесполезно… на форме значение реквизита не меняется
11 — 11.06.14 — 09:53
(10) читай книги, «разработка в управляемом приложении». Это азы…
12 — 11.06.14 — 09:54
&НаСервере
Процедура ИзменитьИсточникФинансирования()
ИсточникФин=»»;
ТекПланТрудозатраты=»»;
Запрос = Новый запрос;
Запрос.Текст=»ВЫБРАТЬ
| ВложенныйЗапрос.Значение,
| Проекты.ТекущийПланТрудозатраты
|ИЗ
| Справочник.Проекты КАК Проекты
| ПОЛНОЕ СОЕДИНЕНИЕ (ВЫБРАТЬ
| ПроектыДополнительныеРеквизиты.Значение КАК Значение,
| ПроектыДополнительныеРеквизиты.Ссылка КАК Ссылка
| ИЗ
| Справочник.Проекты.ДополнительныеРеквизиты КАК ПроектыДополнительныеРеквизиты
| ГДЕ
| ПроектыДополнительныеРеквизиты.Свойство.Наименование = «»Источник финансирования»») КАК ВложенныйЗапрос
| ПО Проекты.Ссылка = ВложенныйЗапрос.Ссылка
|ГДЕ
| Проекты.Ссылка = &Ссылка»;
Запрос.УстановитьПараметр(«Ссылка»,Объект.ПроектОснование);
Выборка=Запрос.Выполнить();
Результат=Выборка.Выбрать();
Если Результат.Следующий() тогда
//Сообщить(» «+Результат.Значение+» «);
//Сообщить(» «+Результат.ТекущийПланТрудозатраты+» «);
Объект.ТекущийПланТрудозатраты=Результат.ТекущийПланТрудозатраты;
ИсточникФин=Результат.Значение;
КонецЕсли;
Для каждого строка из Объект.ДополнительныеРеквизиты цикл
Если строка.Свойство.Наименование = «Источник финансирования» тогда
Сообщить(«»+ строка.Значение+» «+Результат.Значение+»»);
строка.Значение = ИсточникФин;
Сообщить(строка.Значение);
КонецЕсли;
Конеццикла;
ВыборкаОбъект.Записать();
КонецПроцедуры
&НаКлиенте
Процедура ПроектОснованиеПриИзменении(Элемент)
ИзменитьИсточникФинансирования();
//Прочитать();
КонецПроцедуры
Так тоже не работает
13 — 11.06.14 — 09:55
(12) Чё за «ВыборкаОбъект»?
14 — 11.06.14 — 09:58
(12) Чё за «ВыборкаОбъект»?
Упс..это я еще пробывал получитьобъект…там использовалась…сейчас комментарий
15 — 11.06.14 — 10:00
Если Найти(строка.Свойство,»Источник финансирования»)=Истина тогда
— это АдЪ
Эт..да пробывал на клиенте…думал может в этом косяк…
16 — 11.06.14 — 10:01
(14) Так скинь нормальный код, ёлы-палы.
17 — 11.06.14 — 10:20
(14) Так скинь нормальный код, ёлы-палы.
&НаСервере
Процедура ИзменитьИсточникФинансирования()
ИсточникФин=»»;
ТекПланТрудозатраты=»»;
Запрос = Новый запрос;
Запрос.Текст=»ВЫБРАТЬ
| ВложенныйЗапрос.Значение,
| Проекты.ТекущийПланТрудозатраты
|ИЗ
| Справочник.Проекты КАК Проекты
| ПОЛНОЕ СОЕДИНЕНИЕ (ВЫБРАТЬ
| ПроектыДополнительныеРеквизиты.Значение КАК Значение,
| ПроектыДополнительныеРеквизиты.Ссылка КАК Ссылка
| ИЗ
| Справочник.Проекты.ДополнительныеРеквизиты КАК ПроектыДополнительныеРеквизиты
| ГДЕ
| ПроектыДополнительныеРеквизиты.Свойство.Наименование = «»Источник финансирования»») КАК ВложенныйЗапрос
| ПО Проекты.Ссылка = ВложенныйЗапрос.Ссылка
|ГДЕ
| Проекты.Ссылка = &Ссылка»;
Запрос.УстановитьПараметр(«Ссылка»,Объект.ПроектОснование);
Выборка=Запрос.Выполнить();
Результат=Выборка.Выбрать();
Если Результат.Следующий() тогда
Объект.ТекущийПланТрудозатраты=Результат.ТекущийПланТрудозатраты;
ИсточникФин=Результат.Значение;
КонецЕсли;
Для каждого строка из Объект.ДополнительныеРеквизиты цикл
Если строка.Свойство.Наименование = «Источник финансирования» тогда
Сообщить(«»+ строка.Значение+» «+Результат.Значение+»»);
строка.Значение = ИсточникФин;
КонецЕсли;
Конеццикла;
КонецПроцедуры
&НаКлиенте
Процедура ПроектОснованиеПриИзменении(Элемент)
ИзменитьИсточникФинансирования();
КонецПроцедуры
18 — 11.06.14 — 10:33
Профи ну вы хде?))) Хелп плиз…
19 — 11.06.14 — 10:55
апп
20 — 11.06.14 — 10:58
А на форме дополнительные реквизиты как отображаются? Табличная чать показана?
21 — 11.06.14 — 11:02
А на форме дополнительные реквизиты как отображаются? Табличная чать показана?
Да показана…
22 — 11.06.14 — 11:06
Тип(Объект) в отладчике в студию
23 — 11.06.14 — 11:10
(21) Зайди в отладчик, поставь точку останова на строку:
Для каждого строка из Объект.ДополнительныеРеквизиты цикл
и посмотри что есть в твоей «строка» сразу станет понятно что пытаешься сравнить и как нечто входящее в «строка» можно заполнять. Для интереса проделай сие НаКлиенте и НаСервере — прочувствуй разницу.
P.S. Последуй совету из (11).
24 — 11.06.14 — 11:12
25 — 11.06.14 — 11:16
(21) Зайди в отладчик, поставь точку останова на строку:
Для каждого строка из Объект.ДополнительныеРеквизиты цикл
и посмотри что есть в твоей «строка» сразу станет понятно что пытаешься сравнить и как нечто входящее в «строка» можно заполнять. Для интереса проделай сие НаКлиенте и НаСервере — прочувствуй разницу.
P.S. Последуй совету из (11).
В строке все выходит что нужно…но не меняется на форме…
пишу Сообщить(«»+ строка.Значение+» «+Результат.Значение+»»);
строка.значение меняется, а на форме нет…
26 — 11.06.14 — 11:16
(21) а где РеквизитФормыВЗначение() ??Детский сад.
27 — 11.06.14 — 11:18
(21) а где РеквизитФормыВЗначение() ??Детский сад.
оп…а это куда надо?
28 — 11.06.14 — 11:18
(21)
ОбъектНаСервере = РеквизитФормыВЗначение(«Объект»);
Для каждого строка из ОбъектНаСервере.ДополнительныеРеквизиты цикл
Если строка.Свойство.Наименование = «Источник финансирования» тогда
Сообщить(«»+ строка.Значение+» «+Результат.Значение+»»);
строка.Значение = ИсточникФин;
КонецЕсли;
Конеццикла;
ЗначениеВРеквизитФормы(ОбъектНаСервере, «Объект»);
29 — 11.06.14 — 11:19
Блин походу я туплю… прошу понять и простить))))
30 — 11.06.14 — 11:25
(28) Ничего не поменялось все тоже самое…
Оч странно строка значение поменялось а на форме без изменений
31 — 11.06.14 — 11:27
(30) А записываешь где?
32 — 11.06.14 — 11:32
(31) при записи значение пишется не то которое в строка.значение а то которое на форме…
33 — 11.06.14 — 12:18
(31)
34 — 11.06.14 — 13:05
(33)
35 — 11.06.14 — 14:22
Задачка видимо оч сложная…
36 — 11.06.14 — 14:26
Так попкорн у всех с утра закончился, все ушли за новым ведром
37 — 11.06.14 — 14:29
(36) Ну тады другое дело))))))
38 — 11.06.14 — 14:32
(35)Шутник блин.
Есть открытая форма элемента справочника, у него есть ТЧ ДополнительныеРеквизиты (например А, Б и ИсточникФинансирования)
&НаСервере
Процедура ЗаполнитьТЧ(Источник)
Для каждого стр из Объект.ДополнительныеРеквизиты цикл
Если стр.А=1 тогда
стр.ИсточникФинансирования=Источник;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Тебе уже сказали читай книги!
39 — 11.06.14 — 14:35
(38)+ и не используй в названии переменных и ТЧ зарезервированные конструкции, потом сам моск вывихнеш пытаясь понять почему процедура что-то делает не так.
40 — 11.06.14 — 14:46
(38) ДА НЕ РАБОТАЕТ ТАК!!!! НЕ ИЗМЕНЯЮТСЯ ДАННЫЕ НА ФОРМЕ!!!!
41 — 11.06.14 — 14:56
(40) ТЧ назови нормально, например, ДопДанные
100% работает и изменяется, проверено не один раз
Смотри отладчиком на стр — должен быть открывающийся список с реквизитами А, Б и ИсточникФинансирования.
Ты точно работаешь с управляемой формой?
42 — 11.06.14 — 14:58
(40) точку останова на конеццикла и ответь на (22)
43 — 11.06.14 — 15:08
(41) Вот и мной было проверено не один раз…работало…
Только здесь по другому… строка.значение меняется…сообщить это показывает… а на форме результата 0.
44 — 11.06.14 — 15:14
(42)
Объект ДанныеФормыСтруктура ДанныеФормыСтруктура
АвтоматическиРассчитыватьПланПроекта Истина Булево
ВерсияДанных «AAAAAAFgcFs=» Строка
ВидПроекта Общий СправочникСсылка.ВидыПроектов
ГрафикРаботы СправочникСсылка.ГрафикиРаботы
ГрифДоступа СправочникСсылка.ГрифыДоступа
ДатаПоследнейЗагрузкиИзВнешнегоФайла 01.01.0001 0:00:00 Дата
ДополнительныеРеквизиты ДанныеФормыКоллекция ДанныеФормыКоллекция
ЕдиницаДлительностиЗадач час ПеречислениеСсылка.ЕдиницыДлительности
ЕдиницаТрудозатратЗадач чел-час ПеречислениеСсылка.ЕдиницыТрудозатрат
ЗагруженИзMSProject Ложь Булево
ЗадачаОснование СправочникСсылка.ПроектныеЗадачи
Заказчик Федеральное космическое агентство (Роскосмос) СправочникСсылка.Корреспонденты
ЗапретитьАвтоматическоеДобавлениеУчастниковРабочейГруппы Ложь Булево
ИмяПредопределенныхДанных «» Строка
Код «00000000221» Строка
Комментарий » » Строка
Наименование «ОКР «Элинвар»» Строка
Описание «»»г/к от 17.04.2014 №783-К694/13/146
ОКР «»Разработка технологии создания унифицированных интегральных модулей датчиков механических величин, в том числе работоспособных в экстремальных условиях эксплуатации с применением технологии ультрапрецизионной мехобработки и прецизионной электроэрозионной обработки труднообрабатываемых инварных и элинварных сплавов на ультрапрецизионных станках с числовым программным управлением, технологии нанообразивного шлифования и полирования прецизионных деталей чувствительных элементов датчиков, с использованием технологии лазерной размерной обработки и модифицирования поверхности»», (шифр ОКР «»Элинвар»»)»»» Строка
Организация СправочникСсылка.Организации
ПометкаУдаления Ложь Булево
Предопределенный Ложь Булево
ПроектОснование 1тестирование СправочникСсылка.Проекты
ПроектнаяКоманда ДанныеФормыКоллекция ДанныеФормыКоллекция
РедактируетсяВСтороннейСистеме Ложь Булево
Родитель 1ОКР тест СправочникСсылка.Проекты
Руководитель ннова Налья Владимировна (Ведущий инженер-программист) СправочникСсылка.Пользователи
Состояние Инициирован ПеречислениеСсылка.СостоянияПроектов
СписыватьЗатратыНаПроект Истина Булево
СпособПланирования От даты начала проекта ПеречислениеСсылка.СпособыПланированияПроекта
Ссылка ОКР «Элинвар» СправочникСсылка.Проекты
СсылкаНаВнешнийФайл «» Строка
ТекущийПланНачало 01.01.2014 0:00:00 Дата
ТекущийПланОкончание 31.12.2014 0:00:59 Дата
ТекущийПланТрудозатраты 555 Число
УдалитьАвтоматическиВестиРабочуюГруппу Ложь Булево
Утвержден Истина Булево
ЭтоГруппа Ложь Булево
45 — 11.06.14 — 15:14
типа это?
Timon1405
46 — 11.06.14 — 15:21
(44) зрителям с попкорном достаточно первой строчки
Казалось бы, простая задача – изменить данные в определённой строке табличной части документа или справочника.
Получаем объект, табличную часть которого надо изменить. Используем метод ПолучитьОбъект().
Итак, у нас есть табличная часть и есть метод Найти(), который возвращает строку табличной части. Однако при попытке присвоить полю найденной строки какого-либо значения, система выдаёт ошибку.
Выход: изменять строки табличной части в цикле.
Допустим, табличная часть называется «Товары». Она имеет две колонки: «Номенклатура» и «Артикул».
Обходим строки табличной части в цикле и изменяем то, что нам нужно.
Для Каждого СтрокаТабличнойЧасти Из Товары Цикл Если СтрокаТабличнойЧасти.Артикул = "0001" Тогда СтрокаТабличнойЧасти.Артикул = "0123"; КонецЕсли; КонецЦикла;
- Информация о материале
- Категория: Программирование 1С
-
Опубликовано: 20 апреля 2016
В предыдущей статье мы узнали, как настраивать и конфигурировать табличные части объектов 1С 8.3. В этой статье мы изучим некоторые вопросы программной работы с табличными частями 1С.
Заполнение табличной части 1С 8.3
Очень часто встречается задача заполнить табличную часть какими-нибудь значениями, например результатом выполнения запроса. Для демонстрации реализуем пример, в котором выполняется заполнение табличной части. Сделаем небольшую учебную задачу: будем заполнять табличную часть документа всей номенклатурой, которая не помечена на удаление. Количество при этом будет равно 1. Для заполнения табличной части документа нам необходимо работать с одноименной таблицей реквизита Объект, который является основным реквизитом управляемой формы.
Поскольку по условиям задачи, необходимо отобрать всю не помеченную на удаление номенклатуру, то оптимально это сделать при помощи запроса, в котором я буду получать все не помеченные элементы справочника номенклатура. Я создал команду, при выполнении которой будет заполняться табличная часть, и разместил её на форме.
Исполнение команды будет выполняться в серверном контексте, поскольку объект Запрос не работает в клиентском контексте на тонком клиенте.
&НаСервере Процедура ЗаполнитьТоварамиНаСервере() Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | Товары.Ссылка КАК Товар, | 1 КАК Количество |ИЗ | Справочник.Товары КАК Товары |ГДЕ | НЕ Товары.ПометкаУдаления"; Выборка = Запрос.Выполнить().Выбрать(); Пока Выборка.Следующий() Цикл НовСтр = Объект.СписокТоваров.Добавить(); ЗаполнитьЗначенияСвойств(НовСтр,Выборка); КонецЦикла; КонецПроцедуры &НаКлиенте Процедура ЗаполнитьТоварами(Команда) ЗаполнитьТоварамиНаСервере(); КонецПроцедуры
При обходе запроса, я использую метод Добавить табличной части объекта (вообще это метод объекта, который имеет тип ДанныйФормыКоллекция, именно в этот тип преобразуется табличная часть документа-объекта, при создании на сервере). Данный метод является функцией, которая создаёт и возвращает новую строку.
Обратите внимание, поскольку при обходе запроса и заполнения новой строки, я использую метод ЗаполнитьЗначенияСвойств, то поля в запросе должны называться так же, как и поля табличной части.
Очистка табличной части документа 1С 8.3
Если мы реализуем данный код, то он будет не совсем корректен: каждый раз при выполнении этого кода будут добавляться новые строки, а вполне возможно, что пользователю старые строки не нужны. Поэтому, будем очищать имеющиеся строки, перед добавлением новых строк. Для этого воспользуемся методом Очистить объекта СписокТоваров, который имеет тип ДанныйФормыКоллекция.
Объект.СписокТоваров.Очистить();
После выполнения этого метода вся табличная часть будет очищена.
Текущая строка табличной части 1С 8.3
В процессе работы может возникнуть необходимость отработать текущую строку табличной части, т.е. ту строку, которая в данный момент выделена.
Например, может возникать ситуация, что мы редактируем какое-нибудь поле текущей строки таблицы на форме, и нам нужно, чтобы было пересчитано другое поле (или несколько полей) этой текущей строки. Например, мы изменяем цену (или количество) нашей табличной части, и необходимо, чтобы сумма автоматически была пересчитана.
Для решения данной задачи нужно воспользоваться свойством ТекущиеДанные элемента с типом ТаблицаФормы, который соответствует нужной табличной части. Свойство ТекущиеДанные возвращает значение полей текущей строки.
Для того, чтобы отработать изменение текущего поля цены, создадим обработчик события ПриИзменении этого поля.
В этом обработчике напишем код, который будет пересчитывать значения полей текущей строки табличной части.
&НаКлиенте Процедура СписокТоваровЦенаПриИзменении(Элемент) ТекДанные = Элементы.СписокТоваров.ТекущиеДанные; Если ТекДанные = Неопределено Тогда Возврат; //если пустая таблица КонецЕсли; ТекДанные.Сумма = ТекДанные.Количество * ТекДанные.Цена; КонецПроцедуры
Ещё пример: я создал команду, которая должна увеличивать количество в текущий строке табличной части в два раза и пересчитывать сумму. Эта команда размещена в командной панели таблицы и имеет следующий код:
&НаКлиенте Процедура УмножитьНа2(Команда) ТекДанные = Элементы.СписокТоваров.ТекущиеДанные; Если ТекДанные = Неопределено Тогда Возврат; //если пустая таблица КонецЕсли; ТекДанные.Количество = ТекДанные.Количество * 2; ТекДанные.Сумма = ТекДанные.Количество * ТекДанные.Цена; КонецПроцедуры
Теперь доработаем этот пример: после увеличения текущей строки будем сдвигать текущую строку на строку вниз. Для этого допишем предыдущий код:
Идентификтор = Элементы.СписокТоваров.ТекущаяСтрока; ИдентификторСлед = Идентификтор + 1; Если ИдентификторСлед < Объект.СписокТоваров.Количество() Тогда Элементы.СписокТоваров.ТекущаяСтрока = ИдентификторСлед; КонецЕсли;
В этом коде мы получаем идентификатор текущий строки при помощи свойства таблицы управляемой формы ТекущаяСтрока, и если мы не выходим за приделы таблицы, то сдвигаем нашу текущую строку на один шаг вниз.
Также при помощи текущей строки можно находить аналогичную строку в соответствующей табличной части основного реквизита формы Объект, которую также можно изменять (строка на форме тоже изменится автоматически). Мы ранее сделали пересчет суммы при изменении цены, теперь сделаем пересчет суммы при изменении количества, но напрямую через реквизит Объект.
&НаКлиенте Процедура СписокТоваровКоличествоПриИзменении(Элемент) Идентификтор = Элементы.СписокТоваров.ТекущаяСтрока; Если Идентификтор = Неопределено Тогда Возврат; КонецЕсли; ТекСтрока = Объект.СписокТоваров.НайтиПоИдентификатору(Идентификтор); Если ТекСтрока = Неопределено Тогда Возврат; КонецЕсли; ТекСтрока.Сумма = ТекСтрока.Цена * ТекСтрока.Количество; КонецПроцедуры
В этом коде мы используем метод НайтиПоИдентификатору переменной Объект.СписокТоваров, которая имеет типа ДанныйФормыКоллекция, этот метод получает элемент коллекции по указанному идентификатору. Если этот элемент найден, то мы можем с ними работать, причем данные на форме изменяться автоматически.
Обход табличной части 1С
Часто возникают задачи обойти табличную часть и изменить какие-либо значения в столбцах. В предыдущих примерах мы изменяли текущую стоку таблицы, теперь реализуем пример, когда нужно изменить все строки. В этом случае нет необходимости обращаться к элементам формы, можно работать напрямую с основным реквизитом Объект.
&НаКлиенте Процедура УмножитьВсеНа2(Команда) ТабОбх = Объект.СписокТоваров; Для Каждого стрТабл из ТабОбх Цикл стрТабл.Количество = стрТабл.Количество * 2; стрТабл.Сумма = стрТабл.Цена * стрТабл.Количество; КонецЦикла; КонецПроцедуры
Остальные статьи по теме конфигурирования в 1С:
Конфигурирование табличный частей объектов 1С
Справочники в 1С 8.3
Документы в 1С 8.3
Предопределенные элементы справочников 1С
Формы справочников в 1С 8.3
Более подробно и основательно конфигурирование в 1С дается в моей книге:
Книга «Программировать в 1С за 11 шагов»
Изучайте программирование в 1С в месте с моей книги «Программировать в 1С за 11 шагов»
- Книга написана понятным и простым языком — для новичка.
- Книга посылается на электронную почту в формате PDF. Можно открыть на любом устройстве!
- Научитесь понимать архитектуру 1С;
- Станете писать код на языке 1С;
- Освоите основные приемы программирования;
- Закрепите полученные знания при помощи задачника;
О том как разрабатывать под управляемым приложением 1С, читайте в книге Книга «Основы разработки в 1С: Такси»
Отличное пособие по разработке в управляемом приложении 1С, как для начинающих разработчиков, так и для опытных программистов.
- Очень доступный и понятный язык изложения
- Книга посылается на электронную почту в формате PDF. Можно открыть на любом устройстве!
- Поймете идеологию управляемого приложения 1С
- Узнаете, как разрабатывать управляемое приложение;
- Научитесь разрабатывать управляемые формы 1С;
- Сможете работать с основными и нужными элементами управляемых форм
- Программирование под управляемым приложением станет понятным
Промо-код на скидку в 15% — 48PVXHeYu
Вступайте в мои группы:
Вконтакте: https://vk.com/1c_prosto
Фейсбуке: https://www.facebook.com/groups/922972144448119/
ОК: http://ok.ru/group/52970839015518
Твиттер: https://twitter.com/signum2009
Табличные части существуют у многих объектов в 1С:
- Справочники
- Документы
- Отчеты и обработки
- Планы счетов
- Планы видов характеристик
- Планы видов расчета
- Бизнес-процессы и задачи
Табличные части позволяют хранить неограниченное количество структурированной информации, принадлежащей одному объекту.
Рассмотрим некоторые приемы работы с табличными частями.
Как обойти табличную часть
Для обхода табличной части можно использовать цикл Для каждого
Для каждого Строка из ТабличнаяЧасть Цикл
Сообщить(Строка.РеквизитТабличнойЧасти);
КонецЦикла;
На каждой итерации в переменную Строка передается очередная строка табличной части. Значения реквизитов строки можно получить выражением Строка.ИмяРеквизита.
Как получить и обойти выделенные строки табличной части
Для вывода информации из табличной части объекта служит элемент формы Табличное поле. Для включения возможности выделения нескольких строк на табличном поле нужно установить значение Множественный у его свойства Режим выделения.
Для получения перечня выделенных строк используется следующий код:
ВыделенныеСтроки=ЭлементыФормы.ИмяТабличногоПоля.ВыделенныеСтроки;
Для того чтобы обойти выделенные строки используется цикл Для каждого:
ВыделенныеСтроки=ЭлементыФормы.ИмяТабличногоПоля.ВыделенныеСтроки;
Для каждого Строка из ВыделенныеСтроки Цикл
//содержимое цикла
КонецЦикла;
Как программно выделить строки табличной части (табличного поля) и снять выделение
Чтобы программно снять выделение строк табличного поля:
ЭлементыФормы.ИмяТабличногоПоля.ВыделенныйСтроки.Очистить();
Чтобы программно выделить все строки табличного поля:
Для каждого ТекущаяСтрока Из ТабличнаяЧасть Цикл
ЭлементыФормы.ИмяТабличногоПоля.ВыделенныеСтроки.Добавить(ТекущаяСтрока);
КонецЦикла;
Как очистить табличную часть
ТабличнаяЧасть.Очистить();
Как получить текущую строку табличной части
Текущая строка — это срока, в которой у пользователя в данный момент находится курсор. Чтобы ее получить, нужно обратиться к элементу управления на форме, который связан с табличной частью.
Для обычных форм код будет выглядеть так:
ЭлементыФормы.ИмяТабличногоПоля.ТекущиеДанные;
Для управляемых форм:
Элементы.ИмяТабличногоПоля.ТекущиеДанные;
Как добавить новую строку в табличную часть
Добавление новой строки в конец табличной части:
НоваяСтрока=ТабличнаяЧасть.Добавить();
НоваяСтрока.Реквизит1=«Значение»;
Добавление новой строки в любое место табличной части (последующие строки будут сдвинуты):
НоваяСтрока=ТабличнаяЧасть.Вставить(Индекс)
//Индекс — номер добавляемой строки. Нумерация строк начинается с нуля.
НоваяСтрока.Реквизит1=«Значение»;
Как программно заполнить реквизиты строки табличной части
Если нужно программно заполнить реквизиты строки табличной части, которую добавляет пользователь, необходимо использовать обработчик события табличной части ПриНачалеРедактирования.
Создаваемая обработчиком процедура имеет три параметра:
- Элемент — содержит элемент управления ТабличноеПоле.
- НоваяСтрока — булево. Содержит значение Истина, если добавляется новая строка табличной части, и Ложь, если пользователь начал редактировать уже существующую строку.
- Копирование — булево. Содержит значение Истина, если пользователь копирует строку, и Ложь в остальных случаях.
Рассмотрим пример. Допустим, нам нужно заполнить реквизит табличной части СчетУчета, в случае, когда добавляется новая строка. При редактировании существующей строки изменять счет учета не нужно.
Процедура ТабличнаяЧастьПриНачалеРедактирования(Элемент, НоваяСтрока, Копирование)
//Если пользователь редактирует существующую строку, то ничего не делаем
Если НЕ НоваяСтрока Тогда
Возврат;
КонецЕсли;
//Если же строка новая, устанавливаем счет учета
ТекСтрока = Элемент.ТекущиеДанные; //Получили текущую строку табличной части
ТекСтрока.СчетУчета = ПланыСчетов.Хозрасчетый.НужныйСчетУчета;
КонецПроцедуры
Сегодня хочу рассказать о том как можно изменить табличную часть документа в 1С. Когда у меня не было опыта в программирования, и передо мной стояла подобная задача. Я обратился за помощью к интернету и очень сильно удивился, когда не нашел ответа на свой вопрос. В принципе было очень мало сайтов, на которых бы люди что-то рассказывали и объясняли. В основном это форумы, на которых новичку найти ответ очень сложно. Так как все отвечают очень кратко и в общих чертах. Остальная часть сайтов предлагала пройти курсы. Сегодня, хочу вам рассказать об одном способе, с помощью которого можно изменить табличную част документа.
А если быть точней то изменить дату у записей в табличной части, но по аналогии можно изменить все что угодно.
Как изменить дату в ТЧ у всех записей
И так допустим у на есть какой-то документ, у него есть табличная часть, в которой нужно что-то изменить, например, установить одну и туже дату, которую пользователь сам укажет.
Для этого нужно открываем конфиггуратор, найти документ, создать в нем команду «Изменить дату», открыть свойства данного элемента и перейти а Действие.
В открывшемся модуле пишем следующий код.
&НаКлиенте
Процедура ИзменитьДату(Команда)
УстановкаДаты = "";
Результат = ВвестиДату(УстановкаДаты, "Введите дату", ЧастиДаты.Дата);
Для Каждого ДанныеСтроки Из Объект.Работы Цикл
ДанныеСтроки.Дата = УстановкаДаты;
КонецЦикла;
КонецПроцедурыУстановкаДаты = «»; — задаем пустое значение для переменной в которой будет храниться дата.
Результат = ВвестиДату(УстановкаДаты, «Введите дату», ЧастиДаты.Дата); — открываем форму ввода даты и сохраняем её в переменную УстановкаДаты.
И в цикле перебираем строки и записываем дату.
Сохраняем и запускаем программу. Открываем документ в который вносили изменения, теперь на форме появилась кнопка «Изменить дату», которая открывает окно в котором можно выбрать дату.
После выполнения данной команды, выбранная дата установиться для всех записей табличной части документа.
Если немного подправить данный код можно поменять любое значение в табличной части документа.
Если возникли трудности то пишите в комментариях обязательно помогу.
0
1С 8.2 УП : Как изменить, присвоить, указать Тип Значения Ячейки табличной части?
Создаем табличную часть и в ней реквизит с разными типами значений:
Код 1C v 8.х
//Создадим строки с разним типом значения
НовСтрока = ТабЧасть.Добавить();
НовСтрока.РеквизитПроизвольный = 12345;
НовСтрока = ТабЧасть.Добавить();
НовСтрока.РеквизитПроизвольный = "Это строка";
НовСтрока = ТабЧасть.Добавить();
НовСтрока.РеквизитПроизвольный = ТекущаяДата();
НовСтрока = ТабЧасть.Добавить();
НовСтрока.РеквизитПроизвольный = Истина;
// измененим тип значения в ячейке ТЧ
// Найдем Строку и заменим на Дату
НайденСтрока = ТабЧасть.Найти("Это строка", "РеквизитПроизвольный");
НайденСтрока.РеквизитПроизвольный = ТекущаяДата();
// Найдем Число и заменим на Пустую ссылку справочника Номенклатуры (полученную с Вида судконто)
Счет = ПланыСчетов.Хозрасчетный.ТоварыНаСкладе;
НайденСтрока = ТабЧасть.Найти(12345, "РеквизитПроизвольный");
// Получим первое субконто Номенклатура
Субконото1 = Счет.ВидыСубконто[1];
// Присвоим тип значения
НайденСтрока.РеквизитПроизвольный = Субконото1.ВидСубконто.ТипЗначения.ПривестиЗначение();
Содержание:
1. Создание внешней обработки
2. Описание модуля формы
3. Перенос изменений в документ
На практике часто возникает потребность реализовать инструмент, с помощью которого можно было бы корректировать табличную часть документа из вспомогательной формы, пользуясь функционалом дополнительных внешних обработок. Например, для программы 1С Управление торговлей редакция 11 разработать аналог обработки табличной части, используемой в конфигурации Управление торговлей 10.3 (см. рис.). При этом конфигурация должна находиться на поддержке без возможности изменения.
В интернете можно найти много примеров разработки внешних печатных форм, обработок, отчетов. Но описание реализации похожей задачи найти не так просто. По сути, необходимо выполнить открытие дополнительной формы, установить в ней показатели, выполнить расчеты и результат перенести в документ. Все изменения нужно выполнить только в форме без сохранения в информационную базу, что позволило бы пользователю отказаться от записи.
В этой статья я опишу упрощенный пример разработки подобного функционала, позволяющего изменить цену товара на определенный процент в документе реализация товаров и услуг.
1. Создание внешней обработки
Создаем внешнюю обработку. В модуле внешней обработки создаем экспортную процедуру «СведенияОВнешнейОбработке». В параметр «Вид» устанавливаем значение «ЗаполнениеОбъекта», настройку команды «Использование» устанавливаем «ОткрытиеФормы».
Создаем форму обработки с необходимыми элементами управления. В нашем случае это – поле для ввода процента и таблица, в которой будут отражены строки табличной части документа. Создаем две команды «Рассчитать» и «Перенести в документ». По кнопке «Рассчитать» мы будем вычислять в таблице формы обработки новое значение цены с учетом процента, а по кнопке «Перенести в документ» — заполнять табличную часть документа новыми значениями.
2. Описание модуля формы
Перейдем к описанию модуля формы. Прежде всего при открытии формы нам необходимо заполнить таблицу данными табличной части. Для этого мы используем серверную процедуру «ПриСозданииНаСервере» в которой получим ссылку на документ и заполним реквизит «Товары» результатом запроса к табличной части документа.
Ссылку на документ можно получить из параметра формы «ОбъектыНазначения». Этот параметр доступен внешним обработкам в режиме «ОткрытиеФормы». Параметр «ОбъектыНазначения» представляет собой массив ссылок выбранных документов. В нашем случае мы будем запускать обработку только из формы документа, следовательно, массив объектов назначения будет содержать только один элемент с индексом 0.
Мы описали заполнение формы исходными данными и переходим к описанию функционала изменения значений табличной части. На данном этапе мы реализуем задачу нашей обработки. Здесь можно изменить количество, цену, ставку налога и т.д. Не забываем, что состав колонок реквизита формы Товары тоже должен соответствовать поставленной задаче. Я выбрал самый простой вариант — изменение цены.
3. Перенос изменений в документ
Переходим к завершающему этапу – перенос изменений в документ. Вот на этом этапе и возникает вопрос: «Как это сделать?». Традиционно перенос данных в документ осуществляется механизмом оповещений, но в нашем случае конфигурация полностью на поддержке с запретом изменений, и нет возможности обработать нетиповую ситуацию. Для решения этой задачи используем свойство управляемой формы «ВладелецФормы». Владельцем формы является форма нашего документа и устанавливается системой автоматически в режиме «ОткрытиеФормы». Через свойство владелец формы может получить доступ к ее основному реквизиту «Объект», в состав которого входит коллекция строк табличной части «Товары». Важно помнить, что свойство «ВладелецФормы» всегда доступно на клиенте открытой формы.
Учитывая данную возможность, обработаем в цикле строки документа и установим новые значения. Для поиска соответствующей строки используем реквизит «НомерСтроки».
Если мы меняем какое-либо числовое значение, то чаще всего необходимо выполнить пересчет связанных значений в строке. Например, изменяя цену необходимо пересчитать сумму, сумму НДС и что-то еще. Для этого лучше использовать типовые процедуры пересчета табличной части. Перенесем из документа в нашу форму типовой обработчик события изменения цены – «ТоварыЦенаПриИзменении».
В данном примере мы использовали метод поиска строки по реквизиту «НомерСтроки». Но может возникнуть ситуация, когда в процессе выполнения обработки пользователь случайно изменит порядок строк в документе, тем самым нарушив соответствие строк табличной части документа номеру строк таблицы формы нашей обработки. Для обеспечения гарантированного соответствия заблокируем окно документа на время проведения изменений. Для этого в форме обработки установим для свойства «РежимОткрытияОкна» значение «Блокировать окно владельца».
Специалист компании ООО «Кодерлайн»
Игорь Торба.