Разработка программы для администратора спорткомплекса

 

//Поиск по автору

Если пФлажок2 Тогда

Если НЕ ПустаяСтрока(ПАвтор) Тогда

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

| Автор.Ссылка Как СсылкаСпрАвтор,

|  Автор.Наименование

|ИЗ

| Справочник.Автор КАК Автор

|ГДЕ 

| Автор.Наименование ПОДОБНО &НаимПредпр");

Запрос.УстановитьПараметр("НаимПредпр","%"+СокрЛП(ПАвтор)+"%");

 

ТабличноеПолеПоиск.Отбор.Автор.ВидСравнения = ВидСравнения.ВСписке;

ТабличноеПолеПоиск.Отбор.Автор.Использование = Истина;

 

СписокОтбора = Новый СписокЗначений;

        ВыбСпрАвтор  = Запрос.Выполнить().Выбрать();

Пока ВыбСпрАвтор.Следующий() Цикл

СписокОтбора.Добавить(ВыбСпрАвтор.СсылкаСпрАвтор);

ТабличноеПолеПоиск.Отбор.Автор.Значение = СписокОтбора;

КонецЦикла;

КонецЕсли;

    КонецЕсли; 

 

//Поиск по Издательству

 Если пФлажок3 Тогда

Если НЕ ПустаяСтрока(ПИздательства) Тогда

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

| Издательства.Ссылка Как СсылкаСпрИздательства,

|  Издательства.Наименование

|ИЗ

| Справочник.Издательства КАК Издательства

|ГДЕ 

| Издательства.Наименование ПОДОБНО &НаимПредпр");

Запрос.УстановитьПараметр("НаимПредпр","%"+СокрЛП(ПИздательства)+"%");

ТабличноеПолеПоиск.Отбор.Издательства.ВидСравнения = ВидСравнения.ВСписке;

ТабличноеПолеПоиск.Отбор.Издательства.Использование = Истина;

СписокОтбора = Новый СписокЗначений; 

        ВыбСпрИздательства = Запрос.Выполнить().Выбрать();

Пока ВыбСпрИздательства.Следующий() Цикл  СписокОтбора.Добавить(ВыбСпрИздательства.СсылкаСпрИздательства);

ТабличноеПолеПоиск.Отбор.Издательства.Значение = СписокОтбора;

     КонецЦикла;

        КонецЕсли;

    КонецЕсли;

 

// Поиск по ISBN

  Если пФлажок4 Тогда

Если НЕ ПустаяСтрока(ПISBN) Тогда

ТабличноеПолеПоиск.Отбор.ISBN.ВидСравнения = ВидСравнения.Равно;

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

ТабличноеПолеПоиск.Отбор.ISBN.Использование = Истина;

Иначе

 ТабличноеПолеПоиск.Отбор.ISBN.Использование  = Ложь;

КонецЕсли;

КонецЕсли; 

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

 

Процедура ОКнопка3Нажатие(Элемент)

Отчеты.КнигиПоАвторам.ПолучитьФорму().Открыть();

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

 

 

Процедура ОКнопка4Нажатие(Элемент)

Отчеты.КнигиПоИздательствам.ПолучитьФорму().Открыть();

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

 

Процедура Кнопка4Нажатие(Элемент)

 

//Сброс

ТабличноеПолеПоискЧитателя.Отбор.Наименование.Использование = Ложь;

ТабличноеПолеПоискЧитателя.Отбор.НометЧитательскогоБилета.Использование = Ложь;

ТабличноеПолеПоискЧитателя.Отбор.УдостоверенияЛичности.Использование = Ложь;

    ТабличноеПолеПоискЧитателя.Отбор.Адрес.Использование = Ложь;

ТабличноеПолеПоискЧитателя.Отбор.Телефон.Использование = Ложь;

//Поиск по Имени

Если пФлажок5 Тогда

Если НЕ ПустаяСтрока(ПИмя) Тогда

ТабличноеПолеПоискЧитателя.Отбор.Наименование.ВидСравнения = ВидСравнения.Содержит;

ТабличноеПолеПоискЧитателя.Отбор.Наименование.Значение = СокрЛП(ПИмя);

ТабличноеПолеПоискЧитателя.Отбор.Наименование.Использование = Истина;

Иначе

 ТабличноеПолеПоискЧитателя.Отбор.Наименование.Использование  = Ложь;

КонецЕсли;

КонецЕсли;

 

//Поиск по Номеру Читательского  Билета

Если пФлажок6 Тогда

Если НЕ ПустаяСтрока(ПЧБ) Тогда

ТабличноеПолеПоискЧитателя.Отбор.НометЧитательскогоБилета.ВидСравнения = ВидСравнения.Равно;

ТабличноеПолеПоискЧитателя.Отбор.НометЧитательскогоБилета.Значение = ПЧБ;

ТабличноеПолеПоискЧитателя.Отбор.НометЧитательскогоБилета.Использование = Истина;

Иначе  ТабличноеПолеПоискЧитателя.Отбор.НометЧитательскогоБилета.Использование = Ложь;

КонецЕсли;

КонецЕсли;

 

// Поиск по адресу

  Если пФлажок7 Тогда

Если НЕ ПустаяСтрока(ПАдрес) Тогда

