есть ли в УПП 1.3.28 метод, который позволяет узнать, каким образом был введен документ? если да, то как называется?

хочу сделать проверку к документу заказ поставщику, что если на его основании введены документы, то запрет на корректировку

(0) документОснование заполнен, значит на основании введен. Не заполнен, значит введен не на основании

и в какой процедуре это задается? при открытии ведь?

(3), обработка заполнения

(0) Интересно, как фраза из (0) связана с фразой в (1). По идее фраза в (1) должна уточнять в фразу в (0), но.... нет, они противоположны по смыслу.

Разбираем. В (0) "каким образом был введен документ?": всё кажется очевидно: требуется узнать введен "на основании" этот документ или "без основания".

но... нет:
В (1): "что если на его основании введены документы"
оказывается нужно узнать были ли введены ДРУГИЕ документы на основании требуемого.

PS неужели так трудно сначала ДЛЯ СЕБЯ сформулировать ПОЛНОСТЬЮ вопрос, а потом его вываливать на форум. Известно ведь, что правильно заданный вопрос - это половина ответа...
;)

(4) мимо

(5) есть документ(1), если на его основании вводились документы, нужно запретить корректировку этого документа(1)

(3) при открытии заказа поставщику ищи запросом введенные на его основании документы. Если найдешь хоть один, Делай ЭтаФорма.ТолькоПросмотр = Истина;

(1) не знаю, как в УПП, но обычно у доков есть команда Структура подчиненности, использующая критерии отбора. вот на нее обрати внимание, это как раз твой случай.

(9) вот что нашел в форме документа:
РаботаСДиалогами.ПоказатьструктуруПодчиненности, из нее тащить?

(10) ну можно и так сказать. под описание мое подходит? тогда тащи

(10) само собой критерий настроен должен быть на все документы, наличие которых тебе надо контролировать

(7) Вот именно, вопрос находится в (1), а правильно сначала сформулировать вопрос ПОЛНОСТЬЮ и потом уже вываливать его на всеобщее обозрение в (0) пост...

(12) запросом тащить доки? или как? не понятно

(12) как проконтролировать документы, которые попадают в структуру подчиненности?

Критерий отбора в помощь

КритерийОтбора.СвязанныеДокументы.Найти() обозначить за переменную, и потом если найдены документы то использование формы ложь?

