Форум на Исходниках.RU

Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=410433&view=findpost&p=3709350 Fri, 03 Mar 2017 07:06:50 +0000 договор контрагента https://forum.sources.ru/index.php?showtopic=410433&view=findpost&p=3709350 evGenius
Спасибо, я примерно так и сделал.]]> ^D^ima 1С: Проблемы и решения https://forum.sources.ru/index.php?showtopic=410433&view=findpost&p=3709320 Fri, 03 Mar 2017 05:34:12 +0000 договор контрагента https://forum.sources.ru/index.php?showtopic=410433&view=findpost&p=3709320

Функция ПолучитьДоговорКонтрагента(Контрагент, Организация, ВидДоговора)

// сначала ищем основной

ЗапросПоиска = Новый Запрос(

"ВЫБРАТЬ РАЗРЕШЕННЫЕ

| ОсновныеДоговорыКонтрагента.Договор

|ИЗ

| РегистрСведений.ОсновныеДоговорыКонтрагента КАК ОсновныеДоговорыКонтрагента

|ГДЕ

| ОсновныеДоговорыКонтрагента.Контрагент = &Владелец

| ОсновныеДоговорыКонтрагента.ВидДоговора = &ВидДоговора

| И ОсновныеДоговорыКонтрагента.Организация = &Организация");

ЗапросПоиска.УстановитьПараметр("Организация", Организация);

ЗапросПоиска.УстановитьПараметр("Владелец", Контрагент);

ЗапросПоиска.УстановитьПараметр("ВидДоговора", ВидДоговора);

ВыборкаПоиска = ЗапросПоиска.Выполнить().Выбрать();

Если ВыборкаПоиска.Следующий() Тогда

Возврат ВыборкаПоиска.Договор;

КонецЕсли;

// ну раз нет основного, то первый попавшийся

ЗапросПоиска = Новый Запрос(

"ВЫБРАТЬ РАЗРЕШЕННЫЕ ПЕРВЫЕ 1

| ДоговорыКонтрагентов.Ссылка

|ИЗ

| Справочник.ДоговорыКонтрагентов КАК ДоговорыКонтрагентов

|ГДЕ

| ДоговорыКонтрагентов.Владелец = &Владелец

| И ДоговорыКонтрагентов.Организация = &Организация

| И ДоговорыКонтрагентов.ВидДоговора = &ВидДоговора

| И НЕ ДоговорыКонтрагентов.ПометкаУдаления");

ЗапросПоиска.УстановитьПараметр("Организация", Организация);

ЗапросПоиска.УстановитьПараметр("Владелец", Контрагент);

ЗапросПоиска.УстановитьПараметр("ВидДоговора", ВидДоговора);

ВыборкаПоиска = ЗапросПоиска.Выполнить().Выбрать();

Если ВыборкаПоиска.Следующий() Тогда

Возврат ВыборкаПоиска.Ссылка;

КонецЕсли;

// ну нету раз

Возврат Справочники.ДоговорыКонтрагентов.ПустаяСсылка();

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

]]> evGenius 1С: Проблемы и решения https://forum.sources.ru/index.php?showtopic=410433&view=findpost&p=3709247 Thu, 02 Mar 2017 12:06:16 +0000 договор контрагента https://forum.sources.ru/index.php?showtopic=410433&view=findpost&p=3709247 evGenius 1С: Проблемы и решения https://forum.sources.ru/index.php?showtopic=410433&view=findpost&p=3709238 Thu, 02 Mar 2017 11:32:10 +0000 договор контрагента https://forum.sources.ru/index.php?showtopic=410433&view=findpost&p=3709238 Почему в конфигураторе нет документа "Оказание производственных услуг", а в 1-ке он откуда-то берется. Вопрос откуда и как его тогда программно создавать?
Docs.jpg (, : 619) ]]> ^D^ima 1С: Проблемы и решения https://forum.sources.ru/index.php?showtopic=410433&view=findpost&p=3709220 Thu, 02 Mar 2017 10:42:36 +0000 договор контрагента https://forum.sources.ru/index.php?showtopic=410433&view=findpost&p=3709220
Добавлено 02.03.17, 10:44
Попозже вечером напишу как правильно сделать процедуру поиска договора, сейчас под рукой БП3 нет.]]> evGenius 1С: Проблемы и решения https://forum.sources.ru/index.php?showtopic=410433&view=findpost&p=3709216 Thu, 02 Mar 2017 10:27:32 +0000 договор контрагента https://forum.sources.ru/index.php?showtopic=410433&view=findpost&p=3709216

ДоговорКонтрАгента = новый Запрос;

