- В этой теме 1 ответ, 2 участника, последнее обновление 15 минут назад сделано
.
Просмотр 1 ветки ответов
Просмотр 1 ветки ответов
- Для ответа в этой теме необходимо авторизоваться.
Программирование и администрирование в 1С
База знаний Одина — Одинэсника › Форумы › ODIN — Форум по 1С Предприятию › Как перевести код на 1С с английского на русский?
Odin — Одинэсник.Переведи код на русский язык. Var numFlagIsPswInput;
Procedure OnEndEditing ()
numFlagIsPswInput = 1;
Form.Close (1);
If Form.Parameter = TrimAll (ctrl_strPassword) Then
Form.Parameter = 1;
Else
Form.Parameter = -1;
EndIf;
EndProcedure
Procedure OnOpen ()
If EmptyValue (Form.Parameter) = 1 Then
OpenForm («Processing.SMCS»);
ReturnStatus (0);
Return;
EndIf;
numFlagIsPswInput = -1;
EndProcedure
Procedure OnClose ()
If numFlagIsPswInput = -1 Then
Form.Parameter = 2;
Form.Close (0);
EndIf;
EndProcedure
Вот перевод кода на русский язык с сохранением структуры и логики:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 |
Перем numFlagIsPswInput; Процедура ПриОкончанииРедактирования() numFlagIsPswInput = 1; Форма.Закрыть(1); Если Форма.Параметр = СтрTrim( ctrl_strPassword ) Тогда Форма.Параметр = 1; Иначе Форма.Параметр = -1; КонецЕсли; КонецПроцедуры Процедура ПриОткрытии() Если ПустоеЗначение(Форма.Параметр) = 1 Тогда ОткрытьФорму("Обработка.SMCS"); ВозвратСтатуса(0); Возврат; КонецЕсли; numFlagIsPswInput = -1; КонецПроцедуры Процедура ПриЗакрытии() Если numFlagIsPswInput = -1 Тогда Форма.Параметр = 2; Форма.Закрыть(0); КонецЕсли; КонецПроцедуры |
Объяснение по переводу:
— Var → Перем
— Procedure → Процедура
— Form → Форма
— Close → Закрыть
— Parameter → Параметр
— TrimAll → СтрTrim (в 1С обычно используется СтрTrim для удаления пробелов)
— EmptyValue → ПустоеЗначение
— OpenForm → ОткрытьФорму
— ReturnStatus → ВозвратСтатуса
— Return → Возврат
Переменная numFlagIsPswInput — флаг состояния ввода пароля.
Если нужно, могу помочь с адаптацией под конкретную конфигурацию 1С.