Answer the question
In order to leave comments, you need to log in
How to change the attribute field from the server part in 1C?
Hi all!
I am new to 1C.
I want to change a field in a form from the server side to the client side.
I am concerned about the security of data when it is created and when it is modified. I want to do this in the server side and how to get data from the database in the server side and transfer it to the client side.
Basically I want to get the attribute value and check and process it in the back end and store it in the database.
&НаСервере
Процедура ОбработкаПроверкиЗаполненияНаСервере(Отказ, ПроверяемыеРеквизиты)
Объект.ТелефонНомер = СтрЗаменить(Объект.ТелефонНомер, "+", "");
Объект.ТелефонНомер = СтрЗаменить(Объект.ТелефонНомер, " ", "");
Объект.ТелефонНомер = СтрЗаменить(Объект.ТелефонНомер, "(", "");
Объект.ТелефонНомер = СтрЗаменить(Объект.ТелефонНомер, ")", "");
Объект.ТелефонНомер = СтрЗаменить(Объект.ТелефонНомер, "-", "");
РегВыр = Новый COMОбъект("VBScript.RegExp");
РегВыр.Pattern = "^(\d{1,4})(\d{3})(\d{3})(\d{2})(\d{2})$";
Если СтрДлина(Объект.ТелефонНомер) <> 0 Тогда
Если РегВыр.Test(Объект.ТелефонНомер) Тогда
Matches = РегВыр.Execute(Объект.ТелефонНомер).Item(0).SubMatches;
КодСтраны = ?(Matches.Item(0) = "8", "7", Matches.Item(0));
Объект.ТелефонНомер = "+" + КодСтраны + " (" + Matches.Item(1) + ") " + Matches.Item(2) + " " + Matches.Item(3) + "" + Matches.Item(4);
Иначе
Отказ = Истина;
Сообщение = Новый СообщениеПользователю();
Сообщение.Текст = "Поле ""Телефон номер"" не валидный";
Сообщение.Поле = "Объект.ТелефонНомер";
Сообщение.Сообщить();
КонецЕсли;
КонецЕсли;
КонецПроцедуры
Answer the question
In order to leave comments, you need to log in
Didn't find what you were looking for?
Ask your questionAsk a Question
731 491 924 answers to any question