Заполнить договор

[mixqn]

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

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

   Запрос.УстановитьПараметр("Договор", Объект.ДоговорКонтрагента);
   Результат = Запрос.Выполнить();
   ВыборкаДетальныеЗаписи = Результат.Выбрать();
   ДокПоступление.ДоговорКонтрагента = ВыборкаДетальныеЗаписи.Наименование;
//Будем отлаживать....
//А где же ты моя ошибка???
Если Не ЗначениеЗаполнено(ДокПоступление.ДоговорКонтрагента) Тогда
//Накосячили.....
Сообщить("Накосячили ищем ошибку....")
ТипДок = ТипЗнч(ДокПоступление.ДоговорКонтрагента);
ТипВыб = ТипЗнч(ВыборкаДетальныеЗаписи.Наименование);
Сообщить("Ошибка в ТИПЕ? ОТВЕТ: "+формат(ТипДок<>ТипВыб,"БЛ=Нет; БИ=Да"));
Если ТипДок<>ТипВыб Тогда
Сообщить("Тип документа = "+ТипДок);
Сообщить("Тип выборки запроса = "+ТипВыб);
Сообщить("Разве можно в тип <"+ТипДок+"> записать вот этот тип <"+Типвыб+"> ?????????");
Сообщить("Теперь понятно где косяк?");
КонецЕсли;


Dethmontt, зачет

AlenkaInt, вам надо сразу в запросе выбрать ссылку (как написал Dethmontt в последнем сообщении), только и всего.

[AlenkaInt]

ДокПоступление.ДоговорКонтрагента тип - СправочникСсылка.ДоговорыКонтрагентов
Вот я и привела тип переменной ВыборкаДетальныеЗаписи.Наименование к типу реквизита.
ДокПоступление.ДоговорКонтрагента = Справочники.ДоговорыКонтрагентов.НайтиПоНаименованию(ВыборкаДетальныеЗаписи.Наименование);
Так?
Почему то при таком раскладе у меня в документе поступление товаров в договоре появляется - Договор поставки Л-56, а должно быть - 98ПОК

[Dethmontt]

Сделайте как я вам написал в прошлом сообщение - потом разберем почему именно так, а не как вы написали...

[mixqn]

mixqn, как я понял девушке нужно найти договор с точно таким же наименованием только с видом договора противоположным
Объект.Договор.ВидДоговора = "С поставщиком" а ей нужен "с покупателем" отсюда и извращения такие =)))

да, я сначала стартпост не до конца прочел. вроде успел поправить последнее сообщение надеюсь никто не заметил

по моему, ответ https://forum-baza.ru/index.php?topic=16171.0;msg=62844 исчерпывающий, нет?

[Dethmontt]

да, я сначала стартпост не до конца прочел. вроде успел поправить последнее сообщение  надеюсь никто не заметил

Я ни чего не видел =)))

по моему, ответ forum-baza.ru/... исчерпывающий, нет?

Как вставлять такие ссылки?

[mixqn]

Как вставлять такие ссылки?

а это относительно новая фича (добавлена после обновления движка): наводите курсор на заголовок ответа - там нужная ссылка (см. скрин)

[AlenkaInt]

Сделала.
Ругается программа.
Выбран договор контрагента, не соответствующий организации, указанной в документе!

[Dethmontt]

Как вставлять такие ссылки?

а это относительно новая фича (добавлена после обновления движка): наводите курсор на заголовок ответа - там нужная ссылка (см. скрин)

Круто!

[mixqn]

Круто!

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

[Dethmontt]

Все верно...
Добавьте теперь следующее условие

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

"ВЫБРАТЬ
      |   ДоговорыКонтрагентов.ВидДоговора, //ЭТО вообще лишнее!!! Зачем вам это поле??? Где вы его используете?
      |   ДоговорыКонтрагентов.Наименование, //Зачем вам наименование - чтобы по нему потом искать? Так вы сейчас что делаете?
      |   ДоговорыКонтрагентов.Ссылка Как ДОГОВОР //Вот что нужно тащить! ССЫЛКУ
      |ИЗ
      |   Справочник.ДоговорыКонтрагентов КАК ДоговорыКонтрагентов
      |ГДЕ
      |   ДоговорыКонтрагентов.ВидДоговора = ""С поставщиком"" //Тут лучше использовать перечисление Пример:ДоговорыКонтрагентов.ВидДоговора = Значение(Перечисление.<ИмяПеречисления>.<ИмяЗначенияперечисления>)
      |   И ДоговорыКонтрагентов.Наименование = &Договор
      |   И ДоговорыКонтрагентов.Организация = &Организация"; //ЭТО

   Запрос.УстановитьПараметр("Договор", Объект.ДоговорКонтрагента.Наименование);
   Запрос.УстановитьПараметр("Организация", Объект.Организация); //ЭТО
   Результат = Запрос.Выполнить();
   ВыборкаДетальныеЗаписи = Результат.Выбрать();
Если ВыборкаДетальныеЗаписи.Следующий() Тогда
   ДокПоступление.ДоговорКонтрагента = ВыборкаДетальныеЗаписи.ДОГОВОР;
КонецЕсли;