Advertisement
Guest User

Untitled

a guest
Jul 15th, 2021
60
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 4.75 KB | None | 0 0
  1. Перем Переменная1 Экспорт;
  2. Перем Переменная2, Переменная3;
  3.  
  4. #Если Клиент ИЛИ Сервер Тогда
  5. //Используемые термы:
  6. //#Если (#If)
  7. // #Тогда (#Then)
  8. //#ИначеЕсли (#ElsIf)
  9. //#Иначе (#Else)
  10. //#КонецЕсли (#EndIf)
  11. //#Область (#Region)
  12. //#КонецОбласти (#EndRegion)
  13. //#Вставка (#Insert)
  14. //#КонецВставки (#EndInsert)
  15. //#Удаление (#Delete)
  16. //#КонецУдаления (#EndDelete)
  17. //И (AND)
  18. //ИЛИ (OR)
  19. //НЕ (NOT)
  20. //Клиент (Client)
  21. //НаКлиенте (AtClient)
  22. //НаСервере (AtServer)
  23. //Сервер (Server)
  24. //ТонкийКлиент (ThinClient)
  25. //ВебКлиент (WebClient)
  26. //МобильныйАвтономныйСервер (MobileStandaloneServer)
  27. //МобильноеПриложениеКлиент (MobileAppClient)
  28. //МобильноеПриложениеСервер (MobileAppServer)
  29. //МобильныйКлиент (MobileClient)
  30. //ТолстыйКлиентОбычноеПриложение(ThickClientOrdinaryApplication)
  31. //ТолстыйКлиентУправляемоеПриложение (ThickClientManagedApplication)
  32. //ВнешнееСоединение (ExternalConnection)
  33. #КонецЕсли
  34.  
  35. &НаКлиенте
  36. Процедура Проц1()
  37. П1 = 42 + 1 - 3 * 4 / 5 % 6 ;
  38.  
  39. Запрос =
  40. "ВЫБРАТЬ
  41. | Код
  42. | ИЗ Справочник.Контрагенты";
  43.  
  44. // Комментарий первый
  45.  
  46. Если П1 = 42 Тогда // Комментарий!
  47.  
  48. ИначеЕсли Ложь Тогда
  49.  
  50. Иначе
  51. Сообщить(ТекущаяДата());
  52. КонецЕсли;
  53.  
  54.  
  55. П = Вычислить("2 + 2");
  56.  
  57. СтрокаКода = "Сообщить(42)";
  58. Выполнить(СтрокаКода);
  59.  
  60.  
  61. КонецПроцедуры
  62.  
  63. &НаСервере
  64. Функция Функ2(Парам1, Знач Парам2)
  65.  
  66. Пока Истина ИЛИ Ложь И НЕ Null = Неопределено Цикл
  67. Для каждого МД Из Метаданные.Документы Цикл
  68. ВызватьИсключение "Ошибка!";
  69. КонецЦикла;
  70. КонецЦикла;
  71.  
  72. Для Счетчик = 1 По 3 Цикл
  73. Попытка
  74.  
  75. Исключение
  76. ТекстОшибки = ОписаниеОшибки();
  77. ВызватьИсключение;
  78. КонецПопытки;
  79. КонецЦикла;
  80.  
  81. Если ТипЗнч(Счетчик) = Тип("ДокументСсылка.АвансовыйОтчет") Тогда
  82.  
  83. КонецЕсли;
  84. КонецФункции
  85.  
  86. &НаКлиентеНаСервереБезКонтекста
  87. &НаКлиентеНаСервере
  88. &НаСервереБезКонтекста
  89. Процедура Проц2() Экспорт
  90. Обработка = Обработки.КонтрольДокумента.Создать();
  91. Накладная = Документы.Накладная.СоздатьДокумент();
  92. ДобавитьОбработчик Накладная.ПриЗаписи, Обработка.ПриЗаписиДокумента;
  93.  
  94. msword = Новый COMОбъект("Word.Application");
  95. ДобавитьОбработчик msword.DocumentChange, ПриИзмененииДокумента;
  96.  
  97. УдалитьОбработчик Накладная.ПриЗаписи, Обработка.ПриЗаписиДокумента;
  98. КонецПроцедуры
  99.  
  100. &Перед("Название метода или события")
  101. &После("Название метода или события")
  102. &Вместо("Название метода или события")
  103. &ИзменениеИКонтроль("Название метода")
  104. Процедура ПриИзмененииДокумента()
  105. СписокСохранения = Новый Структура;
  106. ХранилищеДанных = Новый ХранилищеЗначения(СписокСохранения);
  107. ТипЗначения = Тип("КвалификаторыСтроки");
  108. Параметры = Новый Массив(2);
  109. Параметры[0] = 20;
  110. Параметры[1] = ДопустимаяДлина.Переменная;
  111. КвСтр = Новый(ТипЗначения, Параметры);
  112. КонецПроцедуры
  113.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement