Базовый курс. Занятие №1

08.01.2013 комментария 3

Приступайте к первому занятию базового курса.

[Базовый курс], [ДЗ 17-го потока Базового]

комментария 3 на “Базовый курс. Занятие №1”

  1. serguccio 12.01.2013 в 19:35

    Попытка решения ДЗ №1.

    Создал пустую базу, файловый вариант.
    Создал внешнюю обработку.
    В модуле формы написал код:

    &НаСервере
    Функция РазрешенаПродажа(ВидКлиента, СортТовара)
        Если (ВидКлиента = "VIP" И СортТовара = "Высший") ИЛИ (BидКлиента <> "VIP" И СортТовара <> "Высший") Тогда
            Возврат ИСТИНА;
        Иначе
            Возврат ЛОЖЬ;
        КонецЕсли;

    КонецФункции

    &НаСервере
    Процедура ПриСозданииНаСервере(Отказ)
        Сообщить(РазрешенаПродажа(«Постоянный», «Высший»));
        Сообщить(РазрешенаПродажа(«Непостоянный», «Брак»));
        Сообщить(РазрешенаПродажа(«VIP», «Брак»));
        Сообщить(РазрешенаПродажа(«VIP», «Высший»)); 
    КонецПроцедуры

    Проверка данного модуля выдает ошибки. Хотелось бы узнать, почему такая конструкция не работает?
    Попробовал обработку из решения A.Sovit. Синтаксических ошибок нет.
    Запускаю обработку но не вижу никаких сообщений! Почему?

  2. A.Sovit 11.01.2013 в 08:20

    Решение ДЗ №1. Блок 0.

    Создаю пустую базу, файловый вариант.
    Создаю внешнюю обработку.
    Создаю форму и в модуле формы пишу код:

    &НаСервере
    Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
      Сообщить(РазрешенаПродажа("Постоянный", "Высший"));
      Сообщить(РазрешенаПродажа("Непостоянный", "Брак"));
      Сообщить(РазрешенаПродажа("VIP", "Брак"));
      Сообщить(РазрешенаПродажа("VIP", "Высший"));
    КонецПроцедуры

    &НаСервере
    Функция РазрешенаПродажа(ВидКлиента, СортТовара)
      Возврат (ВидКлиента = "VIP")И(СортТовара = "Высший") ИЛИ (ВидКлиента <> "VIP")И(СортТовара <> "Высший")
    КонецФункции

    Запуская внешнюю обработку в окне сообщений получаю:
    Нет
    Да
    Нет
    Да