Установить значение реквизита табличной части 1с - Контакты компаний и предприятий

1С 8.x : Выбрать документы за период, установить значение в реквизит табличной части и провести документ

Код 1C v 8.х

 // Необходимо выбрать документы за период по ответственному

// В каждом документе, где в первой строке табличного поля не заполнен реквизит Статья

// заполнить, и провести документ

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

Запрос.Текст = 

"ВЫБРАТЬ

|	РасходныйКассовыйОрдер.Ссылка

|ИЗ

|	Документ.РасходныйКассовыйОрдер КАК РасходныйКассовыйОрдер

|ГДЕ

|	РасходныйКассовыйОрдер.Дата МЕЖДУ &ДатаН И &ДатаК

|	И РасходныйКассовыйОрдер.Ответственный = &Ответственный";

Запрос.УстановитьПараметр("ДатаН", ЭлементыФормы.НачПериода.Значение);

Запрос.УстановитьПараметр("ДатаК", ЭлементыФормы.КонПериода.Значение);

Запрос.УстановитьПараметр("Ответственный", Ответственный);   	

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

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

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

// получим документ для обработки

Док = Выборка.Ссылка.ПолучитьОбъект();	

//Проверим заполнение реквизита СтатьяДвиженияДенежныхСредств в первой строке табл. поля

Если ПустаяСтрока(Док.РасшифровкаПлатежа[0].СтатьяДвиженияДенежныхСредств) тогда

	Док.РасшифровкаПлатежа[0].СтатьяДвиженияДенежныхСредств=СтатьяЗатрат;

	Док.Записать(РежимЗаписиДокумента.Проведение);

	Сообщить(Док);

КонецЕсли;	

КонецЦикла;

Источник

Табличные части существуют у многих объектов в 1С:

Справочники
Документы
Отчеты и обработки
Планы счетов
Планы видов характеристик
Планы видов расчета
Бизнес-процессы и задачи

Табличные части позволяют хранить неограниченное количество структурированной информации, принадлежащей одному объекту.

Рассмотрим некоторые приемы работы с табличными частями.

Как обойти табличную часть

Для обхода табличной части можно использовать цикл Для каждого

Для каждого Строка из ТабличнаяЧасть Цикл

Сообщить(Строка.РеквизитТабличнойЧасти);

КонецЦикла;

На каждой итерации в переменную Строка передается очередная строка табличной части. Значения реквизитов строки можно получить выражением Строка.ИмяРеквизита.

Как получить и обойти выделенные строки табличной части

Для вывода информации из табличной части объекта служит элемент формы Табличное поле. Для включения возможности выделения нескольких строк на табличном поле нужно установить значение Множественный у его свойства Режим выделения.

Для получения перечня выделенных строк используется следующий код:

ВыделенныеСтроки=ЭлементыФормы.ИмяТабличногоПоля.ВыделенныеСтроки;

Для того чтобы обойти выделенные строки используется цикл Для каждого:

ВыделенныеСтроки=ЭлементыФормы.ИмяТабличногоПоля.ВыделенныеСтроки;

Для каждого Строка из ВыделенныеСтроки Цикл

//содержимое цикла

КонецЦикла;

Как программно выделить строки табличной части (табличного поля) и снять выделение

Чтобы программно снять выделение строк табличного поля:

ЭлементыФормы.ИмяТабличногоПоля.ВыделенныйСтроки.Очистить();

Чтобы программно выделить все строки табличного поля:

Для каждого ТекущаяСтрока Из ТабличнаяЧасть Цикл
ЭлементыФормы.ИмяТабличногоПоля.ВыделенныеСтроки.Добавить(ТекущаяСтрока);
КонецЦикла;

Как очистить табличную часть

ТабличнаяЧасть.Очистить();

Как получить текущую строку табличной части

Текущая строка — это срока, в которой у пользователя в данный момент находится курсор. Чтобы ее получить, нужно обратиться к элементу управления на форме, который связан с табличной частью.

