Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: УТП Заполнение ТипыЦен
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 8.2 > Программирование обычных форм 1С 8.2 и не интерфейсной логики
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;
        КонецЕсли;
        КонецЦикла
+ еще уверенность в том, что ТЦх действительно корректно находятся по наименованию.
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.