1c7.7 Справочник.Владелец - как уснановить?

@kyr · Регистрация: 04.12.2005

Студворк — интернет-сервис помощи студентам

Народ, подскажите плиз как правильно задавать владельца. сделал так:

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

Получаю ошибку -
Договор.Владелец = Контрагент;
{Документ.ЗагрузкаФОРТС.Модуль Документа(96)}: Не выбран элемент!

пробовал также Договор.Владелец = Контрагент.ТекущийЭлемент();
Но результат тот же. Подскажите пожалуйста что делаю неправильно

P.S. переменная Контрагент содержит значение - проверено отладчиком

@SyvyrBop · 16.11.2008, 13:51

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

@puh14 · 16.11.2008, 13:58

гм - без группировки, хоть одной он тебе и вернет пустую табличку. Группировка нужна. Кстати - ты право и лево не попутал случаем? а то он у тебя с конца кусает - ежли 15 -ти значный код, то он тебе одни пробелы вернет.

@kyr · 16.11.2008, 14:08

Так код - это переменная, которая равна G500094

@puh14 · 16.11.2008, 14:15

А если сообщить(СокрЛП(Прав(СокрЛП(Код),6))) что он покажет?
Код таки уникален во всем справочнике?

Ежли надо откусить только первый символ тогда проще НовыйКод = СокрЛП(Сред(Код,2));

@kyr · 16.11.2008, 14:28

Код уникален во всем справочнике! Объясни плиз что одначает условие |Условие(Договор.Код в Число(Прав(Код,6)))";
Попробовал так:
"//{{ЗАПРОС(Сформировать3)
|Период с (НачГода(ТекущаяДата())) по (ТекущаяДата());
|Без итогов;
|Контрагент = Справочник.Договоры.ТекущийЭлемент, Справочник.Договоры.Владелец;
|Договор = Справочник.Договоры.ТекущийЭлемент;
|Группировка Договор;
|Условие(СокрЛП(Договор.Код) = Код);
Возвращает неправильного контрагента. Как можно посмотреть чему равен код в момент выполнения текста запроса?

@puh14 · 16.11.2008, 14:50

Ну я думал что код числовой - потому и поставил в число.

Посмотреть код в момент исполнения - не знаю, вроде только с 1с++ можно

насчет контрагента неправильного - у тебя стоит группировак Договор, он и возвращает тебе договор. Поставь Группировка Контрагент

Посмотри через Сообщить чему у тебя Код равен после преобразований и сравни с результатом по запросу. Ежли бы не совпадал, тогда у тебя было-бы пусто.

Bap

Пока СпрКонтр.НайтиПоКоду(СокрЛП(Прав(СокрЛП( Код),6)),0)=1 Цикл

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

@kyr · 16.11.2008, 15:26

Фух.. Я понял почему СпрКонтр.НайтиПоКоду(Прав(Код,6),0) возвращает ноль. Оказывается длинна кода аж 24!! символа. Не знаю кто и зачем это делал, но переделывать низзя. Действительно остается только запрос. Это верный обход результатов?
Пока Запрос.Группировка(1) = 1 Цикл
Контрагент = Запрос.Контагент;
КонецЦикла
Если да - тогда почему постоянно возвращается 0?

@puh14 · 16.11.2008, 15:46

Фух.. Я понял почему СпрКонтр.НайтиПоКоду(Прав(Код,6),0) возвращает ноль. Оказывается длинна кода аж 24!! символа.

Предупреждал ведь. Ежли надо откусить только первый символ тогда проще НовыйКод = СокрЛП(Сред(Код,2));

Это верный обход результатов?
Пока Запрос.Группировка(1) = 1 Цикл
Контрагент = Запрос.Контагент;
КонецЦикла
Если да - тогда почему постоянно возвращается 0?

Верный - если у тебя группировка по контрагенту и итоги выключены, хотя на мой вкус приятнее выгрузить в ТЗ и там смотреть корректность.
При таком раскладе(последний текст твоего запроса) отбор по признаку брокерский отсутствует. Давай полный код.

