Обоснование разработки и разработка проекта автоматизации учебного процесса в автошколе

ИмяФайла = ПолноеИмяФайла;

ИмяКаталога = "";

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

// Функция проверяет наличие в строке только цифр

//

// Параметры

// СтрокаПроверки - Строка для проверки только цифр

//

// Возвращаемое значение:

// Булево

Функция ЕстьНеЦифры(Знач СтрокаПроверки) Экспорт

СписокКодовЧисел = Новый СписокЗначений;

Для а = 48 По 57 Цикл

СписокКодовЧисел.Добавить(а);

КонецЦикла;

СтрокаПроверки = СокрЛП(СтрокаПроверки);

Если ТипЗнч(СтрокаПроверки) <> Тип("Строка") Тогда

Возврат Истина;

Иначе

Для а = 1 По СтрДлина(СтрокаПроверки) Цикл

Если СписокКодовЧисел.НайтиПоЗначению(КодСимвола(Сред(СтрокаПроверки, а, 1))) = Неопределено Тогда

Возврат Истина;

КонецЕсли;

КонецЦикла;

КонецЕсли;

Возврат Ложь;

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

// Функция проверяет наличие в строке только цифр

//

// Параметры

// СтрокаПроверки - Строка для проверки только цифр

//

// Возвращаемое значение:

// Булево

Функция ТолькоЦифрыВСтроке(Знач СтрокаПроверки, УчитыватьЛидирующиеНули = Истина, УчитыватьПробелы = Истина) Экспорт

Если ТипЗнч(СтрокаПроверки) <> Тип("Строка") Тогда

Возврат Ложь;

КонецЕсли;

Если ЗначениеНеЗаполнено(СтрокаПроверки) Тогда

Возврат Истина;

КонецЕсли;

Если НЕ УчитыватьПробелы Тогда

СтрокаПроверки = СтрЗаменить(СтрокаПроверки, " ", "");

КонецЕсли;

Если НЕ УчитыватьЛидирующиеНули Тогда

НомерПервойЦифры = 0;

Для а = 1 По СтрДлина(СтрокаПроверки) Цикл

НомерПервойЦифры = НомерПервойЦифры + 1;

КодСимвола = КодСимвола(Сред(СтрокаПроверки, а, 1));

Если КодСимвола <> 48 Тогда

Прервать;

КонецЕсли;

КонецЦикла;

СтрокаПроверки = Сред(СтрокаПроверки, НомерПервойЦифры);

КонецЕсли;

Для а = 1 По СтрДлина(СтрокаПроверки) Цикл

КодСимвола = КодСимвола(Сред(СтрокаПроверки, а, 1));

Если НЕ (КодСимвола >= 48 И КодСимвола <= 57) Тогда

Возврат Ложь;

КонецЕсли;

КонецЦикла;

Возврат Истина;

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

Отчет.ВедомостьПоБанку.Форма.ФормаОтчета.Форма.Модуль

Процедура ОформитьОтчет()

// установить выбранное пользователет стандартное оформление

Если ЭлементыФормы.ПолеВыбораСтОформление.Значение <> Неопределено Тогда

Построитель.МакетОформления = ПолучитьМакетОформления(ЭлементыФормы.ПолеВыбораСтОформление.Значение);

КонецЕсли;

// получить макет по умолчанию

Построитель.Макет = Неопределено;

Макет = Построитель.Макет;

ОбластьЗаголовка = Макет.Область("Заголовок");

Макет.Область("R"+Строка(ОбластьЗаголовка.Верх+0)+"C1").Текст = "Дата и время печати:" + ТекущаяДата();

// вывести в заголовок период

ДатаС = 0; ДатаПо = 0;

обПолучитьИзОтбораПериод(Построитель, ДатаС, ДатаПо);

Макет.Область("R"+Строка(ОбластьЗаголовка.Верх+1)+"C2").Текст = "Ведомость по банку с " + Строка(ДатаС) + " по " + Строка(ДатаПо);

Настройки = "";

Для Й = 0 По Построитель.Отбор.Количество()-1 Цикл

ПолеОтбора = Построитель.Отбор[Й];

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

Продолжить;

КонецЕсли;

