В форме документа есть кнопка - "Резервировать" - в свойствах
нажатие - "Ввести на основании... "
нажатие объект - "ЗаказПокупателя"

Самой процедуры в модуле нет. Мне нужно перед вводом нового документа произвести проверку и только потом вводить или не вводить на основаниию Как это зделать?

(0) Ктомешает заменить на свои кнопки?

Дік єто моя кнопка. но процедуру я выбрал в свойствах

нажатие - "Ввести на основании... "
нажатие объект - "ЗаказПокупателя"

Посмотреть на процедуру "ОбработкаЗаполнения" в модуле того дока который вводиться на основании...

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

можно ли перед вводом . всавить проверку мою? или ввод на основании придется вручную описывать?

(2) Так что мешает сделать обработчик свой?

Если всегда нужна проверка, то вставляй в событие формы ПередОткрытием проверку.

А основание можно получить так:

Расширение формы документа
ПараметрОснование (BasisParameter)
Использование:
Чтение и запись.
Описание:
Тип: Ссылка на объект-основание. Содержит ссылку на объект-основание.

Проверка перед открытием вводимого документа на основании не срабатывает. поэтому хотелось бы просто не вводить на основании из первого документа если проверка не выполнена

Удали процедуру с кнопки, сделай новую и пиши что тебе надо

Процедура ВвестиЗаказНаОсновании()

Отказ = ПроверитьДокумент();

Если Отказ Тогда
Сообщить("блабла");
Иначе
[операторы заполнения]

КонецЕсли;

КонецПроцедуры

Ayori это из первого документа проверка?

[операторы заполнения] их нужно где то выискать

Мне нужно именно до ввода документа на основании перехватить процедуру
нажатие - "Ввести на основании... "
нажатие объект - "ЗаказПокупателя"
проверить и по результам разрешить или не разрешить ввод на основании

Докустим есть два документа:
Документ1 - из которого заполняем
Документ2 - который надо заполнить на основании Документа1

Действия:

1. на кнопку в Документе1 вешаем процедуру

Процедура КнопкаЗарезервироватьНажатие(Элемент)

Заказ = Документы.ЗаказПоставщику.СоздатьДокумент();
Заказ.Заполнить(Ссылка);

КонецПроцедуры


2. в модуле документа Документа2 ищем процедуру ОбработкаЗаполнения, если нет то создаем

Процедура ОбработкаЗаполнения(Основание)

Контрагент = Основание.Контрагент;
Организация = Основание.Организация;
........ и тд

КонецПроцедуры

Я понял . просто не хотелось этого делать так как много таких проверок будет по другим документам. Я спросил можно ли перехватить процедуру из доку3мента основания до ввода и проверить. Что бы избежать ручного описания ввода.

Если по кнопке типовой, то нет - она не ссылается на процедуры ВРОДЕ, а сразу вводит документ, заполняя его на основании процедуры описанной в его модуле.

А если сделаешь свою кнопку то нет проблем -  в 1 документе на кнопку вешаешь свою процедуру, где есть проверка.

Смотри (4)

Такая проблема.
Я перед открытии документа вводимого на основании написал проверку.Она работает на проверку даты на локальном компе и и на сервере.При не соответсвии - отказ открытия и посылается синхронизация времени. Когда прошла синхронизация даты . пробую открывать - он открывает .. НО датой той что была до синхронизации.

Функция ПроверкаДаты() Экспорт;        
Норма = 0;
СерверТ = Константы.ОбщийКаталог.Получить();
ПользТ = Константы.Пользователь.Получить();
ПарольТ = Константы.Пароль.Получить();
РезервСроки = Константы.СрокРезерва.Получить();
ЛокальныйГод = Формат(Год(ТекущаяДата()),"ЧГ=0");
ЛокальныйМесяц = Месяц(ТекущаяДата());
ЛокальныйДень = День(ТекущаяДата());
   
 Попытка
 locator = новый COMОбъект("WBemScripting.SWbemLocator");
  Serv = locator.ConnectServer(СерверТ,"root\cimv2",ПользТ,ПарольТ);
  items = Serv.ExecQuery("select * from win32_LocalTime");
  Для каждого Стр ИЗ items Цикл
     ГД = Стр.year;
     МС = Стр.month;
     ДН = Стр.day;
 КонецЦикла;
 Исключение;
 Сообщить("Сбой проверки. Обратитесь к администратору 1с!");
 Норма = 1;
 Результат = Истина;
КонецПопытки;
Если Норма <> 1 И
    СокрЛП(Строка(ГД)) = СокрЛП(Строка(ЛокальныйГод)) И
    СокрЛП(Строка(МС)) = СокрЛП(Строка(ЛокальныйМесяц)) И
    СокрЛП(Строка(ДН)) = СокрЛП(Строка(ЛокальныйДень)) Тогда
