Имя: Пароль:
1C
1C 7.7
v7: Помогите! Не могу найти дату.
0 Буксир
 
16.04.14
23:58
В СпрТовары прилепил кнопку чтобы увеличить РознЦену всего Товара (не спрашивайте зачем). Выдает вот такую ошибку. Такая процедура на услугу, меняет ЦенаУслуг без ошибок.

err.
СпрТовары.Записать();
{Справочник.Товары.ФормаСписка.ФормаСписка.Модуль(30)}: Не определена дата! Элемент не может быть записан!

Процедура ПересчитатьЦенаРознНов()
    СпрТовары = СоздатьОбъект("Справочник.Товары");
            Курс = (Константа.ОсновнаяВалюта.Курс.Получить(РабочаяДата()));
            Цена_Розн = СпрТовары.Цена_Розн.Получить(РабочаяДата());
    СпрТовары.ВыбратьЭлементы();
  Пока СпрТовары.ПолучитьЭлемент()=1 Цикл
      Если СпрТовары.Вид = Перечисление.ВидыТоваров.Товар Тогда  
                    СпрТовары.Цена_Розн = Окр(СпрТовары.Цена_Розн*ПроцПлюс);
           СпрТовары.Записать();
      КонецЕсли;
КонецЦикла;
КонецПроцедуры
1 Voronve
 
17.04.14
00:10
Процедура ПересчитатьЦенаРознНов()
    СпрТовары = СоздатьОбъект("Справочник.Товары");
    СпрТовары.ВыбратьЭлементы();
    Пока СпрТовары.ПолучитьЭлемент() = 1 Цикл
        Если СпрТовары.Вид = Перечисление.ВидыТоваров.Товар Тогда
            СпрТовары.ИспользоватьДату(ТекущаяДата());
            СпрТовары.Цена_Розн = Окр(СпрТовары.Цена_Розн*ПроцПлюс);
            СпрТовары.Записать();
        КонецЕсли;
    КонецЦикла;
КонецПроцедуры
2 Voronve
 
17.04.14
00:13
ЦенаУслуг у тебя непериодический реквизит от и не валиться по ошибке
3 Буксир
 
17.04.14
00:17
УРА! Заработало!
Так просто - если знаешь. Спс
4 ivsher
 
17.04.14
12:27
Ну зачем так жестоко то СпрТовары.ИспользоватьДату(ТекущаяДата())в теле цикла... Вынесите перед телом цикла и тогда будет УРА!!!
Компьютеры — прекрасное средство для решения проблем, которых до их появления не было.