Если ПолеОтбора.ПутьКДанным = "НачалоПериода" Тогда

Продолжить;

КонецЕсли;

Если ПолеОтбора.ПутьКДанным = "КонецПериода" Тогда

Продолжить

КонецЕсли;

Настройка = ПолеОтбора.Представление + " " + ПолеОтбора.ВидСравнения + " " + ПолеОтбора.Значение;

Настройки = Настройки + Настройка + "; ";

КонецЦикла;

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

Макет.Область("R"+Строка(ОбластьЗаголовка.Верх+2)+"C2").Текст = "Настройки: "+Настройки;

КонецЕсли;

// установить ширину колонок

обУстановитьШиринуКолонокОтчета(Макет, "НачОст", 12);

обУстановитьШиринуКолонокОтчета(Макет, "Приход", 12);

обУстановитьШиринуКолонокОтчета(Макет, "Расход", 12);

обУстановитьШиринуКолонокОтчета(Макет, "КонОст", 12);

обУстановитьШиринуКолонокОтчета(Макет, "Фирма", 20);

обУстановитьШиринуКолонокОтчета(Макет, "Склад", 20);

обУстановитьШиринуКолонокОтчета(Макет, "Номенклатура", 25);

обУстановитьШиринуКолонокОтчета(Макет, "Регистратор", 30);

// установить макет

Построитель.Макет = Макет;

// тип расмещения измерений-строк

Если ТипРпазмещенияСтрок = 0 Тогда

Построитель.РазмещениеИзмеренийВСтроках = ТипРазмещенияИзмерений.Отдельно;

ИначеЕсли ТипРпазмещенияСтрок = 1 Тогда

Построитель.РазмещениеИзмеренийВСтроках = ТипРазмещенияИзмерений.Вместе;

ИначеЕсли ТипРпазмещенияСтрок = 2 Тогда

Построитель.РазмещениеИзмеренийВСтроках = ТипРазмещенияИзмерений.ОтдельноИТолькоВИтогах;

КонецЕсли;

// тип размещения измерений-колонок

Если ТипРпазмещенияКолонок = 0 Тогда

Построитель.РазмещениеИзмеренийВКолонках = ТипРазмещенияИзмерений.Отдельно;

ИначеЕсли ТипРпазмещенияКолонок = 1 Тогда

Построитель.РазмещениеИзмеренийВКолонках = ТипРазмещенияИзмерений.Вместе;

ИначеЕсли ТипРпазмещенияКолонок = 2 Тогда

Построитель.РазмещениеИзмеренийВКолонках = ТипРазмещенияИзмерений.ОтдельноИТолькоВИтогах;

КонецЕсли;

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

Процедура КнопкаСформироватьНажатие(Кнопка)

Построитель.ЗаполнениеРасшифровки = ВидЗаполненияРасшифровкиПостроителяОтчета.ЗначенияГруппировок;

ОформитьОтчет();// все оформление построителя

Построитель.Выполнить();// выполнить запрос

// выводим в ТАБ.ДОКУМЕНТ

ТабДок = ЭлементыФормы.ПолеТабличногоДокументаРезультат;

ТабДок.Очистить();

Построитель.Вывести(ТабДок);

ТабДок.ТолькоПросмотр = Истина;

// выводим в ТАБ.ДОКУМЕНТ

Элементыформы.Панель1.ТекущаяСтраница = Элементыформы.Панель1.Страницы[1]; // открыть закладку с отчетом

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

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

СформироватьТекстПостроителя();

обЗаполнитьВариантыСтандартногоОформления(ЭлементыФормы.ПолеВыбораСтОформление.СписокВыбора); // заполнить варианты стандартного оформления

ПолеВыбораСтОформление = СтандартноеОформление.Камень; // стандартное оформление по умолчанию

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

Процедура СформироватьТекстПостроителя()

Текст =

"ВЫБРАТЬ

БанкОстаткиИОбороты.Фирма КАК Фирма,

БанкОстаткиИОбороты.БанковскийСчет КАК Счет,

БанкОстаткиИОбороты.Регистратор КАК Регистратор,

НачалоПериода(Регистратор.Дата, Неделя)КАК Неделя,

