create or alter procedure CHECK_INN (
    INN varchar(20),
    KPP varchar(12))
returns (
    RES integer,
    WR integer)
AS
declare variable n01 integer;
declare variable n02 integer;
declare variable n03 integer;
declare variable n04 integer;
declare variable n05 integer;
declare variable n06 integer;
declare variable n07 integer;
declare variable n08 integer;
declare variable n09 integer;
declare variable n10 integer;
declare variable n11 integer;
declare variable n12 integer;
declare variable i integer;

begin
  -- результат res
  -- 1 формально корректный ИНН/КПП, правильная длина и правильная контрольная сумма
  -- 0 неправльный.
  -- результат wr (warning)
  -- 1 формально "канонический" КПП (либо все чисто для физлиц)
  -- 0 КПП формально корректный, но не совпадают первые цыфры с ИНН и хвост не "01001"

  res = 1;
  wr  = 1;

  i=1;
  while ( i <= character_length(inn) ) do
  begin
    if ( substring(inn from i for 1) not in ('0','1','2','3','4','5','6','7','8','9') ) then res=0;
    i=i+1;
  end 
  if (res=0) then begin suspend; exit; end

  if (character_length(inn)=12 and substring(inn from 1 for 2)='00') --юрики, замаскированные под физиков двумя ведущими нулями
  then
    inn = substring(inn from 3);

  if (character_length(inn)=10) --юрики
  then
  begin
    n01 = substring(inn from 1 for 1);
    n02 = substring(inn from 2 for 1);
    n03 = substring(inn from 3 for 1);
    n04 = substring(inn from 4 for 1);
    n05 = substring(inn from 5 for 1);
    n06 = substring(inn from 6 for 1);
    n07 = substring(inn from 7 for 1);
    n08 = substring(inn from 8 for 1);
    n09 = substring(inn from 9 for 1);
    --контрольная
    n10 = substring(inn from 10 for 1);

    if (n10 = mod( mod(2*n01 + 4*n02 + 10*n03 + 3*n04 + 5*n05 + 9*n06 + 4*n07 + 6*n08 + 8*n09, 11),10) )
    then
    begin
      res=1;
      if (character_length(kpp)=9) then
      begin
          while ( i <= character_length(kpp) ) do
          begin
            if ( substring(kpp from i for 1) not in ('0','1','2','3','4','5','6','7','8','9') ) then res=0;
            i=i+1;
          end 

          if ((substring (inn from 1 for 4) != substring (kpp from 1 for 4)) or (substring (kpp from 5 ) != '01001')) then wr=0;

      end
      else
      begin
        /*if ( character_length(coalesce(kpp,'')) = 0) then  res=1; else*/ res=0;
      end
    end
    else
      res = 0;
  end
  else
  if (character_length(inn)=12) --физики
  then
  begin
    n01 = substring(inn from 1 for 1);
    n02 = substring(inn from 2 for 1);
    n03 = substring(inn from 3 for 1);
    n04 = substring(inn from 4 for 1);
    n05 = substring(inn from 5 for 1);
    n06 = substring(inn from 6 for 1);
    n07 = substring(inn from 7 for 1);
    n08 = substring(inn from 8 for 1);
    n09 = substring(inn from 9 for 1);
    n10 = substring(inn from 10 for 1);

    --контрольная
    n11 = substring(inn from 11 for 1);
    n12 = substring(inn from 12 for 1);

    if (n11 = mod( mod(7*n01 + 2*n02 + 4*n03 + 10*n04 + 3*n05 + 5*n06 + 9*n07 + 4*n08 + 6*n09 + 8*n10, 11),10)
          and
        n12 = mod( mod(3*n01 + 7*n02 + 2*n03 + 4*n04 + 10*n05 + 3*n06 + 5*n07 + 9*n08 + 4*n09 + 6*n10 + 8*n11, 11),10) )

    then
    begin
      if ( character_length(coalesce(kpp,'')) = 0) then  res=1; else res=0;
    end
    else
      res = 0;
  end
  else
    res = 0;

  if (res=0) then wr=0;

  suspend;
end