Здравствуйте, я создал справочник и в нем несколько реквизитов. Один из них ГосНомер.
ГосНомер - строка, при записи проверять что строка соответсвует формату гос номеров РФ. При этом проверка должна выполняться даже в случае записи элемента универсальными обработками...
Я установил маску: http://i031.radikal.ru/1401/7d/9840cd1b0694.png
Но он мне вводит не то что хотелось бы: http://s020.radikal.ru/i718/1401/46/297325192e15.png
Как это исправить?
И что за проверка в конце задания я не понял?

(96) Вон из профессии!

(97) догадливый.

СТО

(100) у меня проблема

&НаКлиенте
Процедура ГосНомерОкончаниеВводаТекста(Элемент, Текст, ДанныеВыбора, СтандартнаяОбработка)
    Строка = Объект.ГосНомер;
    Длина = СтрДлина(Строка);
    Сч = 1;
    Пока Сч<=Длина Цикл
        ТекСимвол = Сред(Строка, Сч, 1);
        Если ВРег(ТекСимвол)>="А" и ВРег(ТекСимвол)<="Я" Тогда
            Сообщить ("аааааа");
        КонецЕсли;
        Сч = Сч+1;
    КонецЦикла;
КонецПроцедуры


Он мне не видит то что ввожу сейчас, он выдит предыдущую запись, что делать?

ну перевесь это дело на кнопку

(102) не хотелось бы менять форму

(102) может вставить это в кнопку "записать и закрыть", в процедуру призаписи?

заведи себе ВнешняяОбработка1.epf и отлаживай там свой алгоритм, пока не позеленеешь

(105) мне это в справочнике надо сделаеть

(106) я понял

как сделать так, чтобы если символ не подходит, то ошибка и все стиралось или нельзя было записать?

алгоритм проверки соответствия уже есть?

(109) делаю

ждём-с

можешь даже нарисовать себе булевскую функцию ГодныйНомер(КакаяТоСтрока) и вставлять её потом в разные места по вкусу

(112) понять бы что такое булево

(113) тип, включающий в себя два логических значения

(111) ща, я алгоритм то накидал

(113) булева алгебра. Вики.

(113) "булева" функция - возвращает или Ложь, или Истина, и все.

а вообще, не часто увидишь такую няньку на мисте ))
жду продолжения!!!

(114) (116)

&НаКлиенте
Процедура ГосНомерПриИзменении(Элемент)
    Строка = Объект.ГосНомер;
    Длина = СтрДлина(Строка);
    Сч = 1;
    Пока Сч<=Длина Цикл
        ТекСимвол = Сред(Строка, Сч, 1);
        Если Сч = 1 или Сч = 5 или Сч = 6 Тогда
            Если ВРег(ТекСимвол)>="А" и ВРег(ТекСимвол)<="Я" Тогда
                Сообщить ("ДА"+Сч);
            Иначе
                //Отказ = Истина;
            КонецЕсли;
        КонецЕсли;
        Если Сч >= 2 и Сч <= 4 или Сч >= 7 и Сч <= 8 Тогда
            Если ВРег(ТекСимвол)>="0" и ВРег(ТекСимвол)<="9" Тогда
                Сообщить ("ДА"+Сч);
            Иначе
                //Отказ = Истина;
            КонецЕсли;
        КонецЕсли;
        Сч = Сч+1;
    КонецЦикла;
КонецПроцедуры

(118) (114) теперь осталось отказ прописать... во как :)

какие события бывают у объекта?

(121) приизменении, открытие....

(122) ложь

(123) ну в свойиствах, там перед... призаписи написано и это (122)

(124) в каких свойствах?

(125) в свойствах поля

(126) а при чём тут поле? я тайно ночью запущу универсальную обработку и переименую все твои номера в хрень. и даже это самое поле ни разу не увижу

(127) получается что не для того написал процедуру

(127) это надо сделать так, чтобы ни одна подписка на события не изменила форму, т.е. заблокировать все подписки?

(127) или что

ТС тебе зряплату платят или энтузиазм ?

(131) учусь - практика - диплом

(129) подписка даже не знает, что на свете бывают формы

(133) ну тогда я не понимаю о чем ты

(134)он о том, что проверять надо у объекта перед записью

(133)пы путаешь парня. Ему надо всего лишь организовать работу маски в поле формы, а ты про серьезные вещи вещаешь.

(132) диплом по какоой специальность?

(137) прикладная информатика в экономике

(135) так у меня объект.ГосНомер, не?

(136) типо поле

Функция ЭтоБуква(с)
    Возврат с>="А" И с<="Я";
КонецФункции

Функция ЭтоЦифра(с)
    Возврат с>="0" И с<="9";
КонецФункции

