Архивы 1C - Страница 20 из 46

1C: Правильное удаление элементов из таблицы значений

04.09.2020 Павел Грибов 1C

Некоторые пытаются сделать так:

			 для каждого стр из док.Начисления цикл
			     если стр.ВидНачисления=справочники.vscВидыНачислений.НайтиПоКоду("000000048") и стр.ТипРасчета<>перечисления.vscТипРасчетаКомУслуг.ПерерасчетПредыдущихПериодов тогда
			    	  док.Начисления.удалить(стр);
			    	  продолжить;
			     конецесли;	 
			     если стр.ВидНачисления=справочники.vscВидыНачислений.НайтиПоКоду("000000058") и стр.ТипРасчета<>перечисления.vscТипРасчетаКомУслуг.ПерерасчетПредыдущихПериодов тогда
			    	 	док.Начисления.удалить(стр);
			    		продолжить;
			     конецесли;	 
			     если стр.ВидНачисления=справочники.vscВидыНачислений.НайтиПоКоду("000010010") и стр.ТипРасчета<>перечисления.vscТипРасчетаКомУслуг.ПерерасчетПредыдущихПериодов тогда
			    	 	док.Начисления.удалить(стр);
			    		продолжить;
			     конецесли;	 				 
			 конеццикла;

для каждого стр из док.Начисления цикл

если стр.ВидНачисления=справочники.vscВидыНачислений.НайтиПоКоду("000000048") и стр.ТипРасчета<>перечисления.vscТипРасчетаКомУслуг.ПерерасчетПредыдущихПериодов тогда

док.Начисления.удалить(стр);

продолжить;

конецесли;

если стр.ВидНачисления=справочники.vscВидыНачислений.НайтиПоКоду("000000058") и стр.ТипРасчета<>перечисления.vscТипРасчетаКомУслуг.ПерерасчетПредыдущихПериодов тогда

док.Начисления.удалить(стр);

продолжить;

конецесли;

если стр.ВидНачисления=справочники.vscВидыНачислений.НайтиПоКоду("000010010") и стр.ТипРасчета<>перечисления.vscТипРасчетаКомУслуг.ПерерасчетПредыдущихПериодов тогда

док.Начисления.удалить(стр);

продолжить;

конецесли;

конеццикла;

Т.е. перебирают всю таблицу и по условию удаляют это строчку. И это совершенноне верно! При таком удалении, если строчки которые нужно удалить идут «вподряд», идет «перескок» и строка не удаляется. Правильно удалять с отборами:

			    СтруктураОтбора = Новый Структура();
				СтруктураОтбора.Вставить("ВидНачисления", справочники.vscВидыНачислений.НайтиПоКоду("000000048"));
				СтруктураОтбора.Вставить("ТипРасчета", перечисления.vscТипРасчетаКомУслуг.НачислениеЗаРасчетныйПериод);
			 	МассивСтрок = док.Начисления.НайтиСтроки(СтруктураОтбора);
				Для Каждого ЭлементМассив Из МассивСтрок Цикл
					док.Начисления.Удалить(ЭлементМассив); //удаляем строки
				КонецЦикла; 
			    СтруктураОтбора = Новый Структура();
				СтруктураОтбора.Вставить("ВидНачисления", справочники.vscВидыНачислений.НайтиПоКоду("000000058"));
				СтруктураОтбора.Вставить("ТипРасчета", перечисления.vscТипРасчетаКомУслуг.НачислениеЗаРасчетныйПериод);
			 	МассивСтрок = док.Начисления.НайтиСтроки(СтруктураОтбора);
				Для Каждого ЭлементМассив Из МассивСтрок Цикл
					док.Начисления.Удалить(ЭлементМассив); //удаляем строки
				КонецЦикла; 
			    СтруктураОтбора = Новый Структура();
				СтруктураОтбора.Вставить("ВидНачисления", справочники.vscВидыНачислений.НайтиПоКоду("000010010"));
				СтруктураОтбора.Вставить("ТипРасчета", перечисления.vscТипРасчетаКомУслуг.НачислениеЗаРасчетныйПериод);
			 	МассивСтрок = док.Начисления.НайтиСтроки(СтруктураОтбора);
				Для Каждого ЭлементМассив Из МассивСтрок Цикл
					док.Начисления.Удалить(ЭлементМассив); //удаляем строки
				КонецЦикла;

СтруктураОтбора = Новый Структура();

СтруктураОтбора.Вставить("ВидНачисления", справочники.vscВидыНачислений.НайтиПоКоду("000000048"));

