имятабчасти » Поиск

Результаты по ключевому слову: имятабчасти

Универсальная процедура проверки на дубли строк в табличной части документа

Код 1C v 8.2 УП

 //Процедура проверяет наличие в ТЧ дублей строк по указанным реквизитам

//ДокументСсылка - ссылка на проверяемый документ

//ИмяТабЧасти    - имя проверяемой табличной части (строка)

//ПроверяемыеРеквизиты - перечень проверяемых реквизитов (строка, реквизиты разделяются запятой) 

 Процедура ПроверимДублиСтрок(ДокументСсылка,ИмяТабЧасти,ПроверяемыеРеквизиты,Отказ)

 

	ТаблицаДокумента = ДокументСсылка[ИмяТабЧасти].Выгрузить();

	ТаблицаДокумента.Колонки.Добавить("КвоПроверкаДублей"); 

	ТаблицаДокумента.ЗаполнитьЗначения(1, "КвоПроверкаДублей");

	

	ТаблицаДокумента.Свернуть(ПроверяемыеРеквизиты,"КвоПроверкаДублей");

	

	Для Каждого ТекущаяСтрока Из ТаблицаДокумента Цикл 

		Если ТекущаяСтрока.КвоПроверкаДублей > 1 Тогда

			РеквизитыДляСообщения = "";

			Стр = СокрЛП(ПроверяемыеРеквизиты);

			Пока Найти(Стр,",") > 0 Цикл

				НаимРеквизита = СокрЛП(Лев(Стр,Найти(Стр,",") - 1));

				Стр = Прав(Стр,СтрДлина(Стр) - Найти(Стр,","));

				РеквизитыДляСообщения = РеквизитыДляСообщения+ТекущаяСтрока[НаимРеквизита]+", ";

			КонецЦикла; 

			РеквизитыДляСообщения = РеквизитыДляСообщения+ТекущаяСтрока[СокрЛП(Стр)];

			

			Сообщить("Информация "+РеквизитыДляСообщения+" введена несколько раз в табличную часть, проведение невозможно!");

			Отказ = Истина;

		КонецЕсли; 

	КонецЦикла;

 

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

Пример обращения к процедуре проверки

Код 1C v 8.2 УП

 // Процедура - обработчик события ОбработкаПроверкиЗаполнения объекта.

//

Процедура ОбработкаПроверкиЗаполнения(Отказ, ПроверяемыеРеквизиты)

		

	Если Запасы.Количество() = 0 Тогда

		Возврат;

	КонецЕсли;

	

	ПроверимДублиСтрок(Ссылка, "Запасы", "Номенклатура, АлгоритмФормированияШК,Регион", Отказ);



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

Да, в списке реквизитов добавленные случайно пробелы игнорируются

Процедуру можно добавить в общий модуль и обращаться к ней из любого документа

Категория: Документы

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

Код 1C v 8.х

 МассивКолонок = Новый Массив;

МассивКолонок.Добавить("Количество");

            

СсылочныеКолонки = Новый Соответствие;

СсылочныеКолонки["Адрес"] = Справочники.АдресаЯчеек.ПустаяСсылка();

СсылочныеКолонки["Товар"] = Справочники.Номенклатура.ПустаяСсылка();

ПроверкаЗаполненияТабличнойЧасти(Ссылка, "Товары", МассивКолонок, СсылочныеКолонки, Отказ);



//выбирает не заполненные строки

//СсылкаНаОбъект - ссылка на проверяемый документ, ИмяТабЧасти - имя проверяемой табличной части,

//СписокКолонок - массив с именами колонок

//СсылочныеКолонки - соответсвие имен колонок и пустых ссылок типов этих колонок

Процедура ПроверкаЗаполненияТабличнойЧасти(СсылкаНаОбъект, ИмяТабЧасти = "Товары", СписокКолонок, СсылочныеКолонки = Неопределено, Отказ = Ложь, Заголовок = "") Экспорт

    

    ИмяДока = СсылкаНаОбъект.Метаданные().Имя;

    

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

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

    

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

                    |    Док.НомерСтроки

                    |ИЗ

                    |    Документ." + ИмяДока + "." + ИмяТабЧасти + " КАК Док

                    |ГДЕ

                    |    Док.Ссылка = &Ссылка И (";

    СтрокаКолонок = "";                

    

    Если СсылочныеКолонки <> Неопределено Тогда 

        

        Для каждого Колонка Из СсылочныеКолонки Цикл

             ТекстЗапроса = ТекстЗапроса + " Док." + Колонка.Ключ + " = &" + Колонка.Ключ + " ИЛИ";

            СтрокаКолонок = СтрокаКолонок + Колонка.Ключ + ", ";

            Запрос.УстановитьПараметр(Колонка.Ключ, Колонка.Значение);

        КонецЦикла; 

        

    КонецЕсли;

    

    Для каждого Колонка Из СписокКолонок Цикл

        ТекстЗапроса = ТекстЗапроса + " Док." + Колонка + " = 0 ИЛИ";

        СтрокаКолонок = СтрокаКолонок + Колонка + ", ";

    КонецЦикла;

    

    ТекстЗапроса = СтрЗаменить(ТекстЗапроса, Колонка + " = 0 ИЛИ", Колонка + " = 0)");

                       

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

    СтрокаСообщения = "Проверка табличной части на заполнение по колонкам: " + СтрокаКолонок;

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

    ЕстьОшибки = Ложь;

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

        

        СтрокаСообщения = СтрокаСообщения  + Символы.ПС

                        + "В строке № " + Формат(Результат.НомерСтроки, "ЧГ=0")

                        + " есть не заполненное значение!";

        ЕстьОшибки = Истина;

        

    КонецЦикла;

    

    Если ЕстьОшибки Тогда 

        СообщитьОбОшибке(СтрокаСообщения, Отказ, Заголовок);

    КонецЕсли;    

                    

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

Категория: Документы