Для обычных форм код будет выглядеть так:

ЭлементыФормы.ИмяТабличногоПоля.ТекущиеДанные;

Для управляемых форм:

Элементы.ИмяТабличногоПоля.ТекущиеДанные;

Как добавить новую строку в табличную часть

Добавление новой строки в конец табличной части:

НоваяСтрока=ТабличнаяЧасть.Добавить();
НоваяСтрока.Реквизит1=«Значение»;

Добавление новой строки в любое место табличной части (последующие строки будут сдвинуты):

НоваяСтрока=ТабличнаяЧасть.Вставить(Индекс)
//Индекс — номер добавляемой строки. Нумерация строк начинается с нуля.

НоваяСтрока.Реквизит1=«Значение»;

Как программно заполнить реквизиты строки табличной части

Если нужно программно заполнить реквизиты строки табличной части, которую добавляет пользователь, необходимо использовать обработчик события табличной части ПриНачалеРедактирования.

Создаваемая обработчиком процедура имеет три параметра:

Элемент — содержит элемент управления ТабличноеПоле.
НоваяСтрока — булево. Содержит значение Истина, если добавляется новая строка табличной части, и Ложь, если пользователь начал редактировать уже существующую строку.
Копирование — булево. Содержит значение Истина, если пользователь копирует строку, и Ложь в остальных случаях.

Рассмотрим пример. Допустим, нам нужно заполнить реквизит табличной части СчетУчета, в случае, когда добавляется новая строка. При редактировании существующей строки изменять счет учета не нужно.

Процедура ТабличнаяЧастьПриНачалеРедактирования(Элемент, НоваяСтрока, Копирование)

//Если пользователь редактирует существующую строку, то ничего не делаем
Если НЕ НоваяСтрока Тогда
Возврат;
КонецЕсли;

//Если же строка новая, устанавливаем счет учета
ТекСтрока = Элемент.ТекущиеДанные; //Получили текущую строку табличной части
ТекСтрока.СчетУчета = ПланыСчетов.Хозрасчетый.НужныйСчетУчета;
КонецПроцедуры

Источник

Как изменить значение реквизита табличной части?

TheMan

11.06.14 — 09:44

Хэлп…есть справочник, у него есть табличная часть…как изменить значение реквизита этой табличной части? Стандартным механизмом обхода табличной части в цикле, нахождения нужной строки и изменением значения не прокатывает. Сообщить показывает, что значение поменялось, но на форме отображается старое значение…

&НаКлиенте

Процедура ПроектОснованиеПриИзменении(Элемент)

Структура=ИзменитьИсточникФинансирования();

        Для каждого строка из Объект.ДополнительныеРеквизиты цикл

Если Найти(строка.Свойство,»Источник финансирования»)=Истина тогда

                Сообщить(» ЗашЁЛ!!!»+ строка.Значение+» «+Структура.ИсточникФин+»»);

                строка.Значение = Структура.ИсточникФин;

            КонецЕсли;

        Конеццикла;

КонецПроцедуры

МойКодУныл

1 — 11.06.14 — 09:45

Записать()

TheMan

2 — 11.06.14 — 09:46

Не…Когда записываю записывает старое значение…

Fragster

3 — 11.06.14 — 09:47

Если Найти(строка.Свойство,»Источник финансирования»)=Истина тогда

— это АдЪ

Maxus43

4 — 11.06.14 — 09:47

ИзменитьИсточникФинансирования();

там то что?

TheMan

5 — 11.06.14 — 09:47

т.е. значение, которое на данный момент отображается

Fragster

6 — 11.06.14 — 09:48

делай на сервере с ТЧ объекта, а не с элементом формы

TheMan

7 — 11.06.14 — 09:48

ИзменитьИсточникФинансирования();

там то что?

Там на сервере получаю значения структурой..

TheMan

8 — 11.06.14 — 09:49

делай на сервере с ТЧ объекта, а не с элементом формы

на сервере тоже самое получается. Но я и тут делаю с табличной частью объекта…Дополнительные реквизиты это тч

