пример без масок (основан на изменении стандартного скрипта)
MCR скрипт для поддержки карт конкретного ресторана (ПДС карты)
выделенное замените на код корпорации (первые пять цифр полного кода) и код ресторана (последние четыре цифры полного года)
function MCR1001930(DeviceSignal: Integer; DeviceIdent: Integer; var Parameter: String): Boolean;
var RestCode: integer;
begin
{ 778=КодРесторана=КодКарты }
if pos('778=', Parameter) = 1 then begin
delete(Parameter, 1, 4);
if pos('=', Parameter) > 1 then begin
RestCode := StrToIntDef(copy(Parameter, 1, pos('=', Parameter) - 1),-1);
delete(Parameter, 1, pos('=', Parameter));
if RestCode mod 10000 = 0 then
{без кода ресторана - на всю компанию}
Result := RestCode div 10000 = 12345
else
Result := RestCode = 1234;
end;
end;
end;
Можно написать по другому: (для всех карт вида 778=ххххххххх=nnnnn)
function MCR1001930(DeviceSignal: Integer; DeviceIdent: Integer; var Parameter: String): Boolean;
var RestCode: integer;
begin
if pos('778=', Parameter) = 1 then begin
delete(Parameter, 1, 4);
if pos('=', Parameter) > 1 then begin
RestCode := StrToIntDef(copy(Parameter, 1, pos('=', Parameter) - 1),-1);
delete(Parameter, 1, pos('=', Parameter));
result:=true;
end;
end;
end;
взято с: http://c-o-s.ru/e107_plugins/faq/faq.php?0.cat.9.23
Насчет стабильного релиза - не понял.