Результат = Ложь;
Иначе
Сообщить("Проверка не выполнена!");
Результат = Истина;
Попытка
КомандаСистемы("w32tm /resync");
Исключение;
КонецПопытки;
КонецЕсли;    
Возврат Результат;            
КонецФункции


проверка

Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)
//Дата////    
Если ПараметрыСеанса.Компьютер <> Константы.ОбщийКаталог И
    ЭтотОбъект.ЭтоНовый() Тогда
    Р =  ПроверкаДаты();
    Если Р = Истина Тогда СтандартнаяОбработка = Ложь
    КонецЕсли;
    Отказ = Р;
    КонецЕсли;
Если НЕ Отказ Тогда
дкФормаПередОткрытием(ЭтаФорма, Отказ, СтандартнаяОбработка);

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

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

лови тогда как сказали в (4)

ищу ОбработкаЗаполнения вводимого на основании но там общая процедура для всех документов.. буду рыться

(21) интересно как он в ОбработкаЗаполнения() откажется от заполнения?

Вот и я не хотел бы ломать обработку заполнения

(23) отказываться я предлагал как - там же можно было и отловить; автор же спросил где отловить, ему предложили альтернативный вариант

Жаль что нельзя проверить до стандартного ввода на основании. это бы сразу убило 4-х зайцев :)

я в свое время искал, так и не нашел - видимо, это заложено в платформе.. или я плохо искал

Погоди, а COM объект у тебя не записан

ой туплю))))

(23) Ну наверное скажет:

мЗакрыться = Истина;
Возврат;

А в форме перед окрытием скажет:

Отказ = мЗакрыться;

Как то так...

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

протсо документОснование= Ссылка.Объект?

примерно так?

Процедура РезервироватьНажатие(Элемент);
ЗаказОБ = Документы.ЗаказПокупателя.СоздатьДокумент();
ЗаказОБ.ДокументОснование = ЭтотОбъект.Ссылка;
ЗаказОБ.Дата = ТекущаяДата();.......

(18) чем писать такие офигительные процедуры на ровном месте, лучше один раз набить морду тому юзеру, который переключает дату на компьютере, а то в следующий раз он у тебя ненароком и систему противопожарной безопасности включит.

hhhh  это ты прав. но там ситуация не от меня зависит. и я там не контролирую процесс. по возможности 1с должна что в ее силах обеспечить правильное ведение учета. в том числе и что ее не касается.

Процедура РезервироватьНажатие(Элемент);
Если ПараметрыСеанса.Компьютер <> Константы.ОбщийКаталог  Тогда
    Р =  ПроверкаДаты();
КонецЕсли;    
Если Р <> Истина Тогда    
ЗаказОБ = Документы.ЗаказПокупателя.СоздатьДокумент();
ЗаказОБ.ДокументОснование = ЭтотОбъект.Ссылка;
ЗаказОБ.Дата = ТекущаяДата();
ЗаказОБ.Контрагент = ЭтотОбъект.Контрагент;
ЗаказОБ.ДоговорВзаиморасчетов = ЭтотОбъект.ДоговорВзаиморасчетов;
ЗаказОБ.СкладКомпании = ЭтотОбъект.СкладКомпании;
ЗаказОБ.ВалютаДокумента = Справочники.Валюты.НайтиПоКоду("980");
ЗаказОБ.ПроцентПредоплаты = 0;
ЗаказОБ.Автор = ПараметрыСеанса.Пользователь;
ЗаказОБ.Организация = ПараметрыСеанса.Организация;
ЗаказОБ.СрокПоставки = ТекущаяДата()+ 2592000;
ЗаказОБ.ПодразделениеКомпании = ПараметрыСеанса.ПодразделениеКомпании;
ЗаказОБ.ХозОперация = Справочники.ХозОперации.ЗаказРезервированиеПокупателя;
ЗаказОБ.ТипЦен = Справочники.ТипыЦен.ОсновнойТипЦенПродажи;
ЗаказОБ.ВидОплаты = перечисления.ВидыОплаты.ПроизвольнаяОплата;
ЗаказОБ.КурсДокумента = ЭтотОбъект.КурсДокумента;
ЗаказОБ.Товары.Загрузить(ЭтотОбъект.Товары.Выгрузить());
Форма = ЗаказОБ.ПолучитьФорму("ФормаДокумента");
Если НЕ Форма.Открыта() Тогда
       Форма.Открыть();
КонецЕсли;
КонецЕсли;
КонецПроцедуры;

наверное так

проверил работает и дату ставит правильную после синхр