ТабличноеПолеПоискЧитателя.Отбор.Адрес.ВидСравнения = ВидСравнения.Содержит;

ТабличноеПолеПоискЧитателя.Отбор.Адрес.Значение = СокрЛП(ПАдрес);

ТабличноеПолеПоискЧитателя.Отбор.Адрес.Использование = Истина;

Иначе

 ТабличноеПолеПоискЧитателя.Отбор.Адрес.Использование  = Ложь;

КонецЕсли;

КонецЕсли;

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

 

Процедура СбросНажатие(Элемент)

пФлажок1 = Ложь;

пФлажок2 = Ложь;

            пФлажок3 = Ложь;

пФлажок4 = Ложь;

ЭлементыФормы.ПISBN.Значение = "";

ЭлементыФормы.ПАвтор.Значение = "";

ЭлементыФормы.ПИздательства.Значение = "";

ЭлементыФормы.ПСодержание.Значение = "";

ТабличноеПолеПоиск.Отбор.Наименование.Использование = Ложь;

ТабличноеПолеПоиск.Отбор.Автор.Использование = Ложь;

ТабличноеПолеПоиск.Отбор.Издательства.Использование = Ложь;

ТабличноеПолеПоиск.Отбор.ISBN.Использование = Ложь;

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

 

Процедура Сброс2Нажатие(Элемент)

пФлажок5 = Ложь;

пФлажок6 = Ложь;

пФлажок7 = Ложь;

ЭлементыФормы.ПИмя.Значение = "";

ЭлементыФормы.ПЧБ.Значение = "";

ЭлементыФормы.ПАдрес.Значение = "";

ТабличноеПолеПоискЧитателя.Отбор.Наименование.Использование = Ложь;

ТабличноеПолеПоискЧитателя.Отбор.НометЧитательскогоБилета.Использование = Ложь;

ТабличноеПолеПоискЧитателя.Отбор.УдостоверенияЛичности.Использование = Ложь;

    ТабличноеПолеПоискЧитателя.Отбор.Адрес.Использование  = Ложь;

ТабличноеПолеПоискЧитателя.Отбор.Телефон.Использование = Ложь;

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

 

Процедура Кнопка5Нажатие(Элемент)

 

// Поиск Читателя

Если НЕ ПустаяСтрока(ПВыдачаКниг) Тогда

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

| Читатели.Ссылка Как СсылкаСпрЧитатели,

|  Читатели.Наименование

|ИЗ

| Справочник.Читатели КАК Читатели

|ГДЕ 

| Читатели.Наименование ПОДОБНО &НаимПредпр");

 

Запрос.УстановитьПараметр("НаимПредпр","%"+СокрЛП(ПВыдачаКниг)+"%");

 

ТабличноеПолеВыдачаКниг.Отбор.Читатели.ВидСравнения = ВидСравнения.ВСписке;

ТабличноеПолеВыдачаКниг.Отбор.Читатели.Использование = Истина;

 

СписокОтбора = Новый СписокЗначений;

 

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

Пока ВыбСпрЧитатели.Следующий() Цикл

СписокОтбора.Добавить(ВыбСпрЧитатели.СсылкаСпрЧитатели);

 

ТабличноеПолеВыдачаКниг.Отбор.Читатели.Значение = СписокОтбора;

     КонецЦикла;

        КонецЕсли;  

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

 

Процедура Сброс3Нажатие(Элемент)

ЭлементыФормы.ПВыдачаКниг.Значение = "";

ТабличноеПолеВыдачаКниг.Отбор.Читатели.Использование = Ложь;

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

 

 

Процедура ПриОткрытии()

ГлКнопка1Нажатие(ЭлементыФормы.ГлКнопка1)

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

 

 

Процедура ВыдатьКнигуНажатие(Элемент)

НовыйДокумент = Документы.УчетВыдачВозвратов.СоздатьДокумент();

НовыйДокумент.Заполнить(ЭлементыФормы.ТабличноеПолеПоискЧитателя.ТекущиеДанные.Ссылка);

ФормаДок = НовыйДокумент.ПолучитьФорму();

ФормаДок.ПараметрОснование = ЭлементыФормы.ТабличноеПолеПоискЧитателя.ТекущиеДанные.Ссылка;

ФормаДок.Открыть();

 

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

 

Процедура Кнопка1Нажатие(Элемент)

Отчеты.ВыданныеКниги.ПолучитьФорму().Открыть();

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

 

 

Процедура КнопкаВыдачаКниги2Нажатие(Элемент)

 

НовыйДокумент = Документы.УчетВыдачВозвратов.СоздатьДокумент();

НовыйДокумент.Заполнить(ЭлементыФормы.ТабличноеПолеПоискЧитателя.ТекущиеДанные.Ссылка);

ФормаДок = НовыйДокумент.ПолучитьФорму();

ФормаДок.ПараметрОснование = ЭлементыФормы.ТабличноеПолеПоискЧитателя.ТекущиеДанные.Ссылка;

ФормаДок.Открыть();

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

 

 

Процедура ПСодержаниеПриИзменении(Элемент)

Если НЕ ПустаяСтрока(Элемент.Значение) Тогда

пФлажок1 = Истина;

Иначе

пФлажок1 = Ложь;

КонецЕсли; 

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