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

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

1. 

   serguccio 12.01.2013 в 19:35

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

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

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

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

   • 

     Андрей Шнитов 13.01.2013 в 07:54

     Вопросы по ДЗ присылайте на mg@spec8.ru

2. 

   A.Sovit 11.01.2013 в 08:20

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

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

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

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