delphi и 1С 7.7 - Delphi БД - Ответ 2450986

procedure TForm1.Button1Click(Sender: TObject);
 begin
 ADOConnection1.Connected:=true;
 nomenklatura:=ole1c.CreateObject('Справочник.Номенклатура');
 price:=ole1c.CreateObject('Справочник.Цены');
 ADOCommand1.CommandText:='delete from product';
  ADOCommand1.Execute;
  sel := ole1c.CreateObject('Запрос');
  textquery := textquery+'Код = Справочник.Номенклатура.Код;';
  textquery :=textquery+'Наименование = Справочник.Номенклатура.Наименование;';
  textquery :=textquery+'Родитель = Справочник.Номенклатура.Родитель;';
  textquery :=textquery+'Группировка Наименование;';
  textquery :=textquery+'Условие((Родитель.наименование="Кулинария") ИЛИ (Родитель.наименование ="Мясные п/ф"));';
  // ИЛИ (Родитель.наименование =""Мясные п/ф""))
  if sel.Execute(textquery) = 0 then
    showmessage('не могу выполнить запрос!') else
    begin
      ADOTable1.Active:=false;
      while sel.Группировка(1) = 1  do begin
        nomenklatura.НайтиПоНаименованию(sel.Наименование,0);
        price.ИспользоватьВладельца(nomenklatura.ТекущийЭлемент);
        price.ВыбратьЭлементы;
        priceN:=price.ТекущийЭлемент;
        ADOCommand2.Parameters[0].Value :=sel.Код ;
        ADOCommand2.Parameters[1].Value :=sel.Наименование;
        ADOCommand2.Parameters[2].Value :=convertdecimal(priceN.Цена.Получить('ТекущаяДата'));
        ADOCommand2.Execute;
      end;
    end;
ADOConnection1.Connected:=false;
 
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
DecimalSeparator:='.';
ADOConnection1.Connected:=true;
nomenklatura:=ole1c.CreateObject('Справочник.Номенклатура');
price:=ole1c.CreateObject('Справочник.Цены');
 ADOCommand1.CommandText:='delete from ingridient';
  ADOCommand1.Execute;
  select := ole1c.CreateObject('Запрос');
  textquery := textquery+'Код1 = Справочник.Номенклатура.Код;'+
                         'Наименование1 = Справочник.Номенклатура.Наименование;'+
                         'Родитель1 = Справочник.Номенклатура.Родитель;'+
                         'Группировка Наименование1;'+
                         'Условие(Родитель1.Код="00001771");';
  if select.Execute(textquery) = 0 then
    showmessage('не могу выполнить запрос!') else
    begin
       while select.Группировка(1) = 1  do begin
        nomenklatura.НайтиПоНаименованию(select.Наименование1,0);
        price.ИспользоватьВладельца(nomenklatura.ТекущийЭлемент);
        price.ВыбратьЭлементы;
        priceN:=price.ТекущийЭлемент;
        ADOCommand3.Parameters[0].Value :=select.Код1 ;
        ADOCommand3.Parameters[1].Value :=select.Наименование1 ;
        ADOCommand3.Parameters[2].Value :=convertdecimal(priceN.Цена.Получить('ТекущаяДата'));
   ADOCommand3.Execute;
      end;
    end;