Функция ГодныйНомер(стр)
    Для й=1 По СтрДлина(стр) Цикл
        с=ВРег(Сред(стр, й, 1));
        Если (й=1 ИЛИ й=5 ИЛИ й=6) И НЕ ЭтоБуква(с) Тогда
            Возврат Ложь;
        ИначеЕсли ((й>=2 И й<=4) ИЛИ й=7 ИЛИ й=8) И НЕ ЭтоЦифра(с) Тогда
            Возврат Ложь;
        КонецЕсли;
    КонецЦикла;
    Возврат СтрДлина(стр)=8;
КонецФункции

(141) это ты мне написал как надо?

(141) у меня что, вообще не то?

(142) это я тряпочкой протёр (119)

(144) а переменную "стр" надо где объявлять

зачем прикладным экономистам программировать?

(146) заставляют, да и диплом не просто же так проектирование сдавать

(146) (145)

(146) ты мне скажи где переменную объявить и как к этим функциям теперь обращаться

wiki:Colobot

(150) :)

(150)

&НаКлиенте
Процедура ГосНомерПриИзменении(Элемент)
    стр = Объект.ГосНомер;
    ГодныйНомер(стр);
КонецПроцедуры

Функция ЭтоБуква(с)
    Возврат с>="А" И с<="Я";
КонецФункции

Функция ЭтоЦифра(с)
    Возврат с>="0" И с<="9";
КонецФункции

Функция ГодныйНомер(стр)
    Для й=1 По СтрДлина(стр) Цикл
        с=ВРег(Сред(стр, й, 1));
        Если (й=1 ИЛИ й=5 ИЛИ й=6) И НЕ ЭтоБуква(с) Тогда
            Возврат Ложь;
        ИначеЕсли ((й>=2 И й<=4) ИЛИ (й=7 и й=8)) И НЕ ЭтоЦифра(с) Тогда
            Возврат Ложь;
        КонецЕсли;
    КонецЦикла;
    Возврат СтрДлина(стр)=8;
КонецФункции


не работает

(152) а должно?

(153) нет... функция не правильно вызвана

теперь я не пойму, мне надо как функцию вызвать

(153) Верно?

(154) ну и пиши ежели не годныйномер тогдашеньки Объект.ГосНомер =""...

(156)

(156)
&НаКлиенте
Процедура ГосНомерПриИзменении(Элемент)
    стр = Объект.ГосНомер;
    Если НЕ ГодныйНомер(стр) Тогда
        Сообщить("Введите нормер заново");
    КонецЕсли
КонецПроцедуры

Функция ЭтоБуква(с)
    Возврат с>="А" И с<="Я";
КонецФункции

Функция ЭтоЦифра(с)
    Возврат с>="0" И с<="9";
КонецФункции

Функция ГодныйНомер(стр)
    Для й=1 По СтрДлина(стр) Цикл
        с=ВРег(Сред(стр, й, 1));
        Если (й=1 ИЛИ й=5 ИЛИ й=6) И НЕ ЭтоБуква(с) Тогда
            Возврат Ложь;
        ИначеЕсли ((й>=2 И й<=4) ИЛИ (й=7 и й=8)) И НЕ ЭтоЦифра(с) Тогда
            Возврат Ложь;
        КонецЕсли;
    КонецЦикла;
    Возврат СтрДлина(стр)=8;
КонецФункции

(156) (153)


&НаКлиенте
Процедура ГосНомерПриИзменении(Элемент)
    стр = Объект.ГосНомер;
    Если НЕ ГодныйНомер(стр) Тогда
        Объект.ГосНомер = "";
        Сообщить("Введите нормер заново");
    КонецЕсли
КонецПроцедуры

Функция ЭтоБуква(с)
    Возврат с>="А" И с<="Я";
КонецФункции

Функция ЭтоЦифра(с)
    Возврат с>="0" И с<="9";
КонецФункции

Функция ГодныйНомер(стр)
    Для й=1 По СтрДлина(стр) Цикл
        с=ВРег(Сред(стр, й, 1));
        Если (й=1 ИЛИ й=5 ИЛИ й=6) И НЕ ЭтоБуква(с) Тогда
            Возврат Ложь;
        ИначеЕсли ((й>=2 И й<=4) ИЛИ (й=7 и й=8)) И НЕ ЭтоЦифра(с) Тогда
            Возврат Ложь;
        КонецЕсли;
    КонецЦикла;
    Возврат СтрДлина(стр)=8;
КонецФункции

вот так проканало

только проблема осталась обработкой

чтобы проверка выполнялась даже в случаезаписиэлемента универсальной обработкой

семь часов на реализацию соответствия шаблону. ещё и не самым оптимальным способом. ничо так, мне нравится. какой же ж счёт можно было б клиенту выкатить? ;)

