найденныестроки » Поиск

Результаты по ключевому слову: найденныестроки

Отправка почты через CDO (работает c SSL) Категория: Работа с Интернет, Почтой (Mail), FTP

Табличная часть ~ Как получить массив строк по условию (отбору)?

Для УП:

Код 1C v 8.3

 

// Отбор на форме

&НаКлиенте

....

ФМ=Новый ФиксированнаяСтруктура("КлючСвязи",Элементы.ДанныеБезКоррекции.ТекущиеДанные.КлючСвязи);

Элементы.СписокПодразделений.ОтборСтрок=ФМ;

Код 1C v 8.3

 //Функция получает записи табличной части согласно установленному отбору

Функция ПолучитьЗаписиСогласноОтбору(ТабличноеПолеИсточник)



ОтборСтрок = ТабличноеПолеИсточник.ОтборСтрок;

ПостроительЗапроса = Новый ПостроительЗапроса;

ПостроительЗапроса.ИсточникДанных = Новый ОписаниеИсточникаДанных(ТабличноеПолеИсточник.Значение); 

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

Если ЭлементОтбора.Использование Тогда

НовыйОтбор = ПостроительЗапроса.Отбор.Добавить(ЭлементОтбора.Имя);        

НовыйОтбор.Использование = Истина;         

НовыйОтбор.ВидСравнения = ЭлементОтбора.ВидСравнения;       

НовыйОтбор.ЗначениеС = ЭлементОтбора.ЗначениеС;        

НовыйОтбор.ЗначениеПо = ЭлементОтбора.ЗначениеПо;        

НовыйОтбор.Значение = ЭлементОтбора.Значение;     

КонецЕсли;

КонецЦикла;





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

МассивСтрок = Новый Массив;

Для Каждого Стр ИЗ Таблица Цикл

СтруктураПоиска = Новый Структура;

Для Каждого Колонка Из Таблица.Колонки Цикл

СтруктураПоиска.Вставить(Колонка.Имя, Стр[Колонка.Имя]);

КонецЦикла;

НайденыеСтроки = ТабличноеПолеИсточник.Значение.НайтиСтроки(СтруктураПоиска);

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

МассивСтрок.Добавить(НайденыеСтроки[0]);

КонецЕсли;

КонецЦикла;



Возврат МассивСтрок;



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

Для Обычных форм:

Код 1C v 8.х

 ПараметрыОтбора = Новый Структура;

	ПараметрыОтбора.Вставить("ДокСсылка", ДанныеПоШК.Объект);

	НайденныеСтроки = ПакетДокументов.НайтиСтроки(ПараметрыОтбора);



// Подробнее

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

ПакетДокументов 		 = ЗадачаОбъект.ПакетДокументов;

МассивСтрок				 = ПакетДокументов.НайтиСтроки(СтруктураОтбора);

Если МассивСтрок.Количество() Тогда

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

		СтрокаМассива.ДобавленоПользователем = Истина;

		СтрокаМассива.Пользователь           = ПараметрыСеанса.ТекущийПользователь;

		СтрокаМассива.ДатаВремя				 = ТекущаяДата();

	КонецЦикла;

КонецЕсли;



//или

ТЧ = ПромежуточнаяНакладная.Выгрузить();

		ТЧ.Свернуть("СхемаПродажи");

		СтрокаСПустойСП = ТЧ.НайтиСтроки(Новый Структура("СхемаПродажи", Справочники.СхемыПродаж.ПустаяСсылка()));

		

		Если ТЧ.Количество() - СтрокаСПустойСП.Количество() > 1 Тогда

			Если Вопрос("Сбросить все схемы в строках?", РежимДиалогаВопрос.ДаНет) = КодВозвратаДиалога.Нет Тогда

				НесколькоСхем = Истина;

				Возврат;

			КонецЕсли;

		КонецЕсли;

		

		Для каждого СтрокаПН из ПромежуточнаяНакладная Цикл

			Если СтрокаПН.Номенклатура.ВидНоменклатуры.ТипНоменклатуры <> Перечисления.ТипыНоменклатуры.Услуга Тогда

				СтрокаПН.СхемаПродажи = СхемаПродажи;

			КонецЕсли;

	КонецЦикла;

