external:pro_bonus:02_rkeeper_setup:01_rkeeper

Различия

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

Ссылка на это сравнение

Предыдущая версия справа и слева Предыдущая версия
Следующая версия
Предыдущая версия
external:pro_bonus:02_rkeeper_setup:01_rkeeper [2025/12/11 10:19] Алексей Коробовexternal:pro_bonus:02_rkeeper_setup:01_rkeeper [2026/04/13 15:47] (текущий) Алексей Коробов
Строка 50: Строка 50:
 {{ :external:pro_bonus:02_rkeeper_setup:pasted:20221109-092435.png |}} {{ :external:pro_bonus:02_rkeeper_setup:pasted:20221109-092435.png |}}
 <hidden Код скрипта> <hidden Код скрипта>
 +<code>
 begin begin
   if (pos('7', Parameter) = 1) and (Length(Parameter) = 11) then    if (pos('7', Parameter) = 1) and (Length(Parameter) = 11) then 
         Result := true;           Result := true;  
 end; end;
 +</code>
 </hidden> </hidden>
  
Строка 59: Строка 61:
 <hidden Код скрипта чуть сложнее, с возможностью ввода номера в любом формате> <hidden Код скрипта чуть сложнее, с возможностью ввода номера в любом формате>
 <code> <code>
 +begin
 //простой вариант, с клавиатуры ввели номер в том виде в каком он хранится в ProBonus //простой вариант, с клавиатуры ввели номер в том виде в каком он хранится в ProBonus
   if (pos('7', Parameter) = 1) and (Length(Parameter) = 11) then    if (pos('7', Parameter) = 1) and (Length(Parameter) = 11) then 
         Result := true;          Result := true; 
                  
-//с клавиатуры ввели номер начинающийся с "+7", отрезаем "+" в началае       +//с клавиатуры ввели номер начинающийся с "+7", отрезаем "+" в начале       
   if (pos('+', Parameter) = 1) and (pos('7', Parameter) = 2) and (Length(Parameter) = 12) then   if (pos('+', Parameter) = 1) and (pos('7', Parameter) = 2) and (Length(Parameter) = 12) then
      begin         begin   
Строка 97: Строка 100:
  
 <hidden Код скрипта> <hidden Код скрипта>
 +<code>
   { ожидаем ХХХ-ХХХ }   { ожидаем ХХХ-ХХХ }
   if (length(Parameter) = 7) and (pos('-', Parameter) = 4)  then Result := True   if (length(Parameter) = 7) and (pos('-', Parameter) = 4)  then Result := True
   else  Result := False   else  Result := False
 +</code>
 </hidden> </hidden>
 +
 +==== MCR-алгоритм для динамического Apple Wallet ====
 +{{:external:pro_bonus:02_rkeeper_setup:pasted:20260413-154621.png}}
 +{{:external:pro_bonus:02_rkeeper_setup:pasted:20260413-154724.png}}
 +<code>
 +begin
 +  if (length(Parameter) = 8) and (pos('D', Parameter) = 1)  then Result := True
 +  else  Result := False            
 +end;
 +</code>
  
 ==== Универсальный MCR-алгоритм (не рекомендуется) ==== ==== Универсальный MCR-алгоритм (не рекомендуется) ====
  • external/pro_bonus/02_rkeeper_setup/01_rkeeper.1765437583.txt.gz
  • Последнее изменение: 2025/12/11 10:19
  • Алексей Коробов