@kyr · 16.11.2008, 15:58

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса =
"//{{ЗАПРОС(Сформировать3)
|Период с (НачГода(ТекущаяДата())) по (ТекущаяДата());
|Без итогов;
|Контрагент = Справочник.Договоры.ТекущийЭлемент, Справочник.Договоры.Владелец;
|Договор = Справочник.Договоры.ТекущийЭлемент;
|Группировка Контрагент;
|Группировка Договор;
|Условие(СокрЛП(Договор.Код) = Код);
|"//}}ЗАПРОС
;
Д = Строка(ДатаГод(ДатаДок));
Д = ?(ДатаМесяц(ДатаДок)<10,Д +"0" + Строка(ДатаМесяц(ДатаДок)),Д + Строка(ДатаМесяц(ДатаДок)));
Д = ?(ДатаЧисло(ДатаДок)<10,Д +"0" + Строка(ДатаЧисло(ДатаДок)),Д + Строка(ДатаЧисло(ДатаДок)));
//получение данных SQL
СтрокаСоединения="Provyder=SQLOLEDB.1;Password=987;Persyst Security Info=True; User ID=a;Initial Catalog=bk;Data Source=db";
Соединение=СоздатьОбъект("ADODB.Connection");
Соединение.Open(СтрокаСоединения);
Записи=СоздатьОбъект("ADODB.Command");
Записи.ActiveConnection=Соединение;
Записи.CommandTimeout = 180;
Записи.CommandType = 1;
Записи.CommandText = "exec [dbo].[un_forts4buh] @oper_date="+Д+"   recordset = Записи.Execute();
Пока recordset.EOF() = 0 Цикл
НоваяСтрока();
Код = recordset.Fields("client_code").VALUE;
Если Запрос.Выполнить(ТекстЗапроса) = 1 Тогда
Пока Запрос.Группировка(1) = 1 Цикл
Контрагент = Запрос.Контрагент
КонецЦикла;

Оставшаяся часть кода в принцыпе смысла не имеет тут - ибо дальше все работает

@puh14 · 16.11.2008, 16:13

Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса =
"//{{ЗАПРОС(Сформировать3)
|Период с (НачГода(ТекущаяДата())) по (ТекущаяДата());
|Без итогов;
|Контрагент = Справочник.Договоры.ТекущийЭлемент, Справочник.Договоры.Владелец;
|Договор = Справочник.Договоры.ТекущийЭлемент;
|Группировка Контрагент Без Групп;
|Условие(СокрЛП(Договор.Код) = СокрЛП(Сред(Код,2)));
|"//}}ЗАПРОС
;
Сред на код добавил исходя из обрезания первой буквы

@kyr · 16.11.2008, 16:24

неа. все равно Запрос.Группировка(1) = 0
Даже если в справочник договоров тупо копировать код чтобы было без обрезания - все равно Запрос.Группировка(1) = 0

@puh14 · 16.11.2008, 16:42

|Условие(Найти(СокрЛП(Договор.Код),СокрЛ П(Сред(Код,2)))>0);

@kyr · 16.11.2008, 17:20

Ща попробую с таким условием.
А пока ради интереса сделал:
Запрос.Выгрузить(ТаблицаНомеров,, 0);
ТаблицаНомеров.Выбратьстроку();
Что самое интересное - договор там есть нужный в списке (единственный), но все равно Запрос.Группировка(1) = 0

Так. теперь запрос такой:

Code
1
2
3
4
5
6
7
8
"//{{ЗАПРОС(Сформировать3)
|Период с (НачГода(ТекущаяДата())) по (ТекущаяДата());
|Без итогов;
|Контрагент = Справочник.Договоры.ТекущийЭлемент, Справочник.Договоры.Владелец;
|Договор = Справочник.Договоры.ТекущийЭлемент;
|Группировка Контрагент Без Групп;
|Условие(Найти(СокрЛП(Договор.Код),СокрЛП(Сред(Код,2)))>0);
|"//}}ЗАПРОС

обход такой:

Code
1
2
3
Пока Запрос.Группировка() = 1 Цикл
Контрагент = Запрос.Контрагент.Владелец;
КонецЦикла;

Но контрагента по прежнему не присваивает. контрагент.тип = СправочникСсылка.Контрагенты
загвоздка теперь с этим...

