Разработка информационной системы бара-ресторана на основе 1С УТП

Целью данной дипломной работы было создание рабочего места для работников бара-ресторана отеля.
В данной дипломной работе были рассмотрены возможности платформы 1С и типовое решение «Управление торговым предприятием». Разработанные модули для работы администратора бара-ресторана отеля, шеф-повара и работников бара-ресторана. Программный продукт позволяет повысить эффективность и скорость работы благодаря автоматизации процессов документооборота.


При необходимости, работа может быть оперативно переделана и доработана под нужную область. Имеется 2 варианта работы, на русском и украинском языках. Имеются исходные файлы реализации программы, презентация, отчет по преддипломной практике(за дополнительную плату).
Работа была защищена в 2015 году на оценку "Отлично" в одном из Украинских Вузов. ...

ВВЕДЕНИЕ 6
1 Анализ предметной области 7
1.1 Анализ деятельности бара-ресторана отеля. Кадровый устройство 7
1.2 Актуальность проблемы различных видов учета 8
1.3 Структура УТП 1С 8 для Украины 11
1.3.1.Планування продаж 13
1.3.2.Циноутворення 14
1.3.3.Управлиння отношениями с покупателями и поставщиками 15
1.4 Методы решения проблемы документооборота на предприятии 16
2. Обоснование актуальности И НЕОБХОДИМОСТИ РАЗРАБОТКИ 18
2.1 Решение Б52Ресторан 18
2.2 Рест-Арт 19
3. РАЗРАБОТКА ПРОГРАММНОГО ПРОДУКТА 20
3.1. Постановка задачи 20
3.2 Системные требования 21
3.3 Используемые роли 23
3.4 Используемый интерфейс 25
3.5 Работа с программой в режиме «Администратор ресторана» 26
3.5.1 Обработка «Рабочее место администратора» 26
3.5.2 Документы для работы с заказами 30
3.5.3 Справочник «Виды банкетов» 33
3.5.4 Перечисление «Статус банкета» 34
3.5.5. Используемые отчеты 34
3.6. Работа с программой в режиме официанта, бармена 36
3.6.1. Авторизация 36
3.6.2. Система ввода заказа 38
3.6.3. Справочник «Скидки» 39
3.6.4. Система закрытия смены 40
3.7. Работа с программой в режиме шеф-повара 42
3.7.1. Обработка «Панель функций» 42
3.7.2. Справочник «Спецификации номенклатуры» 43
4. ОБЗОР ПРОГРАММНОГО ПРОДУКТА 46
4.1 Оприходование товаров на склад 46
4.2. Цены 47
4.3. Внесение продажу 50
5. ОХРАНА ТРУДА 55
5.1.Пожежна безопасность и первичные средства пожаротушения в компьютерных помещениях. 55
5.2. Требования безопасности во время обслуживания, ремонта и наладки ЭВМ 58
5.3. Цветное окраски производственных помещений 61
5.4. Регламент рабочего дня специалистов - комп`ютерщикив. 63
ВЫВОДЫ 66
ПЕРЕЧЕНЬ ССЫЛОК 67
ПРИЛОЖЕНИЕ А 68
ПРИЛОЖЕНИЕ 7

Дипломная работа посвящена созданию автоматизированной информационной системы для рецепции бара-ресторана отеля и последующего внедрения на ООО «Калифорния».
Способность принять верное решение и вовремя отследить ситуацию, гибко реагировать на все изменения рынка зависит не только от таланта и опыта руководителей. Эффективность управления предприятием зависит и от того, насколько разумно в нем организовано управление информационными потоками. Фактически, малоэффективное использование накопленной информации (или, еще хуже, ее потеря) может привести к потере всего бизнеса. Ведь вовремя не полученная информация или документ - это, прежде всего, потерянные деньги, время и упущенные возможности. Вследствие этого, на любом предприятии, где ведется активная работа с различными документами, рано и ли поздно встает проблема систематизации, обработки и безопасного хранения значительных объемов информации.
В данной работе я собираюсь создать автоматизированную информационную систему,
на базе УТП 1С 8 призванную систематизировать работу работников бара-ресторана отеля. Для этого будут рассмотрены основные объекты, которые используются в работе работников бара-ресторана отеля, такие как: чеки, спецификации номенклатуры, отчет по реализации товаров и услуг, отчет по производству в смену, а также контрагенты и связанные с ними конкретные люди, отношения с которыми предприятие в процессе своей работы.
Актуальность данной работы связана с:
- Сокращением затрат времени связанных с обслуживанием клиентов;
- Большим количеством информации, подлежит тщательной обработке для эффективного функционирования компании;
- Необходимостью постоянно принимать решения на основе выполненных работ.
Систематизации данных и необходимый набор инструментов создадут эффективное рабочее место работника бара-ресторана отеля, поможет всегда быть в курсе текущих дел

2
Орієнтація вікон:
північ
північний-схід
північний захід
південь
південний схід
південний захід
-
-
-
х
х
х
-
х
х
-
х
х
х
х
х
-
-
-
3
Температура в приміщенні:
підвищена
нормальна
понижена
х
х
-
-
х
-
х
-
х
4
Характер роботи:
нормальний
підвищеної ефективності
монотонний
х
х
-
х
х
-
х
-
х
5
Зорове напруження:
нормальне
підвищене
х
х
х
х
х
-
Поверхні стелі з ВДТ бажано фарбувати в світлі тони близькі до білого з коефіцієнтом відбиття 0,7-0,8. В такому випадку відбите від них світло більш рівномір ніше освітлює приміщення, усуваючи тіні і зменшуючи розсіяні бліки на блискучих поверхнях.
Для пофарбування стін в приміщеннях з ВДТ необхідно використовувати мало насичені кольори світлих тонів, з коефіцієнтом відбиття – 0,5 – 0,6.Надто темна чи світла периферія, за екраном ВДТ призводить до втоми зорового аналізатора. Слід мати на увазі, що нейтральні сіро-зелені тони є найбільш бажаними для пофарбування стін приміщень з ВДТ, оскільки вони не тільки сприятливо впливають на зір, а й знімають загальну втому.
5.4. Регламент робочого дня спеціалістів – комп`ютерщиків.
В Санітарних правилах вказано, що при організації праці, що пов`язана з використанням ВДТ ЕОМ і ПЕОМ, слід передбачити внутрішньо змінні регламентовані перерви для відпочинку, які передують появі об`єктивних і суб`єктивних ознак втомлення і зниження працездатності. Роз`яснюється, що при виконанні протягом дня робіт, які належать до різних видів трудової діяльності, за основну роботу з ВДТ ЕОМ і ПЕОМ слід вважати таку, що займає не менше 50% часу впродовж робочої зміни чи робочого дня.
Протягом робочої зміни мають передбачатися:
перерви для відпочинку і вживання їжі (обідні перерви);
перерви для відпочинку і особистих потреб (згідно з трудовими нормами);
додаткові перерви, що вводяться для окремих професій з урахуванням особливостей трудової діяльності.
Тривалість обідньої перерви визначається чинним законодавством про працю і правилами внутрішнього трудового розпорядку підприємства, організації чи установи. Як правило, тривалість такої перерви становить 40-60 хвилин. Тривалість за кількість інших внутрішньо змінних регламентованих перерв залежить від характеру трудової діяльності, напруженості і важності праці і визначається диференційовано для кожної професії.
За характером трудової діяльності при роботі з ВДТ ЕОМ та ПЕОМ виділено три професійні групи з діючим класифікатором професій (ДК-003-95 і Зміна № 1 до ДК-003-95):
розробники програм (інженери-програмісти) – виконують роботу переважно з відео терміналом та документацією при необхідності інтенсивного обміну інформацією з ЕОМ і високою частотою прийняття рішень. Робота характеризується інтенсивною розумовою творчою працею з підвищенним напруженням зору, концентрацією уваги на фоні нервово-емоційного напруження, вимушеною робочою позою, загальною гіподинамією, періодичним навантаженням на кисті верхніх кінцівок. Робота виконується в режимі діалогу з ЕОМ у вільному темпі з періодичним пошуком помилок в умовах дефіциту часу:
оператор комп`ютерного набору – виконує одноманітні за характером роботи з документацією та клавіатурою і нечастими нетривалими переключеннями погляду на екран дисплея, з введенням даних з високою швидкістю, робота характеризується як фізична праця з підвищеним навантаженням на кисті верхніх кінцівок на фоні загальної гіподинамії з напруженням зору (фіксації зору переважно на документі), нервово-емоційним напруженням.
Відповідно до вищенаведеної класифікації Санітарними правилами встановлюються такі внутрішньозмінні режими праці та відпочинку при роботі з ЕОМ при 8-годинній денній робочій зміні в залежності від характеру праці:
для розробників програм із застосуванням ЕОМ, слід призначати регламентовану перерву для відпочинку тривалістю 15 хвилин через кожну годину роботи, за ВДТ;
для операторів із застосуванням ЕОМ, слід призначати регламентовані переви для відпочинку тривалістю 15 хвилин через кожні дві години роботи;
для операторів комп`ютерного набору слід призначати регламентовані перерви для відпочинку тривалістю 10 хвилин після кожної години роботи за ВДТ.
При 12–годинній робочій зміні регламентовані перерви повинні встановлюватися в перші 8 годин роботи аналогічно перервам при 8-годинній робочій зміні, а протягом останніх 4-х годин роботи, незалежно від характеру трудової діяльності, через кожну годину тривалістю 15 хвилин.
В санітарних правилах наголошується, що у всіх випадках, коли виробничі обставини не дозволяють застосовувати регламентовані перерви, тривалість безперервної роботи з ВДТ не повинна перевищувати 4 години.
Необхідно зазначити, що перерви під час роботи не повинні бути строго визначені за часом, а необхідно передбачати певний творчий індивідуальний підхід.
Дотримання всіх правил виробничої безпеки описаних в даному розділі дозволяє вберегти себе від впливу шкідливих факторів при роботі з комп'ютерним обладнанням.
ВИСНОВКИ
В ході виконання даної дипломної роботи були розглянуті проблеми автоматизації роботи для працівників бару-ресторану готелю. Розглянуті та запропоновані вирішення проблеми документообігу на торгівельних підприємствах.
Представлена версія ПЗ є закінченим програмним продуктом. Проте вона може бути допрацьована, для чого знадобляться додаткові засоби, а також час, протягом якого буде доданий необхідний функціонал.
Програма має три режими роботи, для пришвидшення користування програмою всіх працівників закладу і розмежування необхідних документів та звітів.
В результаті виконання дипломної роботи були вдосконалені знання в області програмування 1С і також бухгалтерського обліку, придбані навики використання науково-технічної інформації.
ПЕРЕЛІК ПОСИЛАНЬ
1. . Жидецкий В.Ц. «Основы охраны труда»/ В.Ц. Жидецкий, В.С. Джигирей, А.В. Мельников / под. общ. ред. В.Ц. Жидецкого/. - Изд-во «Питер», 2002. – 46-69 с.
2. «Про затвердження Правил охорони праці під час експлуатації електронно-обчислювальних машин» [Электронный ресурс] – Режим доступа: http://zakon3.rada.gov.ua/laws/show/z0382-99/page2
3. Байдаков В., Дранищев В, Краюшкин А, Кузнецов И, Лавров М, Моничев А. 1С:Предприятие 8.0 Описание встроенного языка. В 4-х томах.- М.: Фирма «1С», 2004. – 2575 с.
4. Белоусов П.С., Островерх А.В. 1С:Предприятие 8.0 от 8.1. Практическое пособие. - М.: ООО «1С-Паблишинг», 2008. -286 с.
5. Митичкин С.А. Разработка в системе 1С Предприятие 8.0.- М.: ООО «1С-Паблишинг», 2003. - 413с.
6. Радченко М.Г. 1С:Предприятие 8.0. Практическое пособие разработчика. Примеры и типовые приемы. - М.:, ООО «1С-Паблишинг», 2004. -656 с.
7. Радченко М.Г. 1С:Предприятие 8.1. Практическое пособие разработчика. Примеры и типовые приемы. - М.:, ООО «1С-Паблишинг», СПб.: Питер, 2007. -512 с.
8. Радченко М. Г. 1C:Предприятие 8.3. Практическое пособие разработчика. Примеры и типовые приемы. - М.:, ООО «1С-Паблишинг», СПб.: Питер, 2013. -628 с.
9. Ситосенко Е.А. Управление заказами в системе программ 1С:Предприятие 8.0  - М.:, ООО «1С-Паблишинг», СПб.: Питер, 2012. -613 с. 
10. Хрусталева Е.Ю. Разработка сложных отчетов в «1С:Предприятии 8». Система компоновки данных 2 издание - М.:, ООО «1С-Паблишинг», СПб.: Питер, 2012. - 484 с. 
11. Хрусталева Е. Ю. Язык запросов "1С:Предприятия 8" издание - М.:, ООО «1С-Паблишинг», СПб.: Питер, 2013. - 512 с. 
ДОДАТОК А
Блок-схема роботи програми дана на рис.А.1.
Рисунок А.1 - Блок-схема роботи програми
Структура бази даних дана на рис.А.2.
Рисунок А.2 – Структура бази даних
ДОДАТОК Б
Модуль «Інтерфейс ресторану»
Функция ЗапросКЦенам(НазваниеНоменклатуры)
//:8.01.15 - исправлена процедура "Запрос к ценам"
//получаем текущего работника из константы Текущий пользователь
ТекущийРаботник = Константы.ТекущийПользователь.Получить();
//создаем запрос к регистру сведений пользовательские настройки
ЗапросКПользовНастройкам = Новый Запрос;
Дата1 = ТекущаяДата();
ТаблицаПараметровСистемы=МодульСовАйти.ПолучитьПараметрыСистемы(Дата1);
Если ТаблицаПараметровСистемы.Количество()>0 Тогда
СтрокаТаблицаПараметровСистемы = ТаблицаПараметровСистемы[0];
Иначе
Сообщить("Заполните параметры системы на дату "+Дата1+"...");
КонецЕсли;
СкладТекущегоСотрудника = СтрокаТаблицаПараметровСистемы.СкладПоУмолчанию;
//склад имеет тип данных ссылка на справочник Склады, получаем установленный тип цен у данного склада
//Сообщить(СкладТекущегоСотрудника.ТипЦенРозничнойТорговли);
//входящим параметром процедуры является наименование номенклатуры
НаименованиеНоменклатуры = Справочники.Номенклатура.НайтиПоНаименованию(НазваниеНоменклатуры);
//используя функцию общего модуля ценообразования, получаем цену текущей номенклатуры с указанным типом цен
//ЦенаНоменклатуры = Ценообразование.ПолучитьЦенуНоменклатуры(НаименованиеНоменклатуры,,СкладТекущегоСотрудника.ТипЦенРозничнойТорговли,,,,,,,,);
ЦенаНоменклатуры = Ценообразование.ПолучитьЦенуНоменклатуры(НаименованиеНоменклатуры,,СтрокаТаблицаПараметровСистемы.ТипЦенПродажи,,,,,,,,);
//Сообщить(ЦенаНоменклатуры);
Возврат ЦенаНоменклатуры;
КонецФункции
Функция ЗапросКЕдиницам(НазваниеНоменклатуры)
//:8.01.15 - добавлен комментарий
// выбирается базовая единица измерения из справочника номенклатура
НаименованиеНоменклатуры = Справочники.Номенклатура.НайтиПоНаименованию(НазваниеНоменклатуры);
ЕдиницаИзмерения = НаименованиеНоменклатуры.БазоваяЕдиницаИзмерения;
Возврат ЕдиницаИзмерения;
КонецФункции
Процедура ДобавитьВСписок(НазваниеНоменклатуры)
///получаем параметры системы //:28_02_15
Дата1 = Формат(ТекущаяДата(),"Д");
ТаблицаПараметровСистемы=МодульСовАйти.ПолучитьПараметрыСистемы(Дата1);
Если ТаблицаПараметровСистемы.Количество()>0 Тогда
СтрокаТаблицаПараметровСистемы = ТаблицаПараметровСистемы[0];
Иначе
Сообщить("Заполните параметры системы на дату "+Дата1+"...");
КонецЕсли;
///////////////////////////////
Если НЕ СкидкиБар = неопределено ИЛИ СкидкиБар = Справочники.Скидки.БезСкидки Тогда
ПроцентСкидкиБар = СкидкиБар.Значение;
//ИначеЕсли СкидкиБар = Перечисления.ПроцентыСкидок.Двадцать Тогда
// ПроцентСкидкиБар = 20;
//ИначеЕсли СкидкиБар = Перечисления.ПроцентыСкидок.Тридцать Тогда
// ПроцентСкидкиБар = 30;
//Иначе
// ПроцентСкидкиБар = 0;
КонецЕсли;
///////////////////////////////////////////
Если НЕ СкидкиРесторан = неопределено ИЛИ СкидкиРесторан = Справочники.Скидки.БезСкидки Тогда
ПроцентСкидкиРесторан = СкидкиРесторан.Значение;
//ИначеЕсли СкидкиРесторан = Перечисления.ПроцентыСкидок.Двадцать Тогда
// ПроцентСкидкиРесторан = 20;
//ИначеЕсли СкидкиРесторан = Перечисления.ПроцентыСкидок.Тридцать Тогда
// ПроцентСкидкиРесторан = 30;
//Иначе
// ПроцентСкидкиРесторан = 0;
КонецЕсли;
//////////////////////////////////////////////////////////////////
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| Номенклатура.Наименование,
| Номенклатура.Родитель
|ИЗ
| Справочник.Номенклатура КАК Номенклатура
|ГДЕ
| Номенклатура.Наименование = &Наименование";
Запрос.УстановитьПараметр("Наименование", Строка(НазваниеНоменклатуры));
РезультатЗапроса = Запрос.Выполнить();
ТЗЗапроса = РезультатЗапроса.Выгрузить();
Для Каждого строкаТЗ из ТЗЗапроса Цикл
Родитель = строкаТЗ.Родитель.Родитель;
КонецЦикла;
//Сообщить(Родитель);
ТекущийПользователь = Константы.ТекущийПользователь.Получить();
ПроцентЧаевых = Окр(СтрокаТаблицаПараметровСистемы.ПроцентЧаевых,2);
Если Родитель = Справочники.Номенклатура.НайтиПоНаименованию(СтрокаТаблицаПараметровСистемы.ГруппаРесторан) Тогда//Справочники.Номенклатура.НайтиПоНаименованию("Ресторан") Тогда
//Для Каждого СтрокаИзТЗЗапросКПользовательскимНастройкам из ТЗЗапросКПользовательскимНастройкам Цикл
ТекущаяОрганизация = СтрокаТаблицаПараметровСистемы.ОрганизацияДляРесторана;
ЗапросККассе = Новый Запрос;
ЗапросККассе.Текст = "ВЫБРАТЬ
| КассыККМ.Ссылка,
| КассыККМ.Владелец
|ИЗ
| Справочник.КассыККМ КАК КассыККМ
|ГДЕ
| КассыККМ.Владелец = &Владелец";
ЗапросККассе.УстановитьПараметр("Владелец", ТекущаяОрганизация);
ТЗЗапросККассе = ЗапросККассе.Выполнить().Выгрузить();
Для Каждого строкаТЗЗапросККассе из ТЗЗапросККассе Цикл
ТекущаяКасса = строкаТЗЗапросККассе.Ссылка;
КонецЦикла;
//КонецЦикла;
Иначе
// Для Каждого СтрокаИзТЗЗапросКПользовательскимНастройкам из ТЗЗапросКПользовательскимНастройкам Цикл
ТекущаяОрганизация = СтрокаТаблицаПараметровСистемы.ОрганизацияДляБара;//СтрокаИзТЗЗапросКПользовательскимНастройкам.ОрганизацияБар;
ЗапросККассе = Новый Запрос;
ЗапросККассе.Текст = "ВЫБРАТЬ
| КассыККМ.Ссылка,
| КассыККМ.Владелец
|ИЗ
| Справочник.КассыККМ КАК КассыККМ
|ГДЕ
| КассыККМ.Владелец = &Владелец";
ЗапросККассе.УстановитьПараметр("Владелец", ТекущаяОрганизация);
ТЗЗапросККассе = ЗапросККассе.Выполнить().Выгрузить();
Для Каждого строкаТЗЗапросККассе из ТЗЗапросККассе Цикл
ТекущаяКасса = строкаТЗЗапросККассе.Ссылка;
КонецЦикла;
//КонецЦикла;
КонецЕсли;
ПолеВвода1 = Справочники.Номенклатура.НайтиПоНаименованию(НазваниеНоменклатуры);
Флаг = Ложь;
//***// 10.04.15
Если ТекущаяОрганизация = СтрокаТаблицаПараметровСистемы.ОрганизацияДляБара Тогда
Если ТаблицаСписокЗаказов.Количество() > 0 Тогда
Для Каждого строкаТекущейТаблицы из ТаблицаСписокЗаказов Цикл
Если Справочники.Номенклатура.НайтиПоНаименованию(ПолеВвода1.Наименование) = строкаТекущейТаблицы.Наименование И ТекущийНомерСтол = строкаТекущейТаблицы.НомерСтола Тогда
Флаг = Ложь;
Иначе
Флаг = Истина;
//Режим = РежимДиалогаВопрос.ДаНет;
//Текст = "ru = ""Добавлять в фискальный чек ?"";"
//+ " en = ""Do you want to continue?""";
//Ответ = Вопрос(НСтр(Текст), Режим, 0);
//Пропуск=0;
//
//Если Ответ = КодВозвратаДиалога.Да Тогда
// Пропуск=1; break;
//Иначе
// Пропуск=2;break;
//КонецЕсли;
КонецЕсли;
КонецЦикла;
Если Флаг = Истина Тогда
Режим = РежимДиалогаВопрос.ДаНет;
Текст = "ru = ""Добавлять в фискальный чек ?"";"
+ " en = ""Do you want to continue?""";
Ответ = Вопрос(НСтр(Текст), Режим, 0);
Пропуск=0;
Если Ответ = КодВозвратаДиалога.Да Тогда
Пропуск=1;
КонецЕсли;
КонецЕсли;
Иначе
Режим = РежимДиалогаВопрос.ДаНет;
Текст = "ru = ""Добавлять в фискальный чек ?"";"
+ " en = ""Do you want to continue?""";
Ответ = Вопрос(НСтр(Текст), Режим, 0);
Пропуск=0;
Если Ответ = КодВозвратаДиалога.Да Тогда
Пропуск=1;
КонецЕсли;
КонецЕсли;
//Иначе
КонецЕсли;
//***//10.04.15
//:8.01.15
// функция которая непосредственно добавляет номенклатуру в таблицу список заказов на входе принимает название номенклатуры
СуммаПоЧекуПерем = 0;
//28.02.15
СуммаПоЧеку = СуммаПоЧекуПерем;
// СуммаПоЧеку = 0;
//НазваниеНоменклатуры = Элементы.Кнопка1.Заголовок;
ЦенаНоменклатуры = ЗапросКЦенам(Справочники.Номенклатура.НайтиПоНаименованию(НазваниеНоменклатуры));
СтрЕдинИзм = ЗапросКЕдиницам(НазваниеНоменклатуры);
Если ТекущийНомерСтол = Справочники.НомернойФонд.НайтиПоНаименованию("Все") ИЛИ ТекущийНомерСтол = Справочники.НомернойФонд.ПустаяСсылка() Тогда
Сообщить("Выберите номер для внесения номенклатуры в заказ");
Иначе
//СтрокаТабличнойЧасти = Справочники.Номенклатура.НайтиПоНаименованию(ном);
// СтрЕдинИзм = СтрокаТабличнойЧасти.ЕдиницаХраненияОстатков;
НачальноеКоличество = 1;
Для Каждого строкаТекущейТаблицы из ТаблицаСписокЗаказов Цикл
Если Справочники.Номенклатура.НайтиПоНаименованию(ПолеВвода1.Наименование) = строкаТекущейТаблицы.Наименование И ТекущийНомерСтол = строкаТекущейТаблицы.НомерСтола Тогда
ПеремНаимен = ПолеВвода1;
СтолВТаблице = ТекущийНомерСтол;
Если строкаТекущейТаблицы.Организация = СтрокаТаблицаПараметровСистемы.ОрганизацияДляБара И ПроцентСкидкиБар > 0 Тогда
строкаТекущейТаблицы.ПроцентСкидки = ПроцентСкидкиБар;
ИначеЕсли строкаТекущейТаблицы.Организация = СтрокаТаблицаПараметровСистемы.ОрганизацияДляРесторана и ПроцентСкидкиРесторан > 0 Тогда
строкаТекущейТаблицы.ПроцентСкидки = ПроцентСкидкиРесторан;
конецЕсли;
строкаТекущейТаблицы.Количество = строкаТекущейТаблицы.Количество + 1 ;
строкаТекущейТаблицы.Сумма = строкаТекущейТаблицы.Количество * строкаТекущейТаблицы.Цена;
строкаТекущейТаблицы.ПроцентЧаевых = Окр(строкаТекущейТаблицы.Сумма * ПроцентЧаевых,0,1);
КонецЕсли;
КонецЦикла;
//:13.01.15 - получаем пользовательские настройки, в частности организацию
//ИмяОтветственного =Константы.ТекущийПользователь.Получить();
//ОрганизацияПользователя = ТЗ.Найти(ИмяОтветственного, "ИмяФизЛица").Организация;
//ТекущаяОрганизация = Справочники.Организации.НайтиПоНаименованию(ОрганизацияПользователя);
////ДоговорКонтр = Справочники.Контрагенты.НайтиПоНаименованию( "Контрагент по умолчанию");
//Договоры =Справочники.ДоговорыКонтрагентов;
//НайденнаяСсылкаДоговор = Договоры.НайтиПоКоду("000000329");//.Выбрать(,ДоговорКонтр,,);//НайтиПоРеквизиту("Владелец",ДоговорКонтр);
//Если НайденнаяСсылкаДоговор = Договоры.ПустаяСсылка() Тогда
// Сообщить("Договор не найден");
//Иначе
//КонецЕсли;
Если ТаблицаСписокЗаказов.Количество()= 0 ИЛИ ПеремНаимен <>ПолеВвода1 ИЛИ ТекущийНомерСтол <> СтолВТаблице тогда
НоваяСтрока = ТаблицаСписокЗаказов.Добавить();
НоваяСтрока.Наименование = ПолеВвода1;
НоваяСтрока.Количество = НачальноеКоличество;
НоваяСтрока.ЕдиницыИзмерения = Справочники.ЕдиницыИзмерения.НайтиПоНаименованию(СтрЕдинИзм);
НоваяСтрока.НомерСтола = ТекущийНомерСтол;
НоваяСтрока.Цена = ЦенаНоменклатуры;
НоваяСтрока.Сумма = ЦенаНоменклатуры;
Если ТекущаяОрганизация = СтрокаТаблицаПараметровСистемы.ОрганизацияДляБара И ПроцентСкидкиБар > 0 Тогда
НоваяСтрока.ПроцентСкидки = ПроцентСкидкиБар;
ИначеЕсли ТекущаяОрганизация = СтрокаТаблицаПараметровСистемы.ОрганизацияДляРесторана И ПроцентСкидкиРесторан > 0 Тогда
НоваяСтрока.ПроцентСкидки = ПроцентСкидкиРесторан;
Иначе
КонецЕсли;
НоваяСтрока.ПроцентЧаевых = Окр(ЦенаНоменклатуры * ПроцентЧаевых,0,1);
НоваяСтрока.Организация = ТекущаяОрганизация;
НоваяСтрока.КассаККМ = ТекущаяКасса; //:***//
Если Пропуск=1 Тогда
НоваяСтрока.ФискальныйЧек = Истина;
Иначе
КонецЕсли;
//НоваяСтрока.Контрагент = Справочники.Контрагенты.НайтиПоНаименованию( "Контрагент по умолчанию");
//НоваяСтрока.ДоговорКонтрагента = НайденнаяСсылкаДоговор;
//КонецЦикла;
КонецЕсли;
//:28.02.15
Если ТекущийНомерСтол = Справочники.НомернойФонд.НайтиПоНаименованию("Все") Тогда
Элементы.ТаблицаСписокЗаказов.ОтборСтрок = Новый ФиксированнаяСтруктура("НомерСтола", );
СуммаПоЧекуПерем = РассчитатьСуммуКОплатеОбщую();
СуммаПоЧеку = СуммаПоЧекуПерем;
//СуммаПоЧеку = ТаблицаСписокЗаказов.Итог("Сумма") ;
Иначе
Элементы.ТаблицаСписокЗаказов.ОтборСтрок = Новый ФиксированнаяСтруктура("НомерСтола",ТекущийНомерСтол );
СуммаПоЧеку = ТаблицаСписокЗаказов.Итог("Сумма") ;
СуммаПоЧекуПерем = РассчитатьСуммуКОплатеОбщую();
СуммаПоЧеку = СуммаПоЧекуПерем;
КонецЕсли;
КонецЕсли;
//РассчитатьСуммуКОплатеПоКарте(); //:**//
ЭтаФорма.ТекущийЭлемент = Элементы.СуммаКОплате;
//КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПечатьПредварительногоЧека(Команда)
// если не выбран никакой номер, выводится предупреждающее сообщение
Дата1 = Формат(ТекущаяДата(),"Д");
ТаблицаПараметровСистемы=МодульСовАйти.ПолучитьПараметрыСистемы(Дата1);
Если ТаблицаПараметровСистемы.Количество()>0 Тогда
СтрокаТаблицаПараметровСистемы = ТаблицаПараметровСистемы[0];
Иначе
Сообщить("Заполните параметры системы на дату "+Дата1+"...");
КонецЕсли;
Если ТекущийНомерСтол = Справочники.НомернойФонд.ПустаяСсылка() Тогда
Сообщить("Выберите номер для печати предварительного чека");
Иначе
// иначе создаем таблицу значений, в которую добавляем заказы по текущему номеру
ТаблицаЗаказ = Новый ТаблицаЗначений;
ТаблицаЗаказ.Колонки.Добавить("Наименование");
ТаблицаЗаказ.Колонки.Добавить("Количество");
ТаблицаЗаказ.Колонки.Добавить("Цена");
ТаблицаЗаказ.Колонки.Добавить("Сумма");
ТаблицаЗаказ.Колонки.Добавить("ПроцентСкидки");
ТаблицаЗаказ.Колонки.Добавить("ЕдиницыИзмерения");
ТаблицаЗаказ.Колонки.Добавить("НомерСтола");
Для Каждого СтрокаТаблицаЗаказ из ТаблицаСписокЗаказов Цикл
Если ТекущийНомерСтол = СтрокаТаблицаЗаказ.НомерСтола Тогда
Стр = ТаблицаЗаказ.Добавить();
Стр.Наименование = СтрокаТаблицаЗаказ.Наименование;