?: Не заполняется программно документ ОперацияБух

startq1

13.02.2017 01:23

Прочитано: 1762

Опер.Организация = Организация;

Опер.СпособЗаполнения="Сторно движений документа";

Опер.СторнируемыйДокумент=Документы.РеализацияТоваровУслуг.ПустаяСсылка();

//Опер.СторнируемыйДокумент=ЭтаФорма.Объект.Документ.Ссылка;

ДокР=Документы.РеализацияТоваровУслуг.НайтиПоНомеру(ЭтаФорма.Объект.Документ.Номер,ЭтаФорма.Объект.Документ.Дата);

Опер.СторнируемыйДокумент=ДОКр;

Опер.Записать();

Не заполняется программно документ "ОперацияБух"

Yandex

Возможно, вас также заинтересует

all4cf

13.02.2017 03:01

Ответ № 1

Вот: Документ Операция - Как программно создать и заполнить?

all4cf

13.02.2017 03:09

Ответ № 2

В дополнении:

Код 1C v 8.3

 ДокОперация = Документы.ОперацияБух.СоздатьДокумент();

        ДокОперация.Дата = ДатаДокумента;

        ДокОперация.Организация = ВыбОрганизация;

        ДокОперация.Ответственный = ИмяПользователя();//Ответственный;

 

        ДокОперация.Содержание = "....";

        ДокОперация.Комментарий = "...";

        ДокОперация.СпособЗаполнения = "Вручную";

        ДокОперация.Записать();

        ДокОперацияСсылка = ДокОперация.Ссылка;





   //готовим регистры для записи

 

    РегХозрасчетный = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();

    РегХозрасчетный.Отбор.Регистратор.Значение = ДокОперацияСсылка;

    РегХозрасчетный.Очистить();

    РегХозрасчетный.Записать(Истина);



    Для каждого Элемента из ЧтоТамМнеНужноЗаписать Цикл

                    РегЗапись = РегХозрасчетный.Добавить();

                    РегЗапись.Период = ДатаДокумента;

                    РегЗапись.Регистратор = ДокОперацияСсылка;

                    РегЗапись.Организация = ВыбОрганизация;

                    РегЗапись.СчетДт = СчетЭЛ;

                    РегЗапись.КоличествоДт = Коплате;

                    РегЗапись.Сумма = Сум;

                    БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетДт, РегЗапись.СубконтоДт, "Контрагенты", Стр.Контр);

                    СуммаДокумента = СуммаДокумента + Сум;

    КонецЦикла;    



        РегХозрасчетный.Записать(Истина);

        ДокОперация.СуммаОперации = СуммаДокумента;

        ДокОперация.Записать();

        Если ОткрытьОбработанныйДокумент = Истина Тогда

            ДокОперация.ПолучитьФорму().Открыть();

        КонецЕсли;

Подсказка: Вы можете добавить любую страничку в Избранное щелкнув по значку