1с разработка зачем я существую?

Question

1с зачем вобще нужен?

Answer 1

#Область ОписаниеПеременных     
#КонецОбласти
 
#Область ОбработчикиСобытийФормы     
#КонецОбласти
 
#Область ОбработчикиКомандФормы
&НаКлиенте
Процедура КнопкаСменаПароля (Команда)
 Если не ЗначениеЗаполнено (ПолеЛогин) ИЛИ не ЗначениеЗаполнено (ПолеПароль) ИЛИ не ЗначениеЗаполнено (ПолеНовыйПароль) ИЛИ не ЗначениеЗаполнено (ПолеНовыйПароль1) Тогда
 ОбработкаОшибки (Заполните все поля) ;
 Иначе
 ЕстьСотрудник = ЕстьСотрудник (ПолеЛогин) ;
 Если ЕстьСотрудник = Неопределено Тогда
 ОбработкаОшибки (Пользователя с таким логином не существует) ;
 Иначе
 Сотрудник = ПоискСотрудника (ПолеЛогин, ПолеПароль) ;
 Если Сотрудник = Неопределено Тогда
 ОбработкаОшибки (Неправильный пароль) ;
 Иначе
 Если ПолеНовыйПарольПолеНовыйПароль1 Тогда
 ОбработкаОшибки (Пароли не совпадают) ;
 Иначе
 СменаПароля (ПолеЛогин, ПолеНовыйПароль) ;
 Предупреждение (Пароль успешно изменён) ;
 Закрыть () ;
 КонецЕсли;
 КонецЕсли;
 КонецЕсли;
 КонецЕсли;
КонецПроцедуры
#КонецОбласти
 
#Область СлужебныеПроцедурыИФункции
&НаСервере
Процедура СменаПароля (Логин, НовыйПароль)
 Сотрудник = Справочники. Сотрудники. НайтиПоРеквизиту (Логин, Логин) . ПолучитьОбъект () ;
 Сотрудник. Пароль = НовыйПароль;
 Сотрудник. Записать () ;
КонецПроцедуры
 
&НаСервере
Функция ПоискСотрудника (Логин, Пароль)
 Сотрудник = Справочники. Сотрудники. ПоискСотрудника (Логин, Пароль) ;
 Возврат Сотрудник;
КонецФункции
&НаСервере
Функция ЕстьСотрудник (Логин)
 ЕстьСотрудник = Справочники. Сотрудники. ПоискПоЛогину (Логин) ;
 Возврат ЕстьСотрудник;
КонецФункции
&НаКлиенте
Процедура ОбработкаОшибки (Ошибка)
 Элементы. ТекстОшибка. Заголовок = Ошибка;
КонецПроцедуры
#КонецОбласти