Управление интерфейсом программы 1С

ListBox1.Items.Clear;

if not VarIsEmpty(Ole1C) then

Begin

  OleSpr := Ole1C.CreateObject('Справочник.' + CB2.Text);

  if not VarIsEmpty(OleSpr) then

  Begin

    if OleSpr.ВыбратьЭлементы > 0 then

    Begin

      while OleSpr.ПолучитьЭлемент > 0 do

      Begin

        if (OleSpr.ЭтоГруппа) <= 0 then

        begin

        ListBox1.Items.Add(

                            Trim(OleSpr.Код) + ' '

                          + Trim(OleSpr.Наименование)

                          );

        end;

      end;

    end;

  end;

end;

OleSpr := Unassigned;

end;

Когда справочник выбран, по событию OnChange объекта CB2 в CB3 формируется список записей (наименования) справочника, которые будут доступны для изменения! Если в справочнике отсутствуют записи, тогда появляется сообщение «Справочник пуст.»

 Рис.9

procedure TForm1.CB2Change(Sender: TObject);

var

Schetchik : integer;

begin

  OleSpr := Unassigned;

  CB3.Items.Clear;

  CB3.Text := '';

  Schetchik := 0;

  if VarIsEmpty(OleSpr) then

  begin

    OleSpr := Ole1C.CreateObject('Справочник.' + CB2.Text);

    OleSpr.ВыбратьЭлементы;

    while OleSpr.ПолучитьЭлемент = 1 do

    begin

      CB3.Items.Add(OleSpr.Наименование);

      inc(Schetchik);

    end;

    if Schetchik = 0 then

    ShowMessage('Справочник пуст.');

  end;

  OleSpr := Unassigned;

end;

Кнопка Изменить. Чтобы её использовать, нужно выбрать из выпадающего списка CB3 запись, которую мы хотим изменить. Когда запись выбрана по нажатию на кнопку появляется диалоговое окно, со строкой для ввода нового значения. После изменения значения, можно нажать на кнопку Справочник и в ListBox1 увидеть результат изменения.

Рис.10

procedure TForm1.Button4Click(Sender: TObject); //Поиск инф. и её изменение

var

St : string;

begin

  if CB3.Text = '' then //Предупреждающее сообщение

  Begin

    with Application do

    begin

      NormalizeTopMosts;

      MessageBox('Выберите запись!', 'ПРЕДУПРЕЖДЕНИЕ');

      RestoreTopMosts;

    end;

  Exit;

  end;

  St := '';

  OleSpr := Unassigned;

  if VarIsEmpty(OleSpr) then

  begin

    OleSpr := Ole1C.CreateObject('Справочник.' + CB2.Text);

    OleSpr.ВыбратьЭлементы;

    OleSpr.НайтиПоНаименованию(CB3.Text,0); // Поиск записи в справочнике

    if InputQuery(CB3.Text,'Новое значение',St) then

    begin

      St := Trim(St);

      OleSpr.Наименование := St;

      OleSpr.Записать;

      OleSpr.ВыбратьЭлементы;

      CB3.Items.Clear;

      while OleSpr.ПолучитьЭлемент = 1 do

      begin

        CB3.Items.Add(OleSpr.Наименование);

      end;

    end;

  end;

  OleSpr := Unassigned;

end;

 

7. Вывод

Этот программный продукт  продемонстрировал взаимодействие среды разработки Borland Delphi 7 с платформой 1С: Предприятие. А именно:

• установка соединения с базой  1С, которое сопровождалось выбором имени пользователя и вводом его пароля (если таковой имеется);
• сбор информации об имеющихся справочниках в базе;
• определением всех записей, содержащихся в любом из выбранных справочников;
• изменение значений, выбранных записей справочника;

Пользуясь написанной программой, можно легко обращаться к базе 1С и изымать нужные данные для обработки в Borland Delphi 7,  для последующего возврата их в базу 1С, хотя задачи могут быть разнообразными и это не единственная, для которой используется информация конфигурации 1С.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

8. Литература

 

КНИГИ

Попов С.А. Delphi и 1С Предприятие. Программирование информационного обмена. – СПб.:  БВХ-Петербург, 2007. – 592с.

 

СТАТЬИ

Александр Авдошин Delphi и 1C - экспорт и импорт.