СтруктураОтбора.Вставить("ТипРасчета", перечисления.vscТипРасчетаКомУслуг.НачислениеЗаРасчетныйПериод);

МассивСтрок = док.Начисления.НайтиСтроки(СтруктураОтбора);

Для Каждого ЭлементМассив Из МассивСтрок Цикл

док.Начисления.Удалить(ЭлементМассив); //удаляем строки

КонецЦикла;

СтруктураОтбора = Новый Структура();

СтруктураОтбора.Вставить("ВидНачисления", справочники.vscВидыНачислений.НайтиПоКоду("000000058"));

СтруктураОтбора.Вставить("ТипРасчета", перечисления.vscТипРасчетаКомУслуг.НачислениеЗаРасчетныйПериод);

МассивСтрок = док.Начисления.НайтиСтроки(СтруктураОтбора);

Для Каждого ЭлементМассив Из МассивСтрок Цикл

док.Начисления.Удалить(ЭлементМассив); //удаляем строки

КонецЦикла;

СтруктураОтбора = Новый Структура();

СтруктураОтбора.Вставить("ВидНачисления", справочники.vscВидыНачислений.НайтиПоКоду("000010010"));

СтруктураОтбора.Вставить("ТипРасчета", перечисления.vscТипРасчетаКомУслуг.НачислениеЗаРасчетныйПериод);

МассивСтрок = док.Начисления.НайтиСтроки(СтруктураОтбора);

Для Каждого ЭлементМассив Из МассивСтрок Цикл

док.Начисления.Удалить(ЭлементМассив); //удаляем строки

КонецЦикла;

Пусть более громоздко, но зато работает верно. Можно еще покопать в строну использования «И и ИЛИ» в отборах. Будет короче. Не стал

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

Регистр не попадает в меню перейти

01.09.2020 Павел Грибов 1C

А именно вот сюда, после добавления нового регистратора у документа:

Возможно кому-то сэкономит минуту времени. Это глюк платформы 1С, как минимум 8.3.16.1502 и ниже. Достаточно выйти из конфигуратора и зайти снова, и регистр появится.

Оставить комментарий 1с, глюк

Полезности при работе в конфигураторе 1С

28.08.2020 Павел Грибов 1C

Не все о них знают, работая в конфигураторе много лет. Сам о них узнал совсем недавно 😉

Закладки. Они есть. По горячим клавишам Alt-F2 установить и F2 — ходить по ним. Не очень конечно удобно, но хотяб так..
В «штатной» настройке конфигуратор группирует только процедуры — функции. И я несколько лет думал что «вот убогий конфигуратор». Ан нет, просто я не потыкал настройки:

Оставить комментарий 1с, конфигуратор, удобства

Ошибка преобразования данных XDTO, управляемые формы

25.08.2020 Павел Грибов 1C

При передаче данных какого-то документа или справочника из клиента на сервер, иногда возникает ошибка вида:

Ошибка передачи данных между клиентом и сервером. Значение недопустимого типа.
по причине:
Ошибка преобразования данных XDTO:

Ошибка передачи данных между клиентом и сервером. Значение недопустимого типа.

по причине:

Ошибка преобразования данных XDTO:

Фактически это означает, что сериализатор 1С не смог преобразовать данные в доступный для передачи вид. Скорее всего в справочнике есть таблица значений. Что делать?

А всё просто — передадим на сервер уникальный идентификатор, а уж на сервер «восстановим» по нему объект:

&НаСервере
Функция ДобавитьТУВетвьНаСервере(ИмяВетви,ВидНачисленияВетви,РодительОТУ);
...
	данные=Справочники.ВидыНачислений.ПолучитьСсылку(Новый УникальныйИдентификатор(ВидНачисленияВетви));
...
КонецФункции
&НаКлиенте
Процедура СоздатьТочкиУчетаВеткиНачислений(СтрокиДерева,родительОТУ)
...
 ТУВетвь=ДобавитьТУВетвьНаСервере(элемента.Наименование,элемента.ВидНачисления.УникальныйИдентификатор(),родительОТУ);
...
КонецПроцедуры

&НаСервере

Функция ДобавитьТУВетвьНаСервере(ИмяВетви,ВидНачисленияВетви,РодительОТУ);

...

данные=Справочники.ВидыНачислений.ПолучитьСсылку(Новый УникальныйИдентификатор(ВидНачисленияВетви));

...

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

&НаКлиенте

