Различия

Показаны различия между двумя версиями страницы.

--- external:pro_bonus:02_rkeeper_setup:01_rkeeper [2025/01/22 10:57] – Евгений Горносталь
+++ external:pro_bonus:02_rkeeper_setup:01_rkeeper [2025/12/11 10:20] (текущий) – Алексей Коробов
@@ Строка 1: / Строка 1: @@
 ====== Настройка r_keeper ======
+**Важно!** Для работы с чеками намеренияя __при наличии двух фискальных регистраторов__ ProBonus корректно работает только в режиме "Единый чек перед оплатой".
 ===== PDS интерфейс =====
 Редактор → Сервис → Станции и устройства → на закладке "Устройства" нужного кассового сервера добавить новый "PDS interface".
@@ Строка 6: / Строка 9: @@
   - **PDS Server Name** - Уникальное (в рамках сети) имя. Регистр важен! Далее потребуется для настройки [[external:pro_bonus:02_rkeeper_setup:02_farcard|FarCards]].
   - **Look Up Card By Mail Addr** - Установить значение "Yes, error on not found".
+  - **Pass ALL Receipts XML data** - By script
+  - **Authorize before transaction** - Compatible
+  - **Pass ALL Bills XML data** - No
 {{ :external:pro_bonus:02_rkeeper_setup:pasted:20221009-091620.png |}}
@@ Строка 44: / Строка 50: @@
 {{ :external:pro_bonus:02_rkeeper_setup:pasted:20221109-092435.png |}}
 <hidden Код скрипта>
+<code>
 begin
   if (pos('7', Parameter) = 1) and (Length(Parameter) = 11) then
         Result := true;
 end;
+</code>
+</hidden>
+<hidden Код скрипта чуть сложнее, с возможностью ввода номера в любом формате>
+<code>
+begin
+//простой вариант, с клавиатуры ввели номер в том виде в каком он хранится в ProBonus
+  if (pos('7', Parameter) = 1) and (Length(Parameter) = 11) then
+        Result := true;
+//с клавиатуры ввели номер начинающийся с "+7", отрезаем "+" в начале
+  if (pos('+', Parameter) = 1) and (pos('7', Parameter) = 2) and (Length(Parameter) = 12) then
+     begin
+        Delete(Parameter, 1, 1)
+        Result := true;
+     end;
+//с клавиатуры ввели номер начинающийся с "8", меняем этот символ на "7"
+  if (pos('8', Parameter) = 1) and (Length(Parameter) = 11) then
+     begin
+        Parameter[1] := '7';
+        Result := true;
+     end;
+//с клавиатуры ввели номер вообще без префикса "7", "+7" или "8", добавляем в начале номера "7"
+  if (Length(Parameter) = 10) then
+     begin
+        Insert('7', Parameter, 1);
+        Result := true;
+     end;
+end;
+</code>
 </hidden>
@@ Строка 59: / Строка 100: @@
 <hidden Код скрипта>
+<code>
   { ожидаем ХХХ-ХХХ }
   if (length(Parameter) = 7) and (pos('-', Parameter) = 4)  then Result := True
   else  Result := False
+</code>
 </hidden>