Движения ПоступлениеТоваровУслут

[vitasw]

А где вызов вашего кода?

[Игорь_M]

В

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

Процедура ОбработкаПроведения(Отказ, РежимПроведения)

[vitasw]

Блин, на скрине не видно где этот код размещается. покажите

[Игорь_M]

еще раз полный код:

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


// Процедура - обработчик события "ОбработкаПроведения".
//
Процедура ОбработкаПроведения(Отказ, РежимПроведения)



Перем СтруктураШапкиДокумента, ТаблицаПоТоварам, ТаблицаПоТаре, ТаблицаПоОборудованию, ТаблицаПоУслугам, ТаблицаПоАгентскимУслугам, ТаблицаПоОбъектамСтроительства;


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

ПроверкиСобытий.ППП(Товары);

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


// Заголовок для сообщений об ошибках проведения.
Заголовок = ОбщегоНазначения.ПредставлениеДокументаПриПроведении(Ссылка);
     
// Проверка ручной корректировки
Если ОбщегоНазначения.РучнаяКорректировкаОбработкаПроведения(РучнаяКорректировка,Отказ,Заголовок,ЭтотОбъект) Тогда
Возврат
КонецЕсли;

ПодготовитьСтруктуруШапкиДокумента(Заголовок, СтруктураШапкиДокумента, Отказ);

// Проверим правильность заполнения шапки документа
ПроверитьЗаполнениеШапки(СтруктураШапкиДокумента, Отказ, Заголовок);

ПодготовитьТаблицыДокумента(СтруктураШапкиДокумента, ТаблицаПоТоварам, ТаблицаПоТаре, ТаблицаПоОборудованию, ТаблицаПоУслугам, ТаблицаПоАгентскимУслугам, ТаблицаПоОбъектамСтроительства);

// Проверить заполнение ТЧ
ПроверитьЗаполнениеТабличнойЧастиТовары(ТаблицаПоТоварам, СтруктураШапкиДокумента, Отказ, Заголовок);
ПроверитьЗаполнениеТабличнойЧастиУслуги(ТаблицаПоУслугам, СтруктураШапкиДокумента, Отказ, Заголовок);
ПроверитьЗаполнениеТабличнойЧастиАгентскиеУслуги(ТаблицаПоАгентскимУслугам, СтруктураШапкиДокумента, Отказ, Заголовок);
ПроверитьЗаполнениеТабличнойЧастиОборудование(ТаблицаПоОборудованию, СтруктураШапкиДокумента, Отказ, Заголовок);
ПроверитьЗаполнениеТабличнойЧастиВозвратнаяТара(ТаблицаПоТаре, СтруктураШапкиДокумента, Отказ, Заголовок);
ПроверитьЗаполнениеТабличнойЧастиОбъектыСтроительства(ТаблицаПоОбъектамСтроительства, СтруктураШапкиДокумента, Отказ, Заголовок);

// Зачет авансов
ТаблицаЗачетаАвансов = ПодготовитьТаблицуЗачетаАвансов(СтруктураШапкиДокумента);
ПроверитьЗаполнениеТабличнойЧастиЗачетАвансов(ТаблицаЗачетаАвансов, СтруктураШапкиДокумента, Отказ, Заголовок);

УправлениеВзаиморасчетами.ПроверкаВозможностиПроведенияВ_БУ_НУ(
СтруктураШапкиДокумента, СтруктураШапкиДокумента.ДоговорКонтрагента, Отказ, Заголовок);

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

Если Не Отказ Тогда
ДвиженияПоРегистрам(
РежимПроведения, СтруктураШапкиДокумента,
ТаблицаПоТоварам, ТаблицаПоТаре, ТаблицаПоУслугам, ТаблицаПоАгентскимУслугам, ТаблицаПоОборудованию, ТаблицаПоОбъектамСтроительства,
ТаблицаЗачетаАвансов,
Отказ, Заголовок);
КонецЕсли;

Если НЕ Отказ Тогда
Движения.Записать();
УчетНДС.ПроверитьСоответствиеРеквизитовСчетаФактуры(ЭтотОбъект, "СчетФактураПолученный");
КонецЕсли;

р=2;


КонецПроцедуры // ОбработкаПроведения()



[Дмитрий@]

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

не могу прикрепить скрин - https://cloud.mail.ru/public/3MpU1q4mSj6U/11.png - ссылка
На выделенной строке нажимаете правую кнопку мыши, и выбираете меню "Показать".
Движения должны отобразится в виде табличной части.

[vitasw]

Отвратительно.
1. Оформите свои движения в качестве отдельной процедуры.
2. Осуществляйте вызов свой новой процедуры тут:

Если Не Отказ Тогда
        ДвиженияПоРегистрам(
            РежимПроведения, СтруктураШапкиДокумента,
            ТаблицаПоТоварам, ТаблицаПоТаре, ТаблицаПоУслугам, ТаблицаПоАгентскимУслугам, ТаблицаПоОборудованию, ТаблицаПоОбъектамСтроительства,
            ТаблицаЗачетаАвансов,
            Отказ, Заголовок); 
ТУТ!!!

    КонецЕсли;

3. Присулайтесь к советам предидущих респондентов и записывайте не всю коллекцию движений, а конкретный набор своего регистра.
4. Все ваши движения затираются в стандартных процедурах, поэтому прислушайтесь все таки к советам.

5. Это ваше творчество?

Если НЕ Отказ Тогда Движения.Записать(); УчетНДС.ПроверитьСоответствиеРеквизитовСчетаФактуры(ЭтотОбъект, "СчетФактураПолученный"); КонецЕсли;

[Игорь_M]

https://cloud.mail.ru/public/5iBzbnuL3fMW/11%20(1).png

[Дмитрий@]

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

https://cloud.mail.ru/public/5iBzbnuL3fMW/11%20(1).png
как вы сами видите у вас нет никаких движений, соответственно записываться нечему.
Найдите, то место где они есть "Движения.НазваниеРегистра.Записать()" и посмотрите в каком месте они удаляются.

[Игорь_M]

Порядок, перенес свой код в конец процедуры - движения появились
Выделю в отд.процедуру по совету vitasw и будет мне счастье . Спасибо

[SamMan]

3. Присулайтесь к советам предидущих респондентов и записывайте не всю коллекцию движений, а конкретный набор своего регистра.

Окей, буду настойчив. Отквоченное имеет некое техническое пояснение или это локальная религия форума?