<ФайлОбмена ВерсияФормата="2.01" ДатаВыгрузки="2018-12-28T16:43:45" НачалоПериодаВыгрузки="2018-12-27T00:00:00" ОкончаниеПериодаВыгрузки="2018-12-28T23:59:59" ИдПравилКонвертации="-" ИмяКонфигурацииИсточника="УправлениеТорговлей" ИмяКонфигурацииПриемника="БухгалтерияПредприятия" Комментарий="Выгрузка данных из МойСклад"><ПравилаОбмена> <ВерсияФормата>2.01 <Ид>a975ea97-fd97-4a7f-87ca-8a1fe914f4b5 <Наименование>Обработка УправлениеТорговлей --> БухгалтерияПредприятияКОРП <ДатаВремяСоздания>2010-06-10T11:58:17 <Источник>УправлениеТорговлей <Приемник>БухгалтерияПредприятия <ПередЗагрузкойДанных>Параметры.Вставить("ВалютаРегламентированногоУчета", Константы.ВалютаРегламентированногоУчета.Получить()); Параметры.Вставить("ОбъектыКУдалению", Новый Массив); // @TODO Параметры.Вставить("СкладДляОбменаДаннымиСУТ", Неопределено); Параметры.Вставить("ОсновнаяОрганизация", ОбщегоНазначенияБПВызовСервера.ПолучитьЗначениеПоУмолчанию("ОсновнаяОрганизация")); Параметры.Вставить("ДокументыСОпределениемДопРеквизитов",Новый Массив); Параметры.Вставить("ОграничениеНаДлинуКодаНоменклатуры", Метаданные.Справочники.Номенклатура.ДлинаКода); // Счет учета НДС по реализации ЕстьПолеУдалитьУчитыватьНДС = Ложь; Попытка МетаданныеУдалитьУчитыватьНДС = Метаданные.Документы.РеализацияТоваровУслуг.Реквизиты.УдалитьУчитыватьНДС; ЕстьПолеУдалитьУчитыватьНДС = Истина; Исключение КонецПопытки; Параметры.Вставить("ЕстьПолеУдалитьУчитыватьНДС", ЕстьПолеУдалитьУчитыватьНДС); <ПослеЗагрузкиДанных>Если Параметры.ДокументыСОпределениемДопРеквизитов.Количество() > 0 Тогда Для каждого ДокументСОпределениемДопРеквизитов Из Параметры.ДокументыСОпределениемДопРеквизитов Цикл ТипОбъекта = ТипЗнч(ДокументСОпределениемДопРеквизитов); Если ТипОбъекта = Тип("ДокументСсылка.ПоступлениеДопРасходов") Тогда //переопределение счетов учета ДокументОбъектСОпределениемДопРеквизитов = ДокументСОпределениемДопРеквизитов.ПолучитьОбъект(); ДокументОбъектСОпределениемДопРеквизитов.ЗаполнитьСчетаУчетаВТабЧасти(ДокументОбъектСОпределениемДопРеквизитов.Товары, Истина, Истина); Для каждого СтрокаТЧ Из ДокументОбъектСОпределениемДопРеквизитов.Товары Цикл СтрокаТЧ.ОтражениеВУСН = Перечисления.ОтражениеВУСН.Принимаются; КонецЦикла; ИначеЕсли ТипОбъекта = Тип("ДокументСсылка.ГТДИмпорт") Тогда //переопределение счетов учета ДокументОбъектСОпределениемДопРеквизитов = ДокументСОпределениемДопРеквизитов.ПолучитьОбъект(); ДокументОбъектСОпределениемДопРеквизитов.ЗаполнитьСчетаУчетаВТабЧасти(ДокументОбъектСОпределениемДопРеквизитов.Товары, Истина, Истина); КонецЕсли; ЗаписатьОбъектВИБ(ДокументОбъектСОпределениемДопРеквизитов,ТипОбъекта); КонецЦикла; КонецЕсли; <ПослеЗагрузкиОбъекта> Выполнить(Алгоритмы.ЗаполнитьРеквизитыПоУмолчанию); <ПриПолученииИнформацииОбУдалении> МетаданныеОбъекта = Объект.Метаданные(); Если Метаданные.Документы.Содержит(МетаданныеОбъекта) ИЛИ Метаданные.Справочники.Содержит(МетаданныеОбъекта) Тогда Отказ = Истина; ТипОбъекта = ТипЗнч(Объект); Если Метаданные.Справочники.Содержит(МетаданныеОбъекта) И НЕ Объект.Предопределенный Тогда Объект.УстановитьПометкуУдаления(Истина); КонецЕсли; Если Метаданные.Документы.Содержит(МетаданныеОбъекта) Тогда Если Объект.Проведен Тогда ОтменитьПроведениеОбъектаВИБ(Объект, ТипОбъекта); КонецЕсли; Объект.УстановитьПометкуУдаления(Истина); КонецЕсли; КонецЕсли; <Параметры> <Параметр Имя="ОбъектыКУдалению" Наименование="ОбъектыКУдалению"/> <Обработки/> <ПравилаКонвертацииОбъектов> <Правило> <Код>ПеречислениеОтветственныеЛицаОрганизаций <Источник>ПеречислениеСсылка.ОтветственныеЛицаОрганизации <Приемник>ПеречислениеСсылка.ОтветственныеЛицаОрганизаций <Правило> <Код>ВидыАгентскихДоговоров <Источник>ПеречислениеСсылка.ВидыАгентскихДоговоров <Приемник>ПеречислениеСсылка.ВидыАгентскихДоговоров <Правило> <Код>ВидыДоговоровКонтрагентов <Источник>ПеречислениеСсылка.ВидыДоговоровКонтрагентов <Приемник>ПеречислениеСсылка.ВидыДоговоровКонтрагентов <Правило> <Код>ВидыКонтактныхЛиц <Источник>ПеречислениеСсылка.ВидыКонтактныхЛиц <Приемник>ПеречислениеСсылка.ВидыКонтактныхЛиц <Правило> <Код>ВидыОбъектовКонтактнойИнформации <Источник>ПеречислениеСсылка.ВидыОбъектовКонтактнойИнформации <Приемник>ПеречислениеСсылка.ВидыОбъектовКонтактнойИнформации <Правило> <Код>ТипыДомов <Источник>ПеречислениеСсылка.ТипыДомов <Приемник>ПеречислениеСсылка.ТипыДомов <Правило> <Код>ВидыОперацийВводНачОстатковНДС <Источник>ПеречислениеСсылка.ВидыОперацийВводНачОстатковНДС <Приемник>ПеречислениеСсылка.ВидыОперацийВводНачОстатковНДС <Правило> <Код>ВидыОперацийОтчетОРозничныхПродажах <Источник>ПеречислениеСсылка.ВидыОперацийОтчетОРозничныхПродажах <Приемник>ПеречислениеСсылка.ВидыОперацийОтчетОРозничныхПродажах <Правило> <Код>ВидыОперацийПеремещениеТоваров <Источник>ПеречислениеСсылка.ВидыОперацийПеремещениеТоваров <Приемник>ПеречислениеСсылка.ВидыОперацийПеремещениеТоваров <Правило> <Код>ВидыОперацийПКО <Источник>ПеречислениеСсылка.ВидыОперацийПКО <Приемник>ПеречислениеСсылка.ВидыОперацийПКО <Правило> <Код>ВидыОперацийПоступлениеБезналичныхДенежныхСре <Источник>ПеречислениеСсылка.ВидыОперацийПоступлениеБезналичныхДенежныхСредств <Приемник>ПеречислениеСсылка.ВидыОперацийПоступлениеДенежныхСредств <Правило> <Код>ВидыОперацийППИсходящее <Источник>ПеречислениеСсылка.ВидыОперацийППИсходящее <Приемник>ПеречислениеСсылка.ВидыОперацийСписаниеДенежныхСредств <Правило> <Код>ВидыОперацийРеализацияТоваров <Источник>ПеречислениеСсылка.ВидыОперацийРеализацияТоваров <Приемник>ПеречислениеСсылка.ВидыОперацийРеализацияТоваров <Правило> <Код>ВидыОперацийРКО <Источник>ПеречислениеСсылка.ВидыОперацийРКО <Приемник>ПеречислениеСсылка.ВидыОперацийРКО <Правило> <Код>ВидыОперацийСписаниеБезналичныхДенежныхСредст <Источник>ПеречислениеСсылка.ВидыОперацийСписаниеБезналичныхДенежныхСредств <Приемник>ПеречислениеСсылка.ВидыОперацийСписаниеДенежныхСредств <Правило> <Код>ВидыОтчетовПоПлатежамКомиссия <Источник>ПеречислениеСсылка.ВидыОтчетовПоПлатежамКомиссия <Приемник>ПеречислениеСсылка.ВидыОтчетовПоПлатежамКомиссия <Правило> <Код>ВидыСкладов <Источник>ПеречислениеСсылка.ВидыСкладов <Приемник>ПеречислениеСсылка.ВидыСкладов <Правило> <Код>ВидыТорговогоОборудования <Источник>ПеречислениеСсылка.ВидыТорговогоОборудования <Приемник>ПеречислениеСсылка.ВидыТорговогоОборудования <Правило> <Код>ВидыЦенностей <Источник>ПеречислениеСсылка.ВидыЦенностей <Приемник>ПеречислениеСсылка.ВидыЦенностей <Правило> <Код>МоментыОпределенияНалоговойБазыНДС <Источник>ПеречислениеСсылка.МоментыОпределенияНалоговойБазыНДС <Приемник>ПеречислениеСсылка.МоментыОпределенияНалоговойБазыНДС <Правило> <Код>ОтнесениеРасходовКДеятельностиЕНВД <Источник>ПеречислениеСсылка.ОтнесениеРасходовКДеятельностиЕНВД <Приемник>ПеречислениеСсылка.ВидыДеятельностиДляНалоговогоУчетаЗатрат <Правило> <Код>Периодичность <Источник>ПеречислениеСсылка.Периодичность <Приемник>ПеречислениеСсылка.Периодичность <Правило> <Код>ПолФизическихЛиц <Источник>ПеречислениеСсылка.ПолФизическихЛиц <Приемник>ПеречислениеСсылка.ПолФизическихЛиц <Правило> <Код>ПорядкиОкругления <Источник>ПеречислениеСсылка.ПорядкиОкругления <Приемник>ПеречислениеСсылка.ПорядкиОкругления <Правило> <Код>РасчетыВозврат <Источник>ПеречислениеСсылка.РасчетыВозврат <Приемник>ПеречислениеСсылка.РасчетыВозврат <Правило> <Код>СобытияПоНДСПокупки <Источник>ПеречислениеСсылка.СобытияПоНДСПокупки <Приемник>ПеречислениеСсылка.СобытияПоНДСПокупки <Правило> <Код>СобытияПоНДСПродажи <Источник>ПеречислениеСсылка.СобытияПоНДСПродажи <Приемник>ПеречислениеСсылка.СобытияПоНДСПродажи <Правило> <Код>СпособыЗаполненияЦен <Источник>ПеречислениеСсылка.СпособыЗаполненияЦен <Приемник>ПеречислениеСсылка.СпособыЗаполненияЦен <Правило> <Код>СпособыОценки <Источник>ПеречислениеСсылка.СпособыОценки <Приемник>ПеречислениеСсылка.СпособыОценки <Правило> <Код>СпособыРаспределенияДопРасходов <Источник>ПеречислениеСсылка.СпособыРаспределенияДопРасходов <Приемник>ПеречислениеСсылка.СпособыРаспределенияДопРасходов <Правило> <Код>СпособыРасчетаКомиссионногоВознаграждения <Источник>ПеречислениеСсылка.СпособыРасчетаКомиссионногоВознаграждения <Приемник>ПеречислениеСсылка.СпособыРасчетаКомиссионногоВознаграждения <Правило> <Код>ВидыСтавокНДС <Источник>ПеречислениеСсылка.ВидыСтавокНДС <Приемник>ПеречислениеСсылка.ВидыСтавокНДС <Правило> <Код>СтатусыКонтрагентов <Источник>ПеречислениеСсылка.СтатусыКонтрагентов <Приемник>ПеречислениеСсылка.СтатусыКонтрагентов <Правило> <Код>ТипыКонтактнойИнформации <Источник>ПеречислениеСсылка.ТипыКонтактнойИнформации <Приемник>ПеречислениеСсылка.ТипыКонтактнойИнформации <Правило> <Код>ЮридическоеФизическоеЛицо <Источник>ПеречислениеСсылка.ЮридическоеФизическоеЛицо <Приемник>ПеречислениеСсылка.ЮридическоеФизическоеЛицо <Правило> <Код>ВидыОперацийКомплектацияНоменклатуры <Источник>ПеречислениеСсылка.ВидыОперацийКомплектацияНоменклатуры <Приемник>ПеречислениеСсылка.ВидыОперацийКомплектацияНоменклатуры <Правило> <Код>ДействиеНДСВСтоимостиТоваров <Источник>ПеречислениеСсылка.ДействиеНДСВСтоимостиТоваров <Приемник>ПеречислениеСсылка.ДействиеНДСВСтоимостиТоваров <Правило> <Код>ВидыЗадолженности <Источник>ПеречислениеСсылка.ВидыЗадолженности <Приемник>ПеречислениеСсылка.ВидыЗадолженности <Правило> <Код>ВидыОперацийКорректировкаДолга <Источник>ПеречислениеСсылка.ВидыОперацийКорректировкаДолга <Приемник>ПеречислениеСсылка.ВидыОперацийКорректировкаДолга <Правило> <Код>ТипыОплат <Источник>ПеречислениеСсылка.ТипыОплатЧекаККМ <Приемник>ПеречислениеСсылка.ТипыОплат <Правило> <Код>ПорядокРегистрацииСчетовФактурНаАванс <Источник>ПеречислениеСсылка.ПорядокРегистрацииСчетовФактурНаАванс <Приемник>ПеречислениеСсылка.ПорядокРегистрацииСчетовФактурНаАванс <Правило> <Код>ТипыКорпусов <Источник>ПеречислениеСсылка.ТипыКорпусов <Приемник>ПеречислениеСсылка.ТипыКорпусов <Правило> <Код>ТипыКвартир <Источник>ПеречислениеСсылка.ТипыКвартир <Приемник>ПеречислениеСсылка.ТипыКвартир <Правило> <Код>ВидыПеречисленийВБюджет <Источник>ПеречислениеСсылка.ВидыПеречисленийВБюджет <Приемник>ПеречислениеСсылка.ВидыПеречисленийВБюджет <Правило> <Код>АдресныеСокращения <СинхронизироватьПоИдентификатору>true <ПродолжитьПоискПоПолямПоискаЕслиПоИдентификаторуНеНашли>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.АдресныеСокращения <Приемник>СправочникСсылка.АдресныеСокращения <Правило> <Код>Банки <СинхронизироватьПоИдентификатору>true <ПродолжитьПоискПоПолямПоискаЕслиПоИдентификаторуНеНашли>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.Банки <Приемник>СправочникСсылка.Банки <ПослеЗагрузки> Если НЕ Объект.ЭтоНовый() Тогда Отказ = Истина; Иначе Объект.РучноеИзменение = 2; КонецЕсли; <Правило> <Код>БанковскиеСчета <СинхронизироватьПоИдентификатору>true <ПродолжитьПоискПоПолямПоискаЕслиПоИдентификаторуНеНашли>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.БанковскиеСчета <Приемник>СправочникСсылка.БанковскиеСчета <ПослеЗагрузки> Если НЕ Объект.ЭтоНовый() Тогда Отказ = Истина; КонецЕсли; <Правило> <Код>Валюты <СинхронизироватьПоИдентификатору>true <ПродолжитьПоискПоПолямПоискаЕслиПоИдентификаторуНеНашли>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.Валюты <Приемник>СправочникСсылка.Валюты <Правило> <Код>ВидыКонтактнойИнформации <СинхронизироватьПоИдентификатору>true <ПродолжитьПоискПоПолямПоискаЕслиПоИдентификаторуНеНашли>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.ВидыКонтактнойИнформации <Приемник>СправочникСсылка.ВидыКонтактнойИнформации <Правило> <Код>ДоговорыКонтрагентов <ПослеЗагрузки> <ПоследовательностьПолейПоиска>Если СвойстваПоиска["ЭтоГруппа"] = Истина Тогда СтрокаИменСвойствПоиска = "Наименование, ЭтоГруппа"; Иначе СтрокаИменСвойствПоиска = "Наименование, Владелец, ВалютаВзаиморасчетов, ВедениеВзаиморасчетов, Организация, ВидДоговора, ЭтоГруппа"; Конецесли; <СинхронизироватьПоИдентификатору>true <ПродолжитьПоискПоПолямПоискаЕслиПоИдентификаторуНеНашли>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.ДоговорыКонтрагентов <Приемник>СправочникСсылка.ДоговорыКонтрагентов <Правило> <Код>ДокументыУдостоверяющиеЛичность <СинхронизироватьПоИдентификатору>true <ПродолжитьПоискПоПолямПоискаЕслиПоИдентификаторуНеНашли>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.ДокументыУдостоверяющиеЛичность <Приемник>СправочникСсылка.ДокументыУдостоверяющиеЛичность <Правило> <Код>ДолжностиОрганизаций <СинхронизироватьПоИдентификатору>true <ПродолжитьПоискПоПолямПоискаЕслиПоИдентификаторуНеНашли>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.ДолжностиОрганизаций <Приемник>СправочникСсылка.ДолжностиОрганизаций <Правило> <Код>КлассификаторЕдиницИзмерения <СинхронизироватьПоИдентификатору>true <ПродолжитьПоискПоПолямПоискаЕслиПоИдентификаторуНеНашли>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.КлассификаторЕдиницИзмерения <Приемник>СправочникСсылка.КлассификаторЕдиницИзмерения <Правило> <Код>КлассификаторСтранМира <ПоследовательностьПолейПоиска> НеЗамещать=Истина; Если НомерВариантаПоиска = 1 Тогда СтрокаИменСвойствПоиска = "Код"; ИначеЕсли НомерВариантаПоиска = 2 Тогда СтрокаИменСвойствПоиска = "КодАльфа2"; ИначеЕсли НомерВариантаПоиска = 3 Тогда СтрокаИменСвойствПоиска = "КодАльфа3"; ИначеЕсли НомерВариантаПоиска = 4 Тогда СтрокаИменСвойствПоиска = "Наименование"; КонецЕсли; <СинхронизироватьПоИдентификатору>true <ПродолжитьПоискПоПолямПоискаЕслиПоИдентификаторуНеНашли>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <НеЗамещатьОбъектСозданныйВИнформационнойБазеПриемнике>true <Источник>СправочникСсылка.СтраныМира <Приемник>СправочникСсылка.СтраныМира <Правило> <Код>КонтактныеЛица <ПослеЗагрузки> // ---- Процедура формы элемента ПриИзмененииВидаКонтактногоЛица() Если НЕ ЗначениеЗаполнено(Объект.ВидКонтактногоЛица) Тогда Объект.ВидКонтактногоЛица = Перечисления.ВидыКонтактныхЛиц.ЛичныйКонтакт; КонецЕсли; Если Объект.ВидКонтактногоЛица = Перечисления.ВидыКонтактныхЛиц.КонтактноеЛицоКонтрагента Тогда Если ТипЗнч(Объект.ОбъектВладелец) <> Тип("СправочникСсылка.Контрагенты") Тогда Объект.ОбъектВладелец = Справочники.Контрагенты.ПустаяСсылка(); КонецЕсли; ИначеЕсли Объект.ВидКонтактногоЛица = Перечисления.ВидыКонтактныхЛиц.ЛичныйКонтакт Тогда Если Объект.ОбъектВладелец <> глЗначениеПеременной("глТекущийПользователь") Тогда Объект.ОбъектВладелец = глЗначениеПеременной("глТекущийПользователь"); КонецЕсли; Иначе Если ТипЗнч(Объект.ОбъектВладелец) <> Тип("СправочникСсылка.Пользователи") Тогда Объект.ОбъектВладелец = Справочники.Пользователи.ПустаяСсылка(); КонецЕсли; КонецЕсли; // ---- <СинхронизироватьПоИдентификатору>true <ПродолжитьПоискПоПолямПоискаЕслиПоИдентификаторуНеНашли>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.КонтактныеЛица <Приемник>СправочникСсылка.КонтактныеЛица <Правило> <Код>Контрагенты <ПослеЗагрузки> Для Каждого ЗаписьТЧ ИЗ Объект.КонтактнаяИнформация Цикл Если ЗаписьТЧ.Тип = Перечисления.ТипыКонтактнойИнформации.Телефон Тогда ЗаписьТЧ.Вид = Справочники.ВидыКонтактнойИнформации.ТелефонКонтрагента; ИначеЕсли ЗаписьТЧ.Тип = Перечисления.ТипыКонтактнойИнформации.Факс Тогда ЗаписьТЧ.Вид = Справочники.ВидыКонтактнойИнформации.ФаксКонтрагенты; ИначеЕсли ЗаписьТЧ.Тип = Перечисления.ТипыКонтактнойИнформации.АдресЭлектроннойПочты Тогда ЗаписьТЧ.Вид = Справочники.ВидыКонтактнойИнформации.EmailКонтрагенты; КонецЕсли; КонецЦикла; <ПоследовательностьПолейПоиска>Если СвойстваПоиска["ЭтоГруппа"] = Истина Тогда СтрокаИменСвойствПоиска = "Наименование, ЭтоГруппа"; ИначеЕсли ЗначениеЗаполнено(СвойстваПоиска["ИНН"]) Тогда СтрокаИменСвойствПоиска = "ИНН"; Иначе СтрокаИменСвойствПоиска = "Наименование"; КонецЕсли; <СинхронизироватьПоИдентификатору>true <ПродолжитьПоискПоПолямПоискаЕслиПоИдентификаторуНеНашли>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.Контрагенты <Приемник>СправочникСсылка.Контрагенты <Правило> <Код>НомераГТД <СинхронизироватьПоИдентификатору>true <ПродолжитьПоискПоПолямПоискаЕслиПоИдентификаторуНеНашли>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.НомераГТД <Приемник>СправочникСсылка.НомераГТД <Правило> <Код>Номенклатура <ПослеЗагрузки> Если Объект.Родитель <> Справочники.Номенклатура.ПустаяСсылка() И Объект.Ссылка = Объект.Родитель Тогда Объект.Родитель = Неопределено; Сообщить("Ошибка: Объект Номенклатура(Код = " + Объект.Код + "; Наименование = " + Объект.Наименование + ") ссылается сам на себя"); КонецЕсли; <ПоследовательностьПолейПоиска> Если Не ПустаяСтрока(СвойстваПоиска["Код"]) Тогда Если СтрДлина(СвойстваПоиска["Код"]) > Параметры.ОграничениеНаДлинуКодаНоменклатуры И НомерВариантаПоиска = 1 Тогда Сообщить("Длина кода '" + СвойстваПоиска["Код"] + "' превышает " + Параметры.ОграничениеНаДлинуКодаНоменклатуры + " символов. " + "Код будет обрезан, что может привести к дублированию номенклатуры"); КонецЕсли; СтрокаИменСвойствПоиска = "Код, ЭтоГруппа"; Иначе СтрокаИменСвойствПоиска = "Наименование, ЭтоГруппа"; КонецЕсли; <СинхронизироватьПоИдентификатору>true <ПродолжитьПоискПоПолямПоискаЕслиПоИдентификаторуНеНашли>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.Номенклатура <Приемник>СправочникСсылка.Номенклатура <Правило> <Код>НоменклатурныеГруппы <СинхронизироватьПоИдентификатору>true <ПродолжитьПоискПоПолямПоискаЕслиПоИдентификаторуНеНашли>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.НоменклатурныеГруппы <Приемник>СправочникСсылка.НоменклатурныеГруппы <Правило> <Код>Организации <ПослеЗагрузки> Для Каждого ЗаписьТЧ ИЗ Объект.КонтактнаяИнформация Цикл Если ЗаписьТЧ.Тип = Перечисления.ТипыКонтактнойИнформации.Телефон Тогда ЗаписьТЧ.Вид = Справочники.ВидыКонтактнойИнформации.ТелефонОрганизации; ИначеЕсли ЗаписьТЧ.Тип = Перечисления.ТипыКонтактнойИнформации.Факс Тогда ЗаписьТЧ.Вид = Справочники.ВидыКонтактнойИнформации.ФаксОрганизации; ИначеЕсли ЗаписьТЧ.Тип = Перечисления.ТипыКонтактнойИнформации.АдресЭлектроннойПочты Тогда ЗаписьТЧ.Вид = Справочники.ВидыКонтактнойИнформации.EmailОрганизации; КонецЕсли; КонецЦикла; Если НЕ ЗначениеЗаполнено(Объект.РайонныйКоэффициент) Тогда Объект.РайонныйКоэффициент = Метаданные.Справочники.Организации.Реквизиты.РайонныйКоэффициент.ЗначениеЗаполнения; КонецЕсли; <ПоследовательностьПолейПоиска>Если ЗначениеЗаполнено(СвойстваПоиска["ИНН"]) Тогда СтрокаИменСвойствПоиска = "ИНН"; Иначе СтрокаИменСвойствПоиска = "Наименование"; КонецЕсли; <СинхронизироватьПоИдентификатору>true <ПродолжитьПоискПоПолямПоискаЕслиПоИдентификаторуНеНашли>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.Организации <Приемник>СправочникСсылка.Организации <Правило> <Код>Пользователи <СинхронизироватьПоИдентификатору>true <ПродолжитьПоискПоПолямПоискаЕслиПоИдентификаторуНеНашли>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.Пользователи <Приемник>СправочникСсылка.Пользователи <Правило> <Код>РолиКонтактныхЛиц <СинхронизироватьПоИдентификатору>true <ПродолжитьПоискПоПолямПоискаЕслиПоИдентификаторуНеНашли>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.РолиКонтактныхЛиц <Приемник>СправочникСсылка.РолиКонтактныхЛиц <Правило> <Код>Склады <ПоследовательностьПолейПоиска>Если СвойстваПоиска["ЭтоГруппа"] = Истина Тогда СтрокаИменСвойствПоиска = "Наименование, ЭтоГруппа"; Иначе СтрокаИменСвойствПоиска = "Наименование, ВидСклада, ЭтоГруппа"; Конецесли; <СинхронизироватьПоИдентификатору>true <ПродолжитьПоискПоПолямПоискаЕслиПоИдентификаторуНеНашли>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.Склады <Приемник>СправочникСсылка.Склады <Правило> <Код>СтатьиДвиженияДенежныхСредств <СинхронизироватьПоИдентификатору>true <ПродолжитьПоискПоПолямПоискаЕслиПоИдентификаторуНеНашли>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.СтатьиДвиженияДенежныхСредств <Приемник>СправочникСсылка.СтатьиДвиженияДенежныхСредств <Правило> <Код>СтатьиЗатрат <ПослеЗагрузки>Если НЕ ЗначениеЗаполнено(Объект.Код) Тогда Объект.УстановитьНовыйКод(); КонецЕсли; Если Объект.ЭтоНовый() И Объект.ВидДеятельностиДляНалоговогоУчетаЗатрат <> Перечисления.ВидыДеятельностиДляНалоговогоУчетаЗатрат.ПредпринимательскаяДеятельностьОблагаемаяЕНВД Тогда Объект.ВидРасходовНУ = Перечисления.ВидыРасходовНУ.ПрочиеРасходы; КонецЕсли; <СинхронизироватьПоИдентификатору>true <ПродолжитьПоискПоПолямПоискаЕслиПоИдентификаторуНеНашли>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.СтатьиЗатрат <Приемник>СправочникСсылка.СтатьиЗатрат <Правило> <Код>ТипыЦенНоменклатуры <СинхронизироватьПоИдентификатору>true <ПродолжитьПоискПоПолямПоискаЕслиПоИдентификаторуНеНашли>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.ТипыЦенНоменклатуры <Приемник>СправочникСсылка.ТипыЦенНоменклатуры <Правило> <Код>ФизическиеЛица <ПоследовательностьПолейПоиска> Если ЗначениеЗаполнено(СвойстваПоиска["ИНН"]) Тогда СтрокаИменСвойствПоиска = "ИНН, ЭтоГруппа"; ИначеЕсли ЗначениеЗаполнено(СвойстваПоиска["Код"]) Тогда СтрокаИменСвойствПоиска = "Код, ЭтоГруппа"; ИначеЕсли ЗначениеЗаполнено(СвойстваПоиска["ФИО"]) Тогда СтрокаИменСвойствПоиска = "ФИО, ЭтоГруппа"; Иначе СтрокаИменСвойствПоиска = "Наименование, ЭтоГруппа"; КонецЕсли; <СинхронизироватьПоИдентификатору>true <ПродолжитьПоискПоПолямПоискаЕслиПоИдентификаторуНеНашли>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.ФизическиеЛица <Приемник>СправочникСсылка.ФизическиеЛица <Правило> <Код>ПрочиеДоходыИРасходы <СинхронизироватьПоИдентификатору>true <ПродолжитьПоискПоПолямПоискаЕслиПоИдентификаторуНеНашли>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>СправочникСсылка.ПрочиеДоходыИРасходы <Правило> <Код>ВидыОплатОрганизаций <СинхронизироватьПоИдентификатору>true <ПродолжитьПоискПоПолямПоискаЕслиПоИдентификаторуНеНашли>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.ВидыОплатЧекаККМ <Приемник>СправочникСсылка.ВидыОплатОрганизаций <Правило> <Код>ВидыВзаиморасчетов <СинхронизироватьПоИдентификатору>true <ПродолжитьПоискПоПолямПоискаЕслиПоИдентификаторуНеНашли>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>СправочникСсылка.ВидыВзаиморасчетов <Приемник>СправочникСсылка.ВидыВзаиморасчетов <Правило> <Код>АвансовыйОтчет <ПослеЗагрузки>МассивТЧ = Новый Массив; МассивТЧ.Добавить("Товары"); МассивТЧ.Добавить("ВозвратнаяТара"); Для каждого ИмяТЧ из МассивТЧ Цикл Для каждого СтрокаТЧ из Объект[ИмяТЧ] Цикл Объект.ЗаполнитьСчетаУчетаВСтрокеТабличнойЧастиРегл(СтрокаТЧ, ИмяТЧ, Истина, Истина); КонецЦикла; КонецЦикла; Для каждого СтрокаТЧ Из Объект.ВозвратнаяТара Цикл СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, СтрокаТЧ.Контрагент, СтрокаТЧ.ДоговорКонтрагента); СтрокаТЧ.СчетУчетаТары = СчетаУчета.СчетУчетаТары; КонецЦикла; Если УчетнаяПолитика.ПрименяетсяУСН(Объект.Организация, Объект.Дата) Тогда МассивТЧ.Очистить(); МассивТЧ.Добавить("Товары"); МассивТЧ.Добавить("Прочее"); Для каждого ИмяТЧ из МассивТЧ Цикл Для каждого СтрокаТЧ из Объект[ИмяТЧ] Цикл СтрокаТЧ.ОтражениеВУСН = Перечисления.ОтражениеВУСН.Принимаются; КонецЦикла; КонецЦикла; КонецЕсли; Для каждого СтрокаТабличнойЧасти Из Объект.ОплатаПоставщикам Цикл СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, СтрокаТабличнойЧасти.Контрагент, СтрокаТабличнойЧасти.ДоговорКонтрагента); СтрокаТабличнойЧасти.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетов; СтрокаТабличнойЧасти.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансов; КонецЦикла; МетаданныеДокумента = Объект.Метаданные(); ОбъектСодержитПодразделениеОрганизации = ОбщегоНазначенияБПВызовСервера.ЕстьРеквизитДокумента("ПодразделениеОрганизации",МетаданныеДокумента); Для каждого СтрокаТЧ Из Объект.Прочее Цикл СтатьяЗатрат = СтрокаТЧ.Субконто1; НоменклатурнаяГруппа = СтрокаТЧ.Субконто2; Подразделение = СтрокаТЧ.Субконто3; СтрокаТЧ.Субконто1 = Неопределено; СтрокаТЧ.Субконто2 = Неопределено; СтрокаТЧ.Субконто3 = Неопределено; Объект.ЗаполнитьСчетаУчетаВСтрокеТабличнойЧастиРегл(СтрокаТЧ, "Прочее", Истина, Истина); Если ЗначениеЗаполнено(СтрокаТЧ.СчетЗатрат) Тогда Счет = СтрокаТЧ.СчетЗатрат; ЧислоАктивныхСубконто = Счет.ВидыСубконто.Количество(); Для Сч = 1 По ЧислоАктивныхСубконто Цикл Если Счет.ВидыСубконто[Сч-1].ВидСубконто = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.СтатьиЗатрат Тогда СтрокаТЧ["Субконто"+Сч] = СтатьяЗатрат; ИначеЕсли Счет.ВидыСубконто[Сч-1].ВидСубконто = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Контрагенты Тогда СтрокаТЧ["Субконто"+Сч] = Объект.Контрагент; ИначеЕсли Счет.ВидыСубконто[Сч-1].ВидСубконто = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Договоры Тогда СтрокаТЧ["Субконто"+Сч] = Объект.ДоговорКонтрагента; ИначеЕсли Счет.ВидыСубконто[Сч-1].ВидСубконто = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура Тогда СтрокаТЧ["Субконто"+Сч] = СтрокаТЧ.Номенклатура; ИначеЕсли Счет.ВидыСубконто[Сч-1].ВидСубконто = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.НоменклатурныеГруппы Тогда СтрокаТЧ["Субконто"+Сч] = НоменклатурнаяГруппа; ИначеЕсли Счет.ВидыСубконто[Сч-1].ВидСубконто = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.ОбособленныеПодразделения Тогда СтрокаТЧ["Субконто"+Сч] = Подразделение; КонецЕсли; КонецЦикла; Счет = СтрокаТЧ.СчетЗатратНУ; ЧислоАктивныхСубконто = Счет.ВидыСубконто.Количество(); Для Сч = 1 По ЧислоАктивныхСубконто Цикл Если Счет.ВидыСубконто[Сч-1].ВидСубконто = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.СтатьиЗатрат Тогда СтрокаТЧ["СубконтоНУ"+Сч] = СтатьяЗатрат; ИначеЕсли Счет.ВидыСубконто[Сч-1].ВидСубконто = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Контрагенты Тогда СтрокаТЧ["СубконтоНУ"+Сч] = Объект.Контрагент; ИначеЕсли Счет.ВидыСубконто[Сч-1].ВидСубконто = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Договоры Тогда СтрокаТЧ["СубконтоНУ"+Сч] = Объект.ДоговорКонтрагента; ИначеЕсли Счет.ВидыСубконто[Сч-1].ВидСубконто = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура Тогда СтрокаТЧ["СубконтоНУ"+Сч] = СтрокаТЧ.Номенклатура; ИначеЕсли Счет.ВидыСубконто[Сч-1].ВидСубконто = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.НоменклатурныеГруппы Тогда СтрокаТЧ["СубконтоНУ"+Сч] = НоменклатурнаяГруппа; ИначеЕсли Счет.ВидыСубконто[Сч-1].ВидСубконто = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.ОбособленныеПодразделения Тогда СтрокаТЧ["СубконтоНУ"+Сч] = Подразделение; КонецЕсли; КонецЦикла; КонецЕсли; ПодразделениеПоУмолчанию = Неопределено; // {ОбособленныеПодразделения ПодразделениеПоУмолчанию = ?(ОбъектСодержитПодразделениеОрганизации, Объект.ПодразделениеОрганизации, Неопределено); // }ОбособленныеПодразделения // Процедура перенесена и общего модуля РаботаСДиалогами.УстановитьПодразделениеПоСчету // общий модуль РаботаСДиалогами не работает во внешнем соединении //УстановитьПодразделениеПоСчету(Подразделение, Счет, Организация, ПодразделениеПоУмолчанию = Неопределено) Если НЕ СтрокаТЧ.СчетЗатрат.УчетПоПодразделениям Тогда СтрокаТЧ.ПодразделениеЗатрат = Неопределено; //Возврат; Иначе Если ЗначениеЗаполнено(СтрокаТЧ.ПодразделениеЗатрат) И СтрокаТЧ.ПодразделениеЗатрат.Владелец = Объект.Организация Тогда //Возврат; Иначе Если ПодразделениеПоУмолчанию = Неопределено Тогда ПодразделениеПоУмолчанию = ОбщегоНазначенияБПВызовСервера.ПолучитьЗначениеПоУмолчанию("ОсновноеПодразделениеОрганизации"); КонецЕсли; Если ЗначениеЗаполнено(ПодразделениеПоУмолчанию) Тогда Если ПодразделениеПоУмолчанию.Владелец = Объект.Организация Тогда СтрокаТЧ.ПодразделениеЗатрат = ПодразделениеПоУмолчанию; Иначе СтрокаТЧ.ПодразделениеЗатрат = Неопределено; КонецЕсли; Иначе СтрокаТЧ.ПодразделениеЗатрат = Неопределено; КонецЕсли; КонецЕсли; КонецЕсли; КонецЦикла; <СинхронизироватьПоИдентификатору>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.АвансовыйОтчет <Приемник>ДокументСсылка.АвансовыйОтчет <ПоискПоТабличнымЧастям>ТабличнаяЧасть.Товары:Номенклатура ТабличнаяЧасть.ВозвратнаяТара:Контрагент <Правило> <Код>АккредитивПереданный <ПослеЗагрузки> Если НЕ ЗначениеЗаполнено(Объект.СчетУчетаРасчетовСКонтрагентом) И Объект.ВидОперации = Перечисления.ВидыОперацийСписаниеДенежныхСредств.ПрочееСписание Тогда Объект.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.Вспомогательный; КонецЕсли; Для каждого СтрокаПлатеж Из Объект.РасшифровкаПлатежа Цикл Если НЕ (Объект.ВидОперации = Перечисления.ВидыОперацийСписаниеДенежныхСредств.РасчетыПоКредитамИЗаймам) Тогда СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, СтрокаПлатеж.ДоговорКонтрагента); Если Объект.ВидОперации = Перечисления.ВидыОперацийСписаниеДенежныхСредств.ВозвратПокупателю тогда СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовПокупателя; СтрокаПлатеж.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансовПокупателя; Иначе СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетов; СтрокаПлатеж.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансов; КонецЕсли; КонецЕсли; КонецЦикла; Выполнить(Алгоритмы.СтандартныеОперацииДляПлатежныхДокументов); <СинхронизироватьПоИдентификатору>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.АккредитивПереданный <Приемник>ДокументСсылка.СписаниеСРасчетногоСчета <Правило> <Код>АккредитивПолученный <ПослеЗагрузки> Если НЕ ЗначениеЗаполнено(Объект.СчетУчетаРасчетовСКонтрагентом) И Объект.ВидОперации = Перечисления.ВидыОперацийПоступлениеДенежныхСредств.ПрочееПоступление Тогда Объект.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.Вспомогательный; КонецЕсли; Для каждого СтрокаПлатеж Из Объект.РасшифровкаПлатежа Цикл Если НЕ (Объект.ВидОперации = Перечисления.ВидыОперацийПоступлениеДенежныхСредств.РасчетыПоКредитамИЗаймам) Тогда СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, СтрокаПлатеж.ДоговорКонтрагента); Если Объект.ВидОперации = Перечисления.ВидыОперацийПоступлениеДенежныхСредств.ВозвратОтПоставщика Тогда СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетов; СтрокаПлатеж.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансов; Иначе СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовПокупателя; СтрокаПлатеж.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансовПокупателя; КонецЕсли; КонецЕсли; КонецЦикла; Если Объект.ВидОперации = Перечисления.ВидыОперацийПоступлениеДенежныхСредств.ПоступленияОтПродажПоПлатежнымКартамИБанковскимКредитам тогда Объект.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.ИздержкиОбращения; КонецЕсли; Выполнить(Алгоритмы.СтандартныеОперацииДляПлатежныхДокументов); <СинхронизироватьПоИдентификатору>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.АккредитивПолученный <Приемник>ДокументСсылка.ПоступлениеНаРасчетныйСчет <Правило> <Код>ВозвратТоваровОтПокупателя <ПослеЗагрузки> Документы.ВозвратТоваровОтПокупателя.ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект, "Товары"); Для каждого СтрокаТЧ из Объект.Товары Цикл Если СтрокаТЧ.СчетДоходов.ВидыСубконто.Количество() > 0 Тогда СтрокаТЧ.Субконто = Новый(СтрокаТЧ.СчетДоходов.ВидыСубконто[0].ВидСубконто.ТипЗначения.Типы()[0]); Если ТипЗнч(СтрокаТЧ.Субконто) = Тип("СправочникСсылка.НоменклатурныеГруппы") Тогда СтрокаТЧ.Субконто = СтрокаТЧ.Номенклатура.НоменклатурнаяГруппа; КонецЕсли; Иначе СтрокаТЧ.Субконто = Неопределено; КонецЕсли; КонецЦикла; Документы.ВозвратТоваровОтПокупателя.ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект, "ВозвратнаяТара"); СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, Объект.ДоговорКонтрагента); Объект.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовПокупателя; Объект.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансовПокупателя; Объект.СчетУчетаРасчетовПоТаре = СчетаУчета.СчетУчетаТарыПокупателя; Для каждого СтрокаТЧ Из Объект.Товары Цикл СтрокаТЧ.ОтражениеВУСН = Перечисления.ОтражениеВУСН.Принимаются; КонецЦикла; Если Объект.ЭтоНовый() Тогда Объект.СчетУчетаНДС = ПланыСчетов.Хозрасчетный.НДСпоПриобретеннымМПЗ; КонецЕсли; <СинхронизироватьПоИдентификатору>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.ВозвратТоваровОтПокупателя <Приемник>ДокументСсылка.ВозвратТоваровОтПокупателя <ПоискПоТабличнымЧастям>ТабличнаяЧасть.Товары:Номенклатура ТабличнаяЧасть.ВозвратнаяТара:Номенклатура <Правило> <Код>ВозвратТоваровПоставщику <ПослеЗагрузки>//склад и организация по умолчанию ОбязательноЗаполнениеСчетов = Объект.ЭтоНовый() ИЛИ Объект.Организация <> Объект.Ссылка.Организация; Документы.ВозвратТоваровПоставщику.ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект, "Товары"); Если ПараметрыОбъекта <> Неопределено тогда ТаблицаПараметровТовары = ПараметрыОбъекта["ТоварыТабличнаяЧасть"]; Если ТаблицаПараметровТовары <> Неопределено тогда НомерСтроки = 0; Для Каждого СтрокаПараметров Из ТаблицаПараметровТовары Цикл ЗначениеПараметра = СтрокаПараметров.Комиссия; СтрокаТЧ = Объект.Товары.Получить(НомерСтроки); СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, СтрокаТЧ.Номенклатура, Объект.Склад); Если ЗначениеПараметра = Истина Тогда СтрокаТЧ.СчетУчета = ПланыСчетов.Хозрасчетный.ТоварыНаСкладе; КонецЕсли; НомерСтроки = НомерСтроки + 1; КонецЦикла; КонецЕсли; КонецЕсли; Документы.ВозвратТоваровПоставщику.ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект, "ВозвратнаяТара"); СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, Объект.ДоговорКонтрагента); Объект.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетов; Объект.СчетУчетаРасчетовПоПретензиям = СчетаУчета.СчетРасчетовПоПретензиям; Объект.СчетУчетаРасчетовПоТаре = СчетаУчета.СчетУчетаТары; <СинхронизироватьПоИдентификатору>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.ВозвратТоваровПоставщику <Приемник>ДокументСсылка.ВозвратТоваровПоставщику <ПоискПоТабличнымЧастям>ТабличнаяЧасть.Товары:Номенклатура ТабличнаяЧасть.ВозвратнаяТара:Номенклатура <Правило> <Код>ВозвратТоваровПоставщикуИзНТТ <ПослеЗагрузки>УчетнаяПолитикаНеЗадана = Ложь; УчетнаяПолитикаБУ = ОбщегоНазначения.ПолучитьПараметрыУчетнойПолитики(Объект.Дата, УчетнаяПолитикаНеЗадана, Объект.Организация); //склад и организация по умолчанию ОбязательноЗаполнениеСчетов = Объект.ЭтоНовый() ИЛИ Объект.Организация <> Объект.Ссылка.Организация; Если ПараметрыОбъекта <> Неопределено тогда ТаблицаПараметровТовары = ПараметрыОбъекта["ТоварыТабличнаяЧасть"]; Если ТаблицаПараметровТовары <> Неопределено тогда НомерСтроки = 0; Для Каждого СтрокаПараметров Из ТаблицаПараметровТовары Цикл ЗначениеПараметра = СтрокаПараметров.Комиссия; СтрокаТЧ = Объект.Товары.Получить(НомерСтроки); СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, СтрокаТЧ.Номенклатура, Объект.Склад); Объект.ЗаполнитьСчетаУчетаВСтрокеТабличнойЧасти(СтрокаТЧ, "Товары", Истина); Если ЗначениеПараметра = Истина Тогда СтрокаТЧ.СчетУчета = ПланыСчетов.Хозрасчетный.ТоварыНаСкладе; КонецЕсли; НомерСтроки = НомерСтроки + 1; КонецЦикла; КонецЕсли; КонецЕсли; Объект.ЗаполнитьСчетаУчетаВТабЧасти(Объект.ВозвратнаяТара, "ВозвратнаяТара", Истина); СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, Объект.ДоговорКонтрагента); Объект.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетов; Объект.СчетУчетаРасчетовПоПретензиям = СчетаУчета.СчетРасчетовПоПретензиям; Объект.СчетУчетаРасчетовПоТаре = СчетаУчета.СчетУчетаТары; Если НЕ УчетнаяПолитикаНеЗадана И Объект.Склад.ВидСклада = Перечисления.ВидыСкладов.НеавтоматизированнаяТорговаяТочка И УчетнаяПолитикаБУ.СпособОценкиТоваровВРознице = Перечисления.СпособыОценкиТоваровВРознице.ПоПродажнойСтоимости И Объект.ДоговорКонтрагента.ВидДоговора <> Перечисления.ВидыДоговоровКонтрагентов.СКомитентом Тогда ТаблицаТоваров = Объект.Товары.Выгрузить(); НашТовар = Справочники.Номенклатура.НайтиПоНаименованию("Велотовары Выгрузка"); ТаблицаТоваров.ЗаполнитьЗначения(НашТовар.Ссылка, "Номенклатура"); ТаблицаТоваров.Свернуть("Номенклатура, СтавкаНДС, СтавкаНДСВРознице", "Сумма, СуммаНДС, СуммаВРознице"); Объект.Товары.Очистить(); Объект.Товары.Загрузить(ТаблицаТоваров); КонецЕсли; <СинхронизироватьПоИдентификатору>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.ВозвратТоваровПоставщикуИзНТТ <Приемник>ДокументСсылка.ВозвратТоваровПоставщику <ПоискПоТабличнымЧастям>ТабличнаяЧасть.Товары:Номенклатура ТабличнаяЧасть.ВозвратнаяТара:Номенклатура <Правило> <Код>ГТДИмпорт <ПослеЗагрузки>//склад и организация по умолчанию //Объект.ЗаполнитьСчетаУчетаВТабЧасти(Объект.Товары, Истина, Истина); //СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, Объект.ДоговорКонтрагента); //Объект.СчетУчетаРасчетовСКонтрагентомВал = СчетаУчета.СчетРасчетов; //СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, Объект.ДоговорКонтрагентаРегл); //Объект.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетов; СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, Объект.ДоговорКонтрагента); Объект.СчетУчетаРасчетовСКонтрагентомВал = СчетаУчета.СчетРасчетов; СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, Объект.ДоговорКонтрагентаРегл); Объект.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетов; Для Каждого СтрокаТЧ Из Объект.Товары Цикл Объект.ЗаполнитьСчетаУчетаВСтрокеТабличнойЧасти(СтрокаТЧ, Истина, Истина); КонецЦикла; Если Объект.ЭтоНовый() Тогда Параметры.ДокументыСОпределениемДопРеквизитов.Добавить(Объект.ПолучитьСсылкуНового()); Иначе Параметры.ДокументыСОпределениемДопРеквизитов.Добавить(Объект.Ссылка); КонецЕсли; <СинхронизироватьПоИдентификатору>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.ГТДИмпорт <Приемник>ДокументСсылка.ГТДИмпорт <ПоискПоТабличнымЧастям>ТабличнаяЧасть.Товары:Номенклатура <Правило> <Код>Доверенность <СинхронизироватьПоИдентификатору>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.Доверенность <Приемник>ДокументСсылка.Доверенность <Правило> <Код>ИнвентаризацияТоваровНаСкладе <СинхронизироватьПоИдентификатору>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.ИнвентаризацияТоваровНаСкладе <Приемник>ДокументСсылка.ИнвентаризацияТоваровНаСкладе <Правило> <Код>ИнкассовоеПоручениеПереданное <ПослеЗагрузки> Если НЕ ЗначениеЗаполнено(Объект.СчетУчетаРасчетовСКонтрагентом) И Объект.ВидОперации = Перечисления.ВидыОперацийПоступлениеДенежныхСредств.ПрочееПоступление Тогда Объект.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.Вспомогательный; КонецЕсли; Для каждого СтрокаПлатеж Из Объект.РасшифровкаПлатежа Цикл Если НЕ (Объект.ВидОперации = Перечисления.ВидыОперацийПоступлениеДенежныхСредств.РасчетыПоКредитамИЗаймам) Тогда СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, СтрокаПлатеж.ДоговорКонтрагента); Если Объект.ВидОперации = Перечисления.ВидыОперацийПоступлениеДенежныхСредств.ВозвратОтПоставщика Тогда СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетов; СтрокаПлатеж.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансов; Иначе СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовПокупателя; СтрокаПлатеж.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансовПокупателя; КонецЕсли; КонецЕсли; КонецЦикла; Выполнить(Алгоритмы.СтандартныеОперацииДляПлатежныхДокументов); <СинхронизироватьПоИдентификатору>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.ИнкассовоеПоручениеПереданное <Приемник>ДокументСсылка.ПоступлениеНаРасчетныйСчет <Правило> <Код>ИнкассовоеПоручениеПолученное <ПослеЗагрузки> Если НЕ ЗначениеЗаполнено(Объект.СчетУчетаРасчетовСКонтрагентом) И Объект.ВидОперации = Перечисления.ВидыОперацийСписаниеДенежныхСредств.ПрочееСписание Тогда Объект.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.Вспомогательный; КонецЕсли; Для каждого СтрокаПлатеж Из Объект.РасшифровкаПлатежа Цикл Если НЕ (Объект.ВидОперации = Перечисления.ВидыОперацийСписаниеДенежныхСредств.РасчетыПоКредитамИЗаймам) Тогда СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, СтрокаПлатеж.ДоговорКонтрагента); Если Объект.ВидОперации = Перечисления.ВидыОперацийСписаниеДенежныхСредств.ВозвратПокупателю тогда СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовПокупателя; СтрокаПлатеж.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансовПокупателя; Иначе СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетов; СтрокаПлатеж.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансов; КонецЕсли; КонецЕсли; КонецЦикла; Выполнить(Алгоритмы.СтандартныеОперацииДляПлатежныхДокументов); <СинхронизироватьПоИдентификатору>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.ИнкассовоеПоручениеПолученное <Приемник>ДокументСсылка.СписаниеСРасчетногоСчета <Правило> <Код>ОприходованиеТоваров <ПослеЗагрузки> Для каждого СтрокаТЧ Из Объект.Товары Цикл СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, СтрокаТЧ.Номенклатура, Объект.Склад); СтрокаТЧ.СчетУчета = СчетаУчета.СчетУчета; КонецЦикла; <СинхронизироватьПоИдентификатору>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.ОприходованиеТоваров <Приемник>ДокументСсылка.ОприходованиеТоваров <Правило> <Код>ОтчетКомиссионераОПродажах <ПослеЗагрузки> Объект.ЗаполнитьСчетаУчетаВТабЧасти(Объект.Товары, "Товары", Истина); Если ПараметрыОбъекта <> Неопределено тогда ТаблицаПараметровТовары = ПараметрыОбъекта["ТоварыТабличнаяЧасть"]; НомерСтроки = 0; Для Каждого СтрокаПараметров Из ТаблицаПараметровТовары Цикл ЗначениеПараметра = СтрокаПараметров.Комиссия; Если ЗначениеПараметра = Истина Тогда СтрокаТЧ = Объект.Товары.Получить(НомерСтроки); СтрокаТЧ.СчетУчета = ПланыСчетов.Хозрасчетный.ТоварыПереданныеНаКомиссию; Если СтрокаТЧ.СчетДоходов.ВидыСубконто.Количество() > 0 Тогда СтрокаТЧ.Субконто = Новый(СтрокаТЧ.СчетДоходов.ВидыСубконто[0].ВидСубконто.ТипЗначения.Типы()[0]); Если ТипЗнч(СтрокаТЧ.Субконто) = Тип("СправочникСсылка.НоменклатурныеГруппы") Тогда СтрокаТЧ.Субконто = СтрокаТЧ.Номенклатура.НоменклатурнаяГруппа; КонецЕсли; Иначе СтрокаТЧ.Субконто = Неопределено; КонецЕсли; КонецЕсли; НомерСтроки = НомерСтроки + 1; КонецЦикла; КонецЕсли; СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, Объект.ДоговорКонтрагента); Объект.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовПокупателя; Если Объект.УдержатьВознаграждение Тогда Объект.СчетУчетаРасчетовПоАвансамПолученным = СчетаУчета.СчетРасчетовСКомитентом; Иначе Объект.СчетУчетаРасчетовПоАвансамПолученным = СчетаУчета.СчетАвансовПокупателя; КонецЕсли; Объект.СчетУчетаРасчетовЗаПосредническиеУслуги = СчетаУчета.СчетРасчетов; Объект.СчетУчетаРасчетовПоАвансамВыданным = СчетаУчета.СчетАвансов; Объект.СчетУчетаНДС = ПланыСчетов.Хозрасчетный.НДСпоПриобретеннымУслугам; Если НЕ ЗначениеЗаполнено(Объект.СчетУчетаЗатрат) Тогда Объект.СчетУчетаЗатрат = ПланыСчетов.Хозрасчетный.ИздержкиОбращения; КонецЕсли; <СинхронизироватьПоИдентификатору>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.ОтчетКомиссионераОПродажах <Приемник>ДокументСсылка.ОтчетКомиссионераОПродажах <ПоискПоТабличнымЧастям>ТабличнаяЧасть.Товары:Номенклатура <Правило> <Код>ОтчетКомитентуОПродажах <ПослеЗагрузки> СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, Объект.ДоговорКонтрагента); Объект.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовПокупателя; Если Объект.УдержатьВознаграждение Тогда Объект.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетРасчетовСКомитентом; Иначе Объект.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансовПокупателя; КонецЕсли; СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, Объект.УслугаПоВознаграждению); Объект.СчетУчетаНДСПоРеализации = СчетаУчета.СчетУчетаНДСПродажи; Объект.СчетДоходов = СчетаУчета.СчетДоходов; Объект.СуммаВключаетНДС = Истина; <СинхронизироватьПоИдентификатору>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.ОтчетКомитентуОПродажах <Приемник>ДокументСсылка.ОтчетКомитентуОПродажах <ПоискПоТабличнымЧастям>ТабличнаяЧасть.Товары:Номенклатура <Правило> <Код>ОтчетОРозничныхПродажах <ПослеЗагрузки>УчетнаяПолитикаНеЗадана = Ложь; СпособОценкиТоваровВРознице = УчетнаяПолитика.СпособОценкиТоваровВРознице(Объект.Организация, Объект.Дата); //склад и организация по умолчанию Объект.СчетКасса = ПланыСчетов.Хозрасчетный.КассаОрганизации; МассивСтрокКУдалению = Новый Массив; Документы.ОтчетОРозничныхПродажах.ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект, "Товары"); Если ПараметрыОбъекта <> Неопределено тогда ТаблицаПараметровТовары = ПараметрыОбъекта["ТоварыТабличнаяЧасть"]; НомерСтроки = 0; Для Каждого СтрокаПараметров Из ТаблицаПараметровТовары Цикл ЗначениеПараметра = СтрокаПараметров.Комиссия; СтрокаТЧ = Объект.Товары.Получить(НомерСтроки); Если ЗначениеПараметра <> Истина И Объект.Склад.ТипСклада = Перечисления.ТипыСкладов.НеавтоматизированнаяТорговаяТочка И Не УчетнаяПолитикаНеЗадана И СпособОценкиТоваровВРознице = Перечисления.СпособыОценкиТоваровВРознице.ПоПродажнойСтоимости Тогда МассивСтрокКУдалению.Добавить(СтрокаТЧ); Иначе СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, СтрокаТЧ.Номенклатура, Объект.Склад); Если ЗначениеПараметра = Истина Тогда СтрокаТЧ.СчетУчета = ПланыСчетов.Хозрасчетный.ТоварыНаСкладе; КонецЕсли; Конецесли; НомерСтроки = НомерСтроки + 1; КонецЦикла; КонецЕсли; Для каждого СтрокаТЧ из МассивСтрокКУдалению Цикл Объект.Товары.Удалить(СтрокаТЧ); КонецЦикла; //если учет в рознице по продажным ценам, то себестоимость не переносим, только документ партии Если Не УчетнаяПолитикаНеЗадана И СпособОценкиТоваровВРознице = Перечисления.СпособыОценкиТоваровВРознице.ПоПродажнойСтоимости Тогда Для каждого СтрокаТЧ Из Объект.Товары цикл СтрокаТЧ.Себестоимость = 0; КонецЦикла; КонецЕсли; Если Объект.Товары.Количество() = 0 Тогда Отказ = Истина; КонецЕсли; Для каждого СтрокаТЧ Из Объект.Оплата Цикл СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, СтрокаТЧ.Контрагент, СтрокаТЧ.ДоговорКонтрагента); СтрокаТЧ.СчетУчетаРасчетов = СчетаУчета.СчетРасчетов; КонецЦикла; Если Не УчетнаяПолитикаНеЗадана Тогда Если Объект.Склад.ТипСклада = Перечисления.ТипыСкладов.НеавтоматизированнаяТорговаяТочка И СпособОценкиТоваровВРознице = Перечисления.СпособыОценкиТоваровВРознице.ПоПродажнойСтоимости Тогда Параметры.ОбъектыКУдалению.Добавить(Объект.Ссылка); КонецЕсли; Иначе Параметры.ОбъектыКУдалению.Добавить(Объект.Ссылка); КомментарийПриЗагрузкеДанных = КомментарийПриЗагрузкеДанных + Символы.ПС + "Для организации " + Объект.Организация + " не задана учетная политика. |Документ " + Объект + " не загружен!"; КонецЕсли; <СинхронизироватьПоИдентификатору>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.ОтчетОРозничныхПродажах <Приемник>ДокументСсылка.ОтчетОРозничныхПродажах <ПоискПоТабличнымЧастям>ТабличнаяЧасть.Товары:Номенклатура <Правило> <Код>ПеремещениеТоваров <ПослеЗагрузки>Если (НЕ ЗначениеЗаполнено(Объект.СкладОтправитель)) Тогда Объект.СкладОтправитель = Параметры.СкладДляОбменаДаннымиСУТ; КонецЕсли; Если (НЕ ЗначениеЗаполнено(Объект.СкладПолучатель)) Тогда Объект.СкладПолучатель = Параметры.СкладДляОбменаДаннымиСУТ; КонецЕсли; Документы.ПеремещениеТоваров.ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект, "Товары"); Для каждого СтрокаТабЧасти Из Объект.ТоварыНаКомиссии Цикл СтрокаТабЧасти.СчетУчета = ПланыСчетов.Хозрасчетный.ТоварыНаСкладе; СтрокаТабЧасти.НовыйСчетУчета = ПланыСчетов.Хозрасчетный.ТоварыНаСкладе; КонецЦикла; Документы.ПеремещениеТоваров.ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект, "ВозвратнаяТара"); Если Объект.НДСвСтоимостиТоваров = Перечисления.ДействиеНДСВСтоимостиТоваров.ВключитьВСтоимость тогда Объект.ЗаполнитьСчетаСписанияНДСЗначениямиПоУмолчанию(); КонецЕслИ; <СинхронизироватьПоИдентификатору>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.ПеремещениеТоваров <Приемник>ДокументСсылка.ПеремещениеТоваров <ПоискПоТабличнымЧастям>ТабличнаяЧасть.Товары:Номенклатура <Правило> <Код>ПоступлениеНаРасчетныйСчет <ПослеЗагрузки>Если НЕ ЗначениеЗаполнено(Объект.СчетУчетаРасчетовСКонтрагентом) И Объект.ВидОперации = Перечисления.ВидыОперацийПоступлениеДенежныхСредств.ПрочееПоступление Тогда Объект.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.Вспомогательный; КонецЕсли; Для каждого СтрокаПлатеж Из Объект.РасшифровкаПлатежа Цикл Если НЕ (Объект.ВидОперации = Перечисления.ВидыОперацийПоступлениеДенежныхСредств.РасчетыПоКредитамИЗаймам) Тогда СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, СтрокаПлатеж.ДоговорКонтрагента); Если Объект.ВидОперации = Перечисления.ВидыОперацийПоступлениеДенежныхСредств.ВозвратОтПоставщика тогда СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетов; СтрокаПлатеж.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансов; Иначе СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовПокупателя; СтрокаПлатеж.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансовПокупателя; КонецЕсли; КонецЕсли; КонецЦикла; Если Объект.ВидОперации = Перечисления.ВидыОперацийПоступлениеДенежныхСредств.ПоступленияОтПродажПоПлатежнымКартамИБанковскимКредитам тогда Объект.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.ИздержкиОбращения; КонецЕсли; Выполнить(Алгоритмы.СтандартныеОперацииДляПлатежныхДокументов); <СинхронизироватьПоИдентификатору>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.ПоступлениеНаРасчетныйСчет <Приемник>ДокументСсылка.ПоступлениеНаРасчетныйСчет <Правило> <Код>СписаниеСРасчетногоСчета <ПослеЗагрузки>Если НЕ ЗначениеЗаполнено(Объект.СчетУчетаРасчетовСКонтрагентом) И Объект.ВидОперации = Перечисления.ВидыОперацийСписаниеДенежныхСредств.ПрочееСписание Тогда Объект.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.Вспомогательный; Конецесли; Для каждого СтрокаПлатеж Из Объект.РасшифровкаПлатежа Цикл Если НЕ (Объект.ВидОперации = Перечисления.ВидыОперацийСписаниеДенежныхСредств.РасчетыПоКредитамИЗаймам) Тогда СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, СтрокаПлатеж.ДоговорКонтрагента); Если Объект.ВидОперации = Перечисления.ВидыОперацийСписаниеДенежныхСредств.ВозвратПокупателю тогда СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовПокупателя; СтрокаПлатеж.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансовПокупателя; Иначе СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетов; СтрокаПлатеж.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансов; КонецЕсли; КонецЕсли; КонецЦикла; Выполнить(Алгоритмы.СтандартныеОперацииДляПлатежныхДокументов); мВалютаРегламентированногоУчета = Параметры.ВалютаРегламентированногоУчета; Если Объект.СчетОрганизации.ВалютаДенежныхСредств <> мВалютаРегламентированногоУчета Тогда Объект.СчетБанк = ПланыСчетов.Хозрасчетный.ВалютныеСчета; КонецЕсли; <СинхронизироватьПоИдентификатору>true <ПродолжитьПоискПоПолямПоискаЕслиПоИдентификаторуНеНашли>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.СписаниеСРасчетногоСчета <Приемник>ДокументСсылка.СписаниеСРасчетногоСчета <Правило> <Код>ПлатежноеТребованиеПолученное <ПослеЗагрузки> Если НЕ ЗначениеЗаполнено(Объект.СчетУчетаРасчетовСКонтрагентом) И Объект.ВидОперации = Перечисления.ВидыОперацийСписаниеДенежныхСредств.ПрочееСписание Тогда Объект.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.Вспомогательный; КонецЕсли; Для каждого СтрокаПлатеж Из Объект.РасшифровкаПлатежа Цикл Если НЕ (Объект.ВидОперации = Перечисления.ВидыОперацийСписаниеДенежныхСредств.РасчетыПоКредитамИЗаймам) Тогда СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, СтрокаПлатеж.ДоговорКонтрагента); Если Объект.ВидОперации = Перечисления.ВидыОперацийСписаниеДенежныхСредств.ВозвратПокупателю тогда СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовПокупателя; СтрокаПлатеж.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансовПокупателя; Иначе СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетов; СтрокаПлатеж.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансов; КонецЕсли; КонецЕсли; КонецЦикла; Выполнить(Алгоритмы.СтандартныеОперацииДляПлатежныхДокументов); <СинхронизироватьПоИдентификатору>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.ПлатежноеТребованиеПолученное <Приемник>ДокументСсылка.СписаниеСРасчетногоСчета <Правило> <Код>ПлатежныйОрдерПоступлениеДенежныхСредств <ПослеЗагрузки> Если НЕ ЗначениеЗаполнено(Объект.СчетУчетаРасчетовСКонтрагентом) И Объект.ВидОперации = Перечисления.ВидыОперацийПоступлениеДенежныхСредств.ПрочееПоступление Тогда Объект.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.Вспомогательный; КонецЕсли; Для каждого СтрокаПлатеж Из Объект.РасшифровкаПлатежа Цикл Если НЕ (Объект.ВидОперации = Перечисления.ВидыОперацийПоступлениеДенежныхСредств.РасчетыПоКредитамИЗаймам) Тогда СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, СтрокаПлатеж.ДоговорКонтрагента); Если Объект.ВидОперации = Перечисления.ВидыОперацийПоступлениеДенежныхСредств.ВозвратОтПоставщика Тогда СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетов; СтрокаПлатеж.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансов; Иначе СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовПокупателя; СтрокаПлатеж.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансовПокупателя; КонецЕсли; КонецЕсли; КонецЦикла; Если Объект.ВидОперации = Перечисления.ВидыОперацийПоступлениеДенежныхСредств.ПоступленияОтПродажПоПлатежнымКартамИБанковскимКредитам тогда Объект.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.ИздержкиОбращения; КонецЕсли; Выполнить(Алгоритмы.СтандартныеОперацииДляПлатежныхДокументов); <СинхронизироватьПоИдентификатору>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.ПлатежныйОрдерПоступлениеДенежныхСредств <Приемник>ДокументСсылка.ПоступлениеНаРасчетныйСчет <Правило> <Код>ПлатежныйОрдерСписаниеДенежныхСредств <ПослеЗагрузки> Если НЕ ЗначениеЗаполнено(Объект.СчетУчетаРасчетовСКонтрагентом) И Объект.ВидОперации = Перечисления.ВидыОперацийСписаниеДенежныхСредств.ПрочееСписание Тогда Объект.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.Вспомогательный; КонецЕсли; Для каждого СтрокаПлатеж Из Объект.РасшифровкаПлатежа Цикл Если НЕ (Объект.ВидОперации = Перечисления.ВидыОперацийСписаниеДенежныхСредств.РасчетыПоКредитамИЗаймам) Тогда СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, СтрокаПлатеж.ДоговорКонтрагента); Если Объект.ВидОперации = Перечисления.ВидыОперацийСписаниеДенежныхСредств.ВозвратПокупателю тогда СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовПокупателя; СтрокаПлатеж.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансовПокупателя; Иначе СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетов; СтрокаПлатеж.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансов; КонецЕсли; КонецЕсли; КонецЦикла; Выполнить(Алгоритмы.СтандартныеОперацииДляПлатежныхДокументов); <СинхронизироватьПоИдентификатору>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.ПлатежныйОрдерСписаниеДенежныхСредств <Приемник>ДокументСсылка.СписаниеСРасчетногоСчета <Правило> <Код>ПоступлениеДопРасходов <ПослеЗагрузки>//склад и организация по умолчанию //СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, Объект.ДоговорКонтрагента); //Объект.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетов; //Объект.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансов; //Объект.ЗаполнитьСчетаУчетаВТабЧасти(Объект.Товары, Истина, Истина); //Для каждого СтрокаТЧ Из Объект.Товары Цикл // СтрокаТЧ.ОтражениеВУСН = Перечисления.ОтражениеВУСН.Принимаются; //КонецЦикла; Для Каждого СтрокаТЧ Из Объект.Товары Цикл Объект.ЗаполнитьСчетаУчетаВСтрокеТабличнойЧасти(СтрокаТЧ, Истина, Истина); КонецЦикла; СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, Объект.ДоговорКонтрагента); Объект.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетов; Объект.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансов; Если Объект.ЭтоНовый() Тогда Параметры.ДокументыСОпределениемДопРеквизитов.Добавить(Объект.ПолучитьСсылкуНового()); Иначе Параметры.ДокументыСОпределениемДопРеквизитов.Добавить(Объект.Ссылка); КонецЕсли; <СинхронизироватьПоИдентификатору>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.ПоступлениеДопРасходов <Приемник>ДокументСсылка.ПоступлениеДопРасходов <ПоискПоТабличнымЧастям>ТабличнаяЧасть.Товары:Номенклатура <Правило> <Код>ПоступлениеТоваровУслуг <ПослеЗагрузки>//склад и организация по умолчанию ЕстьНалоговыйУчетУСН = УчетнаяПолитика.ПрименяетсяУСН(Объект.Организация, Объект.Дата); СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, Объект.ДоговорКонтрагента); Если Объект.ДоговорКонтрагента.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СКомитентом Тогда Объект.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовСКомитентом; Иначе Объект.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетов; КонецЕсли; Объект.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансов; Объект.СчетУчетаРасчетовПоТаре = СчетаУчета.СчетУчетаТары; Документы.ПоступлениеТоваровУслуг.ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект, "Товары"); Для каждого СтрокаТЧ из Объект.Товары Цикл Если Объект.ДоговорКонтрагента.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СКомитентом Тогда СтрокаТЧ.СчетУчета = ПланыСчетов.Хозрасчетный.ТоварыНаСкладе; КонецЕсли; КонецЦикла; Если ЕстьНалоговыйУчетУСН Тогда Для каждого СтрокаТЧ Из Объект.Товары Цикл Если Объект.ДоговорКонтрагента.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СКомитентом Тогда СтрокаТЧ.ОтражениеВУСН = Перечисления.ОтражениеВУСН.НеПринимаются; Иначе СтрокаТЧ.ОтражениеВУСН = Перечисления.ОтражениеВУСН.Принимаются; КонецЕсли; КонецЦикла; Для каждого СтрокаТЧ Из Объект.Услуги Цикл СтрокаТЧ.ОтражениеВУСН = Перечисления.ОтражениеВУСН.Принимаются; КонецЦикла; КонецЕсли; Документы.ПоступлениеТоваровУслуг.ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект, "Услуги"); Для каждого СтрокаТЧ Из Объект.Услуги Цикл СтатьяЗатрат = СтрокаТЧ.Субконто1; НоменклатурнаяГруппа = СтрокаТЧ.Субконто2; Подразделение = СтрокаТЧ.Субконто3; СтрокаТЧ.Субконто1 = Неопределено; СтрокаТЧ.Субконто2 = Неопределено; СтрокаТЧ.Субконто3 = Неопределено; Если ЗначениеЗаполнено(СтрокаТЧ.СчетЗатрат) Тогда Счет = СтрокаТЧ.СчетЗатрат; ЧислоАктивныхСубконто = Счет.ВидыСубконто.Количество(); Для Сч = 1 По ЧислоАктивныхСубконто Цикл Если Счет.ВидыСубконто[Сч-1].ВидСубконто = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.СтатьиЗатрат Тогда СтрокаТЧ["Субконто"+Сч] = СтатьяЗатрат; ИначеЕсли Счет.ВидыСубконто[Сч-1].ВидСубконто = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Контрагенты Тогда СтрокаТЧ["Субконто"+Сч] = Объект.Контрагент; ИначеЕсли Счет.ВидыСубконто[Сч-1].ВидСубконто = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Договоры Тогда СтрокаТЧ["Субконто"+Сч] = Объект.ДоговорКонтрагента; ИначеЕсли Счет.ВидыСубконто[Сч-1].ВидСубконто = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура Тогда СтрокаТЧ["Субконто"+Сч] = СтрокаТЧ.Номенклатура; ИначеЕсли Счет.ВидыСубконто[Сч-1].ВидСубконто = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.НоменклатурныеГруппы Тогда СтрокаТЧ["Субконто"+Сч] = НоменклатурнаяГруппа; ИначеЕсли Счет.ВидыСубконто[Сч-1].ВидСубконто = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.ОбособленныеПодразделения Тогда СтрокаТЧ["Субконто"+Сч] = Подразделение; КонецЕсли; КонецЦикла; Счет = СтрокаТЧ.СчетЗатратНУ; ЧислоАктивныхСубконто = Счет.ВидыСубконто.Количество(); Для Сч = 1 По ЧислоАктивныхСубконто Цикл Если Счет.ВидыСубконто[Сч-1].ВидСубконто = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.СтатьиЗатрат Тогда СтрокаТЧ["СубконтоНУ"+Сч] = СтатьяЗатрат; ИначеЕсли Счет.ВидыСубконто[Сч-1].ВидСубконто = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Контрагенты Тогда СтрокаТЧ["СубконтоНУ"+Сч] = Объект.Контрагент; ИначеЕсли Счет.ВидыСубконто[Сч-1].ВидСубконто = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Договоры Тогда СтрокаТЧ["СубконтоНУ"+Сч] = Объект.ДоговорКонтрагента; ИначеЕсли Счет.ВидыСубконто[Сч-1].ВидСубконто = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура Тогда СтрокаТЧ["СубконтоНУ"+Сч] = СтрокаТЧ.Номенклатура; ИначеЕсли Счет.ВидыСубконто[Сч-1].ВидСубконто = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.НоменклатурныеГруппы Тогда СтрокаТЧ["СубконтоНУ"+Сч] = НоменклатурнаяГруппа; ИначеЕсли Счет.ВидыСубконто[Сч-1].ВидСубконто = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.ОбособленныеПодразделения Тогда СтрокаТЧ["СубконтоНУ"+Сч] = Подразделение; КонецЕсли; КонецЦикла; КонецЕсли; КонецЦикла; Документы.ПоступлениеТоваровУслуг.ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект, "ВозвратнаяТара"); <СинхронизироватьПоИдентификатору>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.ПоступлениеТоваровУслуг <Приемник>ДокументСсылка.ПоступлениеТоваровУслуг <ПоискПоТабличнымЧастям>ТабличнаяЧасть.Товары:Номенклатура <Правило> <Код>ПоступлениеТоваровУслугВНТТ <ПослеЗагрузки>УчетнаяПолитикаНеЗадана = Ложь; УчетнаяПолитикаБУ = ОбщегоНазначения.ПолучитьПараметрыУчетнойПолитики(Объект.Дата, УчетнаяПолитикаНеЗадана, Объект.Организация); ЕстьНалоговыйУчетУСН = УчетнаяПолитика.ПрименяетсяУСН(Объект.Организация, Объект.Дата); СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, Объект.ДоговорКонтрагента); Объект.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетов; Объект.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансов; Объект.СчетУчетаРасчетовПоТаре = СчетаУчета.СчетУчетаТары; Для каждого СтрокаТЧ Из Объект.Товары Цикл Если Объект.ДоговорКонтрагента.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СКомитентом Тогда СтрокаТЧ.СчетУчета = ПланыСчетов.Хозрасчетный.ТоварыНаСкладе; Если ЕстьНалоговыйУчетУСН Тогда СтрокаТЧ.ОтражениеВУСН = Перечисления.ОтражениеВУСН.НеПринимаются; КонецЕсли; Иначе Если ЕстьНалоговыйУчетУСН Тогда СтрокаТЧ.ОтражениеВУСН = Перечисления.ОтражениеВУСН.Принимаются; КонецЕсли; Объект.ЗаполнитьСчетаУчетаВСтрокеТабличнойЧастиРегл(СтрокаТЧ, "Товары", Истина, Истина); КонецЕсли; КонецЦикла; Для каждого СтрокаТЧ Из Объект.Услуги Цикл СтатьяЗатрат = СтрокаТЧ.Субконто1; НоменклатурнаяГруппа = СтрокаТЧ.Субконто2; Подразделение = СтрокаТЧ.Субконто3; СтрокаТЧ.Субконто1 = Неопределено; СтрокаТЧ.Субконто2 = Неопределено; СтрокаТЧ.Субконто3 = Неопределено; Объект.ЗаполнитьСчетаУчетаВСтрокеТабличнойЧастиРегл(СтрокаТЧ, "Услуги", Истина, Истина); Если ЗначениеЗаполнено(СтрокаТЧ.СчетЗатрат) Тогда Счет = СтрокаТЧ.СчетЗатрат; ЧислоАктивныхСубконто = Счет.ВидыСубконто.Количество(); Для Сч = 1 По ЧислоАктивныхСубконто Цикл Если Счет.ВидыСубконто[Сч-1].ВидСубконто = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.СтатьиЗатрат Тогда СтрокаТЧ["Субконто"+Сч] = СтатьяЗатрат; ИначеЕсли Счет.ВидыСубконто[Сч-1].ВидСубконто = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Контрагенты Тогда СтрокаТЧ["Субконто"+Сч] = Объект.Контрагент; ИначеЕсли Счет.ВидыСубконто[Сч-1].ВидСубконто = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Договоры Тогда СтрокаТЧ["Субконто"+Сч] = Объект.ДоговорКонтрагента; ИначеЕсли Счет.ВидыСубконто[Сч-1].ВидСубконто = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура Тогда СтрокаТЧ["Субконто"+Сч] = СтрокаТЧ.Номенклатура; ИначеЕсли Счет.ВидыСубконто[Сч-1].ВидСубконто = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.НоменклатурныеГруппы Тогда СтрокаТЧ["Субконто"+Сч] = НоменклатурнаяГруппа; ИначеЕсли Счет.ВидыСубконто[Сч-1].ВидСубконто = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.ОбособленныеПодразделения Тогда СтрокаТЧ["Субконто"+Сч] = Подразделение; КонецЕсли; КонецЦикла; Счет = СтрокаТЧ.СчетЗатратНУ; ЧислоАктивныхСубконто = Счет.ВидыСубконто.Количество(); Для Сч = 1 По ЧислоАктивныхСубконто Цикл Если Счет.ВидыСубконто[Сч-1].ВидСубконто = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.СтатьиЗатрат Тогда СтрокаТЧ["СубконтоНУ"+Сч] = СтатьяЗатрат; ИначеЕсли Счет.ВидыСубконто[Сч-1].ВидСубконто = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Контрагенты Тогда СтрокаТЧ["СубконтоНУ"+Сч] = Объект.Контрагент; ИначеЕсли Счет.ВидыСубконто[Сч-1].ВидСубконто = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Договоры Тогда СтрокаТЧ["СубконтоНУ"+Сч] = Объект.ДоговорКонтрагента; ИначеЕсли Счет.ВидыСубконто[Сч-1].ВидСубконто = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура Тогда СтрокаТЧ["СубконтоНУ"+Сч] = СтрокаТЧ.Номенклатура; ИначеЕсли Счет.ВидыСубконто[Сч-1].ВидСубконто = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.НоменклатурныеГруппы Тогда СтрокаТЧ["СубконтоНУ"+Сч] = НоменклатурнаяГруппа; ИначеЕсли Счет.ВидыСубконто[Сч-1].ВидСубконто = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.ОбособленныеПодразделения Тогда СтрокаТЧ["СубконтоНУ"+Сч] = Подразделение; КонецЕсли; КонецЦикла; КонецЕсли; КонецЦикла; Для каждого СтрокаТЧ Из Объект.ВозвратнаяТара Цикл Объект.ЗаполнитьСчетаУчетаВСтрокеТабличнойЧастиРегл(СтрокаТЧ, "ВозвратнаяТара", Истина, Истина); КонецЦикла; Если Объект.Склад.ВидСклада = Перечисления.ВидыСкладов.НеавтоматизированнаяТорговаяТочка И НЕ УчетнаяПолитикаНеЗадана И УчетнаяПолитикаБУ.СпособОценкиТоваровВРознице = Перечисления.СпособыОценкиТоваровВРознице.ПоПродажнойСтоимости И Объект.ДоговорКонтрагента.ВидДоговора <> Перечисления.ВидыДоговоровКонтрагентов.СКомитентом Тогда ТаблицаТоваров = Объект.Товары.Выгрузить(); НашТовар = Справочники.Номенклатура.НайтиПоНаименованию("Велотовары Выгрузка"); ТаблицаТоваров.ЗаполнитьЗначения(НашТовар.Ссылка, "Номенклатура"); ТаблицаТоваров.Свернуть("Номенклатура, СтавкаНДС, ОтражениеВУСН, СтавкаНДСВРознице", "Сумма, СуммаНДС, СуммаВРознице"); Объект.Товары.Очистить(); Объект.Товары.Загрузить(ТаблицаТоваров); КонецЕсли; <СинхронизироватьПоИдентификатору>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.ПоступлениеТоваровУслугВНТТ <Приемник>ДокументСсылка.ПоступлениеТоваровУслуг <ПоискПоТабличнымЧастям>ТабличнаяЧасть.Товары:Номенклатура <Правило> <Код>ПриходныйКассовыйОрдер <ПослеЗагрузки> Если Объект.ВидОперации = Перечисления.ВидыОперацийПКО.ПрочийПриход И НЕ ЗначениеЗаполнено(Объект.СчетУчетаРасчетовСКонтрагентом) Тогда Объект.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.Вспомогательный; КонецЕсли; //********************************************************************************************** // Процедура "УстановитьТипКонтрагент()" формы документа ИмяСправочника = "Контрагенты"; ИмяРасчетногоДокумента ="РасходныйКассовыйОрдер"; Если Объект.ВидОперации = Перечисления.ВидыОперацийПКО.ПолучениеНаличныхВБанке Тогда ИмяСправочника = "БанковскиеСчета"; //в этом случае счет учета можно заполнить ЭтоРублевыйДокумент = Объект.ВалютаДокумента = Параметры.ВалютаРегламентированногоУчета ИЛИ Объект.ВалютаДокумента = Справочники.Валюты.ПустаяСсылка(); Если ЭтоРублевыйДокумент тогда Объект.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.РасчетныеСчета; Иначе Объект.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.ВалютныеСчета; КонецЕсли; ИначеЕсли Объект.ВидОперации = Перечисления.ВидыОперацийПКО.ВозвратОтПодотчетногоЛица Тогда ИмяСправочника = "ФизическиеЛица"; ИначеЕсли Объект.ВидОперации = Перечисления.ВидыОперацийПКО.РозничнаяВыручка Тогда ИмяСправочника = "Склады"; ИначеЕсли Объект.ВидОперации = Перечисления.ВидыОперацийПКО.ПрочийПриход Тогда // Прочее оприходование денежных средств пока не реализовано. КонецЕсли; Если ТипЗнч(Объект.Контрагент) <> Тип("СправочникСсылка." + ИмяСправочника) Тогда Объект.Контрагент = Справочники[ИмяСправочника].ПустаяСсылка(); КонецЕсли; //********************************************************************************************** Для каждого СтрокаПлатеж Из Объект.РасшифровкаПлатежа Цикл Если НЕ (Объект.ВидОперации = Перечисления.ВидыОперацийПКО.РасчетыПоКредитамИЗаймам)Тогда СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, СтрокаПлатеж.ДоговорКонтрагента); Если Объект.ВидОперации = Перечисления.ВидыОперацийПКО.ВозвратОтПоставщика тогда СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетов; СтрокаПлатеж.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансов; ИначеЕсли Объект.ВидОперации = Перечисления.ВидыОперацийПКО.РозничнаяВыручка тогда ПараметрыУчетнойПолитики = РегистрыСведений.УчетнаяПолитикаОрганизаций.ПолучитьПоследнее(Объект.Дата, Новый Структура("Организация", Объект.Организация)); Если ПараметрыУчетнойПолитики.РозничнаяТорговляОблагаетсяЕНВД Тогда СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.ВыручкаЕНВД; Иначе СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.ВыручкаНеЕНВД; КонецЕсли; Иначе СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовПокупателя; СтрокаПлатеж.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансовПокупателя; КонецЕсли; КонецЕсли; КонецЦикла; Выполнить(Алгоритмы.ЗаполнитьСчетУчетаДенежныхСредствСчетКасса); ПараметрыУСН = УчетУСН.СтруктураПараметровОбъектаДляУСН(Объект); НалоговыйУчетУСН.ЗаполнитьОтражениеДокументаВУСН(Объект, ПараметрыУСН); <СинхронизироватьПоИдентификатору>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.ПриходныйКассовыйОрдер <Приемник>ДокументСсылка.ПриходныйКассовыйОрдер <Правило> <Код>РасходныйКассовыйОрдер <ПослеЗагрузки> Если Объект.ВидОперации = Перечисления.ВидыОперацийРКО.Инкассация тогда Объект.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.ПереводыВПути; ИначеЕсли Объект.ВидОперации = Перечисления.ВидыОперацийРКО.ПрочийРасход И НЕ ЗначениеЗаполнено(Объект.СчетУчетаРасчетовСКонтрагентом) Тогда Объект.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.Вспомогательный; КонецЕсли; Для каждого СтрокаПлатеж Из Объект.РасшифровкаПлатежа Цикл Если НЕ (Объект.ВидОперации = Перечисления.ВидыОперацийРКО.РасчетыПоКредитамИЗаймам)Тогда СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, СтрокаПлатеж.ДоговорКонтрагента); Если Объект.ВидОперации = Перечисления.ВидыОперацийРКО.ВозвратПокупателю тогда СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовПокупателя; СтрокаПлатеж.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансовПокупателя; ИначеЕсли Объект.ВидОперации = Перечисления.ВидыОперацийРКО.Инкассация тогда Объект.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.ПереводыВПути; ИначеЕсли Объект.ВидОперации = Перечисления.ВидыОперацийРКО.ВзносНаличнымиВБанк тогда Объект.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.РасчетныеСчета; Иначе Если СтрокаПлатеж.ДоговорКонтрагента.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СКомитентом Тогда СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовСКомитентом; ИначеЕсли СтрокаПлатеж.ДоговорКонтрагента.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СКомиссионером Тогда СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПокупателямиИЗаказчиками; Иначе СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетов; КонецЕсли; СтрокаПлатеж.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансов; КонецЕсли; КонецЕсли; КонецЦикла; Выполнить(Алгоритмы.ЗаполнитьСчетУчетаДенежныхСредствСчетКасса); ПараметрыУСН = УчетУСН.СтруктураПараметровОбъектаДляУСН(Объект); НалоговыйУчетУСН.ЗаполнитьОтражениеДокументаВУСН(Объект, ПараметрыУСН); ИмяСправочника = "Контрагенты"; Если Объект.ВидОперации = Перечисления.ВидыОперацийРКО.ВыдачаПодотчетномуЛицу ИЛИ Объект.ВидОперации = Перечисления.ВидыОперацийРКО.ВыплатаЗаработнойПлатыРаботнику Тогда ИмяСправочника = "ФизическиеЛица"; ИначеЕсли Объект.ВидОперации = Перечисления.ВидыОперацийРКО.ПрочийРасход Тогда // Прочее оприходование денежных средств пока не реализовано. КонецЕсли; Если ТипЗнч(Объект.Контрагент) <> Тип("СправочникСсылка." + ИмяСправочника) Тогда Объект.Контрагент = Справочники[ИмяСправочника].ПустаяСсылка(); КонецЕсли; <СинхронизироватьПоИдентификатору>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.РасходныйКассовыйОрдер <Приемник>ДокументСсылка.РасходныйКассовыйОрдер <Правило> <Код>РеализацияТоваровУслуг <ПослеЗагрузки>//склад и организация по умолчанию Документы.РеализацияТоваровУслуг.ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект, "Товары"); Если ПараметрыОбъекта <> Неопределено тогда ТаблицаПараметровТовары = ПараметрыОбъекта["ТоварыТабличнаяЧасть"]; Если ТаблицаПараметровТовары <> Неопределено Тогда НомерСтроки = 0; Для Каждого СтрокаПараметров Из ТаблицаПараметровТовары Цикл ЗначениеПараметра = СтрокаПараметров.Комиссия; СтрокаТЧ = Объект.Товары.Получить(НомерСтроки); Если ЗначениеПараметра = Истина Тогда СтрокаТЧ.ПереданныеСчетУчета = ПланыСчетов.Хозрасчетный.ТоварыПереданныеНаКомиссию; СтрокаТЧ.СчетУчета = ПланыСчетов.Хозрасчетный.ТоварыНаСкладе; КонецЕсли; НомерСтроки = НомерСтроки + 1; КонецЦикла; КонецЕсли; КонецЕсли; Документы.РеализацияТоваровУслуг.ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект, "ВозвратнаяТара"); СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, Объект.ДоговорКонтрагента); Если Объект.ДоговорКонтрагента.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СКомиссионером Тогда Объект.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.ПустаяСсылка(); Объект.СчетУчетаРасчетовПоАвансам = ПланыСчетов.Хозрасчетный.ПустаяСсылка(); Объект.СчетУчетаРасчетовПоТаре = ПланыСчетов.Хозрасчетный.ПустаяСсылка(); Иначе Объект.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовПокупателя; Объект.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансовПокупателя; Объект.СчетУчетаРасчетовПоТаре = СчетаУчета.СчетУчетаТарыПокупателя; КонецЕсли; Объект.СчетУчетаРасчетовПоТаре = СчетаУчета.СчетУчетаТарыПокупателя; // обработка счетов НУ и УСН Документы.РеализацияТоваровУслуг.ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект, "Услуги"); Если Параметры.ЕстьПолеУдалитьУчитыватьНДС Тогда Объект.УдалитьУчитыватьНДС = Истина; КонецЕсли; <СинхронизироватьПоИдентификатору>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.РеализацияТоваровУслуг <Приемник>ДокументСсылка.РеализацияТоваровУслуг <ПоискПоТабличнымЧастям>ТабличнаяЧасть.Товары:Номенклатура <Правило> <Код>СписаниеТоваров <ПослеЗагрузки>//склад и организация по умолчанию Документы.СписаниеТоваров.ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект, "Товары"); Если ПараметрыОбъекта <> Неопределено тогда ТаблицаПараметровТовары = ПараметрыОбъекта["ТоварыТабличнаяЧасть"]; Если ТаблицаПараметровТовары <> Неопределено тогда НомерСтроки = 0; Для Каждого СтрокаПараметров Из ТаблицаПараметровТовары Цикл ЗначениеПараметра = СтрокаПараметров.Комиссия; СтрокаТЧ = Объект.Товары.Получить(НомерСтроки); СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, СтрокаТЧ.Номенклатура); Если ЗначениеПараметра = Истина Тогда СтрокаТЧ.СчетУчета = ПланыСчетов.Хозрасчетный.ТоварыНаСкладе; КонецЕсли; НомерСтроки = НомерСтроки + 1; КонецЦикла; КонецЕсли; КонецЕсли; Документы.СписаниеТоваров.ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект, "ВозвратнаяТара"); Для каждого СтрокаТЧ Из Объект.Товары Цикл СтрокаТЧ.ОтражениеВУСН = Перечисления.ОтражениеВУСН.НеПринимаются; КонецЦикла; <СинхронизироватьПоИдентификатору>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.СписаниеТоваров <Приемник>ДокументСсылка.СписаниеТоваров <ПоискПоТабличнымЧастям>ТабличнаяЧасть.Товары:Номенклатура ТабличнаяЧасть.ВозвратнаяТара:Номенклатура <Правило> <Код>СчетФактураВыданный <СинхронизироватьПоИдентификатору>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.СчетФактураВыданный <Приемник>ДокументСсылка.СчетФактураВыданный <Правило> <Код>СчетФактураПолученный <ПослеЗагрузки>Если Объект.ЭтоНовый() Тогда УчетнаяПолитикаНеЗадана = УчетнаяПолитика.Существует(Объект.Организация, Объект.Дата); УпрощенныйУчетНДС = УчетнаяПолитика.УпрощенныйУчетНДС(Объект.Организация, Объект.Дата); Если НЕ УчетнаяПолитикаНеЗадана И УпрощенныйУчетНДС = Истина Тогда Объект.НДСПредъявленКВычету = Истина; КонецЕсли; КонецЕсли; <СинхронизироватьПоИдентификатору>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.СчетФактураПолученный <Приемник>ДокументСсылка.СчетФактураПолученный <Правило> <Код>ТребованиеНакладная <ПослеЗагрузки> Объект.СчетаУчетаЗатратВТаблице = Истина; мСчетЗатрат = ПланыСчетов.Хозрасчетный.ИздержкиОбращения; ЕстьПрименениеУСН = УчетнаяПолитика.ПрименяетсяУСН(Объект.Организация, Объект.Дата); Для каждого СтрокаТабличнойЧасти Из Объект.Материалы Цикл Объект.ЗаполнитьСчетаУчетаВСтрокеТабличнойЧасти(СтрокаТабличнойЧасти, "Материалы", Истина); Если Объект.СчетаУчетаЗатратВТаблице тогда СтрокаТабличнойЧасти.СчетЗатрат = мСчетЗатрат; КонецЕсли; Если ЕстьПрименениеУСН тогда СтрокаТабличнойЧасти.ОтражениеВУСН = Перечисления.ОтражениеВУСН.Принимаются; КонецЕсли; КонецЦикла; <СинхронизироватьПоИдентификатору>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.ТребованиеНакладная <Приемник>ДокументСсылка.ТребованиеНакладная <ПоискПоТабличнымЧастям>ТабличнаяЧасть.Материалы:Номенклатура <Правило> <Код>КомплектацияНоменклатуры <ПослеЗагрузки>//склад и организация по умолчанию СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаУчетаНоменклатуры(Объект.Организация, Объект.Номенклатура, Объект.Склад); Объект.СчетУчета = СчетаУчета.СчетУчета; Для каждого СтрокаТЧ Из Объект.Комплектующие Цикл Объект.ЗаполнитьСчетаУчетаВСтрокеТабличнойЧастиРегл(СтрокаТЧ, Истина); КонецЦикла; <СинхронизироватьПоИдентификатору>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.КомплектацияНоменклатуры <Приемник>ДокументСсылка.КомплектацияНоменклатуры <Правило> <Код>КорректировкаДолга <ПослеЗагрузки>//склад и организация по умолчанию Для каждого СтрокаТЧ Из Объект.СуммыДолга Цикл СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.КонтрагентДебитор, СтрокаТЧ.ДоговорКонтрагента); Если СтрокаТЧ.ДоговорКонтрагента.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СПоставщиком Тогда СтрокаТЧ.СчетУчетаРасчетов = СчетаУчета.СчетРасчетов; ИначеЕсли СтрокаТЧ.ДоговорКонтрагента.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СПокупателем Тогда СтрокаТЧ.СчетУчетаРасчетов = СчетаУчета.СчетРасчетовПокупателя; КонецЕсли; КонецЦикла; Если Объект.ВидОперации = Перечисления.ВидыОперацийКорректировкаДолга.ПереносЗадолженности И ЗначениеЗаполнено(Объект.ДоговорКонтрагента) Тогда СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.КонтрагентКредитор, Объект.ДоговорКонтрагента); Если Объект.ДоговорКонтрагента.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СПоставщиком Тогда Объект.СчетДт = СчетаУчета.СчетРасчетов; Объект.СчетКт = СчетаУчета.СчетАвансов; ИначеЕсли Объект.ДоговорКонтрагента.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СПокупателем или Объект.ДоговорКонтрагента.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СКомиссионером Тогда Объект.СчетДт = СчетаУчета.СчетАвансовПокупателя; Объект.СчетКт = СчетаУчета.СчетРасчетовПокупателя; ИначеЕсли Объект.ДоговорКонтрагента.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СКомитентом Тогда Объект.СчетДт = СчетаУчета.СчетРасчетовСКомитентом; Объект.СчетКт = СчетаУчета.СчетРасчетовСКомитентом; КонецЕсли; КонецЕсли; ТабСумм = Объект.СуммыДолга.Выгрузить(); ТабСумм.Свернуть("ВидЗадолженности","Сумма"); Объект.СуммаДтЗадолженности = 0; Объект.СуммаКтЗадолженности = 0; Для каждого СтрокаТаблицы Из ТабСумм Цикл Если СтрокаТаблицы.ВидЗадолженности = Перечисления.ВидыЗадолженности.Дебиторская Тогда Объект.СуммаДтЗадолженности = Объект.СуммаДтЗадолженности+СтрокаТаблицы.Сумма; ИначеЕсли СтрокаТаблицы.ВидЗадолженности = Перечисления.ВидыЗадолженности.Кредиторская Тогда Объект.СуммаКтЗадолженности = Объект.СуммаКтЗадолженности+СтрокаТаблицы.Сумма; КонецЕсли; КонецЦикла; <СинхронизироватьПоИдентификатору>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.КорректировкаДолга <Приемник>ДокументСсылка.КорректировкаДолга <Правило> <Код>ПлатежноеТребованиеВыставленное <ПослеЗагрузки> Если Объект.ВидОперации = Перечисления.ВидыОперацийПоступлениеДенежныхСредств.ПрочееПоступление Тогда Объект.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.Вспомогательный; КонецЕсли; Для каждого СтрокаПлатеж Из Объект.РасшифровкаПлатежа Цикл Если НЕ (Объект.ВидОперации = Перечисления.ВидыОперацийПоступлениеДенежныхСредств.РасчетыПоКредитамИЗаймам) Тогда СчетаУчета = БухгалтерскийУчетПереопределяемый.ПолучитьСчетаРасчетовСКонтрагентом(Объект.Организация, Объект.Контрагент, СтрокаПлатеж.ДоговорКонтрагента); Если Объект.ВидОперации = Перечисления.ВидыОперацийПоступлениеДенежныхСредств.ВозвратОтПоставщика тогда СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетов; СтрокаПлатеж.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансов; Иначе СтрокаПлатеж.СчетУчетаРасчетовСКонтрагентом = СчетаУчета.СчетРасчетовПокупателя; СтрокаПлатеж.СчетУчетаРасчетовПоАвансам = СчетаУчета.СчетАвансовПокупателя; КонецЕсли; КонецЕсли; КонецЦикла; Выполнить(Алгоритмы.СтандартныеОперацииДляПлатежныхДокументов); <СинхронизироватьПоИдентификатору>true <Источник>ДокументСсылка.ПлатежноеТребованиеВыставленное <Приемник>ДокументСсылка.ПоступлениеНаРасчетныйСчет <Правило> <Код>УстановкаЦенНоменклатуры <ПослеЗагрузки>Для каждого СтрокаТЧ из Объект.Товары Цикл СтрокаТЧ.Валюта = Параметры.ВалютаРегламентированногоУчета; КонецЦикла; <СинхронизироватьПоИдентификатору>true <Источник>ДокументСсылка.ПереоценкаТоваровВРознице <Приемник>ДокументСсылка.УстановкаЦенНоменклатуры <Правило> <Код>СчетНаОплатуПокупателю <ПослеЗагрузки> Объект.ОрганизацияПолучатель = Объект.Организация; <СинхронизироватьПоИдентификатору>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.СчетНаОплатуПокупателю <Приемник>ДокументСсылка.СчетНаОплатуПокупателю <Правило> <Код>ЗаказПокупателяСчетНаОплатуПокупателю <СинхронизироватьПоИдентификатору>true <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Источник>ДокументСсылка.ЗаказПокупателя <Приемник>ДокументСсылка.СчетНаОплатуПокупателю <Правило> <Код>ДокументРасчетовСКонтрагентом <СинхронизироватьПоИдентификатору>true <Источник>ДокументСсылка.ДокументРасчетовСКонтрагентом <Приемник>ДокументСсылка.ДокументРасчетовСКонтрагентом <Правило> <Код>ВидыСубконтоХозрасчетные <ГенерироватьНовыйНомерИлиКодЕслиНеУказан>true <Приемник>ПланВидовХарактеристикСсылка.ВидыСубконтоХозрасчетные <Правило> <Код>КонтактнаяИнформация <Источник>РегистрСведенийЗапись.КонтактнаяИнформация <Приемник>РегистрСведенийЗапись.КонтактнаяИнформация <Правило> <Код>КурсыВалют <Источник>РегистрСведенийЗапись.КурсыВалют <Приемник>РегистрСведенийЗапись.КурсыВалют <Правило> <Код>ПаспортныеДанныеФизЛиц <Источник>РегистрСведенийЗапись.ПаспортныеДанныеФизЛиц <Приемник>РегистрСведенийЗапись.ПаспортныеДанныеФизЛиц <Правило> <Код>ФИОФизЛиц <Источник>РегистрСведенийЗапись.ФИОФизЛиц <Приемник>РегистрСведенийЗапись.ФИОФизЛиц <Правило> <Код>ОтветственныеЛицаОрганизаций <Источник>РегистрСведенийЗапись.ОтветственныеЛицаОрганизации <Приемник>РегистрСведенийЗапись.ОтветственныеЛицаОрганизаций <ПравилаОчисткиДанных/> <Алгоритмы> <Алгоритм Имя="ЗаполнитьРеквизитыПоУмолчанию" ИспользуетсяПриЗагрузке="true"> <Текст>//подставляет обязательные значения МетаданныеДокумента = Объект.Метаданные(); Если Метаданные.Документы.Содержит(МетаданныеДокумента) Тогда ОбъектСодержитРеквизитОрганизация = ОбщегоНазначенияБПВызовСервера.ЕстьРеквизитДокумента("Организация",МетаданныеДокумента); ОбъектСодержитРеквизитСклад = ОбщегоНазначенияБПВызовСервера.ЕстьРеквизитДокумента("Склад",МетаданныеДокумента); ОбъектСодержитПодразделениеОрганизации = ОбщегоНазначенияБПВызовСервера.ЕстьРеквизитДокумента("ПодразделениеОрганизации",МетаданныеДокумента); Если ОбъектСодержитРеквизитОрганизация И НЕ ЗначениеЗаполнено(Объект.Организация) Тогда Объект.Организация = Параметры.ОсновнаяОрганизация; КонецЕсли; Если ОбъектСодержитРеквизитСклад Тогда Если (НЕ ЗначениеЗаполнено(Объект.Склад)) Тогда Объект.Склад = Параметры.СкладДляОбменаДаннымиСУТ; КонецЕсли; КонецЕсли; // Заполение реквизита ПодразделениеОрганизации Если ТипЗнч(Объект) = Тип("ДокументОбъект.СписаниеСРасчетногоСчета") ИЛИ ТипЗнч(Объект) = Тип("ДокументОбъект.ПоступлениеНаРасчетныйСчет") ИЛИ ТипЗнч(Объект) = Тип("ДокументОбъект.ПриходныйКассовыйОрдер") ИЛИ ТипЗнч(Объект) = Тип("ДокументОбъект.РасходныйКассовыйОрдер") Тогда Если Объект.ЭтоНовый() ИЛИ Объект.Ссылка.Организация <> Объект.Организация Тогда ОсновноеПодразделение = ОбщегоНазначенияБПВызовСервера.ПолучитьЗначениеПоУмолчанию("ОсновноеПодразделениеОрганизации"); Если ОбъектСодержитПодразделениеОрганизации Тогда Если ОсновноеПодразделение.Владелец = Объект.Организация Тогда Объект.ПодразделениеОрганизации = ОсновноеПодразделение; Иначе Объект.ПодразделениеОрганизации = Неопределено; КонецЕсли; КонецЕсли; Если ТипЗнч(Объект) = Тип("ДокументОбъект.СписаниеСРасчетногоСчета") Тогда Если Объект.ВидОперации = Перечисления.ВидыОперацийСписаниеДенежныхСредств.ОплатаПоставщику ИЛИ Объект.ВидОперации = Перечисления.ВидыОперацийСписаниеДенежныхСредств.ВозвратПокупателю ИЛИ Объект.ВидОперации = Перечисления.ВидыОперацийСписаниеДенежныхСредств.ПеречислениеПодотчетномуЛицу ИЛИ Объект.ВидОперации = Перечисления.ВидыОперацийСписаниеДенежныхСредств.РасчетыПоКредитамИЗаймам ИЛИ Объект.ВидОперации = Перечисления.ВидыОперацийСписаниеДенежныхСредств.ПрочиеРасчетыСКонтрагентами ИЛИ Объект.ВидОперации = Перечисления.ВидыОперацийСписаниеДенежныхСредств.ПеречислениеЗП Тогда Объект.ПодразделениеДт = Неопределено; // {ОбособленныеПодразделения Иначе Объект.ПодразделениеДт = ?(ОбъектСодержитПодразделениеОрганизации, Объект.ПодразделениеОрганизации, Неопределено); // }ОбособленныеПодразделения КонецЕсли; ИначеЕсли ТипЗнч(Объект) = Тип("ДокументОбъект.ПоступлениеНаРасчетныйСчет") Тогда Если Объект.ВидОперации = Перечисления.ВидыОперацийПоступлениеДенежныхСредств.ОплатаПокупателя ИЛИ Объект.ВидОперации = Перечисления.ВидыОперацийПоступлениеДенежныхСредств.ВозвратОтПоставщика ИЛИ Объект.ВидОперации = Перечисления.ВидыОперацийПоступлениеДенежныхСредств.РасчетыПоКредитамИЗаймам ИЛИ Объект.ВидОперации = Перечисления.ВидыОперацийПоступлениеДенежныхСредств.ПрочиеРасчетыСКонтрагентами Тогда Объект.ПодразделениеКт = Неопределено; // {ОбособленныеПодразделения Иначе Объект.ПодразделениеКт = ?(ОбъектСодержитПодразделениеОрганизации, Объект.ПодразделениеОрганизации, Неопределено); // }ОбособленныеПодразделения КонецЕсли; ИначеЕсли ТипЗнч(Объект) = Тип("ДокументОбъект.ПриходныйКассовыйОрдер") Тогда Если Объект.ВидОперации = Перечисления.ВидыОперацийПКО.ОплатаПокупателя ИЛИ Объект.ВидОперации = Перечисления.ВидыОперацийПКО.ВозвратОтПоставщика ИЛИ Объект.ВидОперации = Перечисления.ВидыОперацийПКО.ВозвратОтПодотчетногоЛица ИЛИ Объект.ВидОперации = Перечисления.ВидыОперацийПКО.ПолучениеНаличныхВБанке ИЛИ Объект.ВидОперации = Перечисления.ВидыОперацийПКО.РасчетыПоКредитамИЗаймам Тогда Объект.ПодразделениеКт = Неопределено; // {ОбособленныеПодразделения Иначе Объект.ПодразделениеКт = ?(ОбъектСодержитПодразделениеОрганизации, Объект.ПодразделениеОрганизации, Неопределено); // }ОбособленныеПодразделения КонецЕсли; ИначеЕсли ТипЗнч(Объект) = Тип("ДокументОбъект.РасходныйКассовыйОрдер") Тогда Если Объект.ВидОперации = Перечисления.ВидыОперацийРКО.ОплатаПоставщику ИЛИ Объект.ВидОперации = Перечисления.ВидыОперацийРКО.ВозвратПокупателю ИЛИ Объект.ВидОперации = Перечисления.ВидыОперацийРКО.ВыдачаПодотчетномуЛицу ИЛИ Объект.ВидОперации = Перечисления.ВидыОперацийРКО.РасчетыПоКредитамИЗаймам ИЛИ Объект.ВидОперации = Перечисления.ВидыОперацийРКО.ВзносНаличнымиВБанк ИЛИ Объект.ВидОперации = Перечисления.ВидыОперацийРКО.ВыплатаДепонентов ИЛИ Объект.ВидОперации = Перечисления.ВидыОперацийРКО.ВыплатаЗаработнойПлатыПоВедомостям ИЛИ Объект.ВидОперации = Перечисления.ВидыОперацийРКО.ВыплатаЗаработнойПлатыРаботнику Тогда Объект.ПодразделениеДт = Неопределено; // {ОбособленныеПодразделения Иначе Объект.ПодразделениеДт = ?(ОбъектСодержитПодразделениеОрганизации, Объект.ПодразделениеОрганизации, Неопределено); // }ОбособленныеПодразделения КонецЕсли; КонецЕсли; КонецЕсли; ИначеЕсли ТипЗнч(Объект) = Тип("ДокументОбъект.АвансовыйОтчет") ИЛИ ТипЗнч(Объект) = Тип("ДокументОбъект.ОтчетКомиссионераОПродажах") ИЛИ ТипЗнч(Объект) = Тип("ДокументОбъект.ОтчетКомитентуОПродажах") ИЛИ ТипЗнч(Объект) = Тип("ДокументОбъект.КорректировкаДолга") Тогда //Выполнить процедуру ЗаполнениеДокументов.ПриИзмененииЗначенияОрганизации(ЭтотОбъект, глЗначениеПеременной("глТекущийПользователь")); Если ОбъектСодержитРеквизитОрганизация И ОбъектСодержитПодразделениеОрганизации И ЗначениеЗаполнено(Объект.Организация) Тогда ПодразделениеПоУмолчанию = ОбщегоНазначенияБПВызовСервера.ПолучитьЗначениеПоУмолчанию("ОсновноеПодразделениеОрганизации"); // Если ПодразделениеОрганизации не заполнено. Если Объект.ЭтоНовый() ИЛИ Объект.Ссылка.Организация <> Объект.Организация Тогда Если НЕ ЗначениеЗаполнено(Объект.ПодразделениеОрганизации) Тогда // Если ПодразделениеПоУмолчанию соответствует выбранной организации, подставляем его. Если ПодразделениеПоУмолчанию.Владелец = Объект.Организация Тогда Объект.ПодразделениеОрганизации = ПодразделениеПоУмолчанию; КонецЕсли; Иначе // Если ПодразделениеОрганизации заполнено. // Если ПодразделениеОрганизации не соответствует выбранной организации. Если НЕ Объект.ПодразделениеОрганизации.Владелец = Объект.Организация Тогда // Если ПодразделениеПоУмолчанию соответствует выбранной организации, подставляем его. Если ПодразделениеПоУмолчанию.Владелец = Объект.Организация Тогда Объект.ПодразделениеОрганизации = ПодразделениеПоУмолчанию; Иначе // Выбрана не основная организация. ПодразделениеОрганизации нужно очистить. Объект.ПодразделениеОрганизации = Справочники.ПодразделенияОрганизаций.ПустаяСсылка(); КонецЕсли; КонецЕсли; КонецЕсли; КонецЕсли КонецЕсли; ИначеЕсли ТипЗнч(Объект) = Тип("ДокументОбъект.ГТДИмпорт") Тогда // Выполнить процедуру ЗаполнениеДокументов.ЗаполнитьШапкуДокумента(ЭтотОбъект); Если ОбъектСодержитРеквизитОрганизация И ЗначениеЗаполнено(Объект.Организация) И ОбъектСодержитПодразделениеОрганизации И (НЕ ЗначениеЗаполнено(Объект.ПодразделениеОрганизации)) Тогда ПодразделениеОрганизации = ОбщегоНазначенияБПВызовСервера.ПолучитьЗначениеПоУмолчанию("ОсновноеПодразделениеОрганизации"); Если ЗначениеЗаполнено(ПодразделениеОрганизации) И ПодразделениеОрганизации.Владелец = Объект.Организация Тогда Объект.ПодразделениеОрганизации = ПодразделениеОрганизации; КонецЕсли; КонецЕсли; ИначеЕсли ТипЗнч(Объект) = Тип("ДокументОбъект.ВозвратТоваровОтПокупателя") ИЛИ ТипЗнч(Объект) = Тип("ДокументОбъект.ВозвратТоваровПоставщику") ИЛИ ТипЗнч(Объект) = Тип("ДокументОбъект.ОприходованиеТоваров") ИЛИ ТипЗнч(Объект) = Тип("ДокументОбъект.ОтчетОРозничныхПродажах") ИЛИ ТипЗнч(Объект) = Тип("ДокументОбъект.ПоступлениеТоваровУслуг") ИЛИ ТипЗнч(Объект) = Тип("ДокументОбъект.РеализацияТоваровУслуг") ИЛИ ТипЗнч(Объект) = Тип("ДокументОбъект.СписаниеТоваров") ИЛИ ТипЗнч(Объект) = Тип("ДокументОбъект.ТребованиеНакладная") ИЛИ ТипЗнч(Объект) = Тип("ДокументОбъект.КомплектацияНоменклатуры") ИЛИ ТипЗнч(Объект) = Тип("ДокументОбъект.СчетНаОплатуПокупателю") ИЛИ ТипЗнч(Объект) = Тип("ДокументОбъект.ПеремещениеТоваров") Тогда Если ТипЗнч(Объект) = Тип("ДокументОбъект.ПеремещениеТоваров") Тогда Если ОбщегоНазначенияБПВызовСервера.ЕстьРеквизитДокумента("ПодразделениеОтправитель",МетаданныеДокумента) Тогда Если Объект.ЭтоНовый() ИЛИ Объект.Ссылка.Организация <> Объект.Организация ИЛИ Объект.Ссылка.СкладОтправитель <> Объект.СкладОтправитель Тогда ПодразделениеВозврат = Неопределено; ПараметрСклад = Объект.СкладОтправитель; ПараметрОрганизация = Объект.Организация; Выполнить(Алгоритмы.ПолучитьПодразделение); Объект.ПодразделениеОтправитель = ПодразделениеВозврат; КонецЕсли; КонецЕсли; Если ОбщегоНазначенияБПВызовСервера.ЕстьРеквизитДокумента("ПодразделениеПолучатель",МетаданныеДокумента) Тогда Если Объект.ЭтоНовый() ИЛИ Объект.Ссылка.Организация <> Объект.Организация ИЛИ Объект.Ссылка.СкладПолучатель <> Объект.СкладПолучатель Тогда ПодразделениеВозврат = Неопределено; ПараметрСклад = Объект.СкладПолучатель; ПараметрОрганизация = Объект.Организация; Выполнить(Алгоритмы.ПолучитьПодразделение); Объект.ПодразделениеПолучатель = ПодразделениеВозврат; КонецЕсли; КонецЕсли; Иначе Если ОбъектСодержитРеквизитОрганизация И ОбъектСодержитРеквизитСклад И ОбъектСодержитПодразделениеОрганизации Тогда Если Объект.ЭтоНовый() ИЛИ Объект.Ссылка.Организация <> Объект.Организация ИЛИ Объект.Ссылка.Склад <> Объект.Склад Тогда ПодразделениеВозврат = Неопределено; ПараметрСклад = Объект.Склад; ПараметрОрганизация = Объект.Организация; Выполнить(Алгоритмы.ПолучитьПодразделение); Объект.ПодразделениеОрганизации = ПодразделениеВозврат; КонецЕсли; КонецЕсли; КонецЕсли; КонецЕсли; КонецЕсли; <Алгоритм Имя="ПолучитьПодразделение" ИспользуетсяПриЗагрузке="true"> <Текст> Если НЕ ПараметрСклад.ЭтоГруппа Тогда Если Не ЗначениеЗаполнено(ПараметрСклад) Тогда ПодразделениеВозврат = Справочники.ПодразделенияОрганизаций.ПустаяСсылка(); КонецЕсли; Если Не ЗначениеЗаполнено(ПараметрОрганизация) Тогда ПодразделениеВозврат = ПараметрСклад.ПодразделениеОрганизации; КонецЕсли; ПодразделениеОрганизации = ПараметрСклад.ПодразделениеОрганизации; Если ПодразделениеОрганизации.Владелец = ПараметрОрганизация Тогда ПодразделениеВозврат = ПодразделениеОрганизации; Иначе ПодразделениеВозврат = Справочники.ПодразделенияОрганизаций.ПустаяСсылка(); КонецЕсли; КонецЕсли; <Алгоритм Имя="СтандартныеОперацииДляПлатежныхДокументов" ИспользуетсяПриЗагрузке="true"> <Текст> Выполнить(Алгоритмы.ЗаполнитьСчетУчетаДенежныхСредствСчетБанк); ПараметрыУСН = УчетУСН.СтруктураПараметровОбъектаДляУСН(Объект); НалоговыйУчетУСН.ЗаполнитьОтражениеДокументаВУСН(Объект, ПараметрыУСН); <Алгоритм Имя="ЗаполнитьСчетУчетаДенежныхСредствСчетБанк" ИспользуетсяПриЗагрузке="true"> <Текст> // Замена вызову: УправлениеДенежнымиСредствами.ЗаполнитьСчетУчетаДенежныхСредств(Объект, "СчетБанк"); ЭтоРублевыйДокумент = Объект.ВалютаДокумента = Константы.ВалютаРегламентированногоУчета.Получить() ИЛИ Объект.ВалютаДокумента = Справочники.Валюты.ПустаяСсылка(); Если ЭтоРублевыйДокумент Тогда СчетУчета = ПланыСчетов.Хозрасчетный.КассаОрганизации; Иначе СчетУчета = ПланыСчетов.Хозрасчетный.КассаОрганизацииВал; КонецЕсли; Объект.СчетБанк = СчетУчета; <Алгоритм Имя="ЗаполнитьСчетУчетаДенежныхСредствСчетКасса" ИспользуетсяПриЗагрузке="true"> <Текст> // Замена вызову: УправлениеДенежнымиСредствами.ЗаполнитьСчетУчетаДенежныхСредств(Объект, "СчетКасса"); ЭтоРублевыйДокумент = Объект.ВалютаДокумента = Константы.ВалютаРегламентированногоУчета.Получить() ИЛИ Объект.ВалютаДокумента = Справочники.Валюты.ПустаяСсылка(); Если ЭтоРублевыйДокумент Тогда СчетУчета = ПланыСчетов.Хозрасчетный.КассаОрганизации; Иначе СчетУчета = ПланыСчетов.Хозрасчетный.КассаОрганизацииВал; КонецЕсли; Объект.СчетКасса = СчетУчета; <Запросы/>