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

05.10.2015 комментариев 11

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

[Базовый курс], [ДЗ 39-го (последнего) потока Базового]

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

  1. Aleksandr.nett 04.01.2016 в 16:01

    ДЗ № 1 Блок 0.

    &НаКлиенте
    Процедура БулевыОперации(Команда)
        Операнд1 = Истина;
        Операнд2  = Ложь;       
        //  сымитировать программно операцию  обратную   (XOR)   
        Результат = НЕ (Операнд2 ИЛИ Операнд2);   //Истина
        Результат = НЕ (Операнд2 ИЛИ Операнд1);   //Ложь
        Результат = НЕ (Операнд1 ИЛИ Операнд2);   //Ложь
        Результат = НЕ (Операнд1 ИЛИ Операнд1);   //Ложь   
    КонецПроцедуры

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

    Возврат Строка(Результат);
    КонецФункции // РазрешенаПродажа(ВидКлиента,СортТовара)()

    &НаСервере
    Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
       
        Сообщить(РазрешенаПродажа("Постоянный", "Высший"));
        Сообщить(РазрешенаПродажа("Непостоянный", "Брак"));
        Сообщить(РазрешенаПродажа("VIP", "Брак"));
        Сообщить(РазрешенаПродажа("VIP", "Высший"));
       
    КонецПроцедуры
  2. rustamakhmetov 26.11.2015 в 14:07
    &НаСервере
    Функция РазрешенаПродажа(ВидКлиента, СортТовара)
        Если ВидКлиента="VIP" Тогда
            Если СортТовара="Высший" Тогда
                Возврат Истина;
            Иначе
                Возврат Ложь;
            КонецЕсли;
        Иначе
            Если СортТовара="Высший" Тогда
                Возврат Ложь;
            Иначе
                Возврат Истина;
            КонецЕсли;
        КонецЕсли;
    КонецФункции   

    #Область ДЗ_1

    &НаСервере
    Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
        // Вставить содержимое обработчика.
        Сообщить(Строка(РазрешенаПродажа("Постоянный", "Высший")) + " = Ложь");
        Сообщить(Строка(РазрешенаПродажа("Непостоянный", "Брак")) + " = Истина");
        Сообщить(Строка(РазрешенаПродажа("VIP", "Брак")) + " = Ложь");
        Сообщить(Строка(РазрешенаПродажа("VIP", "Высший")) + " = Истина");
    КонецПроцедуры
    # КонецОбласти
  3. tdu 12.10.2015 в 22:57

    ДЗ №1
    Создал внешнюю обработку, в модуль формы добавил процедуру обработчика события и функцию:

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

    &НаСервере
    Функция РазрешенаПродажа(ВидКлиента, СортТовара)

        ВозвращаемоеЗначение =  (ВидКлиента = "VIP" И СортТовара = "Высший") ИЛИ
                                (ВидКлиента <> "VIP" И СортТовара <> "Высший") ИЛИ
                                (ВидКлиента = "Старый знакомый" И СортТовара = "Первый сорт");
        Возврат ВозвращаемоеЗначение;

    КонецФункции // РазрешенаПродажа()
  4. Divan 11.10.2015 в 22:15

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

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

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

  5. Andrey2501 11.10.2015 в 14:45
    Функция РазрешенаПродажа(Клиенты,Сорт)Экспорт 
         Если (НЕ Клиенты = "VIP" и НЕ Сорт = "Высший")                 или
              ( Клиенты = "Старый знакомвй"   и Сорт = "Первый сорт")   или   
              (Клиенты = "VIP"   и Сорт = "Высший" )
           Тогда        Продажа = Истина;
                      Возврат       Строка(Продажа);  
              иначе    Продажа = Ложь;      
                      Возврат       Строка(Продажа);   
                      КонецЕсли;
    КонецФункции // ()

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

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

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

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

    &НаСервере
    Функция РазрешенаПродажа(ВидКлиента, СортТовара)
        Если (ВидКлиента = "VIP" и СортТовара = "Высший") или (Не ВидКлиента = "VIP" и  Не СортТовара = "Высший") Тогда
            Возврат Истина;
        Иначе
            Возврат Ложь;
        КонецЕсли;
    КонецФункции
  8. Кирилл 09.10.2015 в 16:24
    <pre style="color: #0000FF;"><span style="color: brown;">&НаСервере</span>
    <span style="color: red;">Процедура</span> ПриСозданииНаСервере<span style="color: red;">(</span>Отказ<span style="color: red;">,</span> СтандартнаяОбработка<span style="color: red;">)</span>
        Сообщить<span style="color: red;">(</span>РазрешенаПродажа<span style="color: red;">(</span><span style="color: black;">"Постоянный"</span><span style="color: red;">,</span> <span style="color: black;">"Высший"</span><span style="color: red;">)</span><span style="color: red;">)</span><span style="color: red;">;</span>
        Сообщить<span style="color: red;">(</span>РазрешенаПродажа<span style="color: red;">(</span><span style="color: black;">"Непостоянный"</span><span style="color: red;">,</span> <span style="color: black;">"Брак"</span><span style="color: red;">)</span><span style="color: red;">)</span><span style="color: red;">;</span>
        Сообщить<span style="color: red;">(</span>РазрешенаПродажа<span style="color: red;">(</span><span style="color: black;">"VIP"</span><span style="color: red;">,</span> <span style="color: black;">"Брак"</span><span style="color: red;">)</span><span style="color: red;">)</span><span style="color: red;">;</span>
        Сообщить<span style="color: red;">(</span>РазрешенаПродажа<span style="color: red;">(</span><span style="color: black;">"VIP"</span><span style="color: red;">,</span> <span style="color: black;">"Высший"</span><span style="color: red;">)</span><span style="color: red;">)</span><span style="color: red;">;</span>
    <span style="color: red;">КонецПроцедуры</span>

    <span style="color: brown;">&НаСервере</span>
    <span style="color: red;">Функция</span> РазрешенаПродажа<span style="color: red;">(</span>ВидКлиента<span style="color: red;">,</span> СортТовара<span style="color: red;">)</span>
        <span style="color: red;">Если</span> <span style="color: red;">(</span>ВидКлиента <span style="color: red;">=</span> <span style="color: black;">"VIP"</span> <span style="color: red;">и</span> СортТовара <span style="color: red;">=</span> <span style="color: black;">"Высший"</span><span style="color: red;">)</span> <span style="color: red;">или</span> <span style="color: red;">(</span><span style="color: red;">Не</span> ВидКлиента <span style="color: red;">=</span> <span style="color: black;">"VIP"</span> <span style="color: red;">и</span>  <span style="color: red;">Не</span> СортТовара <span style="color: red;">=</span> <span style="color: black;">"Высший"</span><span style="color: red;">)</span> <span style="color: red;">Тогда</span>
            <span style="color: red;">Возврат</span> <span style="color: red;">Истина</span><span style="color: red;">;</span>
        <span style="color: red;">Иначе</span>
            <span style="color: red;">Возврат</span> <span style="color: red;">Ложь</span><span style="color: red;">;</span>
        <span style="color: red;">КонецЕсли</span><span style="color: red;">;</span>
    <span style="color: red;">КонецФункции</span>
    </pre>
  9. Ситников П. 08.10.2015 в 10:21
    Возврат ?((ВидКлиента="VIP" и СортТовара="Высший")Или
          (ВидКлиента<>"VIP" и СортТовара<>"Высший"), Истина, Ложь);
  10. TDV 07.10.2015 в 15:26

    Код обработки

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

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

    КонецФункции
  11. cyclov 07.10.2015 в 09:40

    Задание №1 Блок 0

    1) Скачал и установит учебную версию платформы 1С.
    2) Создал пустую информационную базу.
    3) Создал внешнюю обработку.
    4) Обработка содержкит следующий код

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

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

    &НаСервере
    Функция ЭтоВипКлиент(ВидКлиента)
       
        Возврат ВидКлиента = "VIP" ;
       
    КонецФункции   

    &НаСервере
    Функция ЭтоВысшийСорт(СортТовара)
       
        Возврат СортТовара = "Высший" ;
       
    КонецФункции
    &НаСервере
    Функция ИсключающееИЛИ(Значение1,Значение2)
       
         Возврат НЕ Значение1 = Значение2
       
       
    КонецФункции