Добрый день!
Нужно через com-объект выбрать подчиненные документы в базе 7.7. В приведенном ниже коде документы не отбираются, хотя они есть. Скорее всего, неправильно передаю третий параметр в ВыбратьПодчиненныеДокументы(). Как передать туда ссылку на документ?

ДокПоступления = ComОбъект77.CreateObject("Документ.ПоступлениеТоваров);
ДокПоступления.ВыбратьДокументы(Начало,Конец);
Пока ДокПоступления.ПолучитьДокумент()=1 Цикл
ДокИсточник = ДокПоступления.ТекущийДокумент();
....                                                ДокПодч = ComОбъект77.CreateObject("Документ.ПоступлениеТоваров");
                                                ДокПодч.ВыбратьПодчиненныеДокументы(ДокИсточник.ДокументОснование,, ДокИсточник.ДокументОснование);
.....

а типы первых двух параметров - смотрели в СП?
или как всегда?

(1) смотрела. Они могут быть датой, документом или позицией. Я предаю документ и датуу

упс, последняя строка должна выглядеть так
ДокПодч.ВыбратьПодчиненныеДокументы(ДокИсточник.ДокументОснование,ТекущаяДата(), ДокИсточник.ДокументОснование);

(2) боюсь, что туда передается далеко не позиция, а оде-объект

(4) для теста передала туда дату. нов сё равн не отбираются документы
ДокПодч.ВыбратьПодчиненныеДокументы(НачалоГода(ТекущаяДата()),ТекущаяДата(), ДокИсточник.ДокументОснование);

(5) убери типизацию ДокПодч

(6) ДокПодч = ComОбъект77.CreateObject("Документ");

Да, с типизацией была ошибка. Убрала, но ноль эффекта.

(7) а если даты попробовать литералами передать?

(8) так? эффект тот же
ДокПодч.ВыбратьПодчиненныеДокументы('20160101','20161231', ДокИсточник.ДокументОснование);

(8) сдался?(

Используй внешние отчеты

БД.ОткрытьФормуМодально("Отчет",ПараметрыДляОтчета,ПутьКВнешнемуОтчету);
Ошибка при передаче параметров запроса по OLE

Задание условия в запросе через OLE

(11) не могу, мне нужно в существующей обработке подправить пару моментов, не меняя при этом особо код

а, так это способ отладки...

Ны дык используй внешний отчет для этих моментов. Никто же не заставляет тебя все переписывать

(0)
Какие именно документы ты хочешь выбрать у ДокОснование в приходной накладной ?

я думаю, надо сначала найти в 7.7 сам документ ДокИсточник.ДокументОснование. и его уже передавать в 3им

(15) конфа не типовая, самописная. все подчинённые надо выбрать

(17) Например, что именно ?

1. На основании какого документа у вас оформлено ПоступлениеТМЦ, раз в нём есть реквизит ДокОснование, в ДокОснование, что у вас ?
2.Какие именно виды документов вы хотите получить в подчиненных документах у этого ДокОснования ?

Ответишь на эти вопросы - будешь решать другую задачу, а не тот бред (не Пит) что в (0).

(16) А главное, что во внешнем отчете сначала отладишь все в базе без COM, а затем этот же отчет вызовешь по COM

(19) 1. На основании ПоступленияТоваров выписывается ПоступлениеТоваров, могут быть выписаны документы, например, Сторно.
2. Задача в том, чтобы убедиться, что основании ПоступленияТоваров нет ни одного ПоступленияТоваров, иные документы допускаются.

не понимаю, почему не работает
ДокОсн  =  ComОбъект77.CreateObject("Документ.ПоступлениеТоваров");
                                                Сообщить(ДокОсн.НайтиПоНомеру(СокрЛП(ДокИсточник.ДокументОснование.НомерДок)));

возвращает 0, при этом ДокИсточник.ДокументОснование.НомерДок заполнено

(23) дату укажи во втором параметре

(23) а периодичность номера?

(22) ересь какая. У тебя уже есть ссылка на документ в Документе. Зачем еще что-то проверять ?

(26) это ссылка из документа Строно. а мне нужно убедиться, что кроме сторно у оснвоания больше нет подчинённых документов

Давай проще.

У тебя есть Поступление1 и Поступление2, в котором реквизит ДокОснование = Поступление1.

Вопрос. Зачем ты делаешь ВыбратьПодчиненныеДокументы для ДокОснование=Поступление1 ?

Чтоб найти помимо Поступление2 еще что-то ?

>>>
На основании ПоступленияТоваров выписывается ПоступлениеТоваров

>>>
Что основании ПоступленияТоваров нет ни одного ПоступленияТоваров, иные документы допускаются.

Где правда ?

(24) спасибо!!!!!! у меня всё заработало как надо!

(29) >>>
На основании ПоступленияТоваров выписывается ПоступлениеТоваров
ДокИсточник.ДокументОснование.НомерДок

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

Но это уже не важно. Нужно было сначала найти сам документ основание в 7.7, а потом уже искат ему подчинённые.

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

вот эта быстро работает

Функция глВыбратьПодчиненныеДокументы(ДатаНач,ДатаКон,Док,ТипДок="",Проведен="") Экспорт
    Сервис1С = СоздатьОбъект("MetaDataWork");
    Запрос1С = СоздатьОбъект("ODBCRecordSet");
    СкульЗапрос="
    |SELECT
    | TabJ.IDDOC,
    | TabJ.IDDOCDEF
    |FROM
    | _1SCRDOC As TabRod(NOLOCK)
    |INNER JOIN
    | _1SJOURN As TabJ(NOLOCK) ON (TabRod.CHILDID = TabJ.IDDOC)
    |WHERE
    | TabRod.MDID = 0 -- только документы, без граф отбора
    | AND TabRod.PARENTVAL = '"+Сервис1С.ЗначениеВСамуюДлиннуюСтрокуБД(Док.ТекущийДокумент())+"'
    |";
    Если ПустоеЗначение(ДатаНач)=0 Тогда
        СкульЗапрос=СкульЗапрос+"
        |and DATE_TIME_IDDOC>='"+Сервис1С.ПолучитьСтрИзДаты(ДатаНач)+"'
        |";
    КонецЕсли;
    Если ПустоеЗначение(ДатаКон)=0 Тогда
        СкульЗапрос=СкульЗапрос+"
        |and DATE_TIME_IDDOC<'"+Сервис1С.ПолучитьСтрИзДаты(ДатаКон+1)+"'
        |";
    КонецЕсли;
    Если ТипДок<>"" Тогда
        СкульЗапрос=СкульЗапрос+"
        |and IDDOCDEF='"+Сервис1С.ИДДокумента(ТипДок)+"'
        |";
    КонецЕсли;
    Если Проведен=1 Тогда
        СкульЗапрос=СкульЗапрос+"
        |and CLOSED=1
        |";
    КонецЕсли;
    СкульЗапрос=СкульЗапрос+"
    |ORDER BY
    |TabRod.CHILD_DATE_TIME_IDDOC
    |";
    ТЗЗапрос =СоздатьОбъект("ТаблицаЗначений");
    ТЗ =СоздатьОбъект("ТаблицаЗначений");
    ТЗ.НоваяКолонка("Док");
    Запрос1С.Подготовить(СкульЗапрос);
    Если Запрос1С.Открыть()=1 Тогда
        Запрос1С.ПолучитьРезультатыВ_ТЗ(ТЗЗапрос,1);
        ТЗЗапрос.ВыбратьСтроки();
        Пока ТЗЗапрос.ПолучитьСтроку() = 1 Цикл
            ТЗ.НоваяСтрока();
            ТЗ.Док=Сервис1С.ЗначениеИзСтрокиБД(12,ТЗЗапрос.IDDOCDEF,ТЗЗапрос.IDDOC);
        КонецЦикла;
        Запрос1С.Закрыть();
        Возврат ТЗ;
    Иначе
        Возврат 0;
    КонецЕсли;
КонецФункции

(33)
у автора:
а) оле запрос к сторонней базе
б) не факт что в скуле