How to create a Buyer's Order in 1s?

Question

Delphi

CoInitialize(nil);
          akontr := s1C8_ole.Справочники.Контрагенты.НайтиПоКоду('000001116');
          Zakaz := s1C8_ole.Документы.ЗаказПокупателя.СоздатьДокумент();
          Zakaz.Заполнить('Неопределено');
          Zakaz.Дата := now;
          Zakaz.Контрагент := akontr;
          Zakaz.Организация := s1C8_ole.Справочники.Организации.НайтиПоКоду
            ('000000001');
          Zakaz.СкладГруппа := s1C8_ole.Справочники.Склады.НайтиПоКоду
            ('000000003');
          Zakaz.КратностьВзаиморасчетов := 1;
          Zakaz.КурсВзаиморасчетов := 1;
          Zakaz.ДатаОтгрузки := now;
          Zakaz.ДатаОплаты := now;
          Zakaz.ДоговорКонтрагента := akontr.ОсновнойДоговорКонтрагента;

          Zakaz.ТипЦен := akontr.ОсновнойДоговорКонтрагента.ТипЦен;

          Zakaz.Грузополучатель := s1C8_ole.Справочники.Контрагенты.НайтиПоКоду
            ('000001523');
          olePoz := Zakaz.Товары.Добавить();
          olePoz.Номенклатура := s1C8_ole.Справочники.Номенклатура.НайтиПоКоду
            ('00000000004');
          olePoz.Количество := 5;
          olePoz.ЕдиницаИзмерения := s1C8_ole.Справочники.ЕдиницыИзмерения.
            НайтиПоНаименованию('шт');
          olePoz.Коэффициент := 1;
          //olePoz.СтавкаНДС := s1C8_ole.Перечисления.СтавкиНДС.БезНДС;

          Zakaz.Записать();

The document is created, how to make it automatically pull up the type of prices, for example, and automatically fill in the price if it is registered in the counterparty.?

Answer 1

Are you working from Delphi in 1C on OLE?
Write a filling procedure and call it in your code - there will be "automatic pull-up". Or do you think there is some kind of "magic"? No, even if you are programming directly on the 1C:Enterprise platform, you still need to write everything yourself.