НачалоПериода(Регистратор.Дата, Месяц)КАК Месяц,

НачалоПериода(Регистратор.Дата, Квартал)КАК Квартал,

НачалоПериода(Регистратор.Дата, Год)КАК Год,

БанкОстаткиИОбороты.СуммаНачальныйОстаток КАК НачОст,

БанкОстаткиИОбороты.СуммаПриход КАК Приход,

БанкОстаткиИОбороты.СуммаРасход КАК Расход,

БанкОстаткиИОбороты.СуммаКонечныйОстаток КАК КонОст

ИЗ

РегистрНакопления.Банк.ОстаткиИОбороты(,,Регистратор) КАК БанкОстаткиИОбороты

{ИТОГИ ПО Фирма, Счет, Регистратор, Неделя, Месяц, Квартал, Год}

|ИТОГИ

СУММА(СуммаНачальныйОстаток),

СУММА(СуммаПриход),

СУММА(СуммаКонечныйОстаток)

ПО

ОБЩИЕ

";

Построитель.Текст = Текст;

Построитель.ЗаполнитьНастройки(); // автоматически заполнить настройки

// заполняем отбор

Отбор = Построитель.Отбор;

ДоступноеПоле = Построитель.ДоступныеПоля.Найти("НачалоПериода");

Если ДоступноеПоле <> Неопределено Тогда

Если Отбор.Найти(ДоступноеПоле.Имя) = Неопределено Тогда

Отбор.Добавить(ДоступноеПоле.Имя);

КонецЕсли;

Отбор[ДоступноеПоле.Имя].Использование = Истина;

Отбор[ДоступноеПоле.Имя].Значение = НачалоМесяца(ТекущаяДата());

Отбор[ДоступноеПоле.Имя].ВидСравнения = ВидСравнения.Равно;

КонецЕсли;

ДоступноеПоле = Построитель.ДоступныеПоля.Найти("КонецПериода");

Если ДоступноеПоле <> Неопределено Тогда

Если Отбор.Найти(ДоступноеПоле.Имя) = Неопределено Тогда

Отбор.Добавить(ДоступноеПоле.Имя);

КонецЕсли;

Отбор[ДоступноеПоле.Имя].Использование = Истина;

Отбор[ДоступноеПоле.Имя].Значение = КонецМесяца(ТекущаяДата());

Отбор[ДоступноеПоле.Имя].ВидСравнения = ВидСравнения.Равно;

КонецЕсли;

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

Процедура ОсновныеДействияФормыСохранить(Кнопка)

Настройки = Построитель.ПолучитьНастройки(Истина,Истина,Истина,Истина);

обСохранитьНастройки(Настройки);

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

Процедура ОсновныеДействияФормыВосстановить(Кнопка)

Настройки = обВосстановитьНастройки();

Если Настройки <> Неопределено Тогда

Построитель.УстановитьНастройки(Настройки);

КонецЕсли;

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

Отчет.ВедомостьПоКассе.Форма.ФормаОтчета.Форма.Модуль

Процедура ОформитьОтчет()

// установить выбранное пользователет стандартное оформление

Если ЭлементыФормы.ПолеВыбораСтОформление.Значение <> Неопределено Тогда

Построитель.МакетОформления = ПолучитьМакетОформления(ЭлементыФормы.ПолеВыбораСтОформление.Значение);

КонецЕсли;

// получить макет по умолчанию

Построитель.Макет = Неопределено;

Макет = Построитель.Макет;

ОбластьЗаголовка = Макет.Область("Заголовок");

Макет.Область("R"+Строка(ОбластьЗаголовка.Верх+0)+"C1").Текст = "Дата и время печати:" + ТекущаяДата();

// вывести в заголовок период

ДатаС = 0; ДатаПо = 0;

обПолучитьИзОтбораПериод(Построитель, ДатаС, ДатаПо);

Макет.Область("R"+Строка(ОбластьЗаголовка.Верх+1)+"C2").Текст = "Ведомость по кассе с " + Строка(ДатаС) + " по " + Строка(ДатаПо);

Настройки = "";

Для Й = 0 По Построитель.Отбор.Количество()-1 Цикл

