Здравствуйте. Помогите пожалуйста разобраться в использовании бух.итогов посредством OLE-соединения.
У меня есть две базы неидентичные. Из одной базы в другую подключаюсь и пытаюсь использовать бух.итоги. В базе, к которой подключаюсь, использую следующий код, который работает верно:

ВСчет = ВыбСчет79;
БИ=СоздатьОбъект("БухгалтерскиеИтоги");
БИ.ИспользоватьСубконто(ВидыСубконто.Подразделения,Подразделение);
БИ.ВыполнитьЗапрос(НачДата,КонДата,ВыбСчет79,,,,"Проводка");
БИ.ВыбратьПериоды();
Пока БИ.ПолучитьПериод()=1 Цикл
флД=0;
флК=0;
//ДебИт - дабы не зацензурено было
Если (БИ.Операция.Дебит.Счет=Всчет) и (БИ.Операция.Кредит.Счет=Всчет) Тогда
Если БИ.Операция.Дебит.Субконто(1)<>Подразделение Тогда
флД=1;
КонецЕсли;
Если БИ.Операция.Кредит.Субконто(1)<>Подразделение Тогда
флК=1;
КонецЕсли;
КонецЕсли;
КонецЦикла;

При подключении использую следующий код:

БазаОле = СоздатьОбъект("V77.Application");
.......
ВыбСчет79 = БазаОле.CreateObject("Счет");
Если ВыбСчет79.НайтиПоКоду("79.2.1") = 1 Тогда
ВСчет = ВыбСчет79.ТекущийСчет();
КонецЕсли;
справПодр = БазаОле.CreateObject("Справочник.Подразделения");
справПодр.ВыбратьЭлементы();
Пока справПодр.ПолучитьЭлемент() = 1 Цикл
Вхожд = найти(справПодр.Наименование, "МоеПодразделение");
Если Вхожд > 0 Тогда
Подразделение = справПодр.ТекущийЭлемент();
Прервать;
КонецЕсли;
КонецЦикла;
БИ = БазаОле.CreateObject("БухгалтерскиеИтоги");
ВидСубкПодрОле = БазаОле.ВидыСубконто.Подразделения;
БИ.ИспользоватьСубконто(ВидСубкПодрОле, Подразделение);
БИ.ВыполнитьЗапрос(НачДата,КонДата,ВСчет,,,1,"Проводка",);
БИ.ВыбратьПериоды(0,0,0,0);
Пока БИ.ПолучитьПериод()=1 Цикл
флД=0;
флК=0;
Если (БИ.Операция.Дебит.Счет=Всчет) и (БИ.Операция.Кредит.Счет=Всчет) Тогда
Если БИ.Операция.Дебит.Субконто(1)<>Подразделение Тогда
флД=1;
КонецЕсли;
Если БИ.Операция.Кредит.Субконто(1)<>Подразделение Тогда
флК=1;
КонецЕсли;
КонецЕсли;
КонецЦикла;

Дальше в код не вдаюсь. В базе, к которой подключаюсь, код отрабатывает по определенному подразделению. Во втором случае подразделение не проходит и перебирает все бух.итоги. Подскажите пожалуйста, где ошибка?
Заранее спасибо.

Программист 1сА почему нельзя справПодр.НайтиПоНаименованию()? Вместо цикла.

И глупый вопрос " МоеПодразделение" Может кавычки надо убрать?

справПодр.НайтиПоНаименованию() нельзя потому, что неизвестно конкретное наименование и ищем по части наименования.
"МоеПодразделение" кавычки убрать нельзя, потому что это часть наименования, по которой мы ищем

AHDPВидСубкПодрОле - передаёте из другой базы? Скорее всего тут ошибка. Обращайтесь через метаданные родной конфигурации.
Для чего обращаться через метаданные родной базы, если ВидыСубконто необходимо использовать базы Оle? Запрос же идет в ole базу с ole данными

AHDPРодное для базы исполнения.
Прошу прощения, не дошло сразу. Через метаданные родной базы устанавливаю ВидСубконто и использую его, но точно так же отрисовывает результат

KreontsaЕще при подключении через ОЛЕ истина/ложь не всегда равны 0 и 1!
Например здесь:
Вхожд = найти(справПодр.Наименование, "МоеПодразделение");
Если Вхожд > 0 Тогда
и т.д.
Проверь через сообщить(Вхожд).
Вхожд отрабатывает верно, справПодр.Наименование находит "МоеПодразделение" и выводит сообщение, что объект найден.

KreontsaТак же при соединении через ОЛЕ лучше указывать все параметры, здесь например:
БИ = БазаОле.CreateObject("БухгалтерскиеИтоги");
ВидСубкПодрОле = БазаОле.ВидыСубконто.Подразделения;
БИ.ИспользоватьСубконто(ВидСубкПодрОле, Подразделение);
БИ.ВыполнитьЗапрос(НачДата,КонДата,ВСчет,,,1,"Проводка",);
в последней строке правильно надо указать все параметры, так как значения по умолчанию могут неправильно передаваться.
Все параметры передаю, которые по умолчанию должны ставиться

KreontsaА "Подразделение" нету на форме например как реквизит?
нет, справочник

Kreontsaне все, важно как раз даже те что по умолчанию можно не задавать, их надо для ОЛЕ явно указывать,см.:
ВыполнитьЗапрос(<НачалоПериода>,<КонецПериода>,<Счет>,<КоррСчет>,<Валюта>,<ТипИтогов>,<Периодичность>,<ТипСуммы>)
а в коде:
БИ.ВыполнитьЗапрос(НачДата,КонДата,ВСчет,,,1,"Проводка",);
если все, тогда вроде что так для сумм будет:
БИ.ВыполнитьЗапрос(НачДата,КонДата,ВСчет,"","",1,"Проводка",1);
Имею в виду, что уже пробовалось ставить все параметры

KreontsaТо есть все таки на форме есть реквизит с именем "Подразделение"?
Если да, тогда в коде изменить Подразделение на ПодразделениеОЛЕ.
нет, имею в виду (неточно написано), что на форме нет реквизитов вообще, только кнопка для соединения и подсчета =)

KreontsaВот здесь еще нету всех реквизитов:
БИ.ИспользоватьСубконто(ВидСубкПодрОле, Подразделение);
=>
БИ.ИспользоватьСубконто(ВидСубкПодрОле, Подразделение,1,0);
или
БИ.ИспользоватьСубконто(ВидСубкПодрОле, Подразделение,2,0);
да, здесь первый вариант использую

Kreontsa, уже все варианты пробую, что вижу и приходят на ум, голова перестала думать) и тот и другой варианты не проходят

Kreontsa, кстати, может быть у Вас есть icq или skype и чуть времени, чтобы общаться было проще?

Kreontsa, большое спасибо за помощь) выручили)