Maxus43

9 — 11.06.14 — 09:49

(7) на сервере и меняй

TheMan

10 — 11.06.14 — 09:51

(7) на сервере и меняй

бесполезно… на форме значение реквизита не меняется

Maxus43

11 — 11.06.14 — 09:53

(10) читай книги, «разработка в управляемом приложении». Это азы…

TheMan

12 — 11.06.14 — 09:54

&НаСервере

Процедура ИзменитьИсточникФинансирования()

    ИсточникФин=»»;

    ТекПланТрудозатраты=»»;

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

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

                 |    ВложенныйЗапрос.Значение,

                 |    Проекты.ТекущийПланТрудозатраты

                 |ИЗ

                 |    Справочник.Проекты КАК Проекты

                 |        ПОЛНОЕ СОЕДИНЕНИЕ (ВЫБРАТЬ

                 |            ПроектыДополнительныеРеквизиты.Значение КАК Значение,

                 |            ПроектыДополнительныеРеквизиты.Ссылка КАК Ссылка

                 |        ИЗ

                 |            Справочник.Проекты.ДополнительныеРеквизиты КАК ПроектыДополнительныеРеквизиты

                 |        ГДЕ

                 |            ПроектыДополнительныеРеквизиты.Свойство.Наименование = «»Источник финансирования»») КАК ВложенныйЗапрос

                 |        ПО Проекты.Ссылка = ВложенныйЗапрос.Ссылка

                 |ГДЕ

                 |    Проекты.Ссылка = &Ссылка»;

    Запрос.УстановитьПараметр(«Ссылка»,Объект.ПроектОснование);

    Выборка=Запрос.Выполнить();

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

Если Результат.Следующий() тогда

    //Сообщить(» «+Результат.Значение+» «);

    //Сообщить(» «+Результат.ТекущийПланТрудозатраты+» «);

Объект.ТекущийПланТрудозатраты=Результат.ТекущийПланТрудозатраты;

    ИсточникФин=Результат.Значение;

    КонецЕсли;

        Для каждого строка из Объект.ДополнительныеРеквизиты цикл

            Если строка.Свойство.Наименование = «Источник финансирования» тогда

                Сообщить(«»+ строка.Значение+» «+Результат.Значение+»»);

                строка.Значение = ИсточникФин;

                Сообщить(строка.Значение);

            КонецЕсли;

        Конеццикла;

ВыборкаОбъект.Записать();

КонецПроцедуры

&НаКлиенте

Процедура ПроектОснованиеПриИзменении(Элемент)

    ИзменитьИсточникФинансирования();

    //Прочитать();

КонецПроцедуры

Так тоже не работает

salvator

13 — 11.06.14 — 09:55

(12) Чё за «ВыборкаОбъект»?

TheMan

14 — 11.06.14 — 09:58

(12) Чё за «ВыборкаОбъект»?

Упс..это я еще пробывал получитьобъект…там использовалась…сейчас комментарий

TheMan

15 — 11.06.14 — 10:00

Если Найти(строка.Свойство,»Источник финансирования»)=Истина тогда

— это АдЪ

Эт..да пробывал на клиенте…думал может в этом косяк…

salvator

16 — 11.06.14 — 10:01

(14) Так скинь нормальный код, ёлы-палы.

TheMan

17 — 11.06.14 — 10:20

(14) Так скинь нормальный код, ёлы-палы.

    Выборка=Запрос.Выполнить();

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

Если Результат.Следующий() тогда

Объект.ТекущийПланТрудозатраты=Результат.ТекущийПланТрудозатраты;

    ИсточникФин=Результат.Значение;

    КонецЕсли;

                Сообщить(«»+ строка.Значение+» «+Результат.Значение+»»);

                строка.Значение = ИсточникФин;

            КонецЕсли;

        Конеццикла;

КонецПроцедуры

&НаКлиенте

Процедура ПроектОснованиеПриИзменении(Элемент)

ИзменитьИсточникФинансирования();

КонецПроцедуры

TheMan

18 — 11.06.14 — 10:33

Профи ну вы хде?))) Хелп плиз…

TheMan

19 — 11.06.14 — 10:55

апп

20 — 11.06.14 — 10:58

А на форме дополнительные реквизиты как отображаются? Табличная чать показана?

TheMan

21 — 11.06.14 — 11:02

А на форме дополнительные реквизиты как отображаются? Табличная чать показана?

Да показана…

Timon1405

22 — 11.06.14 — 11:06

Тип(Объект) в отладчике в студию

Fedor-1971

23 — 11.06.14 — 11:10

(21) Зайди в отладчик, поставь точку останова на строку:

Для каждого строка из Объект.ДополнительныеРеквизиты цикл

и посмотри что есть в твоей «строка» сразу станет понятно что пытаешься сравнить и как нечто входящее в «строка» можно заполнять. Для интереса проделай сие НаКлиенте и НаСервере — прочувствуй разницу.

P.S. Последуй совету из (11).

TheMan

24 — 11.06.14 — 11:12

TheMan

25 — 11.06.14 — 11:16

P.S. Последуй совету из (11).

В строке все выходит что нужно…но не меняется на форме…

пишу Сообщить(«»+ строка.Значение+» «+Результат.Значение+»»);

строка.значение меняется, а на форме нет…

hhhh

26 — 11.06.14 — 11:16

(21) а где РеквизитФормыВЗначение() ??Детский сад.

TheMan

27 — 11.06.14 — 11:18

(21) а где РеквизитФормыВЗначение() ??Детский сад.

оп…а это куда надо?

hhhh

28 — 11.06.14 — 11:18

(21)

ОбъектНаСервере = РеквизитФормыВЗначение(«Объект»);

        Для каждого строка из ОбъектНаСервере.ДополнительныеРеквизиты цикл

            Если строка.Свойство.Наименование = «Источник финансирования» тогда

                Сообщить(«»+ строка.Значение+» «+Результат.Значение+»»);

                строка.Значение = ИсточникФин;

            КонецЕсли;

        Конеццикла;

ЗначениеВРеквизитФормы(ОбъектНаСервере, «Объект»);

TheMan

29 — 11.06.14 — 11:19

Блин походу я туплю… прошу понять и простить))))

TheMan

30 — 11.06.14 — 11:25

(28) Ничего не поменялось все тоже самое…

Оч странно строка значение поменялось а на форме без изменений

salvator

31 — 11.06.14 — 11:27

(30) А записываешь где?

TheMan

32 — 11.06.14 — 11:32

(31) при записи значение пишется не то которое в строка.значение а то которое на форме…

TheMan

33 — 11.06.14 — 12:18

(31)

TheMan

34 — 11.06.14 — 13:05

(33)

TheMan

35 — 11.06.14 — 14:22

Задачка видимо оч сложная…

Timon1405

36 — 11.06.14 — 14:26

Так попкорн у всех с утра закончился, все ушли за новым ведром

TheMan

37 — 11.06.14 — 14:29

(36) Ну тады другое дело))))))

Fedor-1971

38 — 11.06.14 — 14:32

(35)Шутник блин.

Есть открытая форма элемента справочника, у него есть ТЧ ДополнительныеРеквизиты (например А, Б и ИсточникФинансирования)

&НаСервере

Процедура ЗаполнитьТЧ(Источник)

Для каждого стр из Объект.ДополнительныеРеквизиты цикл

   Если стр.А=1 тогда

     стр.ИсточникФинансирования=Источник;

   КонецЕсли;

КонецЦикла;

КонецПроцедуры

Тебе уже сказали читай книги!

Fedor-1971

39 — 11.06.14 — 14:35

(38)+ и не используй в названии переменных и ТЧ зарезервированные конструкции, потом сам моск вывихнеш пытаясь понять почему процедура что-то делает не так.

TheMan

40 — 11.06.14 — 14:46

