Делфи и 1С

[Razmir]

Доброго времени суток. Пытаюсь связать 1С и Дельфи. Нашел пример для подключения к 1С:

function ConnectTo1C8_Application(s1cAppProgID,
                                  InitLine : string;
                                  Visible : boolean) : Variant;
//Соединение с 1Cv8 (OLE)
//s1cAppProgID - имя 1Cv8, как сервера OLE Automation "V8.Application" (может быть пустым))
//InitLine - строка инициализации
//Visible - если TRUE, то после запуска 1Cv8 окно программы ставновится видимым
//Возвращаемое значение : ссылка на 1Cv8, как сервер OLE Automation
//                        или значение Unassigned (в случае неудачи)
Var
  s1CResOpen : integer;
begin
  Result:=Unassigned;
  s1cAppProgID:=Trim(s1cAppProgID);
  if Length(s1cAppProgID)<=0 then s1cAppProgID:='V83.Application';
  InitLine:=Trim(InitLine);
  if Length(s1cAppProgID)>0 then begin
     //Создаем соединение (соотв.COM-объект)
     Result := CreateOleObject(s1cAppProgID);
     //Проверяем корректность соединения
     if YesLinkToVariant(Result) then begin
        //Инициализация системы 1Cv8
        s1CResOpen:=Result.Connect(InitLine);
        //Видимость главного окна 1Cv8
        Result.Visible:=Visible;
     end;
  end;
end;

затем вызов:

  s1C8_ole:=ConnectTo1C8_Application(Trim(Edit_1C8_Name.Text),
                                     Trim('Srvr="'+s+'";'+
                                          'Ref="'+r+'";'+
                                          'Usr="'+u+'";'+
                                          'Pwd="'+p+'";'),
                                     CheckBox1.isChecked);

Получение данных из справочника:

procedure TForm1.SpeedButton2Click(Sender: TObject);
//Прочитать информацию из справочника КнигиВидеоАудио
Var
  Sel_ole, //результат выборки из справочника
  SbCnt_ole  : Variant; //ссылка на объект "Справочники.КнигиВидеоАудио"
  Yes : byte;
begin
  SbCnt_ole:=UnAssigned;
  Sel_ole:=UnAssigned;
  ListBox1.Items.Clear;

  //Проверяем, существует ли соединение с 1Cv8
  if YesLinkToVariant(s1C8_ole) then begin

     //Получаем ссылку на объект типа Справочник -  "КнигиВидеоАудио"
     SbCnt_ole:=s1C8_ole.Справочники.КнигиВидеоАудио;

     //Производим выборку из справочника КнигиВидеоАудио
     Sel_ole := SbCnt_ole.Выбрать();

     //Перебор элементов выборки
     while Sel_ole.Следующий() do
      begin

       Yes:=0;
       //Отбираем все
       if ComboBox1.ItemIndex<=0 then Yes:=1;

       if ComboBox1.ItemIndex=1 then begin
          //Отбираем только элементы
          if not Sel_ole.ЭтоГруппа then Yes:=1;
       end;

       if ComboBox1.ItemIndex>=2 then begin
          //Отбираем только группы
          if Sel_ole.ЭтоГруппа then Yes:=1;
       end;

       if Yes>0 then begin
          if not Sel_ole.ЭтоГруппа then begin
             //Это элемент справочника
             ListBox1.Items.Add('    '+Trim(Sel_ole.Код)+'='+Trim(Sel_ole.Наименование));
          end
          else begin
             //Это элемент группа справочника
             ListBox1.Items.Add('=> '+Trim(Sel_ole.Код)+'='+Trim(Sel_ole.Наименование));
          end;
       end;

     end;

  end
  else begin
     ShowMessage('Сначала нужно установить соединение с 1Cv8 !');
  end;
end;

Весь код работает, но вот как работать с Документами найти не могу ни примеров, ни объяснений. Как сформировать документ на определенную дату, с определенными условиями и получить данные в приложение. Спасибо.

[Аватар]

Ну а как бы в 1С делал? Например запросом по условию выдернул ссылки на документы и по ссылкам получил бы объекты со всеми полями. Либо в запросе непосредственно нужные поля документов вытянул

[Razmir]

Сообщение от Аватар

Ну а как бы в 1С делал? Например запросом по условию выдернул ссылки на документы и по ссылкам получил бы объекты со всеми полями. Либо в запросе непосредственно нужные поля документов вытянул

В том то и дело, что в 1С не шарю, а на работе систему учета наваяли через одно место, одно и то же действие 10 раз приходится делать. Уйму времени отнимает. Вот хочу с помощью делфи автоматизировать.

[Аватар]

Что-то придумал не понятное. В 1С и своих средств и возможностей для этого предостаточно. Зачем там еще примочки на делфях? Если хочешь продолжать в том же духе найти инфу про объект запрос и как с ним работать

[Razmir]

Сообщение от Аватар

Что-то придумал не понятное. В 1С и своих средств и возможностей для этого предостаточно. Зачем там еще примочки на делфях? Если хочешь продолжать в том же духе найти инфу про объект запрос и как с ним работать

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

[Аватар]

Гы, я в прошлом году так и влез в эту гадость. Сел и стал писать на первой же неделе с помощью гугла, поначалу медленно

[Serge_Bliznykov]

Razmir, у меня нет знаний и опыта работы с 1С
НО! я на 99.9% уверен, что намного быстрее, проще и, главное, правильнее!,
будет изучать 1С и делать запросы внутри средствами самой 1C
внутренние справочники 1C имеют сложные взаимосвязи, автоматические имена таблиц и полей, Вы больше сил и времени потратите на изучение структуры.
Сам 1С будет выучить легче (больше учебников/курсов) и быстрее.

[Аватар]

Это точно, было бы прикольно изучать возможности офиса посредством обращения через его оле-сервера из делфи. Так и здесь, только еще сложней. Может и не сложней, но по крайней мере так думаю