ДоговорКонтрАгента.Текст = "ВЫБРАТЬ

| ДоговорыКонтрагентов.Ссылка

|ИЗ

| Справочник.ДоговорыКонтрагентов КАК ДоговорыКонтрагентов

|ГДЕ

| ДоговорыКонтрагентов.Владелец = &Владелец

| И ДоговорыКонтрагентов.Организация = &Организация";

ДоговорКонтрАгента.УстановитьПараметр("Организация",ФормаОрганизация);

ДоговорКонтрАгента.УстановитьПараметр("Владелец",ФормаКонтрагент);

Выборка = ДоговорКонтрАгента.Выполнить().Выбрать();

Выборка.Следующий();

ФормаДоговор=Выборка.ссылка;

Вместо запроса пытался сделать структуру, не получилось.

КАгент = Новый Структура;

КАгент.Вставить("Организация",ФормаОрганизация);

КАгент.Вставить("Владелец",ФормаКонтрагент);

ФормаДоговор = Справочники.ДоговорыКонтрагентов.ПолучитьДанныеВыбора(КАгент);

Ещё одно непонятное:
В справочнике ДоговорКонтрАгента нет реквизита Владелец.
- Я не наблюдаю его визуально. проверил все реквизиты, нигде нет ни названия "Владелец" ни ссылки на контрагента у других реквизитов.
- Этот код

ФормаДоговор = Справочники.ДоговорыКонтрагентов.НайтиПоРеквизиту("Владелец",ФормаКонтрагент);

ругается на Неверно указан реквизит. При этом такой код:

ФормаДоговор = Справочники.ДоговорыКонтрагентов.НайтиПоРеквизиту("Организация",ФормаОрганизация);

Сообщить(ФормаДоговор.Владелец);

Отрабатывает на ура. Т.е в запросе можно указать это реквизит, сообщить его можно, но найти по нему нельзя(его и нет в справочнике в принципе). Откуда вашу **** взялся этот Владелец??????? :wall:]]> ^D^ima 1С: Проблемы и решения https://forum.sources.ru/index.php?showtopic=410433&view=findpost&p=3709162 Thu, 02 Mar 2017 06:47:38 +0000 договор контрагента https://forum.sources.ru/index.php?showtopic=410433&view=findpost&p=3709162 Error.png (, : 632) ]]> ^D^ima 1С: Проблемы и решения https://forum.sources.ru/index.php?showtopic=410433&view=findpost&p=3709152 Thu, 02 Mar 2017 06:09:14 +0000 договор контрагента https://forum.sources.ru/index.php?showtopic=410433&view=findpost&p=3709152 Цитата evGenius @ 01.03.17, 15:14

не должно быть параметра-даты, только отбор.

:crazy: :crazy: :crazy:
А это тогда о чем?
____________________.png (, : 643) ]]> ^D^ima 1С: Проблемы и решения https://forum.sources.ru/index.php?showtopic=410433&view=findpost&p=3709085 Wed, 01 Mar 2017 15:14:22 +0000 договор контрагента https://forum.sources.ru/index.php?showtopic=410433&view=findpost&p=3709085
Добавлено 01.03.17, 15:16

&НаСервере

Процедура НайтиДоговорКонтрАгента(ФормаОрганизация,ФормаКонтрагент)

КАгент = Новый Структура;

КАгент.Вставить("Организация",ФормаОрганизация);

КАгент.Вставить("Контрагент",ФормаКонтрагент);

КАгент.Вставить("ВидДоговора",Перечисления.ВидыДоговоровКонтрагентов.СПокупателем);

ФормаДоговор = РегистрыСведений.ОсновныеДоговорыКонтрагента.Получить(КАгент)[0].Договор;

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

]]> evGenius 1С: Проблемы и решения https://forum.sources.ru/index.php?showtopic=410433&view=findpost&p=3709080 Wed, 01 Mar 2017 14:41:52 +0000 договор контрагента https://forum.sources.ru/index.php?showtopic=410433&view=findpost&p=3709080
Ошибка все-равно в чем-то другом, через отладчик не вычислить сообщение
____________________.png (, : 642) ]]> ^D^ima 1С: Проблемы и решения https://forum.sources.ru/index.php?showtopic=410433&view=findpost&p=3709076 Wed, 01 Mar 2017 14:15:48 +0000 договор контрагента https://forum.sources.ru/index.php?showtopic=410433&view=findpost&p=3709076 evGenius 1С: Проблемы и решения https://forum.sources.ru/index.php?showtopic=410433&view=findpost&p=3709073 Wed, 01 Mar 2017 14:12:40 +0000 договор контрагента https://forum.sources.ru/index.php?showtopic=410433&view=findpost&p=3709073 evGenius
Я делаю вообще сообщить, то-же самое

