X
X
Xvir432018-10-23 14:17:37
Delphi
Xvir43, 2018-10-23 14:17:37

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

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 the question

In order to leave comments, you need to log in

1 answer(s)
D
Dmitry Kinash, 2018-10-23
@Dementor

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.

Didn't find what you were looking for?

Ask your question

Ask a Question

731 491 924 answers to any question