(38) ДА НЕ РАБОТАЕТ ТАК!!!! НЕ ИЗМЕНЯЮТСЯ ДАННЫЕ НА ФОРМЕ!!!!

Fedor-1971

41 — 11.06.14 — 14:56

(40) ТЧ назови нормально, например, ДопДанные

100% работает и изменяется, проверено не один раз

Смотри отладчиком на стр — должен быть открывающийся список с реквизитами А, Б и ИсточникФинансирования.

Ты точно работаешь с управляемой формой?

Timon1405

42 — 11.06.14 — 14:58

(40) точку останова на конеццикла и ответь на (22)

TheMan

43 — 11.06.14 — 15:08

(41) Вот и мной было проверено не один раз…работало…

Только здесь по другому… строка.значение меняется…сообщить это показывает… а на форме результата 0.

TheMan

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    Число

УдалитьАвтоматическиВестиРабочуюГруппу    Ложь    Булево

Утвержден    Истина    Булево

ЭтоГруппа    Ложь    Булево

TheMan

45 — 11.06.14 — 15:14

типа это?

Timon1405

46 — 11.06.14 — 15:21

(44) зрителям с попкорном достаточно первой строчки

Источник

10.11.2011, 14:53

#1

Гость форума

установка значения реквизита в табличной части формы документа 8.2

в одном из документов типовой конфигурации создан реквизит.
Каким образом установить его значение? (из модуля формы) Бьюсь, уже убился почти. Форма обычная.

Этот реквизит не связан с данными — просто добавлена колонка в табличной части формы документа. Не хочет он его по имени никаким способом видеть.

Заранее благодарен.
10.11.2011, 15:15

#2

Просто юзер

Функция КолД(Организация) Экспорт
Перем Кол;

Кол=0;
Выборка = Справочники.ОсновныеСредс� �ва.Выбрать();
Пока Выборка.Следующий() Цикл
Объект=Выборка.ПолучитьОбъ ект();
Если Объект.ЭтоГруппа=Ложь Тогда

Объект.ВидИмущества=Перечи сления.ВидыИмущества.Недви жимоеИмущество;

КонецЕсли;
Объект.Записать();
Кол = Кол + 1;
КонецЦикла;
Сообщить(Кол);

Возврат Кол;

КонецФункции[COLOR=»Silver»]

———- Post added at 15:14 ———- Previous post was at 15:12 ———-Функция КолД(Организация) Экспорт
Перем Кол;

Квывол=0;
Запрос = Новый Запрос;
Запрос.Текст = «ВЫБРАТЬ
| Номенклатура.Ссылка КАК Номенклатура
|ИЗ
| Справочник.Номенклатура КАК Номенклатура
|ГДЕ
| Номенклатура.ЭтоГруппа = ЛОЖЬ»;
Результат = Запрос.Выполнить();

ВыборкаДетальныеЗаписи=Ре� �ультат.Выбрать();
Пока ВыборкаДетальныеЗаписи.Сл� �дующий() Цикл
Элемент=ВыборкаДетальныеЗ� �писи.Номенклатура.Получит� �Объект();
Элемент.ВидИмущества=Переч исления.ВидыИмущества.Движ имоеОсобоЦенное;
Элемент.Записать();
кол=кол+1;
КонецЦикла;
Сообщить(кол);
Возврат Кол;

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

———- Post added at 15:14 ———- Previous post was at 15:14 ———-Функция КолД(Организация) Экспорт
Перем Кол;

Квывол=0;
Запрос = Новый Запрос;
Запрос.Текст = «ВЫБРАТЬ
| Номенклатура.Ссылка КАК Номенклатура
|ИЗ
| Справочник.Номенклатура КАК Номенклатура
|ГДЕ
| Номенклатура.ЭтоГруппа = ЛОЖЬ»;
Результат = Запрос.Выполнить();

