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 Тогда
Пока Выборка.Следующий() цикл
Набор =
РегистрыНакопления.ТоварыНаСкладах.СоздатьНаборЗаписей();
Набор.Отбор.Регистратор.Значение =
Выборка.Регистратор;
Набор.Записать();
КонецЦикла;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
117
Приложение 2. Модуль формы документа "Продажа в розницу"
&НаКлиенте
Процедура ФормаОплатыПриИзменении(Элемент)
Наличная = ОпределитьФормуОплаты (Наличная);
Если Наличная = Истина Тогда
Элементы.БанковскийСчетОрганизации.Видимость = Ложь;
Элементы.Касса.Видимость = Истина;
Элементы.Касса.Доступность = Истина;
Иначе
Элементы.БанковскийСчетОрганизации.Видимость = Истина;
Элементы.БанковскийСчетОрганизации.Доступность = Истина;
Элементы.Касса.Видимость = Ложь;
КонецЕсли;
КонецПроцедуры
&НаСервере
Функция ОпределитьФормуОплаты (Наличная) Экспорт
Если Объект.ФормаОплаты = Перечисления.ФормаОплаты.Наличная
Тогда
Наличная = Истина;
ИначеЕсли Объект.ФормаОплаты =
Перечисления.ФормаОплаты.Безналичная Тогда
Наличная = Ложь;
Иначе
Наличная = Неопределено;
КонецЕсли;
Возврат Наличная
КонецФункции
&НаКлиенте
Процедура ПриОткрытии(Отказ)
Наличная = ОпределитьФормуОплаты (Наличная);
Если Наличная = Неопределено Тогда
118
Элементы.БанковскийСчетОрганизации.Доступность =Ложь;
Элементы.Касса.Доступность =Ложь;
КонецЕсли;
Если Наличная = Истина Тогда
Элементы.БанковскийСчетОрганизации.Видимость = Ложь;
Элементы.Касса.Видимость = Истина;
Иначе
Элементы.БанковскийСчетОрганизации.Видимость = Истина;
Элементы.Касса.Видимость = Ложь;
КонецЕсли;
Если Объект.СуммаОплаты = Объект.СуммаДокумента И
Объект.СуммаДокумента <> 0 Тогда
Элементы.Декорация1.Видимость = Истина;
КонецЕсли;
Если Объект.СуммаДокумента <> 0 Тогда
ПроцентОплаты = Окр(Объект.СуммаОплаты * 100 /
Объект.СуммаДокумента, 2);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ТоварыКоличествоПриИзменении(Элемент)
КоэффициентНДС = ПолучитьКоэффициентНДС(КоэффициентНДС);
ТекДанные = ЭтаФорма.ТекущийЭлемент.ТекущиеДанные;
Если Объект.ЦенаВключаетНДС = Истина Тогда
ТекДанные.Сумма = ТекДанные.Количество * ТекДанные.Цена;
ТекДанные.СуммаНДС = ТекДанные.Сумма * КоэффициентНДС;
ТекДанные.СуммаСНДС = ТекДанные.Сумма;
КонецЕсли;
Если Объект.ЦенаВключаетНДС = Ложь Тогда
ТекДанные.СуммаНДС = ТекДанные.Количество *
ТекДанные.Цена * КоэффициентНДС;
ТекДанные.Сумма = ТекДанные.Количество * ТекДанные.Цена;
119
ТекДанные.СуммаСНДС = ТекДанные.Сумма +
ТекДанные.СуммаНДС;
КонецЕсли;
ПересчитатьИтог();
КонецПроцедуры
&НаСервере
Функция ПолучитьКоэффициентНДС(КоэффициентНДС) Экспорт
Для Каждого Строка Из Объект.Товары Цикл
Если Строка.СТавкаНДС = Перечисления.СтавкиНДС.БезНДС
Тогда
КоэффициентНДС = 0;
КонецЕсли;
Если Строка.СТавкаНДС = Перечисления.СтавкиНДС.НДС18 Тогда
КоэффициентНДС = 0.18;
КонецЕсли;
КонецЦикла;
Возврат КоэффициентНДС
КонецФункции
&НаСервере
Функция ПолучитьСтавкуНДСПоУмолчанию(СтавкаНДСПоУмолчанию)
Экспорт
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| УчетнаяПолитикаСрезПоследних.НДС КАК НДС
|ИЗ
| РегистрСведений.УчетнаяПолитика.СрезПоследних КАК
УчетнаяПолитикаСрезПоследних
|ГДЕ
| УчетнаяПолитикаСрезПоследних.Организация = &Организация";
Запрос.УстановитьПараметр("Организация", Объект.Организация);
120
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
СтавкаНДСПоУмолчанию = Выборка.НДС;
КонецЦикла;
Возврат СтавкаНДСПоУмолчанию
КонецФункции
&НаКлиенте
Процедура ТоварыНоменклатураПриИзменении(Элемент)
ТекДанные = ЭтаФорма.ТекущийЭлемент.ТекущиеДанные;
СтавкаНДСПоУмолчанию =
ПолучитьСтавкуНДСПоУмолчанию(СтавкаНДСПоУмолчанию);
ТекДанные.СтавкаНДС = СтавкаНДСПоУмолчанию;
РозничнаяЦена = ОпределитьРозничнуюЦену (РозничнаяЦена);
ТекДанные.Цена = РозничнаяЦена;
КонецПроцедуры
&НаКлиенте
Процедура ТоварыЦенаПриИзменении(Элемент)
КоэффициентНДС = ПолучитьКоэффициентНДС(КоэффициентНДС);
ТекДанные = ЭтаФорма.ТекущийЭлемент.ТекущиеДанные;
Если Объект.ЦенаВключаетНДС = Истина Тогда
ТекДанные.Сумма = ТекДанные.Количество * ТекДанные.Цена;
ТекДанные.СуммаНДС = ТекДанные.Сумма * КоэффициентНДС;
ТекДанные.СуммаСНДС = ТекДанные.Сумма;
КонецЕсли;
Если Объект.ЦенаВключаетНДС = Ложь Тогда
ТекДанные.СуммаНДС = ТекДанные.Количество *
ТекДанные.Цена * КоэффициентНДС;
ТекДанные.Сумма = ТекДанные.Количество * ТекДанные.Цена;
ТекДанные.СуммаСНДС = ТекДанные.Сумма +
ТекДанные.СуммаНДС;
КонецЕсли;
ПересчитатьИтог();
121
КонецПроцедуры
&НаКлиенте
Процедура ТоварыСтавкаНДСПриИзменении(Элемент)
КоэффициентНДС = ПолучитьКоэффициентНДС(КоэффициентНДС);
ТекДанные = ЭтаФорма.ТекущийЭлемент.ТекущиеДанные;
Если Объект.ЦенаВключаетНДС = Истина Тогда
ТекДанные.Сумма = ТекДанные.Количество * ТекДанные.Цена;
ТекДанные.СуммаНДС = ТекДанные.Сумма * КоэффициентНДС;
ТекДанные.СуммаСНДС = ТекДанные.Сумма;
КонецЕсли;
Если Объект.ЦенаВключаетНДС = Ложь Тогда
ТекДанные.СуммаНДС = ТекДанные.Количество *
ТекДанные.Цена * КоэффициентНДС;
ТекДанные.Сумма = ТекДанные.Количество * ТекДанные.Цена;
ТекДанные.СуммаСНДС = ТекДанные.Сумма +
ТекДанные.СуммаНДС;
КонецЕсли;
ПересчитатьИтог();
КонецПроцедуры
&НаСервере
Процедура ЦенаВключаетНДСПриИзмененииНаСервере()
КоэффициентНДС = ПолучитьКоэффициентНДС(КоэффициентНДС);
Для Каждого Строка Из Объект.Товары Цикл
Если Объект.ЦенаВключаетНДС = Истина Тогда
Строка.Сумма = Строка.Количество * Строка.Цена;
Строка.СуммаНДС = Строка.Сумма * КоэффициентНДС;
Строка.СуммаСНДС = Строка.Сумма;
КонецЕсли;
Если Объект.ЦенаВключаетНДС = Ложь Тогда
Строка.СуммаНДС = Строка.Количество * Строка.Цена *
КоэффициентНДС;
Строка.Сумма = Строка.Количество * Строка.Цена;