Функция УбратьЛидирующиеНули(НомерДокумента)

    Пока Найти(НомерДокумента, "0") > 0 Цикл

        УбратьЛидирующиеНули(Прав(НомерДокумента, СтрДлина(НомерДокумента)-1));

    КонецЦикла;

    Возврат    НомерДокумента;

КонецФункции   

 Функция УбратьЛидирующиеНули(НомерДокумента)

    

    Попытка

        НомерДокумента = Формат(Число(НомерДокумента), "ЧГ=");

    Исключение

        НомерДокумента = СтрЗаменить(СокрЛ(СтрЗаменить(СокрП(НомерДокумента), "0", " ")), " ", "0");

        Префикс = "";

        Пока КодСимвола(НомерДокумента) < 48 Или КодСимвола(НомерДокумента) > 57 Цикл

            Префикс = Префикс + Лев(НомерДокумента, 1);

            НомерДокумента = Сред(НомерДокумента, 2);

        КонецЦикла;

        Если Не ПустаяСтрока(Префикс) Тогда

            НомерДокумента = Префикс + УбратьЛидирующиеНули(НомерДокумента);

        КонецЕсли;

    КонецПопытки;

    Возврат НомерДокумента;

    

КонецФункции   

 ВЫБРАТЬ

    ВЫБОР

    КОГДА Не ПОДСТРОКА(&Номер, 1, 1) = "0" ТОГДА ПОДСТРОКА(&Номер, 1, 10)

    КОГДА Не ПОДСТРОКА(&Номер, 2, 1) = "0" ТОГДА ПОДСТРОКА(&Номер, 2, 9)

    КОГДА Не ПОДСТРОКА(&Номер, 3, 1) = "0" ТОГДА ПОДСТРОКА(&Номер, 3, 8)

    КОГДА Не ПОДСТРОКА(&Номер, 4, 1) = "0" ТОГДА ПОДСТРОКА(&Номер, 4, 7)

    КОГДА Не ПОДСТРОКА(&Номер, 5, 1) = "0" ТОГДА ПОДСТРОКА(&Номер, 5, 6)

    КОГДА Не ПОДСТРОКА(&Номер, 6, 1) = "0" ТОГДА ПОДСТРОКА(&Номер, 6, 5)

    КОГДА Не ПОДСТРОКА(&Номер, 7, 1) = "0" ТОГДА ПОДСТРОКА(&Номер, 7, 4)

    КОГДА Не ПОДСТРОКА(&Номер, 8, 1) = "0" ТОГДА ПОДСТРОКА(&Номер, 8, 3)

    КОГДА Не ПОДСТРОКА(&Номер, 9, 1) = "0" ТОГДА ПОДСТРОКА(&Номер, 9, 2)

    Иначе ПОДСТРОКА(&Номер, 10, 1)

КОНЕЦ КАК НомерБезНулей   

 Пока Лев(Номер, 1) = "0" Цикл 

    Номер = Прав(Номер, СтрДлина(Номер) - 1);

КонецЦикла;

   

 

Функция УбратьНули(НомерСтрокой) 

    Если Лев(НомерСтрокой, 1) = "0" Тогда

        Возврат УбратьНули(Прав(НомерСтрокой, СтрДлина(НомерСтрокой) - 1)); 

    Иначе

        Возврат НомерСтрокой;

    КонецЕсли;

КонецФункции





ИтоговаяСтрока = УбратьНули(Номер);   

 Параметры = ВнешниеИсточникиДанных.DAX.ПолучитьОбщиеПараметрыСоединения();

 Параметры.АутентификацияСтандартная = Истина;

 Параметры.ИмяПользователя = "sa";

 Параметры.Пароль = "pas";

 Параметры.СтрокаСоединения = "DRIVER={SQL Server};SERVER=servet;UID=sa;PWD=;DATABASE=database";

 Параметры.СУБД = "MSSQLServer";

 

 ВнешниеИсточникиДанных.DAX.УстановитьОбщиеПараметрыСоединения(Параметры);

 ВнешниеИсточникиДанных.DAX.УстановитьПараметрыСоединенияПользователя(ИмяПользователя(), Параметры);

 ВнешниеИсточникиДанных.DAX.УстановитьПараметрыСоединенияСеанса(Параметры);



 ВнешниеИсточникиДанных.DAX.УстановитьСоединение();   

 Функция ИнициализироватьИсточникДанных()



