[EritikWoW]

Ребят нужна помощь после переноса данных из БУ 8.2 в УТП 8.2 остались не заполненые реквизиты в документы из-за чего если в него зайти он его очищает в 0...
Валюту и Единицу измерения я сделал, а вот с типом цен разобраться не могу !
Нужно что бы на основании реквизита информация в реквизит заполнался тот тип цен который там указан...
Может кто подскажет что я не так делаю ?

    
    ТипыЦен.Вставить(1);    
    Если РольДоступна("ПолныеПрава") тогда
    ТЦ1 = Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Місто");
    ТЦ2 = Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Основна ціна закупівлі");
    ТЦ3 = Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Основна ціна закупівліПДВ");  
    ТЦ4 = Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Основна ціна продажу ПДВ");  
    ТЦ5 = Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Роздріб");

        Если Информация = "Місто" Тогда  
        Для Каждого СтрокаТипаЦен Из ТипыЦен Цикл
        СтрокаТипаЦен = ТЦ1;
        КонецЦикла
        КонецЕсли;
        
        Если Информация = "Основна ціна закупівлі" Тогда  
        Для Каждого СтрокаТипаЦен Из ТипыЦен Цикл
        СтрокаТипаЦен = ТЦ2;
        КонецЦикла
        КонецЕсли;

        Если Информация = "Основна ціна закупівліПДВ" Тогда  
        Для Каждого СтрокаТипаЦен Из ТипыЦен Цикл
        СтрокаТипаЦен.ТипЦен = ТЦ3;
        КонецЦикла
        КонецЕсли;
    
        Если Информация = "Основна ціна продажу ПДВ" Тогда  
        Для Каждого СтрокаТипаЦен Из ТипыЦен Цикл
        СтрокаТипаЦен.ТипЦен = ТЦ4;
        КонецЦикла
        КонецЕсли;

        Если Информация = "Роздріб" Тогда  
        Для Каждого СтрокаТипаЦен Из ТипыЦен Цикл
        СтрокаТипаЦен.ТипЦен = ТЦ5;
        КонецЦикла; 
        КонецЕсли;

        
        Вал = Справочники.Валюты.НайтиПоКоду(980);
        Изм = Справочники.ЕдиницыИзмерения.НайтиПоНаименованию("шт");
        Для Каждого СтрокаТовары Из Товары Цикл
        СтрокаТовары.Валюта = Вал;
        СтрокаТовары.ЕдиницаИзмерения = Изм
        КонецЦикла;

        КонецЕсли;

        
        Вал = Справочники.Валюты.НайтиПоКоду(980);
        Изм = Справочники.ЕдиницыИзмерения.НайтиПоНаименованию("шт");
        Для Каждого СтрокаТовары Из Товары Цикл
        СтрокаТовары.Валюта = Вал;
        СтрокаТовары.ЕдиницаИзмерения = Изм
        КонецЦикла;

[logist]

Вероятно надо так

Для Каждого СтрокаТипаЦен Из ТипыЦен Цикл
      Если Информация = "Місто" Тогда  
        СтрокаТипаЦен.ТипЦен = ТЦ1;
        ИначеЕсли Информация = "Основна ціна закупівлі" Тогда  
        СтрокаТипаЦен.ТипЦен = ТЦ2;
        ИначеЕсли Информация = "Основна ціна закупівліПДВ" Тогда  
        СтрокаТипаЦен.ТипЦен = ТЦ3;
        ИначеЕсли Информация = "Основна ціна продажу ПДВ" Тогда  
        СтрокаТипаЦен.ТипЦен = ТЦ4;
        ИначеЕсли Информация = "Роздріб" Тогда  
        СтрокаТипаЦен.ТипЦен = ТЦ5;
        КонецЕсли;
        КонецЦикла

+ еще уверенность в том, что ТЦх действительно корректно находятся по наименованию.

Сообщение отредактировал logist - 08.01.15, 19:47