Как правильно создать ЗаказПокупателя в 1с?

Question

[Xvir43]

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.Записать();

Документ создается, как сделать что бы автоматом подтягивались тип цен например и автоматом заполнялась цена , если она прописаны в контрагенте.?

Comments

[Константин Нагибович]

Если вы создаете документ программно, то автоматом ничего не будет работать. Все сами - ручками.

[Xvir43]

Константин Нагибович, и цены не как не подтянуть?

[Константин Нагибович]

Xvir43, программно получайте.

Answer 1

[Дмитрий Кинаш]

Это вы из Делфи в 1С по OLE работаете?

Документ создается, как сделать что бы автоматом подтягивались тип цен например и автоматом заполнялась цена , если она прописаны в контрагенте.?

Напишите процедуру заполнения и вызывайте в своем коде - будет "автоматическое подтягивание". Или вы думаете, что есть какая-то "магия"? Нет, даже если вы программируете непосредственно на платформе 1С:Предприятие, то все равно нужно самому все прописывать.

Comments

[Xvir43]

Нет , у нас там если в контрагенте указана тип цен то цена встает автоматом после добавления номенклатуры. Да через Оле в делфи. Вот мне и надо тоже самое

[Константин Нагибович]

Xvir43,

у нас там если в контрагенте указана тип цен то цена встает автоматом после добавления номенклатуры

Посмотрите код в конфигураторе. Само ничего не происходит.

[Дмитрий Кинаш]

Xvir43, у вас "там" есть код, который выполняется при выборе контрагента/договора - в реквизит документа устанавливается тип цены, который пользователь может изменить при наличии на это прав. Далее на события добавления новых строк с товарами и указания этих самых товаров срабатывает другой код, который из подсистемы ценообразования получает цены и заполняет в таблице суммовые колонки.

Не знаю, что там у вас за конфигурация, но попробуйте изучить код модуля объекта. Возможно там есть экспортная процедура для заполнения свойств новой строки. Тогда даже самому запросы к ценовым регистрам не нужно будет делать (плюс скидки, наценки и так далее).