Изменение реквизита табличной части документа 1с

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

Я
   TheMan

11.06.14 — 09:44

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

&НаКлиенте

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

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

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

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

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

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

                
            КонецЕсли;    

        Конеццикла;

    
        

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

  

Партнерская программа EFSOL Oblako

   МойКодУныл

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

апп

   YF

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

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

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

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

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) зрителям с попкорном достаточно первой строчки

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

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

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

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

Изменение ТЧ

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

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

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

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

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

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

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

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

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

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

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

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

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

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

В предыдущей статье мы узнали, как настраивать и конфигурировать табличные части объектов 1С 8.3. В этой статье мы изучим некоторые вопросы программной работы с табличными частями 1С.

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

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

Табличная часть реквизита Объект

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

Команда 1С и размещение её на форме

Исполнение команды будет выполняться в серверном контексте, поскольку объект Запрос не работает в клиентском контексте на тонком клиенте.

&НаСервере
Процедура ЗаполнитьТоварамиНаСервере()

    Запрос = Новый Запрос;
    Запрос.Текст = "ВЫБРАТЬ
                   |    Товары.Ссылка КАК Товар,
                   |    1 КАК Количество
                   |ИЗ
                   |    Справочник.Товары КАК Товары
                   |ГДЕ
                   |    НЕ Товары.ПометкаУдаления";
    Выборка = Запрос.Выполнить().Выбрать();
    Пока Выборка.Следующий() Цикл
        НовСтр = Объект.СписокТоваров.Добавить();
        ЗаполнитьЗначенияСвойств(НовСтр,Выборка);
    КонецЦикла;

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

&НаКлиенте
Процедура ЗаполнитьТоварами(Команда)
    ЗаполнитьТоварамиНаСервере();
КонецПроцедуры

При обходе запроса, я использую метод Добавить табличной части объекта (вообще это метод объекта, который имеет тип ДанныйФормыКоллекция, именно в этот тип преобразуется табличная часть документа-объекта, при создании на сервере). Данный метод является функцией, которая создаёт и возвращает новую строку.

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

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

Если  мы реализуем данный код, то он будет не совсем корректен: каждый раз при выполнении этого кода будут добавляться новые строки, а вполне возможно, что пользователю старые строки не нужны. Поэтому, будем очищать имеющиеся строки,  перед добавлением новых строк. Для этого воспользуемся методом Очистить объекта СписокТоваров, который имеет тип  ДанныйФормыКоллекция.

Объект.СписокТоваров.Очистить();

После выполнения этого метода вся табличная часть будет очищена.

Текущая строка табличной части 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 шагов»

  1. Книга написана понятным и простым языком — для новичка.
  2. Книга посылается на электронную почту в формате PDF. Можно открыть на любом устройстве!
  3. Научитесь понимать архитектуру 1С;
  4. Станете писать код на языке 1С;
  5. Освоите основные приемы программирования;
  6. Закрепите полученные знания при помощи задачника;

О том как разрабатывать под управляемым приложением 1С, читайте в книге Книга «Основы разработки в 1С: Такси»

Отличное пособие по разработке в управляемом приложении 1С, как для начинающих разработчиков, так и для опытных программистов.

  1. Очень доступный и понятный язык изложения
  2. Книга посылается на электронную почту в формате PDF. Можно открыть на любом устройстве!
  3. Поймете идеологию управляемого приложения 1С
  4. Узнаете, как разрабатывать управляемое приложение;
  5. Научитесь разрабатывать управляемые формы 1С;
  6. Сможете работать с основными и нужными элементами управляемых форм
  7. Программирование под управляемым приложением станет понятным

Промо-код на скидку в 15% — 48PVXHeYu

Вступайте в мои группы:

Вконтакте: https://vk.com/1c_prosto
Фейсбуке: https://www.facebook.com/groups/922972144448119/
ОК: http://ok.ru/group/52970839015518
Твиттер: https://twitter.com/signum2009

Содержание:

1.   Изменения в табличной части Товары

Достаточно часто возникает ситуация, когда появляется потребность внести изменения в табличную часть Товары документов Заказ клиента и документа Реализация товаров и услуг:

·         добавить товары из других документов

·         изменить цены на процент

