var
doc2,doc3,doc4,doc5,doc6:OleVariant;
z1,z2,z3,z4,z5,z6,perech1,valuta:OleVariant;
begin
 doc3:=Ole1C.CreateObject('Справочник.Склады');
 tOleFizLica:=Ole1C.CreateObject('Справочник.Фирмы');
 mid_val:=Ole1C.CreateObject('Справочник.Контрагенты');
 doc2:=Ole1C.CreateObject('Справочник.Номенклатура');
 perech1:=ole1C.Перечисление.КодыОпераций;

 doc3.НайтиПоКоду('00005', 0);
 tOleFizLica.НайтиПоКоду('00001', 0);
 mid_val.НайтиПоКоду('00000463', 0);
 doc2.НайтиПоКоду('00004064', 0);


 z1:=doc3.ТекущийЭлемент;
 z2:=tOleFizLica.ТекущийЭлемент;
 z3:=mid_val.ТекущийЭлемент;
 //Договор находится в справочнике Контрагент
 z4:=z3.ТекущийЭлемент.ОсновнойДоговор;
 //Договор находится в справочнике ОсновнойДоговор.ВалютаВзаиморасчетов
 valuta:=z3.ТекущийЭлемент.ОсновнойДоговор.ВалютаВзаиморасчетов;
 z5:=doc2.ТекущийЭлемент;
 z6:=perech1.Продажа;

// Edit2.Text:=mid_val.ТекущийЭлемент.ОсновнойДоговор.Код;

  OleFizLica:=Ole1C.CreateObject('Документ.Реализация');
  OleFizLica.Новый;

  OleFizLica.КодОперации:=z6;
  OleFizLica.Фирма:=z2;
  OleFizLica.Склад:=z1;
  OleFizLica.Контрагент:=z3;
  OleFizLica.Договор:=z4;
  OleFizLica.Валюта:=valuta;   // валюта

  OleFizLica.Номенклатура:=z5;
  OleFizLica.Количество:=3;

  Edit2.Text:=OleFizLica.Номенклатура.Наименование;

  OleFizLica.Записать;