Добрый день! Каким образом возможно сделать так чтобы при отмене пречека у пользователя с правами отмены при нажатии кнопки дополнительно требовалась прокатка карты менеджера? Версия р-кипера 7
Добрый день! Каким образом возможно сделать так чтобы при отмене пречека у пользователя с правами отмены при нажатии кнопки дополнительно требовалась прокатка карты менеджера? Версия р-кипера 7
Вы хотите, чтоб он еще и подтверждал свое право?Добрый день! Каким образом возможно сделать так чтобы при отмене пречека у пользователя с правами отмены при нажатии кнопки дополнительно требовалась прокатка карты менеджера? Версия р-кипера 7
Сервис-Операции-Редактирование заказа-Оплаты-Отмена пречека: дополнительное подтверждение= не пусто
Смежный вопрос, как сделать подтверждение пречека?Не менеджером, а чтобы окно всплывало, действительно ли вы хотите распечатать пречек, да / нет?
Иногда официанты ошибаются и нажимают кнопку "Пречек", что приводит к печати документа- с помощью скрипта перед печатью пречека выдается запрос с подтверждением
Текст скрипта:
Вариант №1 - скрипт на форме редактирования заказов, компонент CheckView, обработчик OnOrderModify:
procedure CheckViewOnOrderVerify(Sender: TObject; AVerifyType: TVerifyType; oper: integer; var AContinue: boolean);beginif AVerifyType = vtBill thenAContinue := GUI.RKMessageDlg('Напечатать пречек?', 0 ,3, 10000) = 6;end;
Вариант №2 - скрипт на обработку кассовых операций:
procedure CheckOperation107503(Operation, Parameter: integer; var ValidResult, CallNextTime: boolean);beginif operation = rkoPrintBill thenValidResult := GUI.RKMessageDlg('Напечатать пречек?', 0, 3, 10000) = 6;end;
Большое спасибо за ответ.
Единственное не получается сделать (первый раз со скриптами в рк7 сталкиваюсь).
Зашел в скрипты - контроль кассовых операций.
Создал новый скрипт, нажал SomeScript
Там сразу в первой строке вылезло
procedure CheckOperation1036170(Operation, Parameter: integer; var ValidResult, CallNextTime: boolean);
Редактировать я это никак не могу.
Для интереса дописал во второй строке
beginif operation = rkoPrintBill thenValidResult := GUI.RKMessageDlg('Напечатать пречек?', 0, 3, 10000) = 6;end;
При проверке ругается естественно на begin.
С формой редактирования заказа еще сложнее.
Зашел настройки - граф.интерфейс - формы.
Заказ - редактирование заказа.
Стандартную редактировать я не могу, создал копию.
Нажал , где ... кнопку форма.
Открылась графическая форма
Так и не нашел там как и куда добавлять скрпит.
В мануале кипера тоже не густо..
насколько я помню в паскале между begin и if должен быть пробел. а кипер написан как раз таки на дельфях, по крайней мере 6. судя по синтаксису скрипта 7-ка тоже.
Даже не обратил внимание.
Ну не суть.
Пречек.png
Все равно ошибка
// P>S
Там кое где еще надо было пробел поставить...
Прописал скрипт, но что-то не работает ничего.
Последний раз редактировалось Hendehog; 30.05.2017 в 07:38.
Рабочий скрипт
thenValidResult -> then ValidResultВсе равно ошибка
Хоть книжку какую по синтаксису Паскаля почитайте ttttttt
Ильин Александр, Компания "Соттос"
г Новосибирск +7 (383) 373-96-98; +7 (909) 533-93-92; nsk@sottos.ru
г Омск +7 (3812) 377-902; +7 (905) 098-92-06; abc@sottos.ru
www.sottos.ru | vk.com/sottos | fb.com/sottosru
Продажа и установка ПО R-Keeper, обучение, техническая поддержка 24/7