Не формируется документ поступленияТУ

[Yanawerg]

Не могу понять почему не формируется документ поступлениеТУ хотя ошибок нету, все данные заполняются, в конце документ проводится (если верить сообщению) но в списке он не появляется.

Код Выделить Развернуть

Функция СоздатьРеализацию(Заказ) Экспорт

Если Заказ.Организация = справочники.Организации.НайтиПоКоду("000000014") Тогда
Дата = ТекущаяДата();
Склад = Справочники.Склады.НайтиПоКоду("000000004");
ОрганизацияШлычкова = Справочники.Организации.НайтиПоКоду("000000009");
КонтрагентКириллова = Справочники.Контрагенты.НайтиПоКоду("Ш00007963");
Попытка
ВспомогательнаяРеализация = Документы.РеализацияТоваровУслуг.СоздатьДокумент();
ВспомогательнаяРеализация.Заполнить(Заказ.Ссылка);
ВспомогательнаяРеализация.Дата = Дата-2;
ВспомогательнаяРеализация.Сделка = Неопределено;
ВспомогательнаяРеализация.Склад = Склад;
ВспомогательнаяРеализация.Организация = ОрганизацияШлычкова;
ВспомогательнаяРеализация.Ответственный = ПараметрыСеанса.ТекущийПользователь;
ВспомогательнаяРеализация.ТипЦен = Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Внутренние");
ВспомогательнаяРеализация.ВалютаДокумента = ВспомогательнаяРеализация.ТипЦен.ВалютаЦены;
ВспомогательнаяРеализация.Контрагент = КонтрагентКириллова;
ВспомогательнаяРеализация.ОтражатьВУправленческомУчете = Истина;
ВспомогательнаяРеализация.ОтражатьВБухгалтерскомУчете = Истина;

Выборка = Справочники.ДоговорыКонтрагентов.Выбрать(, ВспомогательнаяРеализация.Контрагент);
Пока Выборка.Следующий() Цикл
Если Выборка.Организация = ОрганизацияШлычкова Тогда
ВспомогательнаяРеализация.ДоговорКонтрагента = Выборка.Ссылка;
конецЕсли;
конецЦикла;

СчетаУчета = БухгалтерскийУчетРасчетовСКонтрагентами.ПолучитьСчетаРасчетовСКонтрагентом(
ВспомогательнаяРеализация.Организация,
ВспомогательнаяРеализация.Контрагент,
ВспомогательнаяРеализация.ДоговорКонтрагента);
ВспомогательнаяРеализация.СчетУчетаРасчетовСКонтрагентом    = СчетаУчета.СчетРасчетовПокупателя;
ВспомогательнаяРеализация.СчетУчетаРасчетовПоАвансам        = СчетаУчета.СчетАвансовПокупателя;
ВспомогательнаяРеализация.СчетУчетаРасчетовПоТаре           = СчетаУчета.СчетУчетаТарыПокупателя;
ВспомогательнаяРеализация.СчетУчетаДоходовПоТареБУ          = СчетаУчета.СчетУчетаДоходовПоТареБУ;
ВспомогательнаяРеализация.СчетУчетаРасходовПоТареБУ         = СчетаУчета.СчетУчетаРасходовПоТареБУ;
ВспомогательнаяРеализация.СтатьяПрочихДоходовРасходовПоТаре = СчетаУчета.СтатьяПрочихДоходовРасходовПоТаре;

ВспомогательнаяРеализация.СчетУчетаДоходовПоТареНУ  = СчетаУчета.СчетУчетаДоходовПоТареНУ;
ВспомогательнаяРеализация.СчетУчетаРасходовПоТареНУ = СчетаУчета.СчетУчетаРасходовПоТареНУ;

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

Для Каждого Товар Из Заказ.Товары цикл
Строка = ВспомогательнаяРеализация.Товары.Добавить();
Строка.Качество                     = Справочники.Качество.Новый;
Строка.Номенклатура                 = Товар.Номенклатура;
Строка.Сумма = Товар.Сумма;

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

Строка.Количество                   = Товар.Количество;

Отбор = Новый Структура("ТипЦен, Номенклатура", ВспомогательнаяРеализация.ТипЦен, товар.Номенклатура);
ТЗ = РегистрыСведений.ЦеныНоменклатуры.СрезПоследних(, Отбор);
Если Не ТЗ.Количество() = 0 Тогда
строка.цена = ТЗ[0].Цена * (100.0 + константы.ПроцентНадбавки.Получить())/100;
КонецЕсли;

