Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
16 апр 2024, 22:32

1с общепит

Автор miha2004, 14 апр 2013, 19:57

0 Пользователей и 1 гость просматривают эту тему.

miha2004

Здравствуйте. Помогите переделать обработку.


ИначеЕсли Об="кнКухня" Тогда

ЗаписатьЧек(1);
Чеки=СоздатьОбъект("Документ.ТоварныйЧек");
Чеки.НайтиДокумент(Чек);

ТабПечать = СоздатьОбъект("ТаблицаЗначений");
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Заказ");
ПечНомер = Чеки.НомерДок;
ПечКасса = Чеки.ККМ.Наименование;
//ПечКасса = "Первая";
ПечДата  = Чеки.ДатаДок;
//ПечДата  = ТекущаяДата();
ПечВремя = ТекущееВремя();
//ПечВремя = ТекущееВремя();
Таб.ВывестиСекцию("Шапка");
Чеки.ВыбратьСтроки();
Пока Чеки.ПолучитьСтроку() = 1 Цикл
//печатаем только блюда и не напитки
// Если (Чеки.Товар.ТипНоменклатуры = Перечисление.ТипыНоменклатуры.Блюдо)и(Чеки.Товар.ВидБлюда.Наименование <> "Вина")и(Чеки.Товар.ВидБлюда.Наименование <> "Горячии напитки")и(Чеки.Товар.ВидБлюда.Наименование <> "Напитки")и(Чеки.Товар.ВидБлюда.Наименование <> "Полуфабрикаты") Тогда
ПечБлюдо = Чеки.Товар;
//ПечБлюдо = "тЕст";
ПечКолво = Чеки.Количество;
//ПечКолво =1;
Таб.ВывестиСекцию("Строка");
// КонецЕсли;
КонецЦикла;
Таб.ВывестиСекцию("Итог");
Таб.ПараметрыСтраницы(1,,,0,0,0,0,0,0,0,1,"BTP");
// Таб.Показать("Заказ");
Таб.Напечатать(0);


Данная обработка выводит заказ на кухню, причем если в заказ после печати добавить еще блюда печать выводится все равно всего документа. Руководство требует чтобы после печати на кухню при добавлении новых блюд старые не печатались, печатались только новые. Как изменить код?
(Рарус общепит 6)

Теги:
Рейтинг@Mail.ru

Поиск