ПолеОтбора = Построитель.Отбор[Й];

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

Продолжить;

КонецЕсли;

Если ПолеОтбора.ПутьКДанным = "НачалоПериода" Тогда

Продолжить;

КонецЕсли;

Если ПолеОтбора.ПутьКДанным = "КонецПериода" Тогда

Продолжить

КонецЕсли;

Настройка = ПолеОтбора.Представление + " " + ПолеОтбора.ВидСравнения + " " + ПолеОтбора.Значение;

Настройки = Настройки + Настройка + "; ";

КонецЦикла;

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

Макет.Область("R"+Строка(ОбластьЗаголовка.Верх+2)+"C2").Текст = "Настройки: "+Настройки;

КонецЕсли;

// установить ширину колонок

обУстановитьШиринуКолонокОтчета(Макет, "НачОст", 12);

обУстановитьШиринуКолонокОтчета(Макет, "Приход", 12);

обУстановитьШиринуКолонокОтчета(Макет, "Расход", 12);

обУстановитьШиринуКолонокОтчета(Макет, "КонОст", 12);

обУстановитьШиринуКолонокОтчета(Макет, "Фирма", 20);

обУстановитьШиринуКолонокОтчета(Макет, "Склад", 20);

обУстановитьШиринуКолонокОтчета(Макет, "Номенклатура", 25);

обУстановитьШиринуКолонокОтчета(Макет, "Регистратор", 30);

// установить макет

Построитель.Макет = Макет;

// тип расмещения измерений-строк

Если ТипРпазмещенияСтрок = 0 Тогда

Построитель.РазмещениеИзмеренийВСтроках = ТипРазмещенияИзмерений.Отдельно;

ИначеЕсли ТипРпазмещенияСтрок = 1 Тогда

Построитель.РазмещениеИзмеренийВСтроках = ТипРазмещенияИзмерений.Вместе;

ИначеЕсли ТипРпазмещенияСтрок = 2 Тогда

Построитель.РазмещениеИзмеренийВСтроках = ТипРазмещенияИзмерений.ОтдельноИТолькоВИтогах;

КонецЕсли;

// тип размещения измерений-колонок

Если ТипРпазмещенияКолонок = 0 Тогда

Построитель.РазмещениеИзмеренийВКолонках = ТипРазмещенияИзмерений.Отдельно;

ИначеЕсли ТипРпазмещенияКолонок = 1 Тогда

Построитель.РазмещениеИзмеренийВКолонках = ТипРазмещенияИзмерений.Вместе;

ИначеЕсли ТипРпазмещенияКолонок = 2 Тогда

Построитель.РазмещениеИзмеренийВКолонках = ТипРазмещенияИзмерений.ОтдельноИТолькоВИтогах;

КонецЕсли;

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

Процедура КнопкаСформироватьНажатие(Кнопка)

Построитель.ЗаполнениеРасшифровки = ВидЗаполненияРасшифровкиПостроителяОтчета.ЗначенияГруппировок;

ОформитьОтчет();// все оформление построителя

Построитель.Выполнить();// выполнить запрос

// выводим в ТАБ.ДОКУМЕНТ

ТабДок = ЭлементыФормы.ПолеТабличногоДокументаРезультат;

ТабДок.Очистить();

Построитель.Вывести(ТабДок);

ТабДок.ТолькоПросмотр = Истина;

// выводим в ТАБ.ДОКУМЕНТ

Элементыформы.Панель1.ТекущаяСтраница = Элементыформы.Панель1.Страницы[1]; // открыть закладку с отчетом

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

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

СформироватьТекстПостроителя();

обЗаполнитьВариантыСтандартногоОформления(ЭлементыФормы.ПолеВыбораСтОформление.СписокВыбора); // заполнить варианты стандартного оформления

ПолеВыбораСтОформление = СтандартноеОформление.Камень; // стандартное оформление по умолчанию

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

Процедура СформироватьТекстПостроителя()

Текст =

"ВЫБРАТЬ

КассаОстаткиИОбороты.Фирма КАК Фирма,

КассаОстаткиИОбороты.Касса КАК Касса,

КассаОстаткиИОбороты.Регистратор КАК Регистратор,

