procedure TfmImport1C.Button1Click(Sender: TObject);
var
  f: TStringList;
  s: string;
  i, pos1, pos2, len: integer;
  year, month: Word;
  LScode, LSname, FIO, city, street, house, flat, uslcode, uslname, rsocode,
    rsoINN, period, addr, SBCode: string;
  sum, sum_in, sum_nach, sum_pay, sum_out, tarif: real;
  usluga_id, id_rso: integer;

begin
  with DM.FDQuery4 do begin
    Close;
    SQL.Text := '';
  end;
  
  FormatSettings.DecimalSeparator := ',';
  if FileExists(Edit1.Text) then
  begin
    RE.Lines.Clear;
    RE.Lines.Add('Старт...');
  
    // ..... Убрал код всякие проверки и разборы строк... не важно...
  
    period := FormatDateTime('yyyy-mm-dd', EncodeDate(year, month, 1));
    
	RE.Lines.Add('Период: ' + period);

    //Читаем файл
	f := TStringList.Create;
    f.LoadFromFile(Edit1.Text);
    
	ProgressBar1.Max := f.Count;
    ProgressBar1.Position := 0;
    ProgressBar1.Enabled := True;
    RE.Lines.Add('Всего записей: ' + IntToStr(ProgressBar1.Max));
    // Очищаем Таблицу БД
    with DM.FDQuery1 do
    begin
      SQL.Text := 'DELETE FROM nach1C_temp';
      ExecSQL;
    end;
  end
  else
  begin
    RE.Lines.Add('File not found. Execution terminated!');
    exit;
  end;

  ProgressBar1.Visible := True;
  // Поехали читать строки
  for i := 0 to f.Count - 1 do
  begin
    s := f.Strings[i];

    ProgressBar1.Position := i;
    Application.ProcessMessages;
    
	if (s[1] <> '#') and (s[1] <> '=') then
    begin
      FormatSettings.DecimalSeparator := ',';
      pos2 := Pos(';', s);
      LScode := Copy(s, 1, pos2 - 1);
      Delete(s, 1, pos2);
      pos2 := Pos(';', s);
      LSname := Copy(s, 1, pos2 - 1);
      Delete(s, 1, pos2);
      pos2 := Pos(';', s);
      FIO := Copy(s, 1, pos2 - 1);
      Delete(s, 1, pos2);
      pos2 := Pos(';', s);
      city := Copy(s, 1, pos2 - 1);
      Delete(s, 1, pos2);
      pos2 := Pos(';', s);
      street := Copy(s, 1, pos2 - 1);
      Delete(s, 1, pos2);
      
	  // .... Код сократил.... Выковыриваем данные из строки
	 
      begin // Это услуга полная
        SBCode := fmSettings.GetOption('SBNumGA');
        
		// Начинаем запись в БД
        usluga_id := 0;
        // Проверяем есть ли такая услуга и сколько их записей
        if length(rsocode) = 0 then
        begin
          if sum_out <> 0 then
            RE.Lines.Add('ERROR: line[' + IntToStr(i) + ']. ЛС[' + LScode +
              '] Адр[' + street + ',' + house + ',' + flat + '] Услуга[' +
              uslname + '] Поставщик не заполнен! Пропущена');
          // Необходимо создавать историю дом+услуга и в ней искать РСО
          // и потом определять id услуги

        end
        else // if length(rsocode) = 0 then
        begin
          with DM.FDQuery1 do
          begin
            Close;
            s := 'SELECT * FROM uslugi WHERE ' + '(code_usl = ''' + uslcode +
              ''') AND ' + '(code_rso = ''' + rsocode + ''')';
            SQL.Text := s;
            Open;
          end;
          if DM.FDQuery1.RecordCount = 1 then
            usluga_id := DM.FDQuery1.FieldByName('id').AsInteger
          else if DM.FDQuery1.RecordCount > 1 then
          begin
            // Найдено больше одной услуги с таким кодом. Уточняем по рсо
            RE.Lines.Add('ERROR: line[' + IntToStr(i) +
              '] Найдено несколько услуг [codeusl=' + uslcode + ';rsocode=' +
              rsocode + '] ');
          end
          else
          begin
            // Не найдено такой услуги, надо заводить новую
            // ищем поставщика (РСО) если нету то заводим
            with DM.FDQuery1 do
            begin
              Close;
              s := 'SELECT * FROM rso WHERE code = ''' + rsocode + '''';
              SQL.Text := s;
              Open;
            end;
            if DM.FDQuery1.RecordCount = 1 then
              id_rso := DM.FDQuery1.FieldByName('id').AsInteger
            else
            begin
              // Ресурсника нет, заводим
              with DM.FDQuery1 do
              begin
                
				// ...... Данный запрос не срабатывает, т.к. уже все нужные данные в таблице есть
				
				Close;
                s := 'INSERT INTO rso (code, inn)' + ' VALUES (''' + rsocode +
                  ''',''' + rsoINN + ''')';
                SQL.Text := s;
                ExecSQL;
                s := 'SELECT * FROM rso WHERE inn = "' + rsoINN + '"';
                SQL.Text := s;
                Open;
                id_rso := FieldByName('id').value;
              end;
            end;
            // заводим услугу
            with DM.FDQuery1 do
            begin
              Close;
              
			  // ...... Данный запрос не срабатывает, т.к. уже все нужные данные в таблице есть
			  
			  s := 'INSERT INTO uslugi (code_usl, name_usl, code_rso, id_rso)' +
                ' VALUES (''' + uslcode + ''',''' + uslname + ''',''' + rsocode
                + ''',' + IntToStr(id_rso) + ')';
              SQL.Text := s;
              ExecSQL;
              s := 'SELECT * FROM uslugi WHERE ' + '(code_usl = ''' + uslcode +
                ''') AND ' + '(id_rso = ' + IntToStr(id_rso) + ')';
              SQL.Text := s;
              Open;
              usluga_id := FieldByName('id').value;
              RE.Lines.Add('Inf: Заведена услуга id=' + IntToStr(usluga_id) +
                ' name_usl=' + uslname + ' поставщик инн ' + rsoINN);
            end;

          end;
        end;
        if usluga_id = 0 then
        begin
          if sum_out <> 0 then
            RE.Lines.Add('ERROR: line[' + IntToStr(i) +
              '] Пропущена. Услуга не определена!');
        end
        else
        begin
          // Добавляем запись в БД
          // Ищем есть ли такая запись, то UPDATE иначе INSERT
          with DM.FDQuery2 do
          begin
            Close;
            SQL.Text := 'SELECT id FROM nach1C WHERE ' + 'lscode = ' + '''' +
              LScode + ''' AND ' + 'period =''' + period + ''' AND usluga_id = '
              + IntToStr(usluga_id);
            Open;
            if RecordCount > 0 then
              id_rso := FieldByName('id').value
            else
              id_rso := -1;
          end;
          if id_rso = -1 then
            with DM.FDQuery4 do // Добовляем новую запись
            begin
              //Close;
              if (length(FIO) = 0) or (FIO = '<>') then
                FIO := LSname;
              addr := city + ', ' + street + ', ' + house + ', ';

              addr := addr + flat;
              FormatSettings.DecimalSeparator := '.';
              s := 'INSERT INTO nach1C (lscode, FIO, addr, period, usluga_id,sum_in, '
                + 'sum_nach, sum_opl, sum_out, tarif, SBCode)' + ' VALUES (''' +
                LScode + ''',''' + FIO + ''',''' + addr + ''',''' + period +
                ''',' + IntToStr(usluga_id) + ',' + FloatToStr(sum_in) + ',' +
                FloatToStr(sum_nach) + ',' + FloatToStr(sum_pay) + ',' +
                FloatToStr(sum_out) + ',' + FloatToStr(tarif) + ',''' +
                SBCode + ''');';
              SQL.Add(s);
              //ExecSQL;
            end
          else
            with DM.FDQuery4 do // Обновляем существующую запись
            begin
              //Close;
              if (length(FIO) = 0) or (FIO = '<>') then
                FIO := LSname;
              addr := city + ', ' + street + ', ' + house + ', ';
              // if Pos('д.', house) = 0 then
              // addr := addr + 'д.';
              // addr := addr + house + ', ';
              // if Pos('кв.', flat) = 0 then
              // addr := addr + 'кв.';
              addr := addr + flat;
              FormatSettings.DecimalSeparator := '.';
              s := 'UPDATE nach1C SET ' + 'lscode = ''' + LScode + '''' +
                ', FIO = ''' + FIO + '''' + ', addr = ''' + addr + '''' +
                ', period = ''' + period + '''' + ', usluga_id = ' +
                IntToStr(usluga_id) + ', sum_in = ' + FloatToStr(sum_in) +
                ', sum_nach = ' + FloatToStr(sum_nach) + ', sum_opl = ' +
                FloatToStr(sum_pay) + ', sum_out = ' + FloatToStr(sum_out) +
                ', tarif = ' + FloatToStr(tarif)+';';
              SQL.Add(s);
              //SQL.Text := s;
              //ExecSQL;
            end;
        end;
      end;
    end; // if (s[1] <> '#') and (s[i] <> '=')

  end;
  ProgressBar1.Visible := False;

  RE.Lines.Add('Чтение файла завершено, Записываем в БД...');
  with DM do begin
    FDConnection1.StartTransaction;
    FDQuery4.ExecSQL;
    FDConnection1.Commit;
  end;
  RE.Lines.Add('Импорт файла завершен!');
  f.Free;
end;

var
  f: TStringList;
  s: string;
begin
// читаем файл
    f := TStringList.Create;
    f.LoadFromFile(Edit1.Text);

//разбираем построчно
for i := 0 to f.Count - 1 do
  begin
    s := f.Strings[i];

    // Выковыриваем данные из строки s
    pos2 := Pos(';', s);
    Данные1 := Copy(s, 1, pos2 - 1);
    Delete(s, 1, pos2);

    Данные2 := Pos(';', s);
    LSname := Copy(s, 1, pos2 - 1);
    Delete(s, 1, pos2);

    //Делаем несколько запросов, чтобы данные проверить/дополнить
    with DM.FDQuery1 do
       begin
            Close;
            s := 'SELECT * FROM uslugi WHERE ' + '(code_usl = ''' + uslcode +
              ''') AND ' + '(code_rso = ''' + rsocode + ''')';
            SQL.Text := s;
            Open;
       end;
     if DM.FDQuery1.RecordCount = 1 then
            usluga_id := DM.FDQuery1.FieldByName('id').AsInteger
    else if DM.FDQuery1.RecordCount > 1 then
          begin
            // Найдено больше одной услуги с таким кодом. Уточняем по рсо
            RE.Lines.Add('ERROR: line[' + IntToStr(i) +
              '] Найдено несколько услуг [codeusl=' + uslcode + ';rsocode=' +
              rsocode + '] ');
          end;

   //Таких запросов штук 5;

//В итоге подготавливаем запрос для добавления данных в таблицу
// Добавляем запись в БД
          // Ищем есть ли такая запись, то UPDATE иначе INSERT
          with DM.FDQuery2 do
          begin
            Close;
            SQL.Text := 'SELECT id FROM nach1C WHERE ' + 'lscode = ' + '''' +
              LScode + ''' AND ' + 'period =''' + period + ''' AND usluga_id = '
              + IntToStr(usluga_id);
            Open;
            if RecordCount > 0 then
              id_rso := FieldByName('id').value
            else
              id_rso := -1;
          end;
          if id_rso = -1 then
            with DM.FDQuery4 do // Добовляем новую запись
            begin
              //Close;
              if (length(FIO) = 0) or (FIO = '<>') then
                FIO := LSname;
              addr := city + ', ' + street + ', ' + house + ', ';

              addr := addr + flat;
              FormatSettings.DecimalSeparator := '.';
              s := 'INSERT INTO nach1C (lscode, FIO, addr, period, usluga_id,sum_in, '
                + 'sum_nach, sum_opl, sum_out, tarif, SBCode)' + ' VALUES (''' +
                LScode + ''',''' + FIO + ''',''' + addr + ''',''' + period +
                ''',' + IntToStr(usluga_id) + ',' + FloatToStr(sum_in) + ',' +
                FloatToStr(sum_nach) + ',' + FloatToStr(sum_pay) + ',' +
                FloatToStr(sum_out) + ',' + FloatToStr(tarif) + ',''' +
                SBCode + ''');';
              SQL.Add(s);
              //ExecSQL;
            end
          else
            with DM.FDQuery4 do // Обновляем существующую запись
            begin
              //Close;
              if (length(FIO) = 0) or (FIO = '<>') then
                FIO := LSname;
              addr := city + ', ' + street + ', ' + house + ', ';
              // if Pos('д.', house) = 0 then
              // addr := addr + 'д.';
              // addr := addr + house + ', ';
              // if Pos('кв.', flat) = 0 then
              // addr := addr + 'кв.';
              addr := addr + flat;
              FormatSettings.DecimalSeparator := '.';
              s := 'UPDATE nach1C SET ' + 'lscode = ''' + LScode + '''' +
                ', FIO = ''' + FIO + '''' + ', addr = ''' + addr + '''' +
                ', period = ''' + period + '''' + ', usluga_id = ' +
                IntToStr(usluga_id) + ', sum_in = ' + FloatToStr(sum_in) +
                ', sum_nach = ' + FloatToStr(sum_nach) + ', sum_opl = ' +
                FloatToStr(sum_pay) + ', sum_out = ' + FloatToStr(sum_out) +
                ', tarif = ' + FloatToStr(tarif)+';';
              SQL.Add(s);
              //SQL.Text := s;
              //ExecSQL;
            end;
        end;

//Ну и напоследок добавляем, выполняем запрос
RE.Lines.Add('Чтение файла завершено, Записываем в БД...');
  
with DM do begin
    FDConnection1.StartTransaction;
    FDQuery4.ExecSQL;
    FDConnection1.Commit;
  end;
  RE.Lines.Add('Импорт файла завершен!');


  f.Free;


end;