Различия

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

--- external:pro_bonus:02_rkeeper_setup:01_rkeeper [2025/06/30 11:29] – Евгений Агеев
+++ external:pro_bonus:02_rkeeper_setup:01_rkeeper [2025/12/11 10:20] (текущий) – Алексей Коробов
@@ Строка 50: / Строка 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>
@@ Строка 65: / Строка 100: @@
 <hidden Код скрипта>
+<code>
   { ожидаем ХХХ-ХХХ }
   if (length(Parameter) = 7) and (pos('-', Parameter) = 4)  then Result := True
   else  Result := False
+</code>
 </hidden>