v7: Подчиненные документы

Вот так надо :)

////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//Проведен: 1 - отберать по проведенным,
//            0 - не учитывать (если ""БезУдаленых = 0"", то отбераются все документы)
//БезУдаленых:  1 - отбераются не помеченные на удаления,
//                2 - отбираются только помеченные на удаления, 0 - не учитывать
//Параметры "Проведен" и "БезУдаленых", при не нулевом значении, отрабатывают совместно по принципу "ИЛИ".
//
//Порядок: 0 - Сортровать по возрастанию, 1 - Сортировать по Убыванию.
//
//ВремяДатаТайм: 0 - Отбирать документ, как Дату и время (ИД документа не учитывается)... 1 - Учитывается еще и ИД документа
Функция глВыбратьПодчиненныеДокументы(ДатаНач,ДатаКон,Док,ТипДок="",Проведен=0,БезУдаленых=0,Порядок=0,ВремяДатаТайм=1) Экспорт
    Перем Рез;
    Перем ТЗЗапрос, СкульЗапрос;
    Перем СтрокаДляЗапроса, НомСимв, КолСимв, СтрокПоиск,СтрокПолуч;
    Перем МетаНомер, ЧтоЭто;

    //Для локального применения
    //глRecord1С = СоздатьОбъект("ODBCRecordSet");
    //глMeta1С = СоздатьОбъект("MetaDataWork");

    Если ТипЗначенияСтр(глRecord1С) <> "ODBCRecordSet" Тогда
        глRecord1С = 0;
        глRecord1С = СоздатьОбъект("ODBCRecordSet");
    КонецЕсли;

    Если ТипЗначенияСтр(глMeta1С) <> "MetaDataWork" Тогда
        глMeta1С = 0;
        глMeta1С = СоздатьОбъект("MetaDataWork");
    КонецЕсли;

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

    Если глОтладкаSQL = 1 Тогда
        глRecord1С.Отладка(1);
    КонецЕсли;

    СкульЗапрос="
    |SET NOCOUNT ON
    //|set LANGUAGE russian
    |
    |SELECT
    | dbo.sp_tohex(TabJ.IDDOCDEF,4)+TabJ.IDDOC [Док $Документ]
    |FROM
    | _1SCRDOC As TabRod(NOLOCK)
    |INNER JOIN
    | _1SJOURN As TabJ(NOLOCK) ON (TabRod.CHILDID = TabJ.IDDOC)
    |WHERE
    | TabRod.MDID = 0 -- только документы, без граф отбора
    | AND TabRod.PARENTVAL = '"+глMeta1С.ЗначениеВСамуюДлиннуюСтрокуБД(Док.ТекущийДокумент())+"'
    |";
    Если ПустоеЗначение(ДатаНач)=0 Тогда
        МетаНомер = "";
        Если ТипЗначения(ДатаНач) = 12 Тогда //Документ
            Если ВремяДатаТайм = 0 Тогда
                МетаНомер = ""+глMeta1С.ПолучитьДатуВремяИдДок(ДатаНач.ПолучитьПозицию());
            Иначе
                МетаНомер = ""+глMeta1С.ПолучитьДатуВремяИдДок(ДатаНач.ПолучитьПозицию())+глMeta1С.ЗначениеВСтрокуБД(ДатаНач.ТекущийДокумент());
            КонецЕсли;
        ИначеЕсли ТипЗначения(ДатаНач) = 3 Тогда //3 - тип данных Дата;
            МетаНомер = ""+глMeta1С.ПолучитьСтрИзДаты(ДатаНач);
        ИначеЕсли ПустоеЗначение(Дата(ДатаНач)) = 0 Тогда
            МетаНомер = ""+глMeta1С.ПолучитьСтрИзДаты(Дата(ДатаНач));
        КонецЕсли;
        Если ПустоеЗначение(МетаНомер) = 0 Тогда
               СкульЗапрос=СкульЗапрос+"
               |and TabJ.DATE_TIME_IDDOC>='"+МетаНомер+"'
            |";
        КонецЕсли;
    КонецЕсли;
    Если ПустоеЗначение(ДатаКон)=0 Тогда
        МетаНомер = "";
        Если ТипЗначения(ДатаКон) = 12 Тогда //Документ
            Если ВремяДатаТайм = 0 Тогда
                МетаНомер = ""+глMeta1С.ПолучитьДатуВремяИдДок(ДатаКон.ПолучитьПозицию())+"Z";
            Иначе
                МетаНомер = ""+глMeta1С.ПолучитьДатуВремяИдДок(ДатаКон.ПолучитьПозицию())+глMeta1С.ЗначениеВСтрокуБД(ДатаКон.ТекущийДокумент());
            КонецЕсли;
        ИначеЕсли ТипЗначения(ДатаНач) = 3 Тогда //3 - тип данных Дата;
            МетаНомер = ""+глMeta1С.ПолучитьСтрИзДаты(ДатаКон)+"Z";
        ИначеЕсли ПустоеЗначение(Дата(ДатаНач)) = 0 Тогда
            МетаНомер = ""+глMeta1С.ПолучитьСтрИзДаты(Дата(ДатаНач))+"Z";
        КонецЕсли;
        Если ПустоеЗначение(МетаНомер) = 0 Тогда
               СкульЗапрос=СкульЗапрос+"
               |and TabJ.DATE_TIME_IDDOC<='"+МетаНомер+"'
            |";
        КонецЕсли;
    КонецЕсли;
    Если ПустоеЗначение(СокрЛП(ТипДок)) = 0 Тогда
        СтрокПоиск = СокрЛП(ТипДок);
        КолСимв       = СтрЧислоВхождений(СтрокПоиск,",");
        Если КолСимв <> 0 Тогда
            КолСимв = КолСимв + 1;
            СтрокаДляЗапроса = "";
            Пока КолСимв <> 0 Цикл

                Если КолСимв = 1 Тогда //Он один
                    СтрокПолуч = СокрЛП(СтрокПоиск);
                Иначе
                    НомСимв       = Найти(СтрокПоиск,",");
                    Если НомСимв = 0 Тогда
                        Сообщить("Ошибка в разборе команды: "+ТипДок);
                    КонецЕсли;
                    СтрокПолуч = СокрЛП(Сред(СтрокПоиск,1,НомСимв-1));
                    СтрокПоиск = СокрЛП(Сред(СтрокПоиск,НомСимв+1));
                КонецЕсли;

                Если ПустоеЗначение(СтрокПолуч) = 0 Тогда
                    ЧтоЭто = ЭтоЧисло(СтрокПолуч);
                    Если СуществуетТакойВидДок(ЧтоЭто) = 1 Тогда
                        МетаНомер = глMeta1С.ИДДокумента(ЧтоЭто);
                        СтрокаДляЗапроса = СтрокаДляЗапроса + ?(ПустоеЗначение(СтрокаДляЗапроса)=1,"",",") + "'"+МетаНомер+"'";
                    КонецЕсли;
                КонецЕсли;

                КолСимв = КолСимв - 1;
            КонецЦикла;
            Если ПустоеЗначение(СтрокаДляЗапроса) = 0 Тогда
                СкульЗапрос=СкульЗапрос+"
                |and TabJ.IDDOCDEF in ("+СтрокаДляЗапроса+")
                |";  // '"+глMeta1С.ИДДокумента(ТипДок)+"'
            КонецЕсли;
        Иначе
            МетаНомер  = "";
            СтрокПолуч = СокрЛП(ТипДок);

            Если ПустоеЗначение(СтрокПолуч) = 0 Тогда
                ЧтоЭто = ЭтоЧисло(СтрокПолуч);
                Если СуществуетТакойВидДок(ЧтоЭто) = 1 Тогда
                    МетаНомер = глMeta1С.ИДДокумента(ЧтоЭто);
                    СтрокаДляЗапроса = СтрокаДляЗапроса + ?(ПустоеЗначение(СтрокаДляЗапроса)=1,"",",") + "'"+МетаНомер+"'";
                КонецЕсли;
            КонецЕсли;

            Если ПустоеЗначение(МетаНомер) = 0 Тогда
                СкульЗапрос=СкульЗапрос+"
                |and TabJ.IDDOCDEF='"+МетаНомер+"'
                |";
            КонецЕсли;
        КонецЕсли;
    КонецЕсли;
    Если Проведен = 1 Тогда
        Если БезУдаленых = 1 Тогда
            СкульЗапрос=СкульЗапрос+"
            |and (((TabJ.CLOSED & 1) = 1) or (TabJ.IsMark = 0))
            |";
        ИначеЕсли БезУдаленых = 2 Тогда
            СкульЗапрос=СкульЗапрос+"
            |and (((TabJ.CLOSED & 1) = 1) or (TabJ.IsMark <> 0))
            |";
        Иначе
            СкульЗапрос=СкульЗапрос+"
            |and ((TabJ.CLOSED & 1) = 1)
            |";
        КонецЕсли;
    Иначе
        Если БезУдаленых = 1 Тогда
            СкульЗапрос=СкульЗапрос+"
            |and (TabJ.IsMark = 0)
            |";
        ИначеЕсли БезУдаленых = 2 Тогда
            СкульЗапрос=СкульЗапрос+"
            |and (TabJ.IsMark <> 0)
            |";
        КонецЕсли;
    КонецЕсли;
    СкульЗапрос=СкульЗапрос+"
    |ORDER BY
    |TabRod.CHILD_DATE_TIME_IDDOC "+?(Порядок=0,"ASC","DESC")+"
    |";

    Если глRecord1С.Подготовить(СкульЗапрос)=0 Тогда
        Сообщить("Запрос не прошел "+глRecord1С.ПолучитьОписаниеОшибки()+"
        |"+СкульЗапрос,"!");
        Возврат Рез;
    КонецЕсли;

    ТЗЗапрос = 0;
    ТЗЗапрос = СоздатьОбъект("ТаблицаЗначений");
    Попытка
        ЗначСпс = глRecord1С.ВыполнитьИнструкцию(,ТЗЗапрос,1);
    Исключение
        Сообщить("ВыполнитьИнструкцию: "+ОписаниеОшибки());
    КонецПопытки;

    Попытка
        глRecord1С.Закрыть();
    Исключение
        Сообщить("Закрыть SQL запрос: "+ОписаниеОшибки());
    КонецПопытки;

    Если ТипЗначенияСтр(ТЗЗапрос) <> "ТаблицаЗначений" Тогда
        Сообщить("Нет нужного параметра!","!");
    ИначеЕсли ТЗЗапрос.КоличествоКолонок() = 0 Тогда
        ТЗЗапрос.НоваяКолонка("Док","Документ");
        Сообщить("Запрос не выполнен:
        |"+СкульЗапрос,"!");
    Иначе
        Рез = ТЗЗапрос;
    КонецЕсли;

    Возврат Рез;
КонецФункции