Урок№3 Последнее задание из ДЗ - Верный старт

    Заказать обратный звонок:

    Урок№3 Последнее задание из ДЗ

    Верный старт / Урок№3 Последнее задание из ДЗ
    Просмотр 5 сообщений - с 1 по 5 (из 5 всего)
    • Автор
      Сообщения
    • #3723

      wano55rus
      Участник

      Здравствуйте, писал вопрос в другой ветке но там он так и не отобразился. Суть вопроса, в последнем задании «Изменить цену для конкретного товара во всех документах установка цен номенклатуры — установить 5000. » создал обработку, на форме создал реквизит для ввода номенклатуры которую хочу изменять, в модуле прописал ее точно так же как и период, но выходит вот такая ошибка «{Обработка.о1.Форма.Форма.Форма(4)}: Ошибка при вызове метода контекста (Выбрать)
      Выборка=Документы.УстановкаЦенНоменклатуры.Выбрать(,ВыборНоменклатуры);по причине:
      Несоответствие типов (параметр номер ‘2’), подскажите в чем моя ошибка?? Базу прилагаю: https://yadi.sk/d/F8blj6Yt3WJTyu
      Код в модуле:
      &НаСервере
      Процедура СнятьПроведениеНаСервере()
      Выборка=Документы.УстановкаЦенНоменклатуры.Выбрать(,ВыборНоменклатуры);
      Пока Выборка.Следующий()Цикл
      Объект1=Выборка.ПолучитьОбъект();
      Для Каждого ТекСтр Из Объект1.Данные Цикл
      ТекСтр.Цена=5000;
      КонецЦикла;
      Объект1.Записать(РежимЗаписиДокумента.ОтменаПроведения);
      КонецЦикла;

      КонецПроцедуры

      &НаКлиенте
      Процедура СнятьПроведение(Команда)
      СнятьПроведениеНаСервере();
      КонецПроцедуры

      #3748

      Документы.УстановкаЦенНоменклатуры.Выбрать(,ВыборНоменклатуры) — перепишите код как
      Документы.УстановкаЦенНоменклатуры.Выбрать()

      В цикле Для Каждого ТекСтр Из Объект1.Данные Цикл надо сделать проверку на равенство номенклатуры в текущей строке номенклатуре выбранной на форме
      Если ТекСтр.Номенклатура = ВыборНоменклатура Тогда ….. Установить цену 5000

      #4066

      Асхат
      Участник

      &НаСервере
      Процедура СнятьПроведениеНаСервере()
      Если НачалоПериода = ‘00010101’ Или
      КонецПериода = ‘00010101’ Тогда
      Сообщить(«Период не заполнен»);
      Возврат;
      КонецЕсли;
      Выборка = Документы.УстановкаЦенНоменклатуры.Выбрать(НачалоПериода,КонецПериода);
      Пока Выборка.Следующий() Цикл
      Объект1 = Выборка.ПолучитьОбъект();
      Для Каждого ТекСтр Из Объект1.Данные Цикл
      Если ТекСтр.Номенклатура = ВыборНоменклатура Тогда ….. Установить цену 5000;
      КонецЕсли;
      КонецЦикла;
      Объект1.Записать(РежимЗаписиДокумента.ОтменаПроведения);
      КонецЦикла;
      КонецПроцедуры
      выдает ошибку
      {Обработка.ИзменитьСправочникиИДокументы.Форма.Форма.Форма(92,14)}: Ожидается ключевое слово ‘КонецЦикла’ (‘EndDo’)
      {Обработка.ИзменитьСправочникиИДокументы.Форма.Форма.Форма(92,24)}: Обнаружено логическое завершение исходного текста модуля

      #4065

      Асхат
      Участник

      Здравствуйте делаю все как написано выше выдает ошибку
      {Обработка.ИзменитьСправочникиИДокументы.Форма.Форма.Форма(92,5)}: Ожидается ключевое слово ‘КонецЦикла’ (‘EndDo’)
      {Обработка.ИзменитьСправочникиИДокументы.Форма.Форма.Форма(92,15)}: Обнаружено логическое завершение исходного текста модуля

      #4080

      Станислав
      Участник

      Значит действительно где то лишний закрывающий оператор или отсутствие закрывающего оператора или лишний символ.

      Ошибки не видно в коде, что привели

    Просмотр 5 сообщений - с 1 по 5 (из 5 всего)

    Для ответа в этой теме необходимо авторизоваться.