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

  • Автор темы KiR
  • Дата начала
S

SeverBap

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

puh14

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

KiR

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

puh14

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


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

KiR

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

puh14

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

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

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

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



Bap
Пока СпрКонтр.НайтиПоКоду(СокрЛП(Прав(СокрЛП(Код),6)),0)=1 Цикл
Нажмите, чтобы раскрыть...

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

KiR

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

puh14

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

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

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

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

KiR

Код: 
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса = 
"//{{ЗАПРОС(Сформировать3)
|Период с (НачГода(ТекущаяДата())) по (ТекущаяДата());
|Без итогов;
|Контрагент = Справочник.Договоры.ТекущийЭлемент, Справочник.Договоры.Владелец;
|Договор = Справочник.Договоры.ТекущийЭлемент;
|Группировка Контрагент;	 
|Группировка Договор;
|Условие(СокрЛП(Договор.Код) = Код);
|"//}}ЗАПРОС
;
Д = Строка(ДатаГод(ДатаДок));
Д = ?(ДатаМесяц(ДатаДок)<10,Д +"0" + Строка(ДатаМесяц(ДатаДок)),Д + Строка(ДатаМесяц(ДатаДок)));
Д = ?(ДатаЧисло(ДатаДок)<10,Д +"0" + Строка(ДатаЧисло(ДатаДок)),Д + Строка(ДатаЧисло(ДатаДок)));
//получение данных SQL 
СтрокаСоединения="Provider=SQLOLEDB.1;Password=987;Persist 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 Цикл
Контрагент = Запрос.Контрагент
КонецЦикла;
Оставшаяся часть кода в принцыпе смысла не имеет тут - ибо дальше все работает
 
P

puh14

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

KiR

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

puh14

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

KiR

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

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

puh14

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

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

KiR

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

KiR

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

puh14

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

KiR

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

puh14

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

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

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

KiR

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

Обучение наступательной кибербезопасности в игровой форме. Начать игру!

Верх Низ