Процедура СоздатьТочкиУчетаВеткиНачислений(СтрокиДерева,родительОТУ)

...

ТУВетвь=ДобавитьТУВетвьНаСервере(элемента.Наименование,элемента.ВидНачисления.УникальныйИдентификатор(),родительОТУ);

...

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

Оставить комментарий 1с, server, клиент, ошибка xdto, передача данных

1С: добавление в дерево на форме элемента перетаскиванием с другой таблице на форме

24.08.2020 Павел Грибов 1C

Собственно обрабатывать нужно событие «перетаскивание» на форме:

&НаКлиенте
Процедура ДеревоРасчетаФормаПеретаскивание(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка, Строка, Поле)	
	для каждого тз из    ПараметрыПеретаскивания.Значение цикл
		ПараметрыПеретаскивания.Действие=ДействиеПеретаскивания.Отмена;
			сообщить("Тащу узел учета: "+тз.Наименование+", в "+строка);
			ДобавитьВДеревоНаКлиентеУзел(ДеревоРасчетаФорма.ПолучитьЭлементы(),строка,тз);
	конеццикла;	
КонецПроцедуры

&НаКлиенте

Процедура ДеревоРасчетаФормаПеретаскивание(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка, Строка, Поле)

для каждого тз из ПараметрыПеретаскивания.Значение цикл

ПараметрыПеретаскивания.Действие=ДействиеПеретаскивания.Отмена;

сообщить("Тащу узел учета: "+тз.Наименование+", в "+строка);

ДобавитьВДеревоНаКлиентеУзел(ДеревоРасчетаФорма.ПолучитьЭлементы(),строка,тз);

конеццикла;

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

,где в

ПараметрыПеретаскивания.Значение — собственно что именно перетащилось
ПараметрыПеретаскивания.Действие=ДействиеПеретаскивания.Отмена; — что мы сами обработаем результат перетаскивания
Строка — в какую именно строчку тащим в дереве
Поле — в какое поле тащим в дереве

И как добавляем:

&НаКлиенте
Процедура ДобавитьВДеревоНаКлиентеУзел(СтрокиДерева,строка,тз);
	Для каждого элемента  Из СтрокиДерева Цикл                             
             	//Сообщить(элемента.Наименование+"/"+элемента.ПолучитьИдентификатор());
				если строка=элемента.ПолучитьИдентификатор() тогда
					тс       = ДеревоРасчетаФорма.НайтиПоИдентификатору(элемента.ПолучитьИдентификатор());
					НоваяСтрокаДерева   = тс.ПолучитьЭлементы().Добавить();
					НоваяСтрокаДерева.Наименование=тз.Наименование;
					НоваяСтрокаДерева.ВидНачисления=тз.ВидНачисления;
				конецесли;	
             	ВложенныеСтроки = элемента.ПолучитьЭлементы();  
             	Если ВложенныеСтроки.Количество() > 0 Тогда                   	
                         	ДобавитьВДеревоНаКлиентеУзел(ВложенныеСтроки,строка,тз);           	
             	КонецЕсли;
  	КонецЦикла;	
КонецПроцедуры

&НаКлиенте

Процедура ДобавитьВДеревоНаКлиентеУзел(СтрокиДерева,строка,тз);

Для каждого элемента Из СтрокиДерева Цикл

//Сообщить(элемента.Наименование+"/"+элемента.ПолучитьИдентификатор());

если строка=элемента.ПолучитьИдентификатор() тогда

тс = ДеревоРасчетаФорма.НайтиПоИдентификатору(элемента.ПолучитьИдентификатор());

НоваяСтрокаДерева = тс.ПолучитьЭлементы().Добавить();

НоваяСтрокаДерева.Наименование=тз.Наименование;

НоваяСтрокаДерева.ВидНачисления=тз.ВидНачисления;

конецесли;

ВложенныеСтроки = элемента.ПолучитьЭлементы();

Если ВложенныеСтроки.Количество() > 0 Тогда

ДобавитьВДеревоНаКлиентеУзел(ВложенныеСтроки,строка,тз);

КонецЕсли;

КонецЦикла;

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

Оставить комментарий 1с, перетаскивание, работа с деревом

« 1 … 18 19 20 21 22 … 46 »

Пн	Вт	Ср	Чт	Пт	Сб	Вс
						1
2	3	4	5	6	7	8
9	10	11	12	13	14	15
16	17	18	19	20	21	22
23	24	25	26	27	28	29
30	31