·         установить тип цены по виду цен

·         установить новую ставку НДС

·         установить размер скидки

Обработка «Обработка табличной части Товары» в 1С 8 Управление торговлей 11 предназначена для внесения изменений в табличную часть документов Заказ клиента и Реализация товаров и услуг.

Документ Заказ клиента в 1С 8 УТ 11   

2.   Использование Обработки табличной части Товары

При нажатии соответствующей кнопки Изменить в табличной части документов обработка открывает окно заполнения табличной части документа, установка «галочки» позволяет выбирать отдельные строки. Содержит следующие возможности:

Обработка табличной части Товары

·         «Добавить из документа» (из любого документа в 1С 8 УТ 11, содержащего в табличной части номенклатуру). Позволяет выбрать тип документа, затем открывает журнал этих документов. Добавляет строки с номенклатурой из выбранных документов (с сохранением цен, скидок и остальных данных) в окно к исходной номенклатуре, где затем можно выбрать нужные строки и перенести их в исходный документ.

Выбор типа документа в 1С 8 УТ 11

Номенклатура из выбранных документов в окне с исходной номенклатурой в 1С 8 УТ 11

·         «Изменить цены на %»

Установка % ставки в 1С 8 УТ 11


 

Изменение цены на % в колонке «Цена» в 1С 8 УТ 11

·         «Установить цены по типу» (в соответствии с заданными видами цен)

Установка цены по Виду цен в 1С 8 УТ 11

Установить тип цен в одноименной колонке, с заполнением соответствующей цены по товару, в колонке «Цена»

Вид цены в 1С 8 УТ 11

·         «Установить ставку НДС», выбрав ее из соответствующего справочника для установленной Ставки НДС.

Установка ставки НДС в 1С 8 УТ 11

Установка выбранной Ставки НДС производится в одноименной колонке, с заполнением/пересчетом соответствующих сумм НДС по товару, в колонках «Сумма НДС» и «Сумма с НДС».

Ставка НДС в 1С 8 УТ 11

·         «Установить скидку»

Установка скидки в 1С 8 УТ 11

Установка указанного процента Скидки производится в колонке «% руч.» с заполнением/пересчетом соответствующей суммы, в колонке «Сумма руч.».

Установка процента скидки в 1С 8 УТ 11

Выполняется любое выбранное действие в 1С 8.3 УТ 11 после нажатия кнопки «Выполнить», только по выбранной номенклатуре, с установленным признаком в колонке Пометка.

При повторном нажатии кнопки «Выполнить», строчки не задваиваются, а суммируется количество, по заданной/указанной обработке, на каждый последующий клик.

Сохраняем табличную часть при изменении и можем закрывать обработку в 1С 8.3 Управление торговлей 11 и переносить в документ отредактированную табличную часть нажатием кнопки «ОК».

Специалист компании «Кодерлайн»

Владимир Бахтин

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

Получаем объект, табличную часть которого надо изменить. Используем метод ПолучитьОбъект().

Итак, у нас есть табличная часть и есть метод Найти(), который возвращает строку табличной части. Однако при попытке присвоить полю найденной строки какого-либо значения, система выдаёт ошибку.

Выход: изменять строки табличной части в цикле.

Допустим, табличная часть называется «Товары». Она имеет две колонки: «Номенклатура» и «Артикул».

Обходим строки табличной части в цикле и изменяем то, что нам нужно.

Для Каждого СтрокаТабличнойЧасти Из Товары Цикл

	Если СтрокаТабличнойЧасти.Артикул = "0001" Тогда
	
		СтрокаТабличнойЧасти.Артикул = "0123";
		
	КонецЕсли;
	
КонецЦикла; 
Информация о материале
Категория: Программирование 1С

