Как убрать из Отчёта обращение к серверу??

Процедура ОсновныеДействияФормыОсновныеДействияФормыВыполнить(Кнопка)

Перем ТбТаб,ТбКонтрагенты,ТбПериоды;
    Если не ЗначениеЗаполнено(ВыбНоменклатура) и не ЗначениеЗаполнено(ВыбШтрихкод) Тогда
        Предупреждение("Не указан штриход или Номенклатура");
        Возврат;
    КонецЕсли;



    ТбБаза=новый ТаблицаЗначений;
    ТбБаза.Колонки.Добавить("code");
    ТбБаза.Колонки.Добавить("doc");
    ТбБаза.Колонки.Добавить("contr");
    ТбБаза.Колонки.Добавить("sklad");
    ТбБаза.Колонки.Добавить("codenom");

    Тб=новый ТаблицаЗначений;
    Тб.Колонки.Добавить("СерийныйНомер");
    Тб.Колонки.Добавить("Дат");
    Тб.Колонки.Добавить("Прим");
    Тб.Колонки.Добавить("Период");
    Тб.Колонки.Добавить("Контрагент");
    Тб.Колонки.Добавить("Товар");
    Тб.Колонки.Добавить("Сумма");

    ИмяСервера="main";
    ИмяБазы=?(ФЛПрипейд,"pri","bas");
    стрПодключения = "driver={SQL Server};server=main;User Id='sa';Password='19216801sql';database="+ИмяБазы+";trusted_connection=no";

    АДОДБКоннект = Новый COMОбъект("ADODB.Connection");
    АДОДБКоннект.ConnectionTimeOut =300;
    АДОДБКоннект.CursorLocation = 2;    //adUseServer
    Попытка
        АДОДБКоннект.Open(стрПодключения);
        //Сообщить("Соединение с SQL-сервером " + ИмяСервера + " осуществлено в "+ТекущаяДата());
    Исключение

        Предупреждение("Невозможно установить соединение с SQL-сервером " + ИмяСервера+ ОписаниеОшибки());
        АДОДБКоннект.Close();
        Возврат;
    КонецПопытки;

    Command = Новый COMОбъект("ADODB.Command");
    Command.ActiveConnection = АДОДБКоннект;

    _us=ИмяПользователя();

    //*---- удалить врем данные
    ТекстЗапроса = "delete from uscode where us='"+_us+"'";
    Command.CommandText      = ТекстЗапроса;
    RecordSet = Command.Execute();

    ТекстЗапроса = "SELECT * FROM sn where CHARINDEX(SUBSTRING(doc,9,2),'ПО/ПЕ/РЕ')>0 ";

    Если ЗначениеЗаполнено(ВыбНоменклатура) Тогда
        Если ВыбНоменклатура.ЭтоГруппа Тогда
            //ТекстЗапроса=ТекстЗапроса+" and ([codenom]='"+СокрЛП(ВыбНоменклатура.Код)+"' )";
        Иначе
            ТекстЗапроса=ТекстЗапроса+" and ([codenom]='"+СокрЛП(ВыбНоменклатура.Код)+"' )";
        КонецЕсли
    КонецЕсли;

    //*---- удалить врем данные
    Если ЗначениеЗаполнено(ВыбШтрихкод) Тогда
        текст = Новый ТекстовыйДокумент;
        _СерийнНомер=СокрЛП(ВыбШтрихкод);
        _Строка="";
        _Строка=_Строка+СтрЗаменить(_us,";","")+";";
        _Строка=_Строка+СтрЗаменить(_СерийнНомер,";","");
        Текст.ДобавитьСтроку(_Строка);

        ИмяCSV=КаталогВременныхФайлов()+_us+".csv";
        Текст.Записать(ИмяCSV,КодировкаТекста.OEM);

        Состояние("Выполняется SQL запрос .....");

        ТекстЗапросаУдаление = "BULK INSERT uscode FROM '"+ИмяCSV+"' WITH (CHECK_CONSTRAINTS,DATAFILETYPE='widechar',FIELDTERMINATOR=';', ROWTERMINATOR='\n',KEEPIDENTITY,TABLOCK);";
        Command.CommandText      = ТекстЗапросаУдаление;
        RecordSet = Command.Execute();

        ТекстЗапроса=ТекстЗапроса+" and ([code] in (select [code] from ["+ИмяБазы+"].[dbo].[uscode] where us='"+_us+"'))";

        //ТекстЗапроса = "SELECT * FROM sn where CHARINDEX(SUBSTRING(doc,9,2),'ПО/ПЕ/РЕ')>0 and ([code] in (select [code] from ["+ИмяБазы+"].[dbo].[uscode] where us='"+_us+"')) order by code";
    Конецесли;
    ТекстЗапроса=ТекстЗапроса+" order by code";

    Command.CommandText      = ТекстЗапроса;
    RecordSet = Command.Execute();

    УдалитьФайлы(КаталогВременныхФайлов(),_us+".csv");

    Состояние("Выполняется обработка SQL запроса .....");

    пока не RecordSet.eof Цикл
        ОбработкаПрерыванияПользователя();

        Если ФлПеремещения или ФлРеализация или ФлПоступления Тогда
            _ок=Ложь;
            Если ФлПеремещения и Сред(RecordSet.fields("Doc").value,9,2)="ПЕ" Тогда
                _ок=Истина;
                Если ЗначениеЗаполнено(ВыбСкладКому) Тогда
                    Если Найти(ВРЕГ(RecordSet.fields("Contr").value),ВРЕГ(ВыбСкладКому.Наименование))=0 Тогда
                        _ок=Ложь;
                    КонецЕсли;
                КонецЕсли;
            КонецЕсли;
            Если ФлРеализация и Сред(RecordSet.fields("Doc").value,9,2)="РЕ" Тогда
                _ок=Истина;
                Если ЗначениеЗаполнено(ВыбКонтрагент) Тогда
                    Если Найти(ВРЕГ(RecordSet.fields("Contr").value),ВРЕГ(ВыбКонтрагент.Наименование))=0 Тогда
                        _ок=Ложь;
                    КонецЕсли;
                КонецЕсли;
            КонецЕсли;
            Если ФлПоступления и Сред(RecordSet.fields("Doc").value,9,2)="ПО" Тогда
                _ок=Истина;
                Если ЗначениеЗаполнено(ВыбПоставщик) Тогда
                    Если Найти(ВРЕГ(RecordSet.fields("Contr").value),ВРЕГ(ВыбПоставщик.Наименование))=0 Тогда
                        _ок=Ложь;
                    КонецЕсли;
                КонецЕсли;
            КонецЕсли;
            Если не _ок Тогда
                RecordSet.movenext();
                Продолжить;
            КонецЕсли;
        КонецЕсли;

        Тбстр=ТбБаза.Добавить();
        Тбстр.code=RecordSet.fields("code").value;
        Тбстр.doc=RecordSet.fields("Doc").value;
        Тбстр.Contr=RecordSet.fields("Contr").value;
        Тбстр.Sklad=RecordSet.fields("Sklad").value;
        Тбстр.codenom=RecordSet.fields("codenom").value;
        RecordSet.movenext();
    КонецЦикла;
    ТбБаза.Сортировать("code");

    ТабДок = Новый ТабличныйДокумент;
    Макет = ПолучитьМакет("Макет");
    // печать производится на языке, указанном в настройках пользователя
    КодЯзыкаПечать = Локализация.ПолучитьЯзыкФормированияПечатныхФорм(УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(глЗначениеПеременной("глТекущийПользователь"), "РежимФормированияПечатныхФорм"));
    Макет.КодЯзыкаМакета = КодЯзыкаПечать;

    // Заголовок
    ВыбДокумент="";
    ВыбСклад="";
    Область=Макет.ПолучитьОбласть("Заголовок");
    Область.Параметры.ПечНоменклатура=ВыбНоменклатура;
    Область.Параметры.ПечШтрихкод=ВыбШтрихкод;
    Область.Параметры.ПечДок=ВыбДокумент;
    Область.Параметры.ПечСклад=ВыбСклад;
    Область.Параметры.НачДата=Формат(НачПериода,"ДФ=dd.MM.yyyy");
    Область.Параметры.КонДата=Формат(КонПериода,"ДФ=dd.MM.yyyy");
    ТабДок.Вывести(Область);
    Ном=0;
    Для Каждого СтрТбСтр из ТбБаза Цикл
        Ном=Ном+1;
        Состояние("Вывод таблицы: "+Ном+" из "+ТбБаза.Количество()+" строк .....");
        ОбработкаПрерыванияПользователя();
        НоменклатураСсылка=Справочники.Номенклатура.НайтиПоКоду(СтрТбСтр.codenom);
        Если НоменклатураСсылка=Справочники.Номенклатура.ПустаяСсылка() Тогда
            Сообщить("Не найден товар с кодом :"+СтрТбСтр.codenom);
        КонецЕсли;


        ВидДок="";
        Если  Сред(СтрТбСтр.doc,9,2)="ПО" Тогда
            ВидДок="Поступление";
        ИначеЕсли  Сред(СтрТбСтр.doc,9,2)="ПЕ" Тогда
            ВидДок="Перемещение";
        ИначеЕсли  Сред(СтрТбСтр.doc,9,2)="РЕ" Тогда
            ВидДок="Реализация";
        КонецЕсли;
        НомерДок=Сред(СтрТбСтр.doc,11);
        ДатаДокСтр=Сред(СтрТбСтр.doc,7,2)+"."+Сред(СтрТбСтр.doc,5,2)+"."+Сред(СтрТбСтр.doc,1,4);
        ДатаДок=Дата(Прав(ДатаДокСтр,4)+Сред(ДатаДокСтр,4,2)+Сред(ДатаДокСтр,1,2));
        ПечДокумент=ВидДок+" № "+НомерДок+" от "+ДатаДокСтр;

        ДокОбъект=0;
        Если  Сред(СтрТбСтр.doc,9,2)="ПО" Тогда
            ДокОбъект=Документы.ПоступлениеТоваровУслуг.НайтиПоНомеру(НомерДок,ДатаДок);
        ИначеЕсли  Сред(СтрТбСтр.doc,9,2)="ПЕ" Тогда
            ДокОбъект=Документы.ПеремещениеТоваров.НайтиПоНомеру(НомерДок,ДатаДок);
        ИначеЕсли  Сред(СтрТбСтр.doc,9,2)="РЕ" Тогда
            ДокОбъект=Документы.РеализацияТоваровУслуг.НайтиПоНомеру(НомерДок,ДатаДок);
        КонецЕсли;


        Область=Макет.ПолучитьОбласть("Строка");
        Область.Параметры.ПечНоменклатура=НоменклатураСсылка;
        Область.Параметры.ПечШтрихкод=СтрТбСтр.code;
        Область.Параметры.ПечДокумент=ПечДокумент;
        Область.Параметры.ПечОтКуда=СтрТбСтр.Sklad;
        Область.Параметры.ПечКуда=СтрТбСтр.Contr;
        Область.Параметры.Расшифровка=ДокОбъект.Ссылка;

        ТабДок.Вывести(Область);
    КонецЦикла;

    ТабДок.ОтображатьСетку = Ложь;
    ТабДок.Защита = Ложь;
    ТабДок.ТолькоПросмотр = Истина;
    ТабДок.ОтображатьЗаголовки = Ложь;
    ТабДок.АвтоМасштаб = Истина;
    ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Портрет;

    ТабДок.Показать("Движения по штрихкоду","");
КонецПроцедуры