&НаСервере

Процедура НайтиДоговорКонтрАгента(ФормаОрганизация,ФормаКонтрагент)

Сообщить(ФормаКонтрагент);

КАгент = Новый Структура;

КАгент.Вставить("Организация",ФормаОрганизация);

КАгент.Вставить("Контрагент",ФормаКонтрагент);

КАгент.Вставить("ВидДоговора",Перечисления.ВидыДоговоровКонтрагентов.СПокупателем);

Сообщить(РегистрыСведений.ОсновныеДоговорыКонтрагента.Получить(ТекущаяДата(),КАгент)[0]);

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

]]> ^D^ima 1С: Проблемы и решения https://forum.sources.ru/index.php?showtopic=410433&view=findpost&p=3709071 Wed, 01 Mar 2017 14:06:56 +0000 договор контрагента https://forum.sources.ru/index.php?showtopic=410433&view=findpost&p=3709071 evGenius 1С: Проблемы и решения https://forum.sources.ru/index.php?showtopic=410433&view=findpost&p=3709067 Wed, 01 Mar 2017 13:58:06 +0000 договор контрагента https://forum.sources.ru/index.php?showtopic=410433&view=findpost&p=3709067 1.png (, : 611) ]]> ^D^ima 1С: Проблемы и решения https://forum.sources.ru/index.php?showtopic=410433&view=findpost&p=3709065 Wed, 01 Mar 2017 13:51:51 +0000 договор контрагента https://forum.sources.ru/index.php?showtopic=410433&view=findpost&p=3709065 Цитата ^D^ima @ 01.03.17, 13:44

Это реквизит на форме, не более того.

Это строка. Ты уверен, что по строке сработает поиск договора? Раз ругается на несоответствие типов, то скорее всего надо ссылку на контрагента передавать.

Добавлено 01.03.17, 13:52

Цитата ^D^ima @ 01.03.17, 12:37

ФормаКонтрагент - справочник.ссылка.контрагент

У меня открылось, как строка.]]> kosten 1С: Проблемы и решения https://forum.sources.ru/index.php?showtopic=410433&view=findpost&p=3709064 Wed, 01 Mar 2017 13:50:37 +0000 договор контрагента https://forum.sources.ru/index.php?showtopic=410433&view=findpost&p=3709064
Или для регистров сведений нужны все реквизиты? Там их 3]]> ^D^ima 1С: Проблемы и решения https://forum.sources.ru/index.php?showtopic=410433&view=findpost&p=3709063 Wed, 01 Mar 2017 13:47:22 +0000 договор контрагента https://forum.sources.ru/index.php?showtopic=410433&view=findpost&p=3709063 Цитата ^D^ima @ 01.03.17, 13:44

Это реквизит на форме, не более того.

И какой тип попадает в твою функцию?]]> kosten 1С: Проблемы и решения https://forum.sources.ru/index.php?showtopic=410433&view=findpost&p=3709062 Wed, 01 Mar 2017 13:44:40 +0000 договор контрагента https://forum.sources.ru/index.php?showtopic=410433&view=findpost&p=3709062 evGenius
Это реквизит на форме, не более того.
____________.zip (, : 191) ]]> ^D^ima 1С: Проблемы и решения https://forum.sources.ru/index.php?showtopic=410433&view=findpost&p=3709060 Wed, 01 Mar 2017 13:26:27 +0000 договор контрагента https://forum.sources.ru/index.php?showtopic=410433&view=findpost&p=3709060 evGenius 1С: Проблемы и решения https://forum.sources.ru/index.php?showtopic=410433&view=findpost&p=3709048 Wed, 01 Mar 2017 12:37:17 +0000 договор контрагента https://forum.sources.ru/index.php?showtopic=410433&view=findpost&p=3709048 делаю так:
ФормаКонтрагент - справочник.ссылка.контрагент

&НаКлиенте

Процедура Сформировать(Команда)

НайтиДоговорКонтрАгента(ФормаКонтрагент);

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

&НаСервере

Процедура НайтиДоговорКонтрАгента(ФормаКонтрагент)

КАгент = Новый Структура;

КАгент.Вставить("Контрагент",ФормаКонтрагент);

ФормаДоговор = РегистрыСведений.ОсновныеДоговорыКонтрагента.Получить(ТекущаяДата(),КАгент)[0];

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

Пишет "несоответствие типов"]]> ^D^ima 1С: Проблемы и решения