Имя: Пароль:
1C
1С v8
вопрос по конвертации данных, почему не привязываются счета учета
0 vde69
 
модератор
06.08.13
10:11
есть обмен УТ10 - Бух3.0, после у документов не заполнены счета учета... Документы выгружаются ВСЕГДА не проведенными!

правило ПКО документа "После загрузки"

Если не Объект.Проведен Тогда
    Параметры.МассивДокументовДляПривязкиСчетов.Добавить(Объект.Ссылка);
КонецЕсли;


Глобальное правило конвертации "После загрузки данных"

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

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

                СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация,  Объект.Контрагент, Объект.ДоговорКонтрагента);
                Объект.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетов;
                Объект.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансов;
                
                Объект.Записать();
            КонецЕсли;
1 vde69
 
модератор
06.08.13
10:31
ап ..
2 Господин ПЖ
 
06.08.13
10:37
отладка что дает?

навтыкать сообщить() в циклы хотя бы