ВыборкаДетальныеЗаписи=Ре� �ультат.Выбрать();
Пока ВыборкаДетальныеЗаписи.Сл� �дующий() Цикл
Элемент=ВыборкаДетальныеЗ� �писи.Номенклатура.Получит� �Объект();
Элемент.ВидИмущества=Переч исления.ВидыИмущества.Движ имоеОсобоЦенное;
Элемент.Записать();
кол=кол+1;
КонецЦикла;
Сообщить(кол);
Возврат Кол;

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

———- Post added at 15:15 ———- Previous post was at 15:14 ———-Функция КолД(Организация) Экспорт
Перем Кол;

Квывол=0;
Запрос = Новый Запрос;
Запрос.Текст = «ВЫБРАТЬ
| Номенклатура.Ссылка КАК Номенклатура
|ИЗ
| Справочник.Номенклатура КАК Номенклатура
|ГДЕ
| Номенклатура.ЭтоГруппа = ЛОЖЬ»;
Результат = Запрос.Выполнить();

ВыборкаДетальныеЗаписи=Ре� �ультат.Выбрать();
Пока ВыборкаДетальныеЗаписи.Сл� �дующий() Цикл
Элемент=ВыборкаДетальныеЗ� �писи.Номенклатура.Получит� �Объект();
Элемент.ВидИмущества=Переч исления.ВидыИмущества.Движ имоеОсобоЦенное;
Элемент.Записать();
кол=кол+1;
КонецЦикла;
Сообщить(кол);
Возврат Кол;

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

———- Post added at 15:15 ———- Previous post was at 15:15 ———-почему продублировалось не знаю
10.11.2011, 15:21

#3

Гость форума

а где реквизит формы в табличной части документа? это не на мой вопрос ответ
10.11.2011, 22:58

#4

Просто юзер

Сообщение от Frob

а где реквизит формы в табличной части документа? это не на мой вопрос ответ

текДанные=ЭлементыФормы.та блчасть.ТекущиеДанные;
текДанные.Реквезит=
11.11.2011, 08:35

#5

Гость форума

нет… не прокатывает такая конструкция… говорит что нет там моего «реквизита», но я уже разобрался.

Доступ к новой колонке, не связанной с данными документа удалось получить ТОЛЬКО через оформлениестроки в процедуре ПриВыводеСтрок.

Всем спасибо. Тема закрыта.

Источник

Код 1C v 8.х

 // Необходимо выбрать документы за период по ответственному
      

    // В каждом документе, где в первой строке табличного поля не заполнен реквизит Статья
      

    // заполнить, и провести документ
      

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

    Запрос.Текст = 
      

    "ВЫБРАТЬ
      

    |	РасходныйКассовыйОрдер.Ссылка
      

    |ИЗ
      

    |	Документ.РасходныйКассовыйОрдер КАК РасходныйКассовыйОрдер
      

    |ГДЕ
      

    |	РасходныйКассовыйОрдер.Дата МЕЖДУ &ДатаН И &ДатаК
      

    |	И РасходныйКассовыйОрдер.Ответственный = &Ответственный";
      

    Запрос.УстановитьПараметр("ДатаН", ЭлементыФормы.НачПериода.Значение);
      

    Запрос.УстановитьПараметр("ДатаК", ЭлементыФормы.КонПериода.Значение);
      

    Запрос.УстановитьПараметр("Ответственный", Ответственный); 	
      

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

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

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

    // получим документ для обработки
      

    Док = Выборка.Ссылка.ПолучитьОбъект();	
      

    //Проверим заполнение реквизита СтатьяДвиженияДенежныхСредств в первой строке табл. поля
      

    Если ПустаяСтрока(Док.РасшифровкаПлатежа[0].СтатьяДвиженияДенежныхСредств) тогда
      

    	Док.РасшифровкаПлатежа[0].СтатьяДвиженияДенежныхСредств=СтатьяЗатрат;
      

    	Док.Записать(РежимЗаписиДокумента.Проведение);
      

    	Сообщить(Док);
      

    КонецЕсли;	
      

    КонецЦикла;

