ИС анализа финансовой деятельности предприятия

Выполнить ().Выбрать ();Если Не Выборка. Следующий () Тогда.

СтрРоль = Новый.

Пользователь.Доступные.

Роли.Добавить ();Стр

Роль.Роль = «Администратор» ;Стр

Роль.Отметка = Истина;

Стр

Роль.Роль.

Имя = «Администратор» ;Конец.

Если; Новый.

Пользователь.Записать ();Текущий.

Пользователь = Новый.

Пользователь.Ссылка;

Конец.

Если; Параметры.

Сеанса.Текущий.

Пользователь = Текущий.

Пользователь;

Конец.

ПроцедурыЛистинг 2. Общий модуль «Работа.

СоСправочниками"Функция Розничная.

Цена (Актуальная.

Дата, Элемент.

Номенклатуры) Экспорт // Создать вспомогательный объект Отбор

Отбор = Новый Структура («Товар», Элемент.

Номенклатуры);// Получить актуальные значения ресурсов регистра.

ЗначенияРесурсов = Регистры.

Сведений.Цены.Получить.

Последнее (Актуальная.

Дата, Отбор);Возврат Значения.

Ресурсов.Цена;

Конец.

ФункцииЛистинг 3. Общий модуль «Работа.

СДокументами"Процедура Рассчитать.

Сумму (Строка.

ТабличнойЧасти) Экспорт.

СтрокаТабличной.

Части.Сумма = Строка.

ТабличнойЧасти.Количество*Строка.

ТабличнойЧасти.Цена;

Конец.

ПроцедурыПроцедура Рассчитать.

СуммуРеализация (Строка.

ТабличнойЧасти) Экспорт.

СтрокаТабличной.

Части.Сумма = Строка.

ТабличнойЧасти.Количество*Строка.

ТабличнойЧасти.Цена;

Строка.

ТабличнойЧасти.Сумма.

СоСкидкой = Строка.

ТабличнойЧасти.Количество*Строка.

ТабличнойЧасти.Цена;

Конец.

ПроцедурыПроцедура Рассчитать.

СуммуСкидки (Строка.

ТабличнойЧасти, Скидка) Экспорт.

СтрокаТабличной.

Части.Сумма = Строка.

ТабличнойЧасти.Количество*Строка.

ТабличнойЧасти.Цена;

Сумма.

СоСкидкой = Строка.

ТабличнойЧасти.Количество*Строка.

ТабличнойЧасти.Цена — Окр (Строка.

ТабличнойЧасти.Количество*Строка.

ТабличнойЧасти.Цена*Скидка/100,2,Режим.

Округления.Окр15как20);Строка.

ТабличнойЧасти.Сумма.

СоСкидкой =Сумма.

СоСкидкой;

Конец.

ПроцедурыЛистинг 3. Общий модуль «Полные права"Процедура Создать.

Пользователя (Отказ, Имя.

Пользователя) Экспорт.

ТекущийПользователь = Справочники.Пользователи.Найти.

ПоКоду (Имя.

Пользователя);Если Текущий.

Пользователь = Справочники.Пользователи.Пустая.

Ссылка () Тогда.

ОбъектПользователя = Справочники.Пользователи.Создать.

Элемент ();Объект.

Пользователя.Код = Имя.

Пользователя;

Объект.

Пользователя.Наименование = Имя.

Пользователя;

Попытка.

ОбъектПользователя.Записать ();Текущий.

Пользователь = Объект.

Пользователя.Ссылка;

Исключение Отказ = Истина;#Если Клиент Тогда.

Предупреждение («Пользователя «» «+Имя.

Пользователя+" «» нет в базе данных.", 60); #Конец.

ЕслиВозврат;

Конец.

Попытки;

Конец.

Если; Параметры.

Сеанса.Текущий.

Пользователь = Текущий.

Пользователь;

Конец.

ПроцедурыПроцедура Создать.

ПользователяИБ (Отказ, Структура.

Параметров) Экспорт.

Если Структура.