Категория: Работа с Формой (Диалог) и её элементами

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

Двумя способами: объектным и запросом

Код 1C v 8.х

 ТЗ = Новый ТаблицаЗначений;

ТЗ.Колонки.Добавить("Наименование", Новый ОписаниеТипов("Число"));

ТЗ.Колонки.Добавить("Серия", Новый ОписаниеТипов("Число"));



НоваяСтрока = ТЗ.Добавить();



// Номенклатура 1

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

НоваяСтрока.Серия = 456;



НоваяСтрока = ТЗ.Добавить();



// Номенклатура 2

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

НоваяСтрока.Серия = 789;



// Ищем объектно

ПараметрыОтбора = Новый Структура;

ПараметрыОтбора.Вставить("Наименование", 123);

ПараметрыОтбора.Вставить("Серия", 789);

НайденныеСтроки = ТЗ.НайтиСтроки(ПараметрыОтбора);

Код 1C v 8.х

 // Ищем запросом

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

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

"ВЫБРАТЬ

|	ВТ_ТаблицаЗначений.Наименование,

|	ВТ_ТаблицаЗначений.Серия

|ПОМЕСТИТЬ ВТ_ТаблицаЗначений

|ИЗ

|	&ТЗ КАК ВТ_ТаблицаЗначений

|;

|

|////////////////////////////////////////////////////////////////////////////////

|ВЫБРАТЬ

|	ВТ_ТаблицаЗначений.Наименование,

|	ВТ_ТаблицаЗначений.Серия

|ИЗ

|	ВТ_ТаблицаЗначений КАК ВТ_ТаблицаЗначений

|ГДЕ

|	ВТ_ТаблицаЗначений.Наименование = &Наименование

|	И ВТ_ТаблицаЗначений.Серия = &Серия";



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

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

Запрос.УстановитьПараметр("Серия", 456);



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

Категория: Работа с Таблицей Значений

Как произвести поиск нескольких строк в "ТаблицаЗначений" по двум и более полям?

Для поиска нескольких строк предназначен метод НайтиСтроки.

В платформе он определен таким образом.

Код 1C v 8.х

 НайтиСтроки( <Параметры_Отбора>)

Где <Параметры_Отбора> представляют структуру, в которой ключ структуры определяет имя колонки, а значение структуры - искомое значение. Возвращает этот метод массив строк ТаблицыЗначений.

Стоит помнить, что массив содержит не копии строк, а ссылки на строки таблицы источника! Т.е. внеся изменения в строку из массива, вы изменяете строки в таблице.

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

Выглядит это примерно вот так:

Код 1C v 8.х

 ТЗРабочихДнейПоГрафику = Новый ТаблицаЗначений;

ТЗРабочихДнейПоГрафику.Колонки.Добавить("месяцИнтервала");

ТЗРабочихДнейПоГрафику.Колонки.Добавить("График");

ТЗРабочихДнейПоГрафику.Колонки.Добавить("РабочихДней");



...



ОтборПоГрафику = Новый Структура;

ОтборПоГрафику.Вставить("месяцИнтервала", СтрокаПериода.МесяцПериода);

ОтборПоГрафику.Вставить("График", Групп_Задача.График);



НайденныеСтроки = ТЗРабочихДнейПоГрафику.НайтиСтроки(ОтборПоГрафику);

Автор: Андрей Окипний

Категория: Работа с Таблицей Значений

Соединение таблиц значений по ключевым полям

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

Сделал функцию которая объеденяет 2 таблицы в одну, на подобии полного соединения в запросе.

Код 1C v 8.х

  // ТЗ1 - первая Таблица значений

// ТЗ2 - вторая Таблица значений

// KEYт_str - колонки по которым происходит объединение, пример:  "номенклатура" или "номенклатура,ЕдИзм"



Функция ПОЛНОЕ_СОЕДИНЕНИЕ(ТЗ1,ТЗ2,KEYт_str)

