helpf.pro
Регистрация

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

startq1
13.02.2017 01:23Прочитано: 1774

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

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

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

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

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

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

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

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

Yandex
Возможно, вас также заинтересует
Реклама на портале
all4cf
13.02.2017 03:01Ответ № 1

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

all4cf
13.02.2017 03:09Ответ № 2

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

Код 1C v 8.3
 ДокОперация = Документы.ОперацияБух.СоздатьДокумент();
        ДокОперация.Дата = ДатаДокумента;
        ДокОперация.Организация = ВыбОрганизация;
        ДокОперация.Ответственный = ИмяПользователя();//Ответственный;
 
        ДокОперация.Содержание = "....";
        ДокОперация.Комментарий = "...";
        ДокОперация.СпособЗаполнения = "Вручную";
        ДокОперация.Записать();
        ДокОперацияСсылка = ДокОперация.Ссылка;


   //готовим регистры для записи
 
    РегХозрасчетный = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
    РегХозрасчетный.Отбор.Регистратор.Значение = ДокОперацияСсылка;
    РегХозрасчетный.Очистить();
    РегХозрасчетный.Записать(Истина);

    Для каждого Элемента из ЧтоТамМнеНужноЗаписать Цикл
                    РегЗапись = РегХозрасчетный.Добавить();
                    РегЗапись.Период = ДатаДокумента;
                    РегЗапись.Регистратор = ДокОперацияСсылка;
                    РегЗапись.Организация = ВыбОрганизация;
                    РегЗапись.СчетДт = СчетЭЛ;
                    РегЗапись.КоличествоДт = Коплате;
                    РегЗапись.Сумма = Сум;
                    БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетДт, РегЗапись.СубконтоДт, "Контрагенты", Стр.Контр);
                    СуммаДокумента = СуммаДокумента + Сум;
    КонецЦикла;    

        РегХозрасчетный.Записать(Истина);
        ДокОперация.СуммаОперации = СуммаДокумента;
        ДокОперация.Записать();
        Если ОткрытьОбработанныйДокумент = Истина Тогда
            ДокОперация.ПолучитьФорму().Открыть();
        КонецЕсли;        

Подсказка: Щелникни по Имени пользователя напротив ответа, и тем самым покажешь, что сообщение адресовано ему.
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.