столбца » Поиск

Результаты по ключевому слову: столбца

Синтаксический анализ JSON - выражения средствами 1С 7.7 Категория: HTML, JS, VML

Универсальная функция для чтения данных из Excel в 1С

Иногда требуется разобрать данные из Excel в 1С.
Я считаю что легче и быстрей поместить все данные в ТаблицуЗначений и уже там ими манипулировать.
Пример 2-х функций которые я использую:
ИзExcelВТаблицу – Читает Excel в ТаблицуЗначений
ЭлементСправочника – Создает или находит элемент справочника.
Теперь сам код:

Код 1C v 8.х

 // Загрузка данных из Excel файла в ТаблицуЗначений 

// Возвращает ТаблицуЗначений с данными 

// ПутьДоExcel - путь до Excel файла

// НомерСтраницы - Номер страницы в Excel

// ПерСтрокаЗаголовок - первая строка Excel содержит имена столбцов

// ФормаИндикатора - Стандартная форма прогресса работы

Функция ИзExcelВТаблицу(ПутьДоExcel, НомерСтраницы = 1, ПерСтрокаЗаголовок = Ложь , ФормаИндикатора = Неопределено)

    Попытка

        Док = ПолучитьCOMОбъект(ПутьДоExcel); 

    Исключение

        Сообщить("Произошла ошибка при обращение к Excel:" + Символы.ПС + ОписаниеОшибки());

        Возврат Неопределено;

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

 

    ЗакрытьФормуИндиктаора = Ложь;  

    Если ФормаИндикатора = Неопределено тогда

        ЗакрытьФормуИндиктаора = Истина;

        ФормаИндикатора = ПолучитьОбщуюФорму("ХодВыполненияОбработкиДанных");       

        ФормаИндикатора.Открыть();  

    КонецЕсли;      

    ФормаИндикатора.КомментарийЗначения = "Загрузка данных из Excel...";

     

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

    Страница = Док.Sheets(НомерСтраницы);

    МакСтрок = Страница.UsedRange.Rows.Count;       // макс. колич. строк

    МакСтолб = Страница.UsedRange.Columns.Count;    // макс. колич. столбцов    

     

    Для Столбец = 1 по МакСтолб цикл

        ИмяСтолбца = "Столбец_"  + Столбец;

        Если ПерСтрокаЗаголовок тогда

            ИмяСтолбца = Страница.Cells(1,Столбец).Value;

            ИмяСтолбца = СокрЛП(ИмяСтолбца);

            ИмяСтолбца = СтрЗаменить(ИмяСтолбца," ","_");

        КонецЕсли;                      

        ТЗ.Колонки.Добавить(ИмяСтолбца, Новый ОписаниеТипов("Строка"));

    КонецЦикла; 

     

    НачальнаяСтрока = 1;    

    Если ПерСтрокаЗаголовок тогда                                       

        НачальнаяСтрока = 2;

    КонецЕсли;          

     

    Для НомСтрока = НачальнаяСтрока по МакСтрок цикл

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

        Для НомСтолбец = 1 по МакСтолб цикл

            Данные = Страница.Cells(НомСтрока,НомСтолбец).Value;                

            СтрТЗ[НомСтолбец-1] = Данные;

        КонецЦикла;     

         

        ФормаИндикатора.ЭлементыФормы.Индикатор.Значение = НомСтрока/МакСтрок * 100;        

    КонецЦикла;     

     

    Если ЗакрытьФормуИндиктаора тогда

        ФормаИндикатора.Закрыть();

    КонецЕсли;      

     

    Возврат ТЗ; 

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

Пример вызова:

Код 1C v 8.х

 ФормаИндикатора = ПолучитьОбщуюФорму("ХодВыполненияОбработкиДанных");

ФормаИндикатора.НаименованиеОбработкиДанных = "Загрузка данных...";     

ФормаИндикатора.Открыть();  

     

ТЗ = ИзExcelВТаблицу(ФайлExcel,1,Истина,ФормаИндикатора);       

Если ТЗ = Неопределено тогда

    ФормаИндикатора.Закрыть();

    Возврат;

КонецЕсли;              

     

ФормаИндикатора.Закрыть();

или

Код 1C v 8.х

 ТЗ = ИзExcelВТаблицу(ФайлExcel);        

Если ТЗ = Неопределено тогда

    Возврат;

КонецЕсли;

Теперь функция которой я использую когда надо создать элемент справочника из полученных данных.

Код 1C v 8.х

 // Создаем в справочнике "ИмяСправочника" элемент

// ИмяЭлемента - Имя созданного элемента в справочнике "ИмяСправочника"

// ИмяРодителя - Имя родительского элемента (отсутствует если не древовидный).

//               Разделитель \\ позволяет писать древовидный путь родителя из нескольких элементов

// Параметры - Соответствие содержащие список параметров для элемента

// СоздатьЕслиНетЭлемента - Создает элемент если нет. Иначе ищет и обновляет

Функция ЭлементСправочника(ИмяСправочника = "",ИмяЭлемента, ИмяРодителя = Неопределено, Параметры = Неопределено, СоздатьЕслиНетЭлемента=Истина)

    Если ИмяСправочника = "" тогда

        Сообщить("Укажите имя спрачоника - ЭлементСправочника()");

        Возврат Неопределено;

    КонецЕсли;      

     

    Если ПустаяСтрока(ИмяЭлемента) тогда

        Возврат Неопределено;

    КонецЕсли;      

     

    // Создаем или ищем родителя

    Родитель = Неопределено;    

    Если ИмяРодителя <> Неопределено тогда

         

        ОбрабатИмяРодителя = ИмяРодителя;

        РодительГруппы = Справочники[ИмяСправочника].ПустаяСсылка();

         

        Пока НЕ ПустаяСтрока(ОбрабатИмяРодителя) цикл

             

            ПозРазделителя = Найти(ОбрабатИмяРодителя,"\\");

            Если ПозРазделителя = 0 тогда

                ИмяГруппы = ОбрабатИмяРодителя;

                ОбрабатИмяРодителя = ""                       

            Иначе

                ИмяГруппы = Сред(ОбрабатИмяРодителя,1, ПозРазделителя-1);               

                ОбрабатИмяРодителя = Сред(ОбрабатИмяРодителя,ПозРазделителя+2);                 

            КонецЕсли;      

             

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

                          | Данные.Ссылка

                          |ИЗ

                          | Справочник."+ИмяСправочника+" КАК Данные

                          |ГДЕ

                          | Данные.Родитель = &Родитель

                          | И Данные.Наименование = &Наименование

                          | И Данные.ЭтоГруппа";

                           

            ЗапросРодителя = Новый Запрос(ТексЗапроса);

            ЗапросРодителя.УстановитьПараметр("Родитель", РодительГруппы);

            ЗапросРодителя.УстановитьПараметр("Наименование", ИмяГруппы);

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

 

            // Создаем родителя в случае необходимости          

            Если РезультатРодителя.Количество() <> 0 тогда

                РодительГруппы = РезультатРодителя[0].Ссылка

            Иначе               

                ОбъектРодитель = Справочники[ИмяСправочника].СоздатьГруппу();

                ОбъектРодитель.Родитель = РодительГруппы;

                ОбъектРодитель.Наименование = ИмяГруппы;

                ОбъектРодитель.Записать();

                РодительГруппы = ОбъектРодитель.Ссылка;

            КонецЕсли;              

        КонецЦикла;         

        Родитель = РодительГруппы;

    КонецЕсли;      

     

    // Создаем или ищем элемент

    Элемент = Справочники[ИмяСправочника].НайтиПоНаименованию(ИмяЭлемента);

    ОбъектЭлемент = Неопределено;

     

    Если Элемент.Пустая() тогда

        Если СоздатьЕслиНетЭлемента тогда

            ОбъектЭлемент = Справочники[ИмяСправочника].СоздатьЭлемент();

            ОбъектЭлемент.Наименование = ИмяЭлемента;

        Иначе 

            Элемент = Неопределено

        КонецЕсли;              

    Иначе

        ОбъектЭлемент = Элемент.ПолучитьОбъект(); 

    КонецЕсли;  

     

     

    Если ОбъектЭлемент <> Неопределено тогда        

        // Устанвалвиаем доп. параметры 

        Если Параметры <> Неопределено тогда      

            Для каждого СтрПараметр из Параметры цикл               

                ОбъектЭлемент[СтрПараметр.Ключ] = СтрПараметр.Значение;

            КонецЦикла;         

        КонецЕсли;  

                 

        Если Родитель <> Неопределено тогда       

            ОбъектЭлемент.Родитель = Родитель;  

        КонецЕсли;

     

        ОбъектЭлемент.Записать();                   

        Элемент = ОбъектЭлемент.Ссылка; 

    КонецЕсли;      

         

    Возврат Элемент;

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

Автор: borismor

Категория: Работа с Microsoft Office и OpenOffice

Конструктор схемы компоновки данных - Закладка Макеты Категория: Схема Компоновки Данных

Чтение RTF файлов через OpenOffice.

