|
0 / 0 / 0
Регистрация: 20.10.2020
Сообщений: 15
|
|
Коды на 1С ИС18109.06.2022, 00:07. Показов 362. Ответов 0
Метки нет (Все метки)
&НаКлиенте Процедура Войти(Команда) Вход =ВойтиНаСервере(); Если Вход = "1" Тогда ОткрытьФорму("ОбщаяФорма.Замерщик"); Вход =""; Логин =""; Пароль =""; ИначеЕсли Вход = "2" Тогда ОткрытьФорму("ОбщаяФорма.Гость"); Вход =""; Логин =""; Пароль =""; Иначе Сообщить("Неверный Логин или Пароль"); Возврат; КонецЕсли; // Вставить содержимое обработчика. КонецПроцедуры &НаСервере Функция ВойтиНаСервере() Если ПустаяСтрока(Логин) Тогда // ИЛИ ПустаяСтрока(Пароль) Сообщить("Введите логин или пароль"); КонецЕсли; //{{КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛ ЬТАТА // Данный фрагмент построен конструктором. // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!! Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | Пользователи.Логин КАК Логин, | Пользователи.Пароль КАК Пароль, | Пользователи.Роль.Наименование КАК РольНаименование |ИЗ | Справочник.Пользователи КАК Пользователи |ГДЕ | Пользователи.Пароль = &Пароль | И Пользователи.Логин = &Логин"; Запрос.УстановитьПараметр("Логин", Логин); Запрос.УстановитьПараметр("Пароль", Пароль); РезультатЗапроса = Запрос.Выполнить(); ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать(); Пока ВыборкаДетальныеЗаписи.Следующий() Цикл Если ВыборкаДетальныеЗаписи.РольНаименование = Справочники.Роли.НайтиПоНаименованию("За мерщик").Наименование тогда Вход ="1"; Иначе Вход = "2" КонецЕсли; КонецЦикла; Возврат Вход; //}}КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛ ЬТАТА КонецФункции Добавлено через 2 минуты ИМПОРТ &НаКлиенте Процедура Войти(Команда) Вход =ВойтиНаСервере(); Если Вход = "1" Тогда ОткрытьФорму("ОбщаяФорма.Замерщик"); Вход =""; Логин =""; Пароль =""; ИначеЕсли Вход = "2" Тогда ОткрытьФорму("ОбщаяФорма.Гость"); Вход =""; Логин =""; Пароль =""; Иначе Сообщить("Неверный Логин или Пароль"); Возврат; КонецЕсли; // Вставить содержимое обработчика. КонецПроцедуры &НаСервере Функция ВойтиНаСервере() Если ПустаяСтрока(Логин) Тогда // ИЛИ ПустаяСтрока(Пароль) Сообщить("Введите логин или пароль"); КонецЕсли; //{{КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛ ЬТАТА // Данный фрагмент построен конструктором. // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!! Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | Пользователи.Логин КАК Логин, | Пользователи.Пароль КАК Пароль, | Пользователи.Роль.Наименование КАК РольНаименование |ИЗ | Справочник.Пользователи КАК Пользователи |ГДЕ | Пользователи.Пароль = &Пароль | И Пользователи.Логин = &Логин"; Запрос.УстановитьПараметр("Логин", Логин); Запрос.УстановитьПараметр("Пароль", Пароль); РезультатЗапроса = Запрос.Выполнить(); ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать(); Пока ВыборкаДетальныеЗаписи.Следующий() Цикл Если ВыборкаДетальныеЗаписи.РольНаименование = Справочники.Роли.НайтиПоНаименованию("За мерщик").Наименование тогда Вход ="1"; Иначе Вход = "2" КонецЕсли; КонецЦикла; Возврат Вход; //}}КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛ ЬТАТА КонецФункции
0
|
|
(| 09.06.2022, 00:07 | |
|
Ответы с готовыми решениями:
0
Сервисные коды S5230 все коды работают сам проверял Ввести коды ASCII N символов. Выбрать из них и вывести только коды цифр Дан массив S(50).Вывести те символы (и их коды), коды которых кратны 5 и определить их количество. |
| 09.06.2022, 00:07 | |
|
Помогаю со студенческими работами здесь
1
Даны два двоичных числа 10010000 и 00001001. Числа 16-е ASCII–коды и перевести их в 2-е коды Коды ошибок аэрогриль POLARIS pag 1205d, У кого есть коды ошибок на аэрогриль POLARIS Коды ошибок, Коды ошибок для пользователей (не для мастеров) бб коды Bb коды Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |
|
Новые блоги и статьи
|
|||
|
Автоматическое создание документа при проведении другого документа
Maks 29.03.2026
Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2.
Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники".
В. . .
|
Настройка движения справочника по регистру сведений
Maks 29.03.2026
Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии.
. . .
|
Автозаполнение реквизита при выборе элемента справочника
Maks 27.03.2026
Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2.
При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
|
Сумматор с применением элементов трёх состояний.
Hrethgir 26.03.2026
Тут.
https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc
Первый документ красиво выглядит, но без схемы.
Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
|
|
Автозаполнение реквизитов при создании документа
Maks 26.03.2026
Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере".
Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .
|
Команды формы и диалоговое окно
Maks 26.03.2026
1. Команда формы "ЗаполнитьЗапчасти".
Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2.
В качестве источника данных. . .
|
Кому нужен AOT?
DevAlt 26.03.2026
Решил сделать простой ланчер
Написал заготовку:
dotnet new console --aot -o UrlHandler
var items = args. Split(":");
var tag = items;
var id = items;
var executable = args;. . .
|
Отправка уведомления на почту при создании или изменении элементов справочника
Maks 24.03.2026
Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3.
Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .
|