Опубликовано: 20 апреля 2016

  1. Здравствуйте, есть документ «Прием на работу в организацию», в нем в основных начислениях есть начисление «Районный коэффициент», вот у него стоит значение 10, но нужно поставить значение 70, что означает 70%. Поставить нужно абсолютно у всех сотрудников. И вот не получается у меня добраться и изменить до него. пробовал так:

    	ДокПриема = Документы.ПриемНаРаботуВОрганизацию.Выбрать();
    Пока ДокПриема.Следующий() Цикл
    РК = ДокПриема.ОсновныеНачисления.Выгрузить();
    Сообщить(РК.Количество()); //Выводит количество начислений.
    КонецЦикла;
    
    

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

    После изменения я так понимаю, нужно выполнить

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

    Как слепой котенок, и спросить не у кого даже.
    Помогите пожалуйста.


  2. Stack_G

    Offline

    Stack_G
    Опытный в 1С

    Регистрация:
    10 дек 2007
    Сообщения:
    786
    Симпатии:
    2
    Баллы:
    29

    Нужно работать с объектом, а не с выборкой, т.е.:

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

  3. nomad_irk

    Offline

    nomad_irk
    Гуру в 1С

    Регистрация:
    20 окт 2008
    Сообщения:
    9.890
    Симпатии:
    1.030
    Баллы:
    204

    А не проще воспользоваться стандартной ГРУППОВАЯ ОБРАБОТКА СПРАВОЧНИКОВ И ДОКУМЕНТОВ? :)

  4. Я думаю групповая обработка не получится, она четко заменяет то или иное значение реквизита. А поскольку у меня табличная часть, и в табличной части различные виды основных начислений, то мне нужно проверять что за начисление я обрабатываю, если это Районный коэффициент, тогда изменить значение, если нет, то пропустить и смотреть дальше…

  5. Вот Так работает:

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

    Только надо все документы Документы.ПриемНаРаботуВОрганизацию перепровести, иначе в начисления когда к каждому сотруднику захожу в начисления, то все верно отображается 70, а в документе на прием старое значение, нажал на кнопку Ок, открл снова и уже 70, как должно быть.

    Спасибо Stack_G за помощь.


  6. Draco

    Offline

    Draco
    Модераторы
    Команда форума
    Модератор

    Регистрация:
    28 окт 2009
    Сообщения:
    13.722
    Симпатии:
    961
    Баллы:
    204

    Зачем все документы перепроводить.
    ДокументОбъект.<Имя документа> (DocumentObject.<Имя документа>)
    Записать (Write)
    Синтаксис:
    Записать(<Режим записи>, <Режим проведения>)
    Параметры:
    <Режим записи> (необязательный)
    Тип: РежимЗаписиДокумента. Позволяет выбрать один из возможных режимов записи.
    Значение по умолчанию: Запись
    <Режим проведения> (необязательный)
    Тип: РежимПроведенияДокумента. Позволяет выбрать один из возможных режимов проведения.
    Значение по умолчанию: Неоперативный
    Описание:
    Записывает документ в базу данных.
    Примечание:
    Для документов с поддержкой уникальности номеров в процессе записи, если нужно, проверяется уникальность номера.
    Пример:

    Попытка
    НовДокумент.Записать(РежимЗаписиДокумента.Проведение);
    Исключение
    Предупреждение("Невозможно провести документ.");
    КонецПопытки;
    

    для тебя

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

    И вообще
    nomad_irk прав легче Групопй обработкой. Поставить галочку обрабатывать ТЧ и вперед

  7. В общем вот весь код:

    ВыборкаДокПриема = Документы.ПриемНаРаботуВОрганизацию.Выбрать();
    Пока ВыборкаДокПриема.Следующий() Цикл
    ДокОбъект = ВыборкаДокПриема.ПолучитьОбъект();
    Для каждого Стр Из ДокОбъект.ОсновныеНачисления Цикл
    Если Стр.ВидРасчета.Наименование = "Районный коэффициент" Тогда
    Стр.Показатель1=70;
    КонецЕсли;
    КонецЦикла;
    //ДокОбъект.Записать();
    ДокОбъект.Записать(РежимЗаписиДокумента.Проведение);
    КонецЦикла;
    Предупреждение("Обработка успешно выполнена!");
    
    
    

    Всем спасибо.
    По поводу групповой обработки объясните все таки, возможно ли там условия делать? Как уже говорил, мне нужно ставить условие, если ВидРасчета = Районный Коэффициент, то только тогда менять.


  8. nomad_irk

    Offline

    nomad_irk
    Гуру в 1С

    Регистрация:
    20 окт 2008
    Сообщения:
    9.890
    Симпатии:
    1.030
    Баллы:
    204

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

    Попробуйте, понравится :)

    р.s…..имхо, изобретать велосипед полезно ТОЛЬКО в случае самообучения…….

  9. Спасибо за совет. У меня как раз случай обучения, я как знаете из разряда «С 1С работаю недавно» :)
    Вот надо изучать и изучать, а за что взяться не знаю, может посоветуете, с чего начать обучение именно программированию в 1С?
    Поскольку уровень свой сейчас оцениваю, как чуть выше чем нулевой. Могу писать обработки и отчеты, но только почитая форумы или справки какие-нибудь, то есть тяп ляп получается, немножко там, немножко тут, что само по себе не совсем положительно сказывается на понимании.


  10. nomad_irk

    Offline

    nomad_irk
    Гуру в 1С

    Регистрация:
    20 окт 2008
    Сообщения:
    9.890
    Симпатии:
    1.030
    Баллы:
    204

    Настраиваем обработку:

    [​IMG]

    Далее настраиваем отбор:

    [​IMG]

    Далее включаем возможность редактирования всех реквизитов:

    [​IMG]

    Выбираем сам реквизит который хотим изменить:

    [​IMG]

    ну и наконец присваиваем нужное значение реквизиту и нажимаем ВЫПОЛНИТЬ.

    [​IMG]

  11. nomad_irk, спасибо большое даже за скриншоты.


  12. ZoiaKF

    Offline

    ZoiaKF

    Регистрация:
    26 апр 2015
    Сообщения:
    2
    Симпатии:
    0
    Баллы:
    1

    Здравствуйте! Объясните, пожалуйста, в групповой обработке получится в документе обновить цены по справочнику номенклатуры ? БП 1С 8,3, документ Отчет производства за смену, справочник Номенклатур с установленными плановыми ценами, необходимо обновить цены в документе по справочнику. Я помню, что раньше такое было возможно в групповом изменении реквизитов (не помню точное название, а может это было только в УТ).


  13. Draco

    Offline

    Draco
    Модераторы
    Команда форума
    Модератор

    Регистрация:
    28 окт 2009
    Сообщения:
    13.722
    Симпатии:
    961
    Баллы:
    204

    Обычно цена это не реквизит у справонника, а просто вывод на форме элемента данных из регисра сведенйи цены номенклатуры, а цены устанавливаются не в справочнике, а документом установка цен номенклатуры


  14. ZoiaKF

    Offline

    ZoiaKF

    Регистрация:
    26 апр 2015
    Сообщения:
    2
    Симпатии:
    0
    Баллы:
    1

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


  15. Draco

    Offline

    Draco
    Модераторы
    Команда форума
    Модератор

    Регистрация:
    28 окт 2009
    Сообщения:
    13.722
    Симпатии:
    961
    Баллы:
    204

    Ну вопрос спорны. Тогда сразу встает вопрос на какую дату эта цена? в обработке Вы же нигде не указываете,


1C-pro.ru - форум по 1С:Предприятию 7.7, 8.0, 8.1, 8.2, 8.3

Групповая обработка справочников и документов это очень удобный инструмент платформы 1С, предназначенный для массового изменения реквизитов (в том числе дополнительных) в документах, справочниках а также их табличных частях.

Групповое изменение реквизитов в списках документов и списках справочников

Перед тем как искать групповую обработку справочников и и документов, предлагаю вам воспользоваться возможностью редактировать реквизиты документов и справочников которая появилась только в 1С 8.3 на управляемых формах и есть сейчас в большинстве типовых конфигураций.

Заключается она в том, что вы можете находясь прямо в списке документов или списке справочника выделить нужные элементы зажав кнопку «Shift» или «Ctrl» и щелкая по ним мышью. А затем нажать на правую кнопку мыши и в выпавшем меню нажать «Изменить выделенные».

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

Например в конфигурациях УТ 11 и Бухгалтерия 3.0 она находится в меню НСИ и Администрирование/ Обслуживание/ Корректировка данных/ Групповое изменение реквизитов.

Администрирование

Меню Администрирование

Т.е. по сути данная обработка в 1C 8.3 называется «Групповое изменение реквизитов».

Обслуживание

Меню Обслуживание

Как поменять реквизит сразу в нескольких элементах справочника/документах?

