![]() |
|
Конвертация Поступление товаров и услуг. Подскажите как отредактировать ПКО | ☑ | ||
---|---|---|---|---|
0
busy1
24.02.15
✎
15:33
|
Добрый день. Перегружаю ПТиУ из УТ11 в БП3.0. Стандартный правила обмена не подходят, так как релиз УТ древний, написал свои. И вот проблема в БП в ТЧ ПТиУ нет Номеров ГТД. В самом справочнике НомераГТД есть, а в документ не подставляются.
Вот код обработчика "После загрузки" ПКО ПТиУ. БухгалтерскийУчетПереопределяемый.УстановитьДоговорКонтрагента(Объект.ДоговорКонтрагента, Объект.Контрагент, Объект.Организация); Объект.ВидОперации = Перечисления.ВидыОперацийПоступлениеТоваровУслуг.Товары; Объект.НДСВключенВСтоимость = Ложь; Объект.СпособЗачетаАвансов = Перечисления.СпособыЗачетаАвансов.Автоматически; СтруктураКурсаДокумента = РаботаСКурсамиВалют.ПолучитьКурсВалюты(Объект.ВалютаДокумента, Объект.Дата); Объект.КурсВзаиморасчетов = СтруктураКурсаДокумента.Курс; Объект.КратностьВзаиморасчетов = СтруктураКурсаДокумента.Кратность; Документы.ПоступлениеТоваровУслуг.ЗаполнитьСчетаУчетаРасчетов(Объект); ДанныеОбъекта = Новый Структура( "РассчитыватьСуммаВРознице, ЗаполнятьСтавкуНДСВРознице, ЭтоКомиссия, ПрименяютсяСтавки4и2, |Дата, ВидОперации, Организация, Склад, ТипЦен, СуммаВключаетНДС, |ВалютаДокумента, КурсВзаиморасчетов, КратностьВзаиморасчетов, ДоговорКонтрагента", Ложь, Ложь, Ложь, Ложь); ЗаполнитьЗначенияСвойств(ДанныеОбъекта, Объект); Для Каждого СтрокаТабличнойЧасти Из Объект.Товары Цикл // ТоварыНоменклатураПриИзменении Если Не ЗначениеЗаполнено(ДанныеОбъекта.ТипЦен) Тогда ДанныеОбъекта.Вставить("СпособЗаполненияЦены", Перечисления.СпособыЗаполненияЦен.ПоЗакупочнымЦенам); КонецЕсли; ДанныеОбъекта.Вставить("СпособЗаполненияРозничнойЦены", Перечисления.СпособыЗаполненияЦен.ПоЗакупочнымЦенам); ДанныеОбъекта.Вставить("НомерГТД", Справочники.НомераГТД.ПустаяСсылка()); СведенияОНоменклатуре = БухгалтерскийУчетПереопределяемый.ПолучитьСведенияОНоменклатуре(СтрокаТабличнойЧасти.Номенклатура, ДанныеОбъекта); Если СведенияОНоменклатуре = Неопределено Тогда Продолжить; КонецЕсли; СтрокаТабличнойЧасти.ЕдиницаИзмерения = СведенияОНоменклатуре.ЕдиницаИзмерения; СтрокаТабличнойЧасти.Коэффициент = СведенияОНоменклатуре.Коэффициент; СтрокаТабличнойЧасти.НомерГТД = СведенияОНоменклатуре.НомерГТД; СтрокаТабличнойЧасти.СтранаПроисхождения = СведенияОНоменклатуре.СтранаПроисхождения; Если ДанныеОбъекта.РассчитыватьСуммаВРознице Тогда СтрокаТабличнойЧасти.ЦенаВРознице = СведенияОНоменклатуре.ЦенаВРознице; КонецЕсли; Если ДанныеОбъекта.ЗаполнятьСтавкуНДСВРознице Тогда СтрокаТабличнойЧасти.СтавкаНДСВРознице = СведенияОНоменклатуре.СтавкаНДС; КонецЕсли; СтрокаТабличнойЧасти.ОтражениеВУСН = ПоступлениеТоваровУслугФормыКлиентСервер.ОтражениеВУСН(ДанныеОбъекта.ВидОперации, ДанныеОбъекта.ЭтоКомиссия); Документы.ПоступлениеТоваровУслуг.ЗаполнитьСчетаУчетаВСтрокеТабличнойЧасти(ДанныеОбъекта, СтрокаТабличнойЧасти, "Товары", СведенияОНоменклатуре); КонецЦикла; Если Объект.ПометкаУдаления Тогда РежимЗаписи = "ОтменаПроведения"; ИначеЕсли Объект.Проведен Тогда РежимЗаписи = "Проведение"; КонецЕсли; |
|||
1
Stim
24.02.15
✎
15:39
|
отладчиком смотри
|
|||
2
busy1
24.02.15
✎
15:45
|
Stim здравствуй. Я помню ты мне очень здорово помог в прошлой теме по конвертации. Но проблема в том, что в БП 3.0 отладчик не работает. Не открывает окно с сформированным кодом.
|
|||
3
busy1
24.02.15
✎
15:46
|
я уже как только не пытался. Вот думаю может быть платформу обновить, да и релиз тоже.
|
|||
4
Stim
24.02.15
✎
15:57
|
(2) все там открывает, что ты как маленький!
запускай в толстом клиенте в обычном приложении |
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |