Имя: Пароль:
1C
 
Конвертация Поступление товаров и услуг. Подскажите как отредактировать ПКО
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) все там открывает, что ты как маленький!
запускай в толстом клиенте в обычном приложении