ДатаНач = КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы[5].Значение;

 ДатаКон = КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы[4].Значение;

 Если ДатаКон > '20100101' Тогда

  ДатаКон = '20100101'; 

 КонецЕсли;

 

 КЧ = Новый КвалификаторыЧисла(15,2);

 КС = Новый КвалификаторыСтроки(255);

 

 МассивЧисло = Новый Массив();

 МассивЧисло.Добавить(Тип("Число"));

 

 МассивСтрока = Новый Массив();

 МассивСтрока.Добавить(Тип("Строка"));

 

 МассивДата = Новый Массив();

 МассивДата.Добавить(Тип("Дата"));



 //В таблицу будем заполнять бухгалтерскую себестоимость

 ТипЧисло = Новый ОписаниеТипов(МассивЧисло,,КЧ);

    ТипСтрока = Новый ОписаниеТипов(МассивСтрока,,КС);

 ТипДата = Новый ОписаниеТипов(МассивДата);

 

 //таблица для загрузки данных из SQL

 ТЗ = Новый ТаблицаЗначений();

 ТЗ.Колонки.Добавить("НоменклатураКод", ТипСтрока);

 ТЗ.Колонки.Добавить("Qnty", ТипЧисло);

 ТЗ.Колонки.Добавить("Период", ТипДата);

 

 ТЗ.Индексы.Добавить("Период");

 

 //Подключаемся к SQL

 СтрокаПодключения = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Pwd=;Data Source=;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=;Use Encryption for Data=False;Tag with column collation when possible=False;Initial Catalog=Reports";

 Connection  = Новый COMОбъект("ADODB.Connection");

 Command  = Новый COMОбъект("ADODB.Command");

 RecordSet  = Новый COMОбъект("ADODB.RecordSet");

 Дата = "";

 Попытка

  Connection.Open(СокрЛП(СтрокаПодключения));

  Command.ActiveConnection   = Connection;

  Command.CommandText = "S_elect * from PH where period >= '" + Строка(Формат(ДатаНач, "ДФ=ггггММдд")) + "' and period <= '" + Строка(Формат(ДатаКон, "ДФ=ггггММдд")) + "'";

  RecordSet = Command.Execute();

  RecordSet.MoveFirst();  

 Исключение

  Возврат ТЗ; 

 КонецПопытки;



 Пока RecordSet.EOF = Ложь Цикл

  Строка = ТЗ.Добавить();

  Строка.НоменклатураКод = RecordSet.Fields(RecordSet.Fields.Item(1).Name).Value;

  Строка.Qnty = RecordSet.Fields(RecordSet.Fields.Item(12).Name).Value;

  Строка.Период = RecordSet.Fields(RecordSet.Fields.Item(13).Name).Value;

  RecordSet.MoveNext();

 КонецЦикла;

 

 Запрос = Новый Запрос();

 ВрТаблица = Новый МенеджерВременныхТаблиц();

 Запрос.МенеджерВременныхТаблиц = ВрТаблица;

 Запрос.УстановитьПараметр("врТаблицаДанных",  ТЗ);

 Запрос.УстановитьПараметр("ДатаНач", ДатаНач);

 Запрос.УстановитьПараметр("ДатаКон", ДатаКон);

 Запрос.Текст = "ВЫБРАТЬ

                | врТаблицаДанных.НоменклатураКод,

                | врТаблицаДанных.Qnty,

                | врТаблицаДанных.Период

                |ПОМЕСТИТЬ ТаблицаДанных

                |ИЗ

                | &врТаблицаДанных КАК врТаблицаДанных

                |ГДЕ

                | врТаблицаДанных.Период >= &ДатаНач

                | И врТаблицаДанных.Период <= &ДатаКон";

 Запрос.Выполнить();

 ТЗ = Неопределено;

 

 Запрос = Новый Запрос;

 Запрос.МенеджерВременныхТаблиц = ВрТаблица;

 Запрос.Текст = "Здесь запрос с участием верменной таблицы";



 Результат = Запрос.Выполнить();

 Возврат Результат;



КонецФункции





  Внешнийнабор = ИнициализироватьИсточникДанных();

  НаборДанных = Новый Структура();

  НаборДанных.Вставить("ТаблицаSQL", Внешнийнабор);

  ТиповыеОтчеты.СформироватьТиповойОтчет(ЭтотОбъект, Результат, ДанныеРасшифровки, ВыводВФормуОтчета, НаборДанных);