бом бом, не получается(

в запросе выбираю КритерийОтбора, Связанные документы, но они не находятся почему то(

Прикольная штука есть если начать на ctrl+shift+f1

КритерийОтбораМенеджер.<Имя критерия> (FilterCriterionManager.<Имя критерия>)
Найти (Find)
Синтаксис:

Найти(<ЗначениеПоиска>)
Параметры:

<ЗначениеПоиска> (обязательный)

Значение, по которому будет выполняться поиск. Тип значения должен соответствовать типу критерия отбора.
Возвращаемое значение:

Тип: Массив.
Массив ссылок на объекты, в которых используется указанное значение отбора.
Описание:

Осуществляет поиск объектов базы данных, входящих в состав отбора, в которых использовано указанное значение отбора.

Доступность:

Сервер, толстый клиент, внешнее соединение.
Примечание:

Состав объектов метаданных, входящих в состав отбора, задается при конфигурировании.
Пример:

МассивСсылок = КритерииОтбора.Контрагенты.Найти(ВыбКонтрагент);
Для Каждого Ссылка Из МассивСсылок Цикл
   Сообщить(Ссылка);
КонецЦикла;

(20) а шифт зачем?

Массив =КритерииОтбора.СвязанныеДокументы.Найти(ЭтотОбъект.ДокументОснование);
и в массив ничего не попадает(

Массив =КритерииОтбора.СвязанныеДокументы.Найти(ЭтотОбъект);

мужики, помогите) нужно добавить свой критерий в систему что ли или как?

КритерийОтбора.ДокументыПоКонтрагенту.Найти(Контрагент)
это найдет все документы по контрагенту, и это единственный вариант, когда хоть что то находится, все остальные типовые критерий отбора результатов не дает

(25) значит нет ничего. ты сам критерий настроил как тебе надо?

(26) вот про это я и спрашиваю, нужно создать ведь новый критерий, в котором указываю документ, в котором и запрещено делать изменения, если на его основании введены другие? или как?

ап

Я конечно все не читал, но если глянуть в типовые то:
ПараметрОснование
ПараметрОбъектКопирования


Не? Не оно?

(29) не подходит все равно

Функция МетодОпределенияКакимОбразомБылВведенДокумент(ПараметрОснование, ПараметрОбъектКопирования) Экспорт
 Если ПараметрОбъектКопирования <> Неопределено тогда
   Возврат "Копированием";
 ИначеЕсли ПараметрОснование <> Неопределено тогда
   Возврат "НаОсновании";
 Иначе
   Возврат "Ручками";
 КонецЕсли;
КонецФункции

+(31)

Процедура ПриОткрытии()

 Возврат МетодОпределенияКакимОбразомБылВведенДокумент(ПараметрОснование, ПараметрОбъектКопирования);

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

(32) так в процедуре не даст же он вернуть значение не?

(33)

Процедура ПриОткрытии()

 МОКОБВД = МетодОпределенияКакимОбразомБылВведенДокумент(ПараметрОснование, ПараметрОбъектКопирования);

 Если МОКОБВД = "Ручками" тогда
   Сообщить("Пользователь нажал на кнопку ""Создать новый""");
 ИначеЕсли МОКОБВД = "НаОсновании" тогда
   Сообщить("Пользователь ткнул на документ " + ПараметрОбъектКопирования + " и нажал кноку ""Скопировать""");
 Иначе
   Сообщить("Пользователь открыл документ " + ПараметрОснование + " и ткнул ""Ввести на основании""")
 КонецЕсли;

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

А, да конечно, всегда пожалуйста

(35) сейчас попробу. спс

(36) С тебя 200 рублев :)

можно еще мне кажется через модуль полные права функция
ПолучитьВыборкуПоПритериюОтбора

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

(38) И что ты этим "П"ритерием получишь?
(39) Что такое "полученная таблица значений"?

(39) Если я хоть чуть-чуть правильно понял, то:

ТаблицаЗначений.Количество (ValueTable.Count)
ТаблицаЗначений (ValueTable)
Количество (Count)
Синтаксис:

Количество()
Возвращаемое значение:

Тип: Число.

Описание:

Получает количество строк таблицы значений.

Доступность:

Сервер, толстый клиент, внешнее соединение.
Пример:

Количество = ТаблицаЦен.Количество();

Функция ПолучитьВыборкуПоКритериюОтбора(ИмяКритерияОтбора, ЗначениеКритерия) Экспорт
       
   Запрос = Новый Запрос;
   ТекстЗапроса = "";
   
   Для Каждого ЭлементСостава ИЗ Метаданные.КритерииОтбора[ИмяКритерияОтбора].Состав Цикл
       
       Если Не ЭлементСостава.Тип.СодержитТип(ТипЗнч(ЗначениеКритерия)) Тогда
           Продолжить;
       КонецЕсли;
       
       ПутьКДанным = ЭлементСостава.ПолноеИмя();
       СтруктураПутьКДанным = ОбщегоНазначения.РазобратьПутьКОбъектуМетаданных(ПутьКДанным, ЭлементСостава.Родитель());
       
       ЕСли НЕ ПравоДоступа("Чтение", СтруктураПутьКДанным.Метаданные) Тогда
           Продолжить;
       КонецЕсли;
       
       ИмяОбъекта = СтруктураПутьКДанным.ТипОбъекта + "." + СтруктураПутьКДанным.ВидОбъекта;
       ПсевдонимТаблицы = СтруктураПутьКДанным.ТипОбъекта + "_" + СтруктураПутьКДанным.ВидОбъекта + "_" + СтруктураПутьКДанным.ИмяТаблЧасти;
       
       ТекущаяСтрокаГДЕ = "ГДЕ " + ПсевдонимТаблицы + "." +СтруктураПутьКДанным.ИмяРеквизита + " = &ЗначениеКритерияОтбора";
           
       ИмяТЧ = Лев(СтруктураПутьКДанным.ИмяРеквизита, Найти(СтруктураПутьКДанным.ИмяРеквизита, ".")-1);
       ИмяРеквизита = Лев(СтруктураПутьКДанным.ИмяРеквизита, Найти(СтруктураПутьКДанным.ИмяРеквизита, ".")-1);
       ТекстЗапроса = ТекстЗапроса + (?(ТекстЗапроса = "", "ВЫБРАТЬ", "ОБЪЕДИНИТЬ ВСЕ
       |ВЫБРАТЬ") + "
       |" + ПсевдонимТаблицы + ".Ссылка ИЗ " + ИмяОбъекта + "." + СтруктураПутьКДанным.ИмяТаблЧасти + " КАК " + ПсевдонимТаблицы + "
       |" + СтрЗаменить(ТекущаяСтрокаГДЕ, "..", ".") + "
       |");
       
   КонецЦикла;
   
   Если ТекстЗапроса = "" Тогда
       Возврат Новый ТаблицаЗначений;
   КонецЕсли;
   
   Запрос.Текст = ТекстЗапроса;
   Запрос.УстановитьПараметр("ЗначениеКритерияОтбора", ЗначениеКритерия);
   Возврат Запрос.Выполнить().Выгрузить();
   
КонецФункции

Функция ЕстьСвязанныеДокументыПоЗаказу(Ссылка) Экспорт
   
   Таблица = ПолныеПрава.ПолучитьВыборкуПоКритериюОтбора("СвязанныеДокументы", Ссылка);    
   
   Для Каждого Строка Из Таблица Цикл
       Если Строка.Ссылка.Проведен Тогда
           Возврат Истина
       КонецЕсли;
   КонецЦикла;
   
   Возврат Ложь;
   
КонецФункции

Процедура ПриОткрытии()
ЕстьСвязанныеДокументыПоЗаказу(Ссылка);
   Если ЗначениеЗаполнено(ТаблицаПоиска) Тогда
       Сообщить("парарам");
   КонецЕсли;

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

Только одна фигня меня смущает, что функция ЕстьСвязанныеоДокументы возвращает истину или ложь. И когда я в нужном мне документе вызываю ее, то всегда пишется сообщение

ТаблицаПоиска = ЕстьСвязанныеДокументыПоЗаказу(Ссылка);

Есть еще такая фигня - если документ только создан (копированием, на основании или еще как то) - в критерий отбора он не попадает, так как еще не записан.
А есть другая фигня, на примере заказов поставщику в УПП...
Если создать его новым (не копированием, не основанием) и указать в поле сделка "Заказ покупателя", то он так же попадет в критерий отбора
И последняя фигня - если создать документ копированием, в критериях отбора не будет того документ, с которого скопировали текущий документ

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

все, разобрался, нефиг потому что в значение которое получает только Истина или ожь припихивать метод значениезаполнено)))

Спасибо всем, кто помогал)

и еще вопрос по данной теме: если мне нужно, чтобы некоторые реквизиты были доступны для изменения, как это сделать?
Элементыформы.НазваниеРеквизита.Доступность = Истина не помогает