Каталог решений - Устранение проблемы при работе с полем, которое ограничено маской ввода

Для поля, у которого установлена маска ввода, перед программной инициализацией необходимо начальное значение преобразовать к значению в соответствии с маской, иначе буду потеряны символы на месте разделителей. В данной публикации приведена функция, которая универсально выполняет данное действие.

Например:

есть поле для ввода номера кредитной карточки с маской 9999-9999-9999-9999

Если у нас есть номер карты

1234123412341234 и мы его запишем в данное поле,

то в результате 1С покажет и самое ужасное, сохранит

1234-2341-3412-34, тем самым заменив некоторые символы нашего номера карты на разделители.

Для того, чтобы этого избежать, перед присваиванием необходимо начальный номер карты преобразовать к номеру, который сответствует шаблону, что и делает предстваленная функция.

Функция ПрименитьМаску(Значение, Маска)
	// Назначение: Для начальной строки применить маску ввода, 

//данныя функция необходима в случае программного заполнения поля, которое вводится по маске

// так как 1С хранит информация вместе с значениями разделителей, которые присутвуют в маске

// при программном заполнении поля с заданной маской при начале редактирования данного поля 

//информация в ячейках, которые соответвуют разделителям теряется

	// Автор www2000

	// Тестирована: На маске 9999-9999-9999-9999

	Результат = "";           
	ПерЦиклаЗначения = 1;
	
	Для ПерЦикла = 1 По СтрДлина(Маска) Цикл

		ТекСимволМаски  = Сред(Маска, ПерЦикла, 1);
		Если ПерЦиклаЗначения > СтрДлина(Значение) Тогда

			ТекСимволЗначения  = " ";
		Иначе

			ТекСимволЗначения  = Сред(Значение, ПерЦиклаЗначения, 1);
		КонецЕсли;
		                            
		Если (ТекСимволМаски = "!") ИЛИ (ТекСимволМаски = "@") Тогда

			ТекСимволЗначения = Врег(ТекСимволЗначения);
		ИначеЕсли ТекСимволМаски = "9" Тогда     
			Если ЭтоЦифра(ТекСимволЗначения) = 0 Тогда

				Если ПерЦиклаЗначения <= СтрДлина(Значение) Тогда

					ПерЦикла = ПерЦикла - 1;
				КонецЕсли;
			КонецЕсли;
		ИначеЕсли ТекСимволМаски = "#" Тогда     
			Если (ЭтоЦифра(ТекСимволЗначения) = 0) И (ТекСимволЗначения <> "-")  И (ТекСимволЗначения <> "+")  

 И (ТекСимволЗначения <> " ")  Тогда

				Если ПерЦиклаЗначения <= СтрДлина(Значение) Тогда

					ПерЦикла = ПерЦикла - 1;
					ТекСимволЗначения = "";
				КонецЕсли;
			КонецЕсли;
		ИначеЕсли ТекСимволМаски = "N" Тогда     
			Если (ЭтоЦифра(ТекСимволЗначения) = 0) И (ЭтоБуква(ТекСимволЗначения) = 0) Тогда

				Если ПерЦиклаЗначения <= СтрДлина(Значение) Тогда

					ПерЦикла = ПерЦикла - 1;
					ТекСимволЗначения = "";
				КонецЕсли;
			КонецЕсли;
		ИначеЕсли ТекСимволМаски = "X" Тогда     
		Иначе

			ТекСимволЗначения = ТекСимволМаски; 
			ПерЦиклаЗначения = ПерЦиклаЗначения - 1;
		КонецЕсли;
		    
		Результат = Результат + ТекСимволЗначения;   
		ПерЦиклаЗначения = ПерЦиклаЗначения + 1;
	КонецЦикла;  
	
	Возврат Результат;
КонецФункции  

Применение

			МаскаНомераКарточки = Форма.НомерКарточки.Маска();
			НомерКарточки = ПрименитьМаску(НоыйНомерКарточки,МаскаНомераКарточки);  

Дополнительные функции

Функция ЭтоЦифра(С) Экспорт 

//Назначение: Проверяет, является ли символ цифрой 

//ДатаСоздания: 20080101 

//Автор: Fixin 

//Тестирована: Да 

   Возврат Мин(Найти("0123456789", С), 1);

КонецФункции  

Функция ЭтоРусскаяБуква(С) Экспорт 

//Назначение: Проверяет, является ли символ русской буквой 

//ДатаСоздания: 20080101 

//Автор: Fixin 

//Тестирована:

   Возврат Мин(Найти("АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЫЬЪЭЮЯ", ВРег(С)), 1);

КонецФункции 

Функция ЭтоЛатинскаяБуква(С)Экспорт 

//Назначение: Проверяет, является ли символ латинской буквой 

//ДатаСоздания: 20080101 

//Автор: Fixin 

//Тестирована:

Возврат Мин(Найти("ABCDEFGHIJKLMNOPQRSTUVWXYZ", ВРег(С)),1);

КонецФункции

Функция ЭтоБуква(С)Экспорт

//Назначение: Проверяет, является ли символ буквой

 //ДатаСоздания: 20080101

 //Автор: Fixin

 //Тестирована: Да

Возврат Мин(ЭтоРусскаяБуква(С)+ ЭтоЛатинскаяБуква(С),1);

КонецФункции