Заполнение документа ОперацияБух из экселя
Всем привет. ХЕЛП.
Учусь, пишу обработку для заполнения данных в документ ОперацияБух. Суть написал обработку, она выполняется в коде прослеживается что и основное средство определилось и счет, но документ на выходе пустой, не пойму что не так
Учусь, пишу обработку для заполнения данных в документ ОперацияБух. Суть написал обработку, она выполняется в коде прослеживается что и основное средство определилось и счет, но документ на выходе пустой, не пойму что не так
Прикрепленные файлы:
Найденные решения
во вроде разобрался тут без условий и тд, но робит
ДокОперация = Документы.ОперацияБух.СоздатьДокумент();
ДатаДокумента = ТекущаяДата();
Организация = Справочники.Организации.НайтиПоНаименованию("ВОДОКАНАЛ-МЫТИЩИ АО");
Содержание = "Тест" ;
Комментарий = "Тестовый";
ДокОперация.Дата = ДатаДокумента;
ДокОперация.Организация = Организация;
//ДокОперация.Ответственный = Ответственный;
ДокОперация.Содержание = Содержание;
ДокОперация.Комментарий = Комментарий;
ДокОперация.Записать();
ДокОперацияСсылка = ДокОперация.Ссылка;
РегХозрасчетный = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
РегХозрасчетный.Отбор.Регистратор.Значение = ДокОперацияСсылка;
Для Каждого СтрокаДанных из Объект.Данные Цикл
КодОС = СтрокаДанных.Инв;
ОсновноеСредство = Справочники.ОсновныеСредства.НайтиПоКоду(КодОС);
РегЗапись = РегХозрасчетный.Добавить();
РегЗапись.Период = ДатаДокумента;
РегЗапись.Регистратор = ДокОперацияСсылка;
РегЗапись.Организация = Организация;
РегЗапись.Содержание = "Тестовые проводки";
РегЗапись.СчетДт = ПланыСчетов.Хозрасчетный.НайтиПоНаименованию("Аренда ОС");
//БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетДт, РегЗапись.СубконтоДт, "Контрагенты", Контрагент);
БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетДт, РегЗапись.СубконтоДт, "ОсновныеСредства", ОсновноеСредство);
РегЗапись.Сумма = 8000000;
КонецЦикла;
РегХозрасчетный.Записать(); ПоказатьОстальные ответы
В избранное
Подписаться на ответы
Сортировка:
Древо развёрнутое
Свернуть все
Привел к другому виду, все ровно мертво(((
ДокументОперация= Документы.ОперацияБух.СоздатьДокумент();
Дата = ТекущаяДата();
Организация = Справочники.Организации.НайтиПоНаименованию("ВОДОКАНАЛ-МЫТИЩИ АО");
ДокументОперация.Организация = Организация;
ДокументОперация.Дата = Дата;
ДокументОперация.Записать();
ОперацияСсылка = ДокументОперация.Ссылка;
РегХозрасчетный = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
РегХозрасчетный.Отбор.Регистратор.Установить(ОперацияСсылка);
Для Каждого СтрокаДанных из Объект.Данные Цикл
ОсновноеСредство = Справочники.ОсновныеСредства.НайтиПоКоду(СтрокаДанных.Инв);
Если ЗначениеЗаполнено(ОсновноеСредство) тогда;
РегЗапись = РегХозрасчетный.Добавить();
РегЗапись.Период = Дата;
РегЗапись.Регистратор = ОперацияСсылка;
РегЗапись.Организация = Организация;
РегЗапись.СчетДт = ПланыСчетов.Хозрасчетный.НайтиПоНаименованию("Аренда ОС");
БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетДт, РегЗапись.СубконтоДт, "ОсновныеСредства", ОсновноеСредство);
Иначе
Сообщить ("Ошибка");
КонецЕсли
КонецЦикла;
ДокументОперация.Записать();
Сообщить("Запись, создана" + ОперацияСсылка); Показать
во вроде разобрался тут без условий и тд, но робит
ДокОперация = Документы.ОперацияБух.СоздатьДокумент();
ДатаДокумента = ТекущаяДата();
Организация = Справочники.Организации.НайтиПоНаименованию("ВОДОКАНАЛ-МЫТИЩИ АО");
Содержание = "Тест" ;
Комментарий = "Тестовый";
ДокОперация.Дата = ДатаДокумента;
ДокОперация.Организация = Организация;
//ДокОперация.Ответственный = Ответственный;
ДокОперация.Содержание = Содержание;
ДокОперация.Комментарий = Комментарий;
ДокОперация.Записать();
ДокОперацияСсылка = ДокОперация.Ссылка;
РегХозрасчетный = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
РегХозрасчетный.Отбор.Регистратор.Значение = ДокОперацияСсылка;
Для Каждого СтрокаДанных из Объект.Данные Цикл
КодОС = СтрокаДанных.Инв;
ОсновноеСредство = Справочники.ОсновныеСредства.НайтиПоКоду(КодОС);
РегЗапись = РегХозрасчетный.Добавить();
РегЗапись.Период = ДатаДокумента;
РегЗапись.Регистратор = ДокОперацияСсылка;
РегЗапись.Организация = Организация;
РегЗапись.Содержание = "Тестовые проводки";
РегЗапись.СчетДт = ПланыСчетов.Хозрасчетный.НайтиПоНаименованию("Аренда ОС");
//БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетДт, РегЗапись.СубконтоДт, "Контрагенты", Контрагент);
БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетДт, РегЗапись.СубконтоДт, "ОсновныеСредства", ОсновноеСредство);
РегЗапись.Сумма = 8000000;
КонецЦикла;
РегХозрасчетный.Записать(); Показать