@puh14 · 16.11.2008, 17:48

Ты что! У тебя там не договор выводит, а сразу контрагента! На группировку глянь!

Пока Запрос.Группировка() = 1 Цикл
Контрагент = Запрос.Контрагент;
КонецЦикла;

@kyr · 17.11.2008, 09:23

Да. все. разобрался уже. Огромное спасибо! Сори за мучение. Лови свой выстраданный со мной плюсик

@kyr · 17.11.2008, 11:49

puh14, помоги плиз еще с еще одним условием, ибо с запросом жутко долго работать стало. Желательно ограничить договора только брокерскими. Вот так - не работает:
"//{{ЗАПРОС(Сформировать)
|Период с (НачГода(ТекущаяДата())) по (ТекущаяДата());
|Без итогов;
|Контрагент = Справочник.Договоры.ТекущийЭлемент, Справочник.Договоры.Владелец;
|Договор = Справочник.Договоры.ТекущийЭлемент;
|Вид = Справочник.ВидыДоговоров.ТекущийЭлемент, Справочник.Договоры.ВидДоговора;
|Группировка Контрагент Без Групп;
|Условие(Вид = Брокерский.ТекущийЭлемент());
|Условие(Найти(СокрЛП(Договор.Код),СокрЛ П(Сред(Код,2)))>0);
|"//}}ЗАПРОС
;

@puh14 · 17.11.2008, 11:56

Фильтр = Брокерский.ТекущийЭлемент();
"//{{ЗАПРОС(Сформировать)
|Период с (НачГода(ТекущаяДата())) по (ТекущаяДата());
|Без итогов;
|Контрагент = Справочник.Договоры.ТекущийЭлемент, Справочник.Договоры.Владелец;
|Договор = Справочник.Договоры.ТекущийЭлемент;
|Группировка Контрагент Без Групп;
|Условие(Договор.ВидДоговора = Фильтр);
|Условие(Найти(СокрЛП(Договор.Код),СокрЛ П(Сред(Код,2)))>0);
|"//}}ЗАПРОС

@kyr · 17.11.2008, 13:19

Пасиба. А как отследить срабатывает ли это условие?
И как, кстати, лучше сделать чтобы ускорить процесс? Просто у мя так: есть запрос в сиквельную базу - потом в цикле перебираю значения и в этом же цикле получается запрос к справочнику договоров. Т.е. получается что запрос к справочнику договоров выполняется столько раз сколько строк в результаке сиквельного запроса. Обычтно более двух сотен.

@puh14 · 17.11.2008, 13:30

ОТследить - выгрузкой результатов запроса в ТЗ и проверкой ручками, посмотри один из первых запросов, он там практически все параметры выдает.

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

|Условие (СокрЛП(Договор.Код) в СПС);// спс - список значений с отформатированными кодами.

@kyr · 18.11.2008, 10:52

puh14, можешь плиз попобробнее? правильно ли я тебя понял:
1. из запроса Сиквельного загружаю в табличку формы и список значений
2. далее делаю запрос с указанным тобой условием.
если два предыдущих пункта верны - тогда как мне загрузить значения полученные запросом в оставшиеся строки табличнки на форме?

Новые блоги и статьи Все статьи Все блоги /
Был там один разговор по поводу свободы в материальном мире. kumehtar 19.08.2026 Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .	Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .	Лето уходит kumehtar 17.08.2026	Мысли в слух kumehtar 17.08.2026 Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .
Перемещение строк из ТЧ в другой документ с учетом текущего пробега Maks 17.08.2026 Реализация из решения ниже выполнена на примере нетипового документа "Автозапчасти", с ТЧ "Шины". За основу взят алгоритм отсюда: https:/ / www. cyberforum. ru/ blogs/ 359708/ 10838. html Задача: . . .	Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .

@kyr 1 / 1 / 0 Регистрация: 04.12.2005 Сообщений: 1,588

	1c7.7 Справочник.Владелец - как уснановить? 11.11.2008, 11:57. Показов 88728. Ответов 56 Метки нет (Все метки) Народ, подскажите плиз как правильно задавать владельца. сделал так: Договор = СоздатьОбъект("Справочник.Договоры"); Договор.Владелец = Контрагент; Договор.НайтиПоКоду(Прав(Код,6)); Получаю ошибку - Договор.Владелец = Контрагент; {Документ.ЗагрузкаФОРТС.Модуль Документа(96)}: Не выбран элемент! пробовал также Договор.Владелец = Контрагент.ТекущийЭлемент(); Но результат тот же. Подскажите пожалуйста что делаю неправильно P.S. переменная Контрагент содержит значение - проверено отладчиком 0

@SyvyrBop 0 / 0 / 0 Регистрация: 14.09.2007 Сообщений: 428
	16.11.2008, 13:51
	Вот именно, блин надо определится с типами и крыжить!!! Я все комбинации пересмотрели и все работает!!! Я незнаю что у тебя там за барада! Я перепроверил и все ..... 0

@puh14 0 / 0 / 0 Регистрация: 07.07.2008 Сообщений: 1,401
	16.11.2008, 13:58
	гм - без группировки, хоть одной он тебе и вернет пустую табличку. Группировка нужна. Кстати - ты право и лево не попутал случаем? а то он у тебя с конца кусает - ежли 15 -ти значный код, то он тебе одни пробелы вернет. 0

@kyr 1 / 1 / 0 Регистрация: 04.12.2005 Сообщений: 1,588
	16.11.2008, 14:08
	Так код - это переменная, которая равна G500094 0

@puh14 0 / 0 / 0 Регистрация: 07.07.2008 Сообщений: 1,401
	16.11.2008, 14:15
	А если сообщить(СокрЛП(Прав(СокрЛП(Код),6))) что он покажет? Код таки уникален во всем справочнике? Ежли надо откусить только первый символ тогда проще НовыйКод = СокрЛП(Сред(Код,2)); 0

@kyr 1 / 1 / 0 Регистрация: 04.12.2005 Сообщений: 1,588
	16.11.2008, 14:28
	Код уникален во всем справочнике! Объясни плиз что одначает условие \|Условие(Договор.Код в Число(Прав(Код,6)))"; Попробовал так: "//{{ЗАПРОС(Сформировать3) \|Период с (НачГода(ТекущаяДата())) по (ТекущаяДата()); \|Без итогов; \|Контрагент = Справочник.Договоры.ТекущийЭлемент, Справочник.Договоры.Владелец; \|Договор = Справочник.Договоры.ТекущийЭлемент; \|Группировка Договор; \|Условие(СокрЛП(Договор.Код) = Код); Возвращает неправильного контрагента. Как можно посмотреть чему равен код в момент выполнения текста запроса? 0

@kyr 1 / 1 / 0 Регистрация: 04.12.2005 Сообщений: 1,588
	16.11.2008, 15:26
	Фух.. Я понял почему СпрКонтр.НайтиПоКоду(Прав(Код,6),0) возвращает ноль. Оказывается длинна кода аж 24!! символа. Не знаю кто и зачем это делал, но переделывать низзя. Действительно остается только запрос. Это верный обход результатов? Пока Запрос.Группировка(1) = 1 Цикл Контрагент = Запрос.Контагент; КонецЦикла Если да - тогда почему постоянно возвращается 0? 0

@puh14 0 / 0 / 0 Регистрация: 07.07.2008 Сообщений: 1,401
	16.11.2008, 16:13
	Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(Сформировать3) \|Период с (НачГода(ТекущаяДата())) по (ТекущаяДата()); \|Без итогов; \|Контрагент = Справочник.Договоры.ТекущийЭлемент, Справочник.Договоры.Владелец; \|Договор = Справочник.Договоры.ТекущийЭлемент; \|Группировка Контрагент Без Групп; \|Условие(СокрЛП(Договор.Код) = СокрЛП(Сред(Код,2))); \|"//}}ЗАПРОС ; Сред на код добавил исходя из обрезания первой буквы 0

@kyr 1 / 1 / 0 Регистрация: 04.12.2005 Сообщений: 1,588
	16.11.2008, 16:24
	неа. все равно Запрос.Группировка(1) = 0 Даже если в справочник договоров тупо копировать код чтобы было без обрезания - все равно Запрос.Группировка(1) = 0 0

