Сообщение от
SLion
function MCR1001280(DeviceSignal: Integer; DeviceIdent: Integer; var Parameter: String): Boolean;var RestCode: integer;begin result := false; { 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 = 123450002 then Parameter := '30'+Parameter; Result := RestCode div 10000 = IntParam('EnterpriseCode') end; end;end;