|
|
|
вопрос по конвертации данных, почему не привязываются счета учета | ☑ | ||
|---|---|---|---|---|
|
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
|
отладка что дает?
навтыкать сообщить() в циклы хотя бы |
| Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |