- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
Функция ПроверкаЗаполнения()
Если НЕ ЗначениеЗаполнено(Контрагент) Тогда
Предупреждение("Не выбран контрагент!");
Возврат Ложь;
КонецЕсли;
Если НЕ ЗначениеЗаполнено(ВалютаДокумента) Тогда
Предупреждение("Не выбрана валюта документа!");
Возврат Ложь;
КонецЕсли;
Если НЕ ЗначениеЗаполнено(ДатаОкончания) Тогда
Предупреждение("Не выбрана дата окончания периода сверки!");
Возврат Ложь;
КонецЕсли;
Если ДатаОкончания < ДатаНачала Тогда
Предупреждение("Неверно задан период сверки расчетов!");
Возврат Ложь;
КонецЕсли;
Возврат Истина;
КонецФункции
Код что представлен выше будет выводить по ОДНОЙ ошибке каждый раз при попытке записать документ.
З.Ы. Но тут ещё не самый ебанутый способ. Хуже когда проверка с месседжбоксом повешана на потерю фокуса полем... Пока не заполнишь как надо - из поля не выйдешь.
Правильно, при ошибке нужно молча выходить из проги, "по-английски". Даёшь аристократию!..
А потом вспомнил что ты же пишешь на дельфи, и подумал что наверное у тебя кругом 1998-й год, и четвертая дельфи летает на 98-й винде на новеньком 166м пентиуеме
>166м пентиуеме
Щито? Уже 266 был.