ТЗ = новый ТаблицаЗначений;

//---------------------------------------------

// разбор ключевых колонок в масив

//---------------------------------------------

str = "" + KEYт_str; // Копирование исходной строки

KEYт_mas = новый Массив;

str = СтрЗаменить(str,",",Символы.ПС);

Для N=1 по СтрЧислоСтрок(str) Цикл

name = СтрПолучитьСтроку(str,N);

KEYт_mas.Добавить(name);

КонецЦикла;

//---------------------------------------------



//---- проверка на наличие ключевых колонок ---

Для каждого KEYт из KEYт_mas Цикл

Если (ТЗ1.Колонки.Найти(KEYт)=неопределено)

ИЛИ (ТЗ2.Колонки.Найти(KEYт)=неопределено) Тогда

Сообщить("нет ключевой колонки");

возврат неопределено;

КонецЕсли;

КонецЦикла;

//---------------------------------------------



//--- Формируем новую ТЗ из 2х таблиц ---------

Для каждого К Из ТЗ1.Колонки Цикл

// из первой ТЗ берём все колонки

ТЗ.Колонки.Добавить(К.Имя);

КонецЦикла;

Для каждого К Из ТЗ2.Колонки Цикл

// из второй все кроме ключевой

Если KEYт_mas.Найти(К.Имя) <> неопределено тогда

Продолжить;

КонецЕсли;

ТЗ.Колонки.Добавить(К.Имя);

КонецЦикла;

//---------------------------------------------



//----------------------------------------------------

// Заполняем строчки ключей которых НЕТ в ТЗ2

//----------------------------------------------------

Для каждого стр1 Из ТЗ1 Цикл



// Формируем структуру поиска

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

Для каждого KEYт из KEYт_mas Цикл

Отбор.Вставить(KEYт,стр1[KEYт]);

КонецЦикла;



Если ТЗ2.НайтиСтроки(Отбор).Количество() = 0 тогда

стр = ТЗ.Добавить();

// копируем все значения из строчки ТЗ1

Для каждого К Из ТЗ1.Колонки Цикл

стр[К.Имя] = стр1[К.Имя];

КонецЦикла;

КонецЕсли;



КонецЦикла;

//----------------------------------------------------



//----------------------------------------------------

// Заполняем строчки ключи которых ЕСТЬ в ТЗ2

//----------------------------------------------------

Для каждого стр1 Из ТЗ1 Цикл



// Формируем структуру поиска

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

Для каждого KEYт из KEYт_mas Цикл

Отбор.Вставить(KEYт,стр1[KEYт]);

КонецЦикла;



НайденныеСтроки = ТЗ2.НайтиСтроки(Отбор);



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

Для каждого стр2 Из НайденныеСтроки Цикл

//заполняем все колонки

стр = ТЗ.Добавить();

// из ТЗ1

Для каждого К Из ТЗ1.Колонки Цикл

стр[К.Имя] = стр1[К.Имя];

КонецЦикла;

// из ТЗ2

Для каждого К Из ТЗ2.Колонки Цикл

стр[К.Имя] = стр2[К.Имя];

КонецЦикла;

КонецЦикла;



КонецЕсли;



КонецЦикла;

//----------------------------------------------------



//----------------------------------------------------

// Заполняем строчки из ТЗ2 ключей которых НЕТ в ТЗ1

//----------------------------------------------------

Для каждого стр2 Из ТЗ2 Цикл

// Формируем структуру поиска

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

Для каждого KEYт из KEYт_mas Цикл

Отбор.Вставить(KEYт,стр2[KEYт]);

КонецЦикла;



Если ТЗ1.НайтиСтроки(Отбор).Количество() = 0 тогда

стр = ТЗ.Добавить();

// копируем все значения из строчки ТЗ1

Для каждого К Из ТЗ2.Колонки Цикл

стр[К.Имя] = стр2[К.Имя];

КонецЦикла;

КонецЕсли;



КонецЦикла;

//----------------------------------------------------



возврат ТЗ;

КонецФункци

Автор: sashapere

Категория: Работа с Таблицей Значений