Дипломная работа: Автоматизация учета товарно-материальных ценностей в розничном магазине ООО "Вега"
Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
112
Список литературы
1) 1С: Предприятие 8.3 Руководство разработчика – М.: Фирма «1С»,
2015.
2) 1С: Предприятие 8.3 Руководство администратора – М.: Фирма «1С»,
2015.
3) 1C: Предприятие 8.3. Практическое пособие разработчика. Примеры и
типовые приемы – М.: Фирма «1С», 2015.
4) Общее описание 1С: Розница 8 [Электронный ресурс] // Фирма 1С
[Офиц. сайт]. URL: http://v8.1c.ru/retail/ (дата обращения: 01.12.2017).
5) 1С: Библиотека стандартных подсистем 2.4.4. Документация
[Электронный ресурс] // Фирма 1С [Офиц. сайт]. URL:
https://its.1c.ru/db/bsp244doc (дата обращения: 01.12.2017).
6) 1C: Enterprise Development Tools. Руководство разработчика
[Электронный ресурс] // Фирма 1С [Офиц. сайт]. URL:
https://its.1c.ru/db/edt16doc (дата обращения: 01.12.2017).
7) Клиент-серверный и файловый вариант работы 1С: Предприятие 8.3
[Электронный ресурс] // Фирма 1С [Офиц. сайт].
URL: http://www.gilev.ru/mssqlvsfile/
8) Объекты конфигурации 1С: Предприятие 8.3 [Электронный ресурс] //
Фирма 1С [Офиц. сайт]. http://v8.1c.ru/overview/Term_000000264.htm
9) Настройка программ удаленных приложений Remote App
[Электронный ресурс] // Microsoft [Офиц. сайт]. URL:
https://technet.microsoft.com/ru-ru/library/cc733174(v=ws.11).aspx
10) Волгин В.В. Склад. Стандарты управление: Практическое пособие. –
М.: Дашков и Ко, 2013. – 626 с.
11) Козлюк Н.В. Складской учет на предприятиях торговли. – М.: Феникс,
2013. – 320 с.
12) Федеральный закон от 06.12.2011 N 402-ФЗ (ред. от 18.07.2017) "О
бухгалтерском учете" Статья 9. Первичные учетные документы
113
13) Приказ Минфина РФ от 31.10.2000 N 94н (ред. от 08.11.2010) "Об
утверждении Плана счетов бухгалтерского учета финансово-
хозяйственной деятельности организаций и Инструкции по его
применению"
14) ER-модель данных Джесси Рассел - 2012. - 122 с.
15) Федеральный закон от 22.05.2003 N 54-ФЗ "О применении
контрольно-кассовой техники при осуществлении наличных денежных
расчетов и (или) расчетов с использованием электронных средств
платежа" (п. п. 2, 3, 5 ст. 2)
16) Сертифицированный курс фирмы "1С" 1С: Управление торговлей 8,
редакция 11.3. Основные принципы работы с программой. - 1С
Учебный центр №1, 2017. - 299 с.
17) Хрусталева Е.Ю. Язык запросов 1С: Предприятие 8. - ООО "1С -
Паблишинг", 2013. - 369 с.
18) Хрусталева Е.Ю. Разработка сложных отчетов в «1С:Предприятии
8».Система компоновки данных - ООО "1С - Паблишинг", 2013. - 327
с.
19) Хрусталева Е.Ю. 101 совет начинающим разработчикам в системе
«1С:Предприятие 8» - ООО "1С - Паблишинг", 2013. - 158 с.
20) М.Г. Радченко, Е.Ю. Хрусталева Инструменты для создания
тиражируемых приложений «1С:Предприятия 8.3»- ООО "1С -
Паблишинг", 2015. - 194 с.
21) В.А. Ажеронок, А.В. Островерх, М.Г. Радченко, Е.Ю. Хрусталева
Разработка управляемого интерфейса»- ООО "1С - Паблишинг", 2014. -
723 с.
114
Приложение 1. Модуль объекта документа "Резервирование товара"
Процедура ОбработкаПроведения(Отказ, Режим)
Для Каждого СТрока Из Товары Цикл
ЕдиницаИзмеренияВСтроке = Строка.ЕдиницаИзмерения;
КоэффициентПересчета =
ЕдиницаИзмеренияВСтроке.КоэффициентПересчета;
Строка.КоличествоВШтуках = Строка.Количество *
КоэффициентПересчета;
КонецЦикла;
//Проверка остатков
Если
Константы.КонтролироватьОтрицательныеОстаткиНаСкладах.Получить() =
ИСТИНА Тогда
Для Каждого Строка Из Товары Цикл
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
|
ТоварыНаСкладахОстатки.КоличествоВНаличииОстаток -
ТоварыНаСкладахОстатки.КоличествоВРезервеОстаток КАК
ДоступныйОстаток
|ИЗ
| РегистрНакопления.ТоварыНаСкладах.Остатки КАК
ТоварыНаСкладахОстатки
|ГДЕ
| ТоварыНаСкладахОстатки.Склад = &Склад
| И ТоварыНаСкладахОстатки.Номенклатура =
&Номенклатура";
Запрос.УстановитьПараметр("Склад", Склад);
Запрос.УстановитьПараметр("Номенклатура",
Строка.Номенклатура);
115
Выборка = Запрос.Выполнить().Выбрать();
Если Выборка.Количество() = 0 Тогда
Отказ = Истина;
Сообщить ("На складе " + Склад + " не хватает товара "
+ Строка.Номенклатура + " " + Строка.Количество + " шт.");
Иначе
Пока Выборка.Следующий() Цикл
Если Выборка.ДоступныйОстаток <
Строка.КоличествоВШтуках Тогда
Отказ = Истина;
Сообщить ("На складе " + Склад + " не
хватает товара " + Строка.Номенклатура + " " +
Цел(Выборка.ДоступныйОстаток -
Строка.КоличествоВШтуках) + " шт.");
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецЦикла;
КонецЕсли;
//Конец проверка остатков
Если Зарезервировано = Истина Тогда
Движения.ТоварыНаСкладах.Записывать = Истина;
Для Каждого ТекСтрокаТовары Из Товары Цикл
Движение = Движения.ТоварыНаСкладах.Добавить();
Движение.ВидДвижения =
ВидДвиженияНакопления.Приход;
Движение.Период = Дата;
Движение.Номенклатура = ТекСтрокаТовары.Номенклатура;
Движение.Склад = Склад;
Движение.КоличествоВРезерве =
ТекСтрокаТовары.КоличествоВШтуках;
КонецЦикла;
116
Иначе
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ТоварыНаСкладах.Регистратор КАК Регистратор
|ИЗ
| РегистрНакопления.ТоварыНаСкладах КАК
ТоварыНаСкладах
|ГДЕ
| ТоварыНаСкладах.Регистратор = &Регистратор" ;
Запрос.УстановитьПараметр("Регистратор", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
Если Выборка.Количество() <> 0 Тогда
Пока Выборка.Следующий() цикл
Набор =
РегистрыНакопления.ТоварыНаСкладах.СоздатьНаборЗаписей();
Набор.Отбор.Регистратор.Значение =
Выборка.Регистратор;
Набор.Записать();
КонецЦикла;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
Источник: https://baza.diplomsite.ru/previewfile/2469