НачалоПериода(Регистратор.Дата, Неделя)КАК Неделя,

НачалоПериода(Регистратор.Дата, Месяц)КАК Месяц,

НачалоПериода(Регистратор.Дата, Квартал)КАК Квартал,

НачалоПериода(Регистратор.Дата, Год)КАК Год,

КассаОстаткиИОбороты.СуммаНачальныйОстаток КАК НачОст,

КассаОстаткиИОбороты.СуммаПриход КАК Приход,

КассаОстаткиИОбороты.СуммаРасход КАК Расход,

КассаОстаткиИОбороты.СуммаКонечныйОстаток КАК КонОст

ИЗ

РегистрНакопления.Касса.ОстаткиИОбороты(,,Регистратор) КАК КассаОстаткиИОбороты

{ИТОГИ ПО Фирма, Касса, Регистратор, Неделя, Месяц, Квартал, Год}

ИТОГИ

СУММА(СуммаНачальныйОстаток),

СУММА(СуммаПриход),

СУММА(СуммаРасход),

СУММА(СуммаКонечныйОстаток)

ПО

ОБЩИЕ

";

Построитель.Текст = Текст;

Построитель.ЗаполнитьНастройки(); // автоматически заполнить настройки

// заполняем отбор

Отбор = Построитель.Отбор;

ДоступноеПоле = Построитель.ДоступныеПоля.Найти("НачалоПериода");

Если ДоступноеПоле <> Неопределено Тогда

Если Отбор.Найти(ДоступноеПоле.Имя) = Неопределено Тогда

Отбор.Добавить(ДоступноеПоле.Имя);

КонецЕсли;

Отбор[ДоступноеПоле.Имя].Использование = Истина;

Отбор[ДоступноеПоле.Имя].Значение = НачалоМесяца(ТекущаяДата());

Отбор[ДоступноеПоле.Имя].ВидСравнения = ВидСравнения.Равно;

КонецЕсли;

ДоступноеПоле = Построитель.ДоступныеПоля.Найти("КонецПериода");

Если ДоступноеПоле <> Неопределено Тогда

Если Отбор.Найти(ДоступноеПоле.Имя) = Неопределено Тогда

Отбор.Добавить(ДоступноеПоле.Имя);

КонецЕсли;

Отбор[ДоступноеПоле.Имя].Использование = Истина;

Отбор[ДоступноеПоле.Имя].Значение = КонецМесяца(ТекущаяДата());

Отбор[ДоступноеПоле.Имя].ВидСравнения = ВидСравнения.Равно;

КонецЕсли;

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

Процедура ОсновныеДействияФормыСохранить(Кнопка)

Настройки = Построитель.ПолучитьНастройки(Истина,Истина,Истина,Истина);

обСохранитьНастройки(Настройки);

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

Процедура ОсновныеДействияФормыВосстановить(Кнопка)

Настройки = обВосстановитьНастройки();

Если Настройки <> Неопределено Тогда

Построитель.УстановитьНастройки(Настройки);

КонецЕсли;

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

////////////////////////////////////////////////////////////////////////////////

// ОБРАБОТЧИКИ СОБЫТИЙ

// Обработчик события ПриОткрытии формы.

//

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

Макет = Справочники.КлассификаторЕдиницИзмерения.ПолучитьМакет("КлассификаторЕдиницИзмерения");

Макет.Параметры.Расшифровка = Истина; // чтобы работала расшифровка

ТабличныйДокумент = ЭлементыФормы.ПолеТабличногоДокумента;

ТабличныйДокумент.Очистить();

ТабличныйДокумент.Вывести(Макет);

// пользователю не показываем весовая это или нет единица измерения

ТабличныйДокумент.Области.ВесоваяЕдиница.Очистить();

ТабличныйДокумент.ФиксацияСверху = ТабличныйДокумент.Области.ОбластьРасшифровки.Верх - 1;

ТабличныйДокумент.ОтображатьЗаголовки = Ложь;

ТабличныйДокумент.ОтображатьСетку = Ложь;

ТабличныйДокумент.ТолькоПросмотр = Истина;

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

Размещено на Allbest.ru