@puh14 0 / 0 / 0 Регистрация: 07.07.2008 Сообщений: 1,401
	16.11.2008, 16:42
	\|Условие(Найти(СокрЛП(Договор.Код),СокрЛ П(Сред(Код,2)))>0); 0

@puh14 0 / 0 / 0 Регистрация: 07.07.2008 Сообщений: 1,401
	16.11.2008, 17:48
	Ты что! У тебя там не договор выводит, а сразу контрагента! На группировку глянь! Пока Запрос.Группировка() = 1 Цикл Контрагент = Запрос.Контрагент; КонецЦикла; 0

@kyr 1 / 1 / 0 Регистрация: 04.12.2005 Сообщений: 1,588
	17.11.2008, 09:23
	Да. все. разобрался уже. Огромное спасибо! Сори за мучение. Лови свой выстраданный со мной плюсик 0

@kyr 1 / 1 / 0 Регистрация: 04.12.2005 Сообщений: 1,588
	17.11.2008, 11:49
	puh14, помоги плиз еще с еще одним условием, ибо с запросом жутко долго работать стало. Желательно ограничить договора только брокерскими. Вот так - не работает: "//{{ЗАПРОС(Сформировать) \|Период с (НачГода(ТекущаяДата())) по (ТекущаяДата()); \|Без итогов; \|Контрагент = Справочник.Договоры.ТекущийЭлемент, Справочник.Договоры.Владелец; \|Договор = Справочник.Договоры.ТекущийЭлемент; \|Вид = Справочник.ВидыДоговоров.ТекущийЭлемент, Справочник.Договоры.ВидДоговора; \|Группировка Контрагент Без Групп; \|Условие(Вид = Брокерский.ТекущийЭлемент()); \|Условие(Найти(СокрЛП(Договор.Код),СокрЛ П(Сред(Код,2)))>0); \|"//}}ЗАПРОС ; 0

@puh14 0 / 0 / 0 Регистрация: 07.07.2008 Сообщений: 1,401
	17.11.2008, 11:56
	Фильтр = Брокерский.ТекущийЭлемент(); "//{{ЗАПРОС(Сформировать) \|Период с (НачГода(ТекущаяДата())) по (ТекущаяДата()); \|Без итогов; \|Контрагент = Справочник.Договоры.ТекущийЭлемент, Справочник.Договоры.Владелец; \|Договор = Справочник.Договоры.ТекущийЭлемент; \|Группировка Контрагент Без Групп; \|Условие(Договор.ВидДоговора = Фильтр); \|Условие(Найти(СокрЛП(Договор.Код),СокрЛ П(Сред(Код,2)))>0); \|"//}}ЗАПРОС 0

@kyr 1 / 1 / 0 Регистрация: 04.12.2005 Сообщений: 1,588
	17.11.2008, 13:19
	Пасиба. А как отследить срабатывает ли это условие? И как, кстати, лучше сделать чтобы ускорить процесс? Просто у мя так: есть запрос в сиквельную базу - потом в цикле перебираю значения и в этом же цикле получается запрос к справочнику договоров. Т.е. получается что запрос к справочнику договоров выполняется столько раз сколько строк в результаке сиквельного запроса. Обычтно более двух сотен. 0

@puh14 0 / 0 / 0 Регистрация: 07.07.2008 Сообщений: 1,401
	17.11.2008, 13:30
	ОТследить - выгрузкой результатов запроса в ТЗ и проверкой ручками, посмотри один из первых запросов, он там практически все параметры выдает. ускорить.... Попробуй загнать все номера договоров из запроса к сиквельной базе в список значений, а потом делай один запрос к договорам. условие будет выглядеть как \|Условие (СокрЛП(Договор.Код) в СПС);// спс - список значений с отформатированными кодами. 0

@kyr 1 / 1 / 0 Регистрация: 04.12.2005 Сообщений: 1,588
	18.11.2008, 10:52
	puh14, можешь плиз попобробнее? правильно ли я тебя понял: 1. из запроса Сиквельного загружаю в табличку формы и список значений 2. далее делаю запрос с указанным тобой условием. если два предыдущих пункта верны - тогда как мне загрузить значения полученные запросом в оставшиеся строки табличнки на форме? 0