Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 10:38

ПриОткрытии и Изменении одно и тоже сообщение

Автор JOG, 11 авг 2016, 03:14

0 Пользователей и 1 гость просматривают эту тему.

JOG

Здравствуйте! Подскажите пожалуйста как поступить.
Есть 2 документа. 1 - ФИОКассира 2 - Создать залог.
При создании залога нужно проверить создавался ли документ ФИОКассира . Если Да, то соответственно, взять ФИО из документа ФамилияКассира, если нет, то не дать создавать документ залог.
Сделал следующим образом:

&НаСервере
Функция ПолучитьНомерКассира(ФамилияКассира)
ПолучитьНомерКассираФИО = Новый Запрос;
ПолучитьНомерКассираФИО.Текст =
"ВЫБРАТЬ ПЕРВЫЕ 1
| ФамилияКассира.Номер КАК Номер
|ИЗ
| Документ.ФамилияКассира КАК ФамилияКассира
|
|УПОРЯДОЧИТЬ ПО
| Номер УБЫВ";
РезультатЗапроса = ПолучитьНомерКассираФИО.Выполнить().Выгрузить();
Возврат РезультатЗапроса[0].Номер;
КонецФункции

&НаСервере
Процедура НомерЗБПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
ДокФИОКассира = Документы.ФамилияКассира;
Объект.Дата = ТекущаяДата();
Дата = Формат(Объект.Дата, "ДФ=dd.MM.yyyy");
Объект.НомерКассира = ПолучитьНомерКассира(Объект.НомерКассира);
РезультатПоискаПоНомеру = ДокФИОКассира.НайтиПоНомеру(Объект.НомерКассира);
Объект.ДатаКассира = РезультатПоискаПоНомеру.Дата;
ДатаКассира = Формат(Объект.ДатаКассира, "ДФ=dd.MM.yyyy");
Если
ДатаКассира <> Дата
Тогда
Сообщить("Ошибка: Сегодня вы не создали документ ФАМИЛИЯ КАССИРА!");
Иначе
        Объект.ФамилияКассира = РезультатПоискаПоНомеру.КассирФамилия;
Объект.ИмяКассира = РезультатПоискаПоНомеру.КассирИмя;
Объект.ОтчествоКассира = РезультатПоискаПоНомеру.КассирОтчество;
КонецЕсли;


В общем-то работает ПРИ СОЗДАНИИ Документа Залог. Но если мне нужно просмотреть созданный документ другого дня, то опять выскакивает сообщение о том, что документ ФИОКассира не создавался(А она может вовсе и не нужен когда надо просмотреть другие документы). Всю голову сломал, подскажите как обойти этот момент?
P.S.: за код сильно не пинайте:(

cska-fanat-kz

Получил помощь - скажи СПАСИБО.
Разобрался сам - расскажи другим.

JOG


Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск