1C Программирование и поддержка - [23] :: Прикладное программирование

Помогите решить проблему. платформа 8.1 УТ для РБ 1.0.17.10. Вводим приход товара. Далее надо установить цену: открываем документ Установка цен номенклатуры. Выбираем одну розничную цену. Заполняем поля.Закрываем документ.Повторное открытие приводит к ошибке:
{Документ.УстановкаЦенНоменклатуры.Форма.ФормаДокумента(693)}: Преобразование значения к типу Число не может быть выполнено
НоваяСтрока["общаянадбавка"+НомерСоответствияТекущейКолонки]             = Окр((ЦенаЗакуп * (1 + СтрокаТаблицыТоваров.ПроцентСкидкиНаценки/100)/СтрокаТаблицыТоваров.ЦенаИмпортераИзготовителя*100-100),2,1);

Если выбираем закупочная цена и розничная, то после закрытия-открытия документа все в норме.
Вот код процедуры:
Процедура ЗаполнитьТаблицуЦенФормы()

    Если ТипыЦен.Количество() = 0 Тогда

        // Документ пуст
        Возврат;

    КонецЕсли;

    ТаблицаТоваров = Товары.Выгрузить();
    ТаблицаТоваров.Сортировать("ИндексСтрокиТаблицыЦен, Номенклатура, ХарактеристикаНоменклатуры, ТипЦен");

    // Заполним все требуемые реквизиты

    КолонкиТаблицыЦен = ТаблицаЦен.Колонки;

    ТекущийИндексСтрокиТаблицыЦен = Неопределено;
    НоваяСтрока = Неопределено;

Для Каждого СтрокаТаблицыТоваров Из ТаблицаТоваров Цикл

        Если ТекущийИндексСтрокиТаблицыЦен <> СтрокаТаблицыТоваров.ИндексСтрокиТаблицыЦен
         Или НоваяСтрока.Номенклатура <> СтрокаТаблицыТоваров.Номенклатура
         Или НоваяСтрока.ХарактеристикаНоменклатуры <> СтрокаТаблицыТоваров.ХарактеристикаНоменклатуры Тогда
            НоваяСтрока = ТаблицаЦен.Добавить();
            НоваяСтрока.Номенклатура = СтрокаТаблицыТоваров.Номенклатура;
            НоваяСтрока.ХарактеристикаНоменклатуры = СтрокаТаблицыТоваров.ХарактеристикаНоменклатуры;
            ТекущийИндексСтрокиТаблицыЦен = СтрокаТаблицыТоваров.ИндексСтрокиТаблицыЦен;
        КонецЕсли;

        НомерСоответствияТекущейКолонки = СоответствиеТиповЦен.Получить(СтрокаТаблицыТоваров.ТипЦен);

        НоваяСтрока["цена"+НомерСоответствияТекущейКолонки] = СтрокаТаблицыТоваров.Цена;
Если СтрокаТаблицыТоваров.ТипЦен.ПризнакЦены = Перечисления.ПризнакЦены.Закупочная Тогда
ЦенаЗакуп = СтрокаТаблицыТоваров.Цена;
КонецЕсли;
НоваяСтрока["импортераизготовителяцена"+НомерСоответствияТекущейКолонки] = СтрокаТаблицыТоваров.ЦенаИмпортераИзготовителя;
        НоваяСтрока["валюта"+НомерСоответствияТекущейКолонки] = СтрокаТаблицыТоваров.Валюта;
        НоваяСтрока["единица"+НомерСоответствияТекущейКолонки] = СтрокаТаблицыТоваров.ЕдиницаИзмерения;
        НоваяСтрока["процент"+НомерСоответствияТекущейКолонки] = СтрокаТаблицыТоваров.ПроцентСкидкиНаценки;

Если СтрокаТаблицыТоваров.ЦенаИмпортераИзготовителя <> 0 Тогда
Если СтрокаТаблицыТоваров.ТипЦен.ПризнакЦены = Перечисления.ПризнакЦены.Розничная Тогда
НоваяСтрока["общаянадбавка"+НомерСоответствияТекущейКолонки]             = Окр((ЦенаЗакуп * (1 + СтрокаТаблицыТоваров.ПроцентСкидкиНаценки/100)/СтрокаТаблицыТоваров.ЦенаИмпортераИзготовителя*100-100),2,1);
Иначе
НоваяСтрока["общаянадбавка"+НомерСоответствияТекущейКолонки]             = Окр((СтрокаТаблицыТоваров.Цена/СтрокаТаблицыТоваров.ЦенаИмпортераИзготовителя*100-100),2,1);
КОнецЕсли;
        КонецЕсли;

//Минск+
НоваяСтрока["ндспроцент"+НомерСоответствияТекущейКолонки] = СтрокаТаблицыТоваров.ПроцентНДС;
НоваяСтрока["нппроцент"+НомерСоответствияТекущейКолонки] = СтрокаТаблицыТоваров.ПроцентНП;
//Минск

    КонецЦикла;

КонецПроцедуры // ЗаполнитьТаблицуЦенФормы()

ЗАранее благодарен!

Модерирует : ShIvADeSt
ShIvADeSt (03-04-2009 02:03): Продолжение тут http://forum.ru-board.com/topic.cgi?forum=33&topic=10256#1	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100