procedure Initialize(Xml: Variant);
begin
  ListInfo := TStringList.Create;
  QueryInitialization;
  with Xml.documentElement, TStringList.Create do
  try
    DirMain := ExtractFilePath(getAttribute('INI_FILE'));
    FileLog := DirMain + 'UfebsLoad.Log';
    FileInfo := DirMain + 'UfebsInfo.Log';
  finally
    Free;
  end;
end; {End Initialize}

procedure Finalize;
begin
  ListInfo.Free;
  QueryFinalization;
end; {End Finalize}

function CheckCode(Name, Code: String; IsInfo: Boolean = False): Boolean;
begin
  VarValue := QueryField('Select Id From ' + Name + ' Where Code = ?', [Code], 'ID');
  if VarValue = nil then
    if IsInfo then
      WriteInfo('Не найден - ' + NameCode(Name) + ' (' + Code + ')')
    else
      WriteLog('Не найден - ' + NameCode(Name) + ' (' + Code + ')');
  Result := VarValue <> nil;
end; {End CheckCode}

function NameCode(Name: String): String;
begin
  case Name of
    'KADM': Result := 'Классификатор администраторов поступлений и выбытий';
    'KD': Result := 'Классификатор видов доходов';
    'KES': Result := 'Классификатор операций сектора государственного управления';
    else raise('Не известный код классификации: ' + Name);
  end;
end; {End NameCode}


begin
end.