Реквизит документа из другого документа

[slaviik3]

Всем доброго времени суток! Опишу суть проблему: имею типовую конфигурацию УНФ и мне была поставлена задача при создании документа "Поступление на счет" проверять соответствие договора, указанного в документе "Счет на оплату" и в создаваемом поступлении.

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

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

Код Выделить Развернуть


Процедура РасшифровкаПлатежаСчетНаОплатуПриИзменении(Элемент)

СтрокаТЧ = "[color=red]Вот здесь как я понимаю надо получить идентификатор документа 'счет на оплату[/color]' ";
Договор = ПолучитьДоговорСчетаНаОплату(СтрокаТЧ);     

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

&НаСервере
Функция ПолучитьДоговорСчетаНаОплату(СтрокаТЧ)


Запрос= новый запрос;
Запрос.УстановитьПараметр("Ссылка", СтрокаТЧ);
Сообщить(СтрокаТЧ);
Запрос.Текст =

"ВЫБРАТЬ
| СчетНаОплату.Договор.Ссылка
|ИЗ
| Документ.СчетНаОплату КАК СчетНаОплату
|ГДЕ
| СчетНаОплату.Ссылка = &Ссылка"   ;

Результат = Запрос.Выполнить();

Сообщить(Результат);




КонецФункции




[Artjomrgv]

Посмотри это видео, по моему это твой пример, только там справочники.

[дфтын]

slaviik3, Все делать запросами это конечно похвально, но до безумств доходить то не надо

Код Выделить Развернуть

Если НЕ  ПолучитьДоговорСчетаНаОплату(СтрокаТЧ) Тогда
Сообщить("Фу на вас!");
КонецЕСлИ;

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

&НаСервере
Функция ПолучитьДоговорСчетаНаОплату(СтрокаТЧ)
Рез = Истина;
ДоговорВСчете = СтрокаТЧ.СчетНаОплату.Договор;
Возврат ДоговорВПоступлении = ДоговорВСчете
КонецФункция



[vitasw]

Посмотри это видео, по моему это твой пример, только там справочники.

Не учите людей плохому. Это пример плохого кода. Правильно - заполнять реквизиты в коде самой открываемой формы.

Все делать запросами это конечно похвально, но до безумств доходить то не надо

Не вижу ничего безумного. Если ТСу не лень писать запросы - это ему точно зачтется.

[slaviik3]

slaviik3, Все делать запросами это конечно похвально, но до безумств доходить то не надо

Код Выделить Развернуть

Если НЕ  ПолучитьДоговорСчетаНаОплату(СтрокаТЧ) Тогда
Сообщить("Фу на вас!");
КонецЕСлИ;

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

&НаСервере
Функция ПолучитьДоговорСчетаНаОплату(СтрокаТЧ)
Рез = Истина;
ДоговорВСчете = СтрокаТЧ.СчетНаОплату.Договор;
Возврат ДоговорВПоступлении = ДоговорВСчете
КонецФункция



Спасибо за ответ.

Непонятны следующие вещи:
Что я должен передать в функцию ПолучитьДоговорСчетаНаОплату(СтрокаТЧ)?
Я передаю текущие данные

Код Выделить Развернуть

СтрокаТЧ = Элементы.РасшифровкаПлатежа.ТекущиеДанные;

Получаю вот такую ошибку

{Документ.ПоступлениеНаСчет.Форма.ФормаДокумента.Форма(2215)}: Ошибка при вызове метода контекста (ПолучитьДоговорСчетаНаОплату)
Если НЕ  ПолучитьДоговорСчетаНаОплату(СтрокаТЧ) Тогда
по причине:
Ошибка передачи данных между клиентом и сервером. Значение недопустимого типа.
по причине:
Ошибка преобразования данных XDTO:
Запись значения свойства 'param':
   форма: Элемент
   имя: {http://v8.1c.ru/8.2/managed-application/modules}param
по причине:
Ошибка отображения типов:
Отсутствует отображение для типа 'ДанныеФормыЭлементКоллекции'

Вот полностью код:

Код Выделить Развернуть



Процедура РасшифровкаПлатежаСчетНаОплатуПриИзменении(Элемент)


СтрокаТЧ = Элементы.РасшифровкаПлатежа.ТекущиеДанные;

Если НЕ  ПолучитьДоговорСчетаНаОплату(СтрокаТЧ) Тогда
    Сообщить("Фу на вас!");
КонецЕСли;


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

&НаСервере
Функция ПолучитьДоговорСчетаНаОплату(СтрокаТЧ)

Рез= истина;
ДоговорВСчете = СтрокаТЧ.СчетНаОплату.Договор;
ДоговорВПоступлении = СтрокаТЧ.Договор;
Возврат ДоговорВПоступлении = ДоговорВСчете;
КонецФункции





[Kironten]

Код Выделить Развернуть

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

&НаСервере
Функция ПолучитьДоговорСчетаНаОплату(СтрокаТЧ)

Рез= истина;
ДоговорВСчете = СтрокаТЧ.СчетНаОплату.Договор;
ДоговорВПоступлении = СтрокаТЧ.Договор;
Возврат ДоговорВПоступлении = ДоговорВСчете;   
КонецФункции

У вас условие на булево, а возвращаете вы договор.

Код Выделить Развернуть

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

Добавлено: 02 ноя 2015, 12:36

А не, неправильно прочитал.

Ну попробуй не текущие данные в функцию передавать, а пару параметров: Договор, и счет на оплату.
В функции запрос к договору счета на оплату, и сравнение значений договоров.