Хотите узнать больше по этому вопросу?

Подпишитесь на нашу рассылку новостей

Чтобы задать вопрос или предложить тему статьи, нажмите на кнопку ниже:

Предложить статью

Источник

Сегодня хочу рассказать о том как можно изменить табличную часть документа в 1С. Когда у меня не было опыта в программирования, и передо мной стояла подобная задача. Я обратился за помощью к интернету и очень сильно удивился, когда не нашел ответа на свой вопрос. В принципе было очень мало сайтов, на которых бы люди что-то рассказывали и объясняли. В основном это форумы, на которых новичку найти ответ очень сложно. Так как все отвечают очень кратко и в общих чертах. Остальная часть сайтов предлагала пройти курсы. Сегодня, хочу вам рассказать об одном способе, с помощью которого можно изменить табличную част документа.

А если быть точней то изменить дату у записей в табличной части, но по аналогии можно изменить все что угодно.

Как изменить дату в ТЧ у всех записей

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

Для этого нужно открываем конфиггуратор, найти документ, создать в нем команду «Изменить дату», открыть свойства данного элемента и перейти а Действие.

Как изменить данные в табличной части документа в 1С

В открывшемся модуле пишем следующий код.

&НаКлиенте
Процедура ИзменитьДату(Команда)
УстановкаДаты = "";
Результат = ВвестиДату(УстановкаДаты, "Введите дату", ЧастиДаты.Дата);   
Для Каждого ДанныеСтроки Из Объект.Работы Цикл
    ДанныеСтроки.Дата =  УстановкаДаты;
КонецЦикла;
КонецПроцедуры

УстановкаДаты = «»; — задаем пустое значение для переменной в которой будет храниться дата.

Результат = ВвестиДату(УстановкаДаты, «Введите дату», ЧастиДаты.Дата); — открываем форму ввода даты и сохраняем её в переменную УстановкаДаты.

И в цикле перебираем строки и записываем дату.

Сохраняем и запускаем программу. Открываем документ в который вносили изменения, теперь на форме появилась кнопка «Изменить дату», которая открывает окно в котором можно выбрать дату.

После выполнения данной команды, выбранная дата установиться для всех записей табличной части документа.

1С 8.3 Как изменить данные в табличной части документа

Если немного подправить данный код можно поменять любое значение в табличной части документа.

Если возникли трудности то пишите в комментариях обязательно помогу.

Источник

В предыдущей статье мы узнали, как настраивать и конфигурировать табличные части объектов 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С 8.x : Выбрать документы за период, установить значение в реквизит табличной части и провести документ

Как обойти табличную часть

Как получить и обойти выделенные строки табличной части

Как программно выделить строки табличной части (табличного поля) и снять выделение

Как очистить табличную часть

Как получить текущую строку табличной части

Как добавить новую строку в табличную часть

Как программно заполнить реквизиты строки табличной части

Как изменить значение реквизита табличной части?

<img decoding="async" onError="javascript: wp_broken_images = window.wp_broken_images || function(){}; wp_broken_images(this);" src="https://forum.ruboard.ru/images/icons/icon1.png" alt="По умолчанию" />

<img decoding="async" onError="javascript: wp_broken_images = window.wp_broken_images || function(){}; wp_broken_images(this);" src="https://forum.ruboard.ru/images/icons/icon1.png" alt="По умолчанию" />

<img decoding="async" onError="javascript: wp_broken_images = window.wp_broken_images || function(){}; wp_broken_images(this);" src="https://forum.ruboard.ru/images/icons/icon1.png" alt="По умолчанию" />

<img decoding="async" onError="javascript: wp_broken_images = window.wp_broken_images || function(){}; wp_broken_images(this);" src="https://forum.ruboard.ru/images/icons/icon1.png" alt="По умолчанию" />

Как изменить дату в ТЧ у всех записей

Заполнение табличной части 1С 8.3

Очистка табличной части документа 1С 8.3

Текущая строка табличной части 1С 8.3

Обход табличной части 1С