Для 8.х заменить СоздатьОбъект( на Новый COMОбъект(

Код 1C v 7.x

 // Пример от  Jaap Vduul 

// Пример чтения таблицы из OpenOffice:

// =====================================    

    ServiceManager     = СоздатьОбъект("com.sun.star.ServiceManager");

    Desktop             = ServiceManager.createInstance("com.sun.star.frame.Desktop");

    script             = СоздатьОбъект("ScriptControl");

    script.Language     = "vbs";

    script.AddCode

    (

        "Dim Parameters()

        |   

        |Sub InitParameters(Size)

        |     

        |    Erase Parameters

        |

        |    If Size > 0 Then 

        |        Redim Parameters(Size - 1) 

        |    End If

        |

        |End Sub

        |    

        |Sub SetParameter(ServiceManager, Name, Value, Index)

        |

        |    Set PropertyValue     = ServiceManager.Bridge_GetStruct(""com.sun.star.beans.PropertyValue"")

        |    PropertyValue.Name     = Name

        |    PropertyValue.Value     = Value

        |    

        |    Set Parameters(Index) = PropertyValue

        |

        |End Sub

        |    

        |Sub SetBooleanParameter(ServiceManager, Name, Value, Index)

        |    

        |    SetParameter ServiceManager, Name, Cbool(Value), Index

        |

        |End Sub

        |

        |Function LoadDocument(ComponentLoader, URL, TargetFrameName, SearchFlags)

        |   

        |    Set LoadDocument = ComponentLoader.loadComponentFromURL(URL, TargetFrameName, SearchFlags, Parameters)

        |

        |End Function

        |

        |Sub CloseDocument(Document)

        |

        |    Document.Close True

        |

        |End Sub"

    );

       

    script.Run("InitParameters", 2);

    script.Run("SetBooleanParameter", ServiceManager, "ReadOnly",     1, 0);

    script.Run("SetBooleanParameter", ServiceManager, "Hidden",         1, 1);



    URL = ПреобразоватьВURL(КаталогПриказов + НомерПриказа + ".rtf");

    Документ = script.Run("LoadDocument", Desktop, URL, "_blank", 0);

    Таблица = Документ.TextTables.getByIndex(0); // ссылка на первую таблицу



    ВсегоСтрок         = Таблица.getRows().getCount();

    ВсегоСтолбцов     = Таблица.getColumns().getCount();

     

    Для ИндексСтроки = 1 По (ВсегоСтрок - 1) Цикл // ИндексСтроки = 1, т.к. пропускаем заголовок

        Для ИндексСтолбца = 0 По (ВсегоСтолбцов - 1) Цикл

            Ячейка = Таблица.getCellByPosition(ИндексСтолбца, ИндексСтроки);

            ТекстЯчейки = Ячейка.getString();

        КонецЦикла;

    КонецЦикла;



    script.Run("CloseDocument", Документ);

Категория: Работа с Microsoft Office и OpenOffice

Функция выборки данных из SQL сервера и передача во временную таблицу 1С

Код 1C v 8.х

 Функция ЗапросSQL (SQLServer,Login,Password,ЗапросSQL)

   

  СтрокаСоединения = ("Driver={SQL Server}; Deleted=No; Data Source = ") + SQLServer +  

      (";UID=") + Login + ("; PWD=") + Password + (";");

    

     СоединениеSQL = Новый ComObject("ADODB.Connection");

  СоединениеSQL.ConnectionString=СтрокаСоединения;

   Попытка

    СоединениеSQL.Open();

    Состояние ("Подключение к серверу SQL...");

   Исключение

    Сообщить(ОписаниеОшибки());

    Возврат Ложь;

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

    

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

  ЗаписиSQL = Новый ComObject("ADODB.RecordSet");

  ЗаписиSQL.ActiveConnection = СоединениеSQL;

  ЗаписиSQL = СоединениеSQL.Execute (ЗапросSQL);

   

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

  Состояние ("Заполнение временной таблицы...");

  Для НомерСтолбца = 0 По ЗаписиSQL.Fields.Count-1 Цикл //Создание и добавление колонок во временную таблицу

   ИмяСтолбца =ЗаписиSQL.Fields.Item(НомерСтолбца).Name;  

   Таблица.Колонки.Добавить(ИмяСтолбца);

   //Сообщить(ИмяСтолбца);

  КонецЦикла;

   

  Пока ЗаписиSQL.EOF=0 Цикл    // Заполнение созданной таблицы

    

   НоваяСтрока =  Таблица.Добавить();

   Для НомерСтолбца = 0 По ЗаписиSQL.Fields.Count-1 Цикл

    НоваяСтрока.Установить(НомерСтолбца,ЗаписиSQL.Fields(НомерСтолбца).Value);

    //Сообщить ("Test " + ЗаписиSQL.Fields(ИмяСтолбца).Value + ИмяСтолбца);

   КонецЦикла;

          

   ЗаписиSQL.MoveNext();

    

  КонецЦикла;

   

  Состояние ("Закрываем соединение с SQL...");

     ЗаписиSQL.Close();

  СоединениеSQL.Close();

   

  Возврат Таблица;   // Возврат таблицы значений запроса SQL

   

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

Категория: COM-объекты, WMI, WSH

Автоматическая установка ширины колонки табличного документа.

Процедура, которая "примерно" делает автоширину колонок (навроде, как если бы выделить все колонки и дважды щелкнуть мышкой по границе заголовка колонки). Привожу текст, работает неахти, но лучше чем ничего:

Код 1C v 8.х

 Процедура РасчетШириныКолонок(ТабличныйДокумент)

    

    Перем МаксимальноеКоличествоСтрок, МаксимальнаяШиринаКолонки;

    Перем КонечнаяСтрока, НачальнаяСтрока, ТекущаяКолонка, ТекущаяСтрока, НачалоДанных;

    Перем ОбластьШапки, ОбластьПодвала;

    Перем ШиринаКолонки, ТекстЯчейки, НомерСтрокиТекста;

    Перем КоличествоУровнейГруппировокСтрок, Отступ;

    Перем ШириныКолонок;

    

    // Максимальное количество строк отчета, которые будут использованы для расчета ширин колонок

 

    МаксимальноеКоличествоСтрок = 50;

    // Ограничение максимальной ширины колонки

 

    МаксимальнаяШиринаКолонки = 50;

    // Массив, в который будут помещаться ширины колонок

 

    ШириныКолонок = Новый Массив;

    // Получим количество уровней группировок в отчете для учета автоматического отступа

 

    КоличествоУровнейГруппировокСтрок = ТабличныйДокумент.КоличествоУровнейГруппировокСтрок();

    

    // Инициализируем начальные строки

 

    НачальнаяСтрока = 0;

    НачалоДанных = 0;

    

    // Найдем в результирующем документе область шапки таблицы

 

    ОбластьШапки = ТабличныйДокумент.Области.Найти("ШапкаТаблицы");

    Если ТипЗнч(ОбластьШапки) = Тип("ОбластьЯчеекТабличногоДокумента") Тогда

        

        // Из шапки таблицы получим начальную строку с которой будем рассчитывать ширины

         НачальнаяСтрока = ОбластьШапки.Верх;

        НачалоДанных = ОбластьШапки.Низ + 1;

    Иначе

        

        // Если область шапки таблицы не найдена, найдем область шапки строк

         ОбластьШапки = ТабличныйДокумент.Области.Найти("ШапкаСтрок");

        Если ТипЗнч(ОбластьШапки) = Тип("ОбластьЯчеекТабличногоДокумента") Тогда

            

            // Из шапки таблицы получим начальную строку с которой будем рассчитывать ширины

             НачальнаяСтрока = ОбластьШапки.Верх;

            НачалоДанных = ОбластьШапки.Низ + 1;

            

        КонецЕсли;

    КонецЕсли;

    

    // Получим область подвала отчета и вычислим конечную строку расчета

 

    ОбластьПодвала = ТабличныйДокумент.Области.Найти("Подвал");

    Если ТипЗнч(ОбластьПодвала) = Тип("ОбластьЯчеекТабличногоДокумента") Тогда

        // Область подвала найдена

        КонечнаяСтрока = ОбластьПодвала.Верх - 1;

        Если КонечнаяСтрока - НачальнаяСтрока > МаксимальноеКоличествоСтрок Тогда

            КонечнаяСтрока = НачальнаяСтрока + МаксимальноеКоличествоСтрок;

        КонецЕсли;

    Иначе 

            // Область подвала не найдена

        КонечнаяСтрока = НачальнаяСтрока + МаксимальноеКоличествоСтрок;

    КонецЕсли;

    

    // Ограничим конечную строку

    КонечнаяСтрока = Мин(КонечнаяСтрока, ТабличныйДокумент.ВысотаТаблицы);

    // Переберем все колонки отчета

    Для ТекущаяКолонка = 1 По ТабличныйДокумент.ШиринаТаблицы Цикл

        АвтоОтступ = 0;

        // Переберем строки, которые будут использованы для расчета ширин колонок

        Для ТекущаяСтрока = НачальнаяСтрока По КонечнаяСтрока Цикл

            ШиринаКолонки = 0;

            // Получим область текущей ячейки

            ОбластьЯчейки = ТабличныйДокумент.Область(ТекущаяСтрока, ТекущаяКолонка);

            Если ОбластьЯчейки.Лево <> ТекущаяКолонка Или ОбластьЯчейки.Верх <> ТекущаяСтрока Тогда

                // Данная ячейка принадлежит объединенным ячейкам и не является начальной ячейкой

                Продолжить;

            КонецЕсли;

            Если КоличествоУровнейГруппировокСтрок > 0 И ТекущаяСтрока = НачалоДанных Тогда

                // Для первой строки с данными получим значение автоотступа

                АвтоОтступ = ОбластьЯчейки.АвтоОтступ;

            КонецЕсли;

            // Получим текст ячейки

            ТекстЯчейки = ОбластьЯчейки.Текст;

            // Для каждой строки из текста ячейки рассчитаем количество символов в строке

            Для НомерСтрокиТекста = 1 По СтрЧислоСтрок(ТекстЯчейки) Цикл

                ШиринаТекстаЯчейки = СтрДлина(СтрПолучитьСтроку(ТекстЯчейки, НомерСтрокиТекста));

                // Если используется автоотступ, то прибавим к ширине ячейки его величину

                Если АвтоОтступ <> Неопределено И АвтоОтступ > 0 Тогда

                    ШиринаТекстаЯчейки = ШиринаТекстаЯчейки + КоличествоУровнейГруппировокСтрок * АвтоОтступ;

                КонецЕсли;

                ШиринаКолонки = Макс(ШиринаКолонки, ШиринаТекстаЯчейки);

            КонецЦикла;



            Если ШиринаКолонки > МаксимальнаяШиринаКолонки Тогда

                // Ограничим ширину колонки

                ШиринаКолонки = МаксимальнаяШиринаКолонки;

            КонецЕсли;

            Если ШиринаКолонки <> 0 Тогда

                // Ширина колонки рассчитана

                // Определим, сколько ячеек по ширине используется в области для текущей ячейки

                КоличествоКолонок = ОбластьЯчейки.Право - ОбластьЯчейки.Лево;

                // Переберем все ячейки, расположенные в области

                 Для НомерКолонки = 0 По КоличествоКолонок Цикл

                    Если ШириныКолонок.ВГраница() > ТекущаяКолонка - 1 + НомерКолонки Тогда

                        // В массиве ширин колонок уже был элемент для текущей колонки

                        Если ШириныКолонок[ТекущаяКолонка - 1 + НомерКолонки] = Неопределено Тогда

                            // Значение ширины колонки еще не было установлено

                            ШириныКолонок[ТекущаяКолонка - 1 + НомерКолонки] = ШиринаКолонки / (КоличествоКолонок + 1);

                        Иначе

                            // Значение ширины колонки уже было установлено

                             // Вычислим максимум ширины колонки

                             ШириныКолонок[ТекущаяКолонка - 1 + НомерКолонки] = 

                                Макс(ШириныКолонок[ТекущаяКолонка - 1 + НомерКолонки], ШиринаКолонки / (КоличествоКолонок + 1));

                        КонецЕсли;

                    Иначе

                        // В массиве ширин колонок еще не было элемента для данной колонки

                        // Добавим элемент в массив ширин колонок

                        ШириныКолонок.Вставить(ТекущаяКолонка - 1 + НомерКолонки, ШиринаКолонки / (КоличествоКолонок + 1));

                    КонецЕсли;

                КонецЦикла;

            КонецЕсли;

        КонецЦикла;    // Конец цикла перебора строк

    КонецЦикла;    // Конец цикла перебора колонок

    

    // Переберем все элементы в массиве вычисленных ширин колонок

     Для ТекущаяКолонка = 0 По ШириныКолонок.ВГраница() Цикл

        Если ШириныКолонок[ТекущаяКолонка] <> Неопределено Тогда

            // Ширина колонок установлена

            // Установим ширину области ячеек

            ТабличныйДокумент.Область(, ТекущаяКолонка + 1, НачалоДанных, ТекущаяКолонка + 1).ШиринаКолонки = ШириныКолонок[ТекущаяКолонка] + 1;

        КонецЕсли;

    КонецЦикла;

КонецПроцедуры

Очень полезная штука при условии, что у Вас заранее невозможно определить размер итоговых колонок в печатной форме. А так, надо просто "натравить" процедуру с соответствующими параметрами на нужные ячейки таблицы, и они сами "выровняются" и приобретут необходимый размер (ширину).

Код 1C v 7.x

 //<!-- Патырило С.С. 22-04-2004 : Автоматическая установка ширины колонки

//  Для изменения ширины колонки уже сформированной таблицы, требуется передать

// в качестве параметров переменную с объектом "Таблица", координаты ячейки (группы ячеек)

// для которых нужно установить ширину столбца и ширину столбца в символах.

// При этом не обязательно передавать координаты требуемой ячейки (итоговой),

// (т.е. когда нет возможности или сложно определить позицию итоговой строки)

// достаточно указать ячейку из данного столбца (например первую).

//  Процедура установит ширину столбца выбрав максимальное из значений - 

// текущего размера (установленного в конфигураторе, или программно перед вызовом 

// функции) и переданного в качестве параметра. 

Процедура глУстШиринуЯчейки(Таб, Строка1, Столбец1, Строка2, Столбец2, ДлТекста = 0) Экспорт

	Если ДлТекста = 0 Тогда

	    врДлина	= СтрДлина(СокрЛП(Таб.Область(Строка1, Столбец1, Строка2, Столбец2).Текст));

	Иначе

		врДлина	= ДлТекста;

	КонецЕсли;

	Таб.Область(Строка1, Столбец1, Строка2, Столбец2).ШиринаСтолбца(Макс(Таб.Область(Строка1, Столбец1, Строка2, Столбец2).ШиринаСтолбца(), врДлина));

КонецПроцедуры

// --> Патырило С.С. 22-04-2004

Категория: Табличный документ

Заполнение табличного поля данными таблицы значений, полученной из SQL - Запроса

Код 1C v 8.х

 Процедура ЗаполнитьНажатие(Элемент)

запрос = СоставитьЗапрос(); //Функция СоставитьЗапрос() возвращает строку запроса

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

ТаблицаВывода.Очистить();

ТаблицаВывода = ЗапросКСкуль(CRM_MSSQL_Сервер,CRM_MSSQL_БазаДанных,CRM_MSSQL_Логин,CRM_MSSQL_Пароль,Запрос);



ТабличноеПоле.Очистить();

ЭлементыФормы.ТабличноеПоле.Значение=ТаблицаВывода;

ЭлементыФормы.ТабличноеПоле.СоздатьКолонки();



КонецПроцедуры



Функция ЗапросКСкуль(SQLServer,DSN,Login,Password,txtSQL)

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

НаборЗаписей = Новый ComObject("ADODB.RecordSet");

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



Соединение.ConnectionString = ("Provider=SQLOLEDB; Data Source = ") + SQLServer +

    (";Initial Catalog=") + DSN + (";UID=") + Login + ("; PWD=") + Password + (";");

Соединение.ConnectionTimeOut = 15;

//Попытка

 Соединение.Open();

// Сообщить("Connect");

//Исключение

// Сообщить("No connect");

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



Команда.ActiveConnection = Соединение;

Команда.CommandText = txtSQL;

//Попытка

 НаборЗаписей = Команда.Execute ();

// Сообщить("Add record");

//Исключение

// Сообщить("No I_nsert");

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



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

//Состояние ("Заполнение временной таблицы...");



Для НомерСтолбца = 0 По НаборЗаписей.Fields.Count-1 Цикл   //Создание и добавление колонок во временную таблицу

 ИмяСтолбца =НаборЗаписей.Fields.Item(НомерСтолбца).Name;

 Таблица.Колонки.Добавить(ИмяСтолбца);

 //Сообщить(ИмяСтолбца);            // Тестовая строка

КонецЦикла;

 

Пока НЕ НаборЗаписей.EOF Цикл        // Заполнение созданной таблицы

 НоваяСтрока =  Таблица.Добавить();

 Для НомерСтолбца = 0 По НаборЗаписей.Fields.Count-1 Цикл

  НоваяСтрока.Установить(НомерСтолбца,НаборЗаписей.Fields(НомерСтолбца).Value);

  //Сообщить ("Test " + ЗаписиSQL.Fields(НомерСтолбца).Value +  ЗаписиSQL.Fields(НомерСтолбца).Name);

 КонецЦикла;

 НаборЗаписей.MoveNext();

КонецЦикла;



//Состояние ("Закрываем соединение с SQL...");

Соединение.Close();

Возврат Таблица;

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

Код 1C v 8.х

 Функция ЗапросSQL (SQLServer,Login,Password,ТекстSQL)   //Функция выборки данных из SQL сервера и передача во временную таблицу 1С



СтрокаСоединения = ("Provider=SQLOLEDB;Driver={SQL Server}; Deleted=No; Data Source = ") + SQLServer +

    (";UID=") + Login + ("; PWD=") + Password + (";");

              

   Подключение = Новый ComObject("ADODB.Connection");

Подключение.ConnectionString=СтрокаСоединения;

 Попытка

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

  Состояние ("Подключение к серверу SQL...");

 Исключение

  Сообщить(ОписаниеОшибки());

  Возврат Ложь;

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

 

СоединениеSQL = Новый COMObject("ADODB.Command");

СоединениеSQL.ActiveConnection = Подключение;

СоединениеSQL.NamedParameters = True;

СоединениеSQL.CommandText = ТекстSQL;

СоединениеSQL.CommandType = 1;

//СоединениеSQL.Prepared = Истина;



Param1 = СоединениеSQL.CreateParameter("n",3,1,1,1);

СоединениеSQL.Parameters.Append(Param1);



Param2 = СоединениеSQL.CreateParameter("ДатаПриходаС",200,1,8,Формат(НачалоПериода,"ДФ=ггггММдд"));//Формат(НачалоПериода,"ДФ=ггггММдд"));

СоединениеSQL.Parameters.Append(Param2);



Param3 = СоединениеSQL.CreateParameter("ДатаПриходаПо",200,1,8,Формат(КонецПериода,"ДФ=ггггММдд"));

СоединениеSQL.Parameters.Append(Param3);

   

СоединениеSQL.Parameters.Refresh();



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

ЗаписиSQL = Новый ComObject("ADODB.RecordSet");



ЗаписиSQL = СоединениеSQL.Execute();



 

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

Состояние ("Заполнение временной таблицы...");

Для НомерСтолбца = 0 По ЗаписиSQL.Fields.Count-1 Цикл //Создание и добавление колонок во временную таблицу

 ИмяСтолбца =ЗаписиSQL.Fields.Item(НомерСтолбца).Name;

 Таблица.Колонки.Добавить(ИмяСтолбца);

 Сообщить(ИмяСтолбца);

КонецЦикла;





Пока ЗаписиSQL.EOF = 0 Цикл // Заполнение созданной таблицы

 

 НоваяСтрока =  Таблица.Добавить();

 Для НомерСтолбца = 0 По ЗаписиSQL.Fields.Count-1 Цикл

  НоваяСтрока.Установить(НомерСтолбца,ЗаписиSQL.Fields(НомерСтолбца).Value);

  Сообщить ("Test " + ЗаписиSQL.Fields(ИмяСтолбца).Value + ИмяСтолбца);

 КонецЦикла;

       

 ЗаписиSQL.MoveNext();

 

КонецЦикла;



Состояние ("Закрываем соединение с SQL...");

   ЗаписиSQL.Close();

Подключение.Close();



Возврат Таблица;   // Возврат таблицы значений запроса SQL



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

Категория: COM-объекты, WMI, WSH

Вывод (печать) таблицы значений в табличный документ

Пример кода быстрая Печать таблицы значений

Код 1C v 8.х

  //ТПОтчета - Табличное поле с формы (Таблица значений) с данными

ПострПечать = Новый ПостроительОтчета;

    ПострПечать.ИсточникДанных = Новый ОписаниеИсточникаДанных(ТПОтчета);

    ПострПечать.МакетОформления = ПолучитьМакетОформления(СтандартноеОформление.Интерфейс);

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

    Для каждого Колонка Из ПострПечать.ВыбранныеПоля Цикл

        Колонка.Представление = ТПОтчета.Колонки[Колонка.Имя].Заголовок;

    КонецЦикла; 

    ПострПечать.Вывести();

Пример функций Печать таблицы значений с использованием Макета

Код 1C v 8.х

 //Процедура  формирует и выводит отчет по переданной таблице значений

// Параметры :

// ТЗ - ТаблицаЗначений

Процедура УниверсальныйОтчетПоТЗ(ТЗ)



Табл=Новый ТабличныйДокумент;

Макет = ЭтотОбъект.ПолучитьМакет("Макет");

ОбластьШапкаОсновной=Макет.ПолучитьОбласть("Шапка|Основной");

ОбластьСтрокаОсновной=Макет.ПолучитьОбласть("Строка|Основной");

ОбластьИтогОсновной=Макет.ПолучитьОбласть("Итог|Основной");

ОбластьШапкаДОП=Макет.ПолучитьОбласть("Шапка|Показатели");

ОбластьСтрокаДОП=Макет.ПолучитьОбласть("Строка|Показатели");

ОбластьИтогДОП=Макет.ПолучитьОбласть("Итог|Показатели");

Табл.Вывести(ОбластьШапкаОсновной);



Для Каждого Колонка из Тз.Колонки ЦИКЛ

 ОбластьШапкаДОП.Параметры.ИмяПоказателя=Колонка.Имя;

 Табл.Присоединить(ОбластьШапкаДОП);

КонецЦикла;



счетчик=0;

Для каждого стр из Тз Цикл

 счетчик=счетчик+1;

 ОбластьСтрокаОсновной.Параметры.счетчик=счетчик; 

 Табл.Вывести(ОбластьСтрокаОсновной);

  Для Каждого Колонка из Тз.Колонки ЦИКЛ

   ОбластьСтрокаДОП.Параметры.ЗначениеКолонки=стр[Колонка.Имя];

   Табл.Присоединить(ОбластьСтрокаДОП);

  КонецЦикла;

КонецЦикла;

Табл.Вывести(ОбластьИтогОсновной);



Для Каждого Колонка из Тз.Колонки ЦИКЛ

 ОбластьИтогДОП.Параметры.Итог=Тз.Итог(Колонка.Имя);

 Табл.Присоединить(ОбластьИтогДОП);

КонецЦикла;



Табл.Показать();

КонецПроцедуры

Код 1C v 7.x

 

//Вывести таблицу значений

Процедура ПечатьТЗвТаб(ТЗ, Заголовок = "",КолонкиПоНазваниям = 0) Экспорт

	Перем ТТЗ;

	ТЗ.Выгрузить(ТТЗ);

	МаксШирина = 50;    // максимальная ширина колонки 

	СпШирина = СоздатьОбъект("СписокЗначений"); // список ширин колонок по таблице

	Для сч = 1 по ТТЗ.КоличествоКолонок() Цикл

		Если КолонкиПоНазваниям = 0  Тогда

			ИмяРек = ТТЗ.ПолучитьПараметрыКолонки(сч);

		Иначе

			ИмяРек = "";

			ТТЗ.ПолучитьПараметрыКолонки(сч,,,,ИмяРек,);

		КонецЕсли;

		СпШирина.ДобавитьЗначение(СтрДлина(ИмяРек)*1.2); // с поправкой на размер шрифта

	КонецЦикла;	

	

	// просто печать таблицы - вывод всех строк и колонок

	// числовые значения - по правому краю. Автоподбор ширины - в пределах МаксШирина

	Таб=СоздатьОбъект("Таблица");

	Таб.ИсходнаяТаблица("ПечатьТЗ");

	Если СокрЛП(Заголовок) <> "" Тогда

		Таб.ВывестиСекцию("Шапка");

	КонецЕсли;

	// заголовки таблицы

	Таб.ВывестиСекцию("Строка|Общая");

	Для сч=1 по ТТЗ.КоличествоКолонок() Цикл

		Если КолонкиПоНазваниям = 0  Тогда

			ИмяРек = ТТЗ.ПолучитьПараметрыКолонки(сч);

		Иначе

			ИмяРек = ""; 

			Ном = "";

			ТТЗ.ПолучитьПараметрыКолонки(сч,,,,ИмяРек,);

		КонецЕсли;

		Таб.ПрисоединитьСекцию("Строка|Столбец");  

	КонецЦикла;

	ВысотаШапки = Таб.ВысотаТаблицы();

	// данные таблицы по строкам

	ТТЗ.ВыбратьСтроки();

	Пока ТТЗ.ПолучитьСтроку()=1 Цикл

		Ном = ТТЗ.НомерСтроки;

		Таб.ВывестиСекцию("Строка|Общая");

		Выс = Таб.ВысотаТаблицы();

		Для сч=1 по ТТЗ.КоличествоКолонок() Цикл

			ИмяРек=ТТЗ.ПолучитьЗначение(Ном,сч);

			Таб.ПрисоединитьСекцию("Строка|Столбец");

			Если ТипЗначения(ИмяРек) = 1 Тогда

				Обл = Таб.Область("R"+Выс+"C"+(Сч+1)); // ячейка в которую поместили данные

				Обл.ГоризонтальноеПоложение(2); // числа - вправо

			КонецЕсли;

			НачШирина = СпШирина.ПолучитьЗначение(Сч);

			Ширина = СтрДлина(ИмяРек);

			СпШирина.УстановитьЗначение(Сч,Макс(НачШирина,Ширина));

		КонецЦикла;

	КонецЦикла;

	

	Для сч = 1 по СпШирина.РазмерСписка() Цикл

		Обл = Таб.Область("R"+ВысотаШапки+"C"+(Сч+1));

		// форматируем ширину таблицы

		Ширина = Мин(МаксШирина,2+СпШирина.ПолучитьЗначение(Сч));

		Обл.ШиринаСтолбца(Ширина);   

		// форматируем заголовок

		Обл.Полужирный(1);

	КонецЦикла;	

	Таб.Показать(Заголовок);

	Таб.ТолькоПросмотр(1);

КонецПроцедуры

ИЛИ

Код 1C v 7.x

 Процедура глВывестиТаблицуЗначений(ТаблицаЗначений, Заголовок = "") Экспорт

Перем Таб, ИИ, ЖЖ, НазваниеКолонки, ТипКолонки, Ширина, Значение, Сообщение;



Таб = СоздатьОбъект("Таблица");



Если ТипЗначенияСтр(ТаблицаЗначений) <> "ТаблицаЗначений" Тогда

Сообщение = "В процедуру ""глВывестиТаблицуЗначений()"" передана переменная не типа ""ТаблицаЗначений"", "+

"а типа """+СокрЛП(ТипЗначенияСтр(ТаблицаЗначений))+"""";

Таб.Область(1, 1, 1, 1).Текст = Сообщение;

Таб.Область(1, 1, 1, 1).ШиринаСтолбца(СтрДлина(Сообщение));



Таб.ТолькоПросмотр(1);

Таб.Показать("Не таблица значений: "+Заголовок);



Возврат;

КонецЕсли;



Для ЖЖ = 1 по ТаблицаЗначений.КоличествоКолонок() цикл

ТаблицаЗначений.ПолучитьПараметрыКолонки(ЖЖ,,,, НазваниеКолонки);

Таб.Область(1, ЖЖ, 1, ЖЖ).Текст = СокрЛП(НазваниеКолонки);

Таб.Область(1, ЖЖ, 1, ЖЖ).РамкаОбвести(5, 5, 5, 5);

Таб.Область(1, ЖЖ, 1, ЖЖ).ВертикальноеПоложение(3);

Таб.Область(1, ЖЖ, 1, ЖЖ).ГоризонтальноеПоложение(3);

Таб.Область(1, ЖЖ, 1, ЖЖ).РазмерШрифта(7);

Таб.Область(1, ЖЖ, 1, ЖЖ).Полужирный(1);



Ширина = Таб.Область(1, ЖЖ, 1, ЖЖ).ШиринаСтолбца();

Ширина = Макс(Ширина, СтрДлина(СокрЛП(НазваниеКолонки)));

Таб.Область(1, ЖЖ, 1, ЖЖ).ШиринаСтолбца(Ширина);

КонецЦикла;



Для ИИ = 1 по ТаблицаЗначений.КоличествоСтрок() цикл

Для ЖЖ = 1 по ТаблицаЗначений.КоличествоКолонок() цикл

Значение = ТаблицаЗначений.ПолучитьЗначение(ИИ, ЖЖ);

Таб.Область(ИИ+1, ЖЖ, ИИ+1, ЖЖ).Текст = Значение;

Таб.Область(ИИ+1, ЖЖ, ИИ+1, ЖЖ).Расшифровка(Значение, 0);

Таб.Область(ИИ+1, ЖЖ, ИИ+1, ЖЖ).РамкаОбвести(3, 0, 3, 0);



Ширина = Таб.Область(1, ЖЖ, 1, ЖЖ).ШиринаСтолбца();

Ширина = Макс(Ширина, СтрДлина(СокрЛП(Строка(Значение))));

Таб.Область(1, ЖЖ, 1, ЖЖ).ШиринаСтолбца(Ширина);



ТаблицаЗначений.ПолучитьПараметрыКолонки(ЖЖ, ТипКолонки); ;

Если ТипКолонки = "Число" тогда

Таб.Область(ИИ+1, ЖЖ, ИИ+1, ЖЖ).ГоризонтальноеПоложение(2);

КонецЕсли;

Если ИИ = ТаблицаЗначений.ТекущаяСтрока() тогда

Таб.Область(ИИ+1, ЖЖ, ИИ+1, ЖЖ).ЦветФона(255, 0, 0);

КонецЕсли;

КонецЦикла;

КонецЦикла;



Таб.ТолькоПросмотр(1);

Таб.Показать("Таблица значений: "+Заголовок);

КонецПроцедуры

Категория: Работа с Таблицей Значений