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 [2025/12/11 10:20] (текущий) Алексей Коробов
Строка 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>
  
  
 <hidden Код скрипта чуть сложнее, с возможностью ввода номера в любом формате> <hidden Код скрипта чуть сложнее, с возможностью ввода номера в любом формате>
 +<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   
Строка 84: Строка 88:
                                                            
 end; end;
 +</code>
 </hidden> </hidden>
  
Строка 95: Строка 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>
  
  • external/pro_bonus/02_rkeeper_setup/01_rkeeper.1765437545.txt.gz
  • Последнее изменение: 2025/12/11 10:19
  • Алексей Коробов