Параметров.Свойство («Имя.

Было") Тогда.

ПользовательИБ = Пользователи.

ИнформационнойБазы.Найти.

ПоИмени (Структура.

Параметров.Имя.

Было);Иначе.

ПользовательИБ = Пользователи.

ИнформационнойБазы.Найти.

ПоИмени (Структура.

Параметров.Имя.

Пользователя);Конец.

Если;

Записывать = Ложь;

Если Пользователь.

ИБ = Неопределено Тогда.

НовыйПользователь.

ИБ = Пользователи.

ИнформационнойБазы.Создать.

Пользователя ();Новый.

ПользовательИБ.Имя= Структура.

Параметров.Имя.

Пользователя;

Записывать = Истина;

Иначе.

Если Пользователь.

ИБ <> Неопределено Тогда Новый.

ПользовательИБ = Пользователь.

ИБ;Конец.

Если;

Если Структура.

Параметров.Свойство («Роли») Тогда.

НовыйПользователь.

ИБ.Роли.Очистить ();Для каждого Строчка Из Структура.

Параметров.Роли Цикл.

НовыйПользователь.

ИБ.Роли.Добавить (Метаданные.Роли[Строчка]);Записывать = Истина;

Конец.

Цикла; Новый.

ПользовательИБ.Показывать.

ВСписке.

Выбора = Структура.

Параметров.Роли.Количество () > 0;Записывать = Истина;

Конец.

Если; Если Структура.

Параметров.Свойство («Имя.

Было") Тогда.

НовыйПользователь.

ИБ.Имя = Структура.

Параметров.Имя.

Пользователя;

Записывать = Истина;

Конец.

Если; Если Структура.

Параметров.Свойство («Пароль») Тогда.

НовыйПользователь.

ИБ.Пароль= Структура.

Параметров.Пароль;

Записывать = Истина;

Конец.

Если; Если Структура.

Параметров.Свойство («Полное.

Имя") Тогда.

НовыйПользователь.

ИБ.Полное.

Имя= Структура.

Параметров.Полное.

Имя;Записывать = Истина;

Конец.

Если; Если Записывать Тогда.

ПопыткаНовый.

ПользовательИБ.Записать ();Исключение Отказ = Истина;

Конец.

Попытки;

Конец.

Если;

Конец.

ПроцедурыЛистинг 4. Модуль формы справочника «Номенклатура"&НаКлиенте.

Процедура Добавить.

Картинку (Команда)Имя.

Файла = «» ;Путь.

Файла = «» ;Если Поместить.

Файл (Путь.

Файла,, Имя.

Файла, Истина) Тогда.

Фото = Путь.

Файла;

Установить.

Картинку ();Конец.

Если;

Конец.

Процедуры&НаСервере.

Процедура Установить.

Картинку ()Новый.

ФайлКартинки = Справочники.Файлы.Создать.

Элемент ();Новый.

ФайлКартинки.Файл = Новый Хранилище.

Значения (Получить.

ИзВременного.

Хранилища (Фото));Фото = Поместить.

ВоВременное.

Хранилище (Новый.

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

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

Объект.Картинка = Новый.

ФайлКартинки.Ссылка;

Конец.

Процедуры&НаСервере.

Процедура При.

СозданииНаСервере (Отказ, Стандартная.

Обработка)Фото = Получить.

НавигационнуюСсылку (Объект.Картинка, «Файл»);// устанавливаем автомасштаб для картинки.

Элементы.Фото.Размер

Картинки = Размер

Картинки.Авто.

Размер;

Конец.

ПроцедурыЛистинг 5. Модуль справочника «Пользователи"Процедура Перед.

Записью (Отказ)Код = Наименование;

Если Не Это.

Группа Тогда.

СтруктураПараметров = Новый Структура ();Структура.

Параметров.Вставить («Имя.

Пользователя", Наименование);Если Не Это.

Новый () и Наименование <> Ссылка. Наименование Тогда.

СтруктураПараметров.Вставить («Имя.

Было", Ссылка. Наименование);Конец.

Если;

Если ФИО <> Ссылка. ФИО Тогда.

СтруктураПараметров.Вставить («Полное.

Имя", ФИО);Конец.

Если; Роли = Новый Массив;

Для каждого Строчка Из Доступные.

Роли Цикл.

Если Строчка. Отметка Тогда.

Роли.Добавить (Строчка.Роль.

Имя);Конец.

Если; Конец.

Цикла; Структура.

Параметров.Вставить («Роли», Роли);Структура.

Параметров.Вставить («Пароль», Пароль);Полные.

Права.Создать.

ПользователяИБ (Отказ, Структура.

Параметров);Конец.

Если; Конец.

ПроцедурыПроцедура Перед.

Удалением (Отказ)Полные.

Права.Удалить.

ПользователяИБ (Отказ, Код);Конец.

ПроцедурыЛистинг 6. Модуль формы документа «Поступление товаров"&НаСервере.

Процедура При.

СозданииНаСервере (Отказ, Стандартная.

Обработка)// Вставить содержимое обработчика.Объект.Сотрудник = Параметры.

Сеанса.Текущий.

Пользователь;

Конец.

ПроцедурыЛистинг 7. Модуль документа «Поступление товаров"Процедура Обработка.

Проведения (Отказ, Режим) Движения.Остатки.

Товара.Записывать = Истина;

Для Каждого Тек.

СтрокаТовары Из Список.

Товаров Цикл.

Движение = Движения.Остатки.

Товара.Добавить ();Движение.Вид.

Движения = Вид.

ДвиженияНакопления.Приход;

Движение.Период = Дата;

Движение.Товар = Тек.

СтрокаТовары.Товар;

Движение.Склад = Склад;

Движение.Количество = Тек.

СтрокаТовары.Количество;

Движение.Сумма = Тек.

СтрокаТовары.Сумма;

Конец.

Цикла;

Конец.

ПроцедурыЛистинг 8. Модуль формы документа «Реализация товаров"&НаКлиенте.

Процедура Перечень.

НоменклатурыКоличество.

ПриИзменении (Элемент)Строка.

ТабличнойЧасти = Элементы.Список.

Товаров.Текущие.

Данные;

Работа.

СДокументами.Рассчитать.

СуммуРеализация (Строка.

ТабличнойЧасти);Конец.

Процедуры&НаКлиенте.

Процедура Перечень.

НоменклатурыЦена.

ПриИзменении (Элемент)Строка.

ТабличнойЧасти = Элементы.Список.

Товаров.Текущие.

Данные;

Работа.

СДокументами.Рассчитать.

СуммуРеализация (Строка.

ТабличнойЧасти);Конец.

Процедуры&НаКлиенте.

Процедура Перечень.

НоменклатурыТовар

ПриИзменении (Элемент)Строка.

ТабличнойЧасти = Элементы.Список.

Товаров.Текущие.

Данные;

Строка.

ТабличнойЧасти.Цена = Работа.

СоСправочниками.Розничная.

Цена (Конец.

Дня (Объект.Дата), Строка.

ТабличнойЧасти.Товар);Работа.

СДокументами.Рассчитать.

СуммуРеализация (Строка.

ТабличнойЧасти);Конец.

Процедуры&НаСервере.

Процедура При.

СозданииНаСервере (Отказ, Стандартная.

Обработка)Объект.Сотрудник = Параметры.

Сеанса.Текущий.

Пользователь;

Конец.

Процедуры&НаСервере.

Функция Получить.

ПРоцент.

Скидки ()Возврат Объект.Карта.Процент.

Скидки;

Конец.

Функции&НаКлиенте.

Процедура Применить.

Скидку (Команда)Скидка = Получить.

ПРоцент.

Скидки ();Для Каждого Строка.

ТабличнойЧасти Из Объект.Список.

Товаров Цикл.

РаботаСДокументами.Рассчитать.

СуммуСкидки (Строка.

ТабличнойЧасти, Скидка);Конец.

Цикла;

Конец.

ПроцедурыЛистинг 9. Модуль документа «Реализация товаров"Процедура Обработка.

Проведения (Отказ, Режим) Блокировка = Новый Блокировка.

Данных;

Элемент.

Блокировки = Блокировка. Добавить («Регистр

Накопления.Остатки.

Товара");Элемент.

Блокировки.Режим = Режим.

БлокировкиДанных.Исключительный;

Элемент.

Блокировки.Источник.

Данных = Список.

Товаров;

Элемент.

Блокировки.Использовать.

ИзИсточника.

Данных («Товар», «Товар»);Блокировка.Заблокировать ();Движения.Остатки.

Товара.Записывать = Истина;

Движения.Продажи.Записывать = Истина;

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

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

Товаров.Товар КАК Товар, -Список.

Товаров.Ссылка.Склад КАК Склад, -СУММА (Список.

Товаров.Количество) КАК Количество, -СУММА (Список.

Товаров.Сумма) КАК Сумма,-СУММА (Список.

Товаров.Сумма.

СоСкидкой) КАК Сумма.

СоСкидкойПОМЕСТИТЬ ВрТаб.

ТоварИЗДокумент.Реализация.

Товаров.Список.

Товаров КАК Список.

ТоваровГДЕСписок.

Товаров.Ссылка = &Ссылка — -СГРУППИРОВАТЬ ПОСписок.

Товаров.Товар, -Список.

Товаров.Ссылка.Склад -; - -//////////////////////////////////////////////////////////////////////////////// -ВЫБРАТЬОстатки.

Товара.Товар, -Остатки.

Товара.Склад, -СУММА (Остатки.

Товара.Количество.

Остаток) КАК Количество.

Остаток, -СУММА (Остатки.

Товара.Сумма.

Остаток) КАК Сумма.

ОстатокПОМЕСТИТЬ ВрТаб.

ОстаткиИЗРегистр

Накопления.Остатки.

Товара.Остатки (-&Дата, Склад = &Склад ИТовар В -(ВЫБРАТЬВрТаб.

Товар.ТоварИЗВрТаб.

Товар)) КАК Остатки.

Товара — -СГРУППИРОВАТЬ ПООстатки.

Товара.Товар, -Остатки.

Товара.Склад -; - -//////////////////////////////////////////////////////////////////////////////// -ВЫБРАТЬВрТаб.

Товар.Товар, -ВрТаб.

Товар.Склад, -ВрТаб.

Товар.Количество, -ВрТаб.

Товар.Сумма,-ВрТаб.

Товар.Сумма.

СоСкидкой, -ЕСТЬNULL (ВрТаб.

Остатки.Количество.

Остаток, 0) КАК Количество.

Остаток, -ЕСТЬNULL (ВрТаб.

Остатки.Сумма.

Остаток / ВрТаб.

Остатки.Количество.

Остаток, 0) КАК СрЦенаИЗВрТаб.

Товар КАК ВрТаб.

ТоварЛЕВОЕ СОЕДИНЕНИЕ ВрТаб.

Остатки КАК ВрТаб.

ОстаткиПО ВрТаб.

Товар.Товар = ВрТаб.

Остатки.Товар" ;Запрос.Установить.

Параметр («Склад», Склад);Запрос.Установить.

Параметр («Ссылка», Ссылка);Запрос.Установить.

Параметр («Дата», Момент.

Времени ());Движения.Остатки.

Товара.Записать ();Результат.

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

ДетальныеЗаписи = Результат.

Запроса.Выбрать ();Пока Выборка.

ДетальныеЗаписи.Следующий () Цикл.

Если НЕ Выборка.

ДетальныеЗаписи.Товар.Услуга И Выборка.

ДетальныеЗаписи.Количество > Выборка.

ДетальныеЗаписи.Количество.

Остаток Тогда.

Сообщение = Новый Сообщение.

Пользователю;

Сообщение.Текст = «Не хватает «+ Строка (Выборка.

ДетальныеЗаписи.Количество — Выборка.

ДетальныеЗаписи.Количество.

Остаток) + «единиц номенклатуры «+ Выборка.

ДетальныеЗаписи.Товар + «. Проведение невозможно.» ;Сообщение.Сообщить ();Отказ = Истина;

Конец.

Если; Если Отказ Тогда Продолжить;

Конец.

Если;

Если НЕ Выборка.

ДетальныеЗаписи.Товар.Услуга Тогда// регистр Остатки.

Номенклатуры Расход.

Движение = Движения.Остатки.

Товара.Добавить ();Движение.Вид.

Движения = Вид.

ДвиженияНакопления.Расход;

Движение.Период = Дата;

Движение.Товар = Выборка.

ДетальныеЗаписи.Товар;

Движение.Склад = Выборка.

ДетальныеЗаписи.Склад;

Движение.Количество = Выборка.

ДетальныеЗаписи.Количество;

Движение.Сумма = Выборка.

ДетальныеЗаписи.Количество * Выборка.

ДетальныеЗаписи.СрЦена;

Конец.

Если;

Движение = Движения.Продажи.Добавить ();Движение.Период = Дата;

Движение.Товар = Выборка.

ДетальныеЗаписи.Товар;

Движение.Количество = Выборка.

ДетальныеЗаписи.Количество;

Движение.Выручка = Выборка.

ДетальныеЗаписи.Сумма.

СоСкидкой;

Движение.Стоимость = Выборка.

ДетальныеЗаписи.Количество * Выборка.

ДетальныеЗаписи.СрЦена;

Конец.

Цикла;

Конец.

Процедуры.