Рассмотрим на реальном примере. Смена ставки НДС. Не так давно всем кто использовал ставку НДС 18 % пришлось менять ее на 20 %. У тех кто установил последние обновления, смена ставки произошла автоматически, но не все устанавливают обновления. Ставка НДС в большинстве конфигураций указывается в карточке номенклатуры, т.е. ставка НДС это реквизит справочника номенклатуры, а значит чтобы ее заменить мы можем воспользоваться групповой обработкой. Что нам для этого нужно сделать:

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

    Выбор элементов для изменения

    Выбор справочника

  2. Задаем отбор для элементов которые мы будем менять. Для этого нужно нажать на ссылку «Все элементы», после чего вам откроется окно в котором можно задать параметры отбора. В нашем случае, это все элементы номенклатуры в которых ставка НДС 18 %. Добавим это условие по кнопке «Добавить условие отбора». И нажмем ОК для того чтобы этот отбор применился.

    Отбор

    Условия отбора

  3. Далее нам нужно задать на что мы собираемся поменять данный реквизит. Ищем в таблице реквизитов нужный реквизит, в нашем примере — Ставка НДС. И задаем его новое значение — 20 %.

    Значение реквизита

    Новое значение реквизита

  4. Теперь нам осталось только нажать на кнопку «Изменить реквизиты» и дождаться завершения работы обработки. После чего мы увидим вот такую надпись.

    Реквизиты изменены

    Окончание работы обработки

    Готово, реквизиты изменены. Обработка сэкономила нам кучу времени. Только представьте себе сколько времени вы бы вручную меняли 195 элементов:)

Как поменять (заполнить) значения дополнительного реквизита справочника/документа?

Точно также как и с обычными реквизитами. Рассмотрим на примере. Допустим мы создали дополнительный реквизит «Категория» для номенклатуры. Категория может быть «Стандарт» либо «Расширенный». Реквизит изначально у нас пустой во всей номенклатуре, как же нам быстро его проставить для всех элементов?

  1. Открываем групповую обработку и задаем отбор, который позволит нам вычленить те элементы, для которых мы хотим установить значение доп. реквизита «Стандарт», допустим такие:

    Отбор

    Условия отбора

  2. Далее ищем в списке наш дополнительный реквизит и задаем ему нужное значение:

    Новое значение

    Новое значение доп. реквизита

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

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

Как поменять реквизит в табличной части документа/справочника?

Рассмотрим также на примере — допустим вы что-то перепутали и в течение длительного времени выбирали не ту номенклатуру в документах, как теперь это исправить? Это также можно сделать при помощи групповой обработки. Если вы хотите менять реквизиты в документах или их табличных частях — сначала нужно отменить проведение этих документов, иначе сменить реквизит не удастся.

  1. Открываем обработку. Выбираем тип документов в которых вы хотите поменять номенклатуру. Мы выберем Реализации. После чего рядом с вкладкой реквизиты появятся также и вкладки с табличными частями, которые есть в данных документах.

    Выбор документов

    Выбор типа документов для изменения

  2. Далее мы задаем отбор — отобрать все реализации — где в табличной части Товары наша ошибочно выбранная номенклатура:

    Отбор

    Отбор для табличной части

  3. Нажимаем ОК и на вкладке «Товары» задаем ту номенклатуру на которую нужно заменить.

    Новый реквизит

    Новый реквизит табличной части

  4. Нажимаем «Изменить реквизиты» и дожидаемся окончания работы обработки.
  5. Проводим документы.

Готово — мы поменяли реквизит в табличной части документа и сделали все это автоматически! Если вы хотите узнать какие еще есть обработки, которые могут облегчить вам жизнь, записывайтесь на мой онлайн курс — «Сам себе Программист 1С»).

Понравилась статья? Поделить с друзьями:
  • Заявление чтобы отпроситься с работы на два часа
  • Изменение реквизитов карты для зачисления пенсии
  • Изменение реквизитов поставщика как внести в еис
  • Жилищник теплый стан академика варги часы работы
  • Жилищник фили давыдково пивченкова 7 часы работы