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

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

1. 

   VyaznikovAndrey 24.12.2012 в 22:14

   Домашнее задание №1

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

   Результат: Нет, Да, Нет, Да

2. 

   A_Borshov 05.12.2012 в 06:38

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

   Владимир Орехов 21.11.2012 в 16:45

   Домашнее задание №1

   Комментарий №1 – пришлось заменить кавычки в выражениях, взятых из домашнего задания с «» на “”, поскольку на первые кавычки система ругается. Долго не мог догадаться, на что ругается.

   Комментарий №2 – функцию РазрешенаПродажа() пришлось догадываться, что ее надо создать &НаСервере, т.к. процедура ПриСозданииНаСервере() создаётся также &НаСервере и не хочет работать с функцией, созданной по-умолчанию &НаКлиенте.

   Само задание (указываю только код функции, вызов идет из процедуры):

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

   Сообщение: “Нет”, “Да”, “Нет”, “Да”