(113)Ты уверен, что твоя специальность информатика?

(163) вот на защите-то конфуз будет..

да лан, на фоне всего остального - человек еще старается что-то сделать....
65% одноэсников вообще не стараются. Ни капельки.

Я уже не говорю о шедеврах

Процедура ГосНомерОкончаниеВводаТекста(Элемент, Текст, ДанныеВыбора, СтандартнаяОбработка)
    Строка = Объект.ГосНомер;
    Строка = "[A-Z] [0-9][0-9][0-9] [A-Z][A-Z]";


и

"обработчик не видит текст"

(166) они имел ввиду, что код, который он прописал в процедуре, не выполняется.

... так молодец, добил задачу :D
Правда, без Вобланда все б затухло. А тут, глядишь, втянется по-тихоньку...
Просто человек вообще не воспринимает эти ваши одноэсы как среду программирования, а как - экзотику с бананами )))

(165) он хоть как-то старался, потому что мне никто не мешал ;)

вот е-мае, (39) и (40) перепрочти еще раз и гемороя столько не надо писать :) три строки кода :)))

(170) маску скажешь? в(49) надо смотреть

(168) у нас на специальности "прикладная информатика в экономике" 1с предприятиеи преподавалась на практических занятиях в одном из курсов экономики. И там давалось достаточно, чтобы иметь представление о 1с как о среде разработки. И если человек на дипломе не имеет представления о таких элементарных вещах, о каких спрашивает ТС, это значит, что образование его ну совсем коридорное. С таким дипломом дальше только на рынке фруктами торговать

только проблема осталась обработкой, чтобы проверка выполнялась даже в случае записи элемента универсальной обработкой или она с этим кодом будет выполняться?

(172) было высказано мнение, что на самом деле специальность автора вовсе не "прикладная информатика", а сам автор добросовестно заблуждается ;)

(173) ты вообще в курсе, что форма - это прокладка между БД и юзером? технически вполне осуществимо вести всяческие учёты, совсем не открывая форм

(175) ну через БД

(176) при записи проверяй, что у тебя в реквизите объекта. И если что-то не так, то шли лесом всех меняльщиков

Правда есть еще ОбменДанными.Загрузка = Истина...

(177) перед
(178) а чо? пускай будет

(179) (178) я думал мне надо не на &клиенте, а &На сервере писать это...

(178) эту коменду в конце кода вставить?

(180) чем управляемый режим отличается от обычного?

(180) я думаю, тебе надо пойти и почитать документацию. Понять, что такое объект БД и чем он приципиально отличается от формы. Выяснить, что же означают магические слова НаКлиенте и НаСервере, к чему они относятся и как используются.
В общем, шли бы вы, молодой человек, учиться. Ну или диплом пишите исключительно теоретический какой-нибудь

(182) вот я и учусь

(181) управляемым режимом управляешь ты, а обычный управляет тобой

интересно, а есть в науке понятие nullus cerebrum?

как-то нет у меня сегодня настроения нянькаться. а тасовать предлагаемые куски кода (если за автора кто-то сделает) - тот ещё трэш

(186) ты мне скажи просто как сделать, а я сам додумаюсь

(187) ни разу не замечал, что я тебе иногда повторяю что-то? иногда даже одинаковыми словами

(188) замечал... значит я тебя сейчас где то не понял

все слова названы, есть куча материала к осмыслению. не бывает программистов без способности читать, осмысливать прочитанное и мыслить вообще. да, это больно и неприятно, но без этого не получится.
да и к пятому курсу уже пора уметь учиться

(190) скажи где именно ты мне сказал про защиту от обработки?

(191) -> (31), (48) ну и далее по ветке

(192) будем думать

Ле-Цзы учился стрелять. Попав в цель, попросил указаний у Стража Границ. Страж Границ задал вопрос:
   — Знаешь ли ты, почему попал в цель?
   — Не знаю.
   — Значит, ты ещё не овладел мастерством.
   Ле-Цзы ушёл, упражнялся три года и снова явился с докладом. Страж Границ спросил:
   — Знаешь ли ты, почему попал в цель?
   — Знаю, — ответил Ле-Цзы.
   — Теперь ты овладел мастерством! Храни и не забывай! Поступай так, изучая не только стрельбу, но и себя самого, и царство. Ибо мудрый человек познаёт не существование и гибель, а их причины.

(194) во как :)

(172)С таким дипломом дальше только на рынке фруктами торговать
- несмотря на over 10 лет программирования (10 - только на 1С) некоторые, не найдя у меня диплома а-ля как у ТС, указывают сразу на дверь.

(184) управляемым режимом управляешь ты, а обычный управляет тобой
- ваши бы слова, да Нуралиеву в глаз.