Описание функции поиска - Разработка прикладного программного обеспечения для бронирования туристических услуг и автоматизации рабочего места специалиста по туризму

Для эффективной работы, конфигурация должна иметь хорошую поисковую систему для подбора тура по ключевым параметрам. Листинг данной функции приведен ниже.

Перем СпрТуры;

Перем СпрОтели;

Перем Класс;

//*******************************************

Процедура Выполнить()

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

//*******************************************

Функция ОтборПоСтоимости()

Если СтоимостьМакс = 0 Тогда

Если (СпрТуры. Стоимость > СтоимостьМин) Тогда Возврат 1;

Иначе Возврат 0;

КонецЕсли;

Иначе

Если (СпрТуры. Стоимость > СтоимостьМин) И (СпрТуры. Стоимость < СтоимостьМакс) Тогда Возврат 1;

Иначе Возврат 0;

КонецЕсли;

КонецЕсли;

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

Функция ОтборПоДате()

Если Число(ДатаДо)=0 Тогда

Если (СпрТуры. ДатаОтъезда > ДатаОт) Тогда Возврат 1;

Иначе Возврат 0;

КонецЕсли;

Иначе

Если (СпрТуры. ДатаОтъезда > ДатаОт) И (СпрТуры. ДатаОтъезда < ДатаДо) Тогда Возврат 1;

Иначе Возврат 0;

КонецЕсли;

КонецЕсли;

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

Функция ОтборПоСтране()

Если ВыбСтрана. Выбран()=1 Тогда

Если СпрТуры. Страна = ВыбСтрана Тогда Возврат 1;

Иначе Возврат 0;

КонецЕсли;

Иначе Возврат 1;

КонецЕсли;

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

Функция ОтборПоПитанию()

Если ВыбПитание. Выбран()=1 Тогда

Если СпрТуры. ВидПитания = ВыбПитание Тогда Возврат 1;

Иначе Возврат 0;

КонецЕсли;

Иначе Возврат 1;

КонецЕсли;

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

Функция ОтборПоТранспорту()

Если ВыбТранспорт. Выбран()=1 Тогда

Если СпрТуры. Транспорт = ВыбТранспорт Тогда Возврат 1;

Иначе Возврат 0;

КонецЕсли;

Иначе Возврат 1;

КонецЕсли;

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

//*******************************************

Процедура ПодборТура()

ТаблТуры. УдалитьСтроки();

СпрТуры. ВыбратьЭлементы();

Пока СпрТуры. ПолучитьЭлемент() = 1 Цикл

Если (ОтборПоСтоимости()=1) И (ОтборПоДате()=1) И (ОтборПоТранспорту()=1) И (ОтборПоСтране()=1) И (ОтборПоПитанию()=1) Тогда

ТаблТуры. НоваяСтрока();

ТаблТуры. Наим = СпрТуры. ПолучитьАтрибут("Наименование");

ТаблТуры. Стоимость = СпрТуры. ПолучитьАтрибут("Стоимость");

ТаблТуры. ДатаОтъезда = СпрТуры. ПолучитьАтрибут("ДатаОтъезда");

ТаблТуры. Страна = СпрТуры. ПолучитьАтрибут("Страна");

ТаблТуры. Питание = СпрТуры. ПолучитьАтрибут("ВидПитания");

ТаблТуры. Транспорт = СпрТуры. ПолучитьАтрибут("Транспорт");

ТаблТуры. Продолжительность = СпрТуры. ПолучитьАтрибут("Продолжительность");

ТаблТуры. ОтправлениеОт = СпрТуры. ПолучитьАтрибут("ОтправлениеОт");

КонецЕсли;

КонецЦикла;

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

//*******************************************

СпрТуры = СоздатьОбъект("Справочник. Туры");

ТаблТуры. НоваяКолонка("Наим",,,,"Название тура");

ТаблТуры. НоваяКолонка("Стоимость",,,,"Стоимость",15);

ТаблТуры. НоваяКолонка("ДатаОтъезда",,,,"Дата отъезда",15);

ТаблТуры. НоваяКолонка("Страна",,,,"Страна",15);

ТаблТуры. НоваяКолонка("Питание",,,,"Питание",15);

ТаблТуры. НоваяКолонка("Транспорт",,,,"Транспорт",15);

ТаблТуры. НоваяКолонка("Продолжительность",,,,"Продолжительность",15);

ТаблТуры. НоваяКолонка("ОтправлениеОт",,,,"Отправление от",15);

Похожие статьи




Описание функции поиска - Разработка прикладного программного обеспечения для бронирования туристических услуг и автоматизации рабочего места специалиста по туризму

Предыдущая | Следующая