Архивы удаление из табличной части

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с, удаление из табличной части

Удаление не нужных записей из табличной части 1С

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

Задача: выставить верное количество остатков на складе. Удалить из табличной части строки с нулевым количеством.

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

для каждого стр из НоменклатураДляПодбора цикл

Запрос = Новый Запрос("ВЫБРАТЬ

| ТоварыНаСкладахОстатки.КоличествоОстаток,

| ТоварыНаСкладахОстатки.Номенклатура

|ИЗ

| РегистрНакопления.ТоварыНаСкладах.Остатки(&Период, ) КАК ТоварыНаСкладахОстатки

|ГДЕ

| ТоварыНаСкладахОстатки.Склад = &Склад

| И ТоварыНаСкладахОстатки.Номенклатура = &Номенклатура");

Запрос.УстановитьПараметр("Склад",СтруктураИсходныхПараметров["Склад"]);

Запрос.УстановитьПараметр("Номенклатура",стр.Номенклатура);

Запрос.УстановитьПараметр("Период",ТекущаяДата());

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

такиостаток=0;

пока Результат.Следующий() цикл

такиостаток=Результат.КоличествоОстаток;

конеццикла;

стр.КоличествоСвободныйОстаток=такиостаток;

конеццикла;

СтрокиКУдалению = НоменклатураДляПодбора.НайтиСтроки(Новый Структура("КоличествоСвободныйОстаток",0));

Для каждого СтрокаТаблицы Из СтрокиКУдалению Цикл

НоменклатураДляПодбора.Удалить(СтрокаТаблицы);

КонецЦикла;

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

Пн	Вт	Ср	Чт	Пт	Сб	Вс
				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