Строка.Склад                        = Склад;
Строка.ЕдиницаИзмерения             = товар.Номенклатура.ЕдиницаХраненияОстатков;
Строка.СпособСписанияОстаткаТоваров = Перечисления.СпособыСписанияОстаткаТоваров.ИзРезерва;

ОбработкаТабличныхЧастей.РассчитатьСуммуТабЧасти(Строка, ВспомогательнаяРеализация);
ОбработкаТабличныхЧастей.РассчитатьСуммуНДСТабЧасти(Строка, ВспомогательнаяРеализация);

КонецЦикла;

ВспомогательнаяРеализация.Записать(РежимЗаписиДокумента.Проведение, РежимПроведенияДокумента.Неоперативный);
УчетПолитика = ОбщегоНазначения.ПолучитьПараметрыУчетнойПолитикиРегл(
Дата,
ВспомогательнаяРеализация.Организация,
Ложь);

//Поступление = СоздатьВнутреннееПоступление(ВспомогательнаяРеализация.Ссылка);
Поступление = Документы.ПоступлениеТоваровУслуг.СоздатьДокумент();
Поступление.Заполнить(Заказ.Ссылка);
Поступление.Дата = Дата-2;
Поступление.Сделка = Неопределено;
Поступление.СкладОрдер = Склад;
Поступление.Организация = ОрганизацияШлычкова;
Поступление.Ответственный = ПараметрыСеанса.ТекущийПользователь;
Поступление.ТипЦен = Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Внутренние");
Поступление.ВалютаДокумента = Поступление.ТипЦен.ВалютаЦены;
Поступление.ОсновнойДокументРеализации = ВспомогательнаяРеализация.Ссылка;
Поступление.Контрагент = КонтрагентКириллова;
Поступление.ОтражатьВУправленческомУчете = Истина;
Поступление.ОтражатьВБухгалтерскомУчете = Истина;

Выборка = Справочники.ДоговорыКонтрагентов.Выбрать(, Поступление.Контрагент);
Пока Выборка.Следующий() Цикл
Если Выборка.Организация = ОрганизацияШлычкова Тогда
Поступление.ДоговорКонтрагента = Выборка.Ссылка;
конецЕсли;
конецЦикла;

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

Поступление.Товары.Очистить();
Поступление.Услуги.Очистить();
Поступление.СкладОрдер = Склад;

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

Строка.Количество                   = Товар.Количество;

Отбор = Новый Структура("ТипЦен, Номенклатура", Поступление.ТипЦен, товар.Номенклатура);
ТЗ = РегистрыСведений.ЦеныНоменклатуры.СрезПоследних(, Отбор);
Если Не ТЗ.Количество() = 0 Тогда
строка.цена = ТЗ[0].Цена * (100.0 + константы.ПроцентНадбавки.Получить())/100;
КонецЕсли;

Строка.Склад                        = Склад;
Строка.ЕдиницаИзмерения             = товар.Номенклатура.ЕдиницаХраненияОстатков;
Строка.СпособСписанияОстаткаТоваров = Перечисления.СпособыСписанияОстаткаТоваров.ИзРезерва;

ОбработкаТабличныхЧастей.РассчитатьСуммуТабЧасти(Строка, Поступление);
ОбработкаТабличныхЧастей.РассчитатьСуммуНДСТабЧасти(Строка, Поступление);

КонецЦикла;

Поступление.Записать(РежимЗаписиДокумента.Проведение, РежимПроведенияДокумента.Неоперативный);
УчетПолитика = ОбщегоНазначения.ПолучитьПараметрыУчетнойПолитикиРегл(
Дата,
Поступление.Организация, Ложь);

Исключение
КонецПопытки;
КонецЕсли;

КонецФункции


[antoneus]

В каком списке? Верить какому сообщению? Сообщение-то что угодно сообщить может.

[Yanawerg]

antoneus, В списке документов поступления товаров и услуг.
Выводил сообщение что документ записывается и проводится в случае если удачно создан.

[Максим75]

Yanawerg, а у Вас случаем в списке отборов нет никаких? может док просто не попадает в отбор.
после записи откройте документ. сразу будет понятно, что и к чему.

[antoneus]

В коде никаких сообщений не вижу.

[LexaK]

то-же, не могу понять связи
смотрите список Постплений ТУ,
а создаете документ Реализация ТУ
Это разные документы, и у них разные списки! 

[sali]

не тот список документов смотрите