индикатора » Поиск

Результаты по ключевому слову: индикатора

Универсальная функция для чтения данных из 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

Подключение к ИБ через Com, Получение списка документов и их Загрузка

Код 1C v 8.х

  //Пример кода
Перем Подключились;
Перем COMОбъект;

Функция ПолучитьНом(Выборка)
	
	Ном = Справочники.Номенклатура.НайтиПоНаименованию(СокрЛП(Выборка.Номенклатура));
	
	Если Ном.Пустая() Тогда
		ВвестиЗначение(Ном, "Выберите номенклатуру " + СокрЛП(Выборка.Номенклатура), Тип("СправочникСсылка.Номенклатура"));
	КонецЕсли;
	
	Возврат Ном;
	
КонецФункции


Функция ПодключитьсяКCRM()
	
	Подключились = Истина;
	
	Попытка
		Подкл = Новый COMОбъект("V82.COMConnector");
		COMОбъект = Подкл.Connect("Srvr=""Server1"";Ref=""TradeUT"";Usr=""ObmenBot"";Pwd=""12345""");
	Исключение
		Сообщить(ОписаниеОшибки());
		Подключились = Ложь;
	КонецПопытки;
	
	Возврат Подключились;
	
КонецФункции

Процедура Реализации_Анализ(Элемент)
	
	Если не Подключились Тогда
		Если не ПодключитьсяКCRM() Тогда
			Возврат;
		КонецЕсли;
	КонецЕсли;
	
	Запрос = COMОбъект.NewObject("Запрос");
	
	Запрос.Текст = ПолучитьМакет("ЗапросПродажи").ПолучитьТекст();
	
	Запрос.УстановитьПараметр("Дата1", НачалоДня(ДатаНач));
	Запрос.УстановитьПараметр("Дата2", КонецДня(ДатаКон));
	
	глРезультатЗапросаПродажи = Запрос.Выполнить();
	
	Выборка = глРезультатЗапросаПродажи.Выбрать(COMОбъект.ОбходРезультатаЗапроса.ПоГруппировкам);
	
	ДокРеал = Документы.РеализацияТоваровУслуг;
	СпрКонтр = Справочники.Контрагенты;
	
	ТаблицаДокументов.Очистить();
	
	Пока Выборка.Следующий() Цикл
		ОбработкаПрерыванияПользователя();
		Стр = ТаблицаДокументов.Добавить();
		ЗаполнитьЗначенияСвойств(Стр, Выборка);
		Стр.Документ = ДокРеал.НайтиПоНомеру(Стр.Номер, Стр.Дата);
		Стр.ТекстКонтрагент = Выборка.КонтрагентНаименование + ", ИНН " + Выборка.ИННКонтрагента;
		Если не ПустаяСтрока(Выборка.ИННКонтрагента) Тогда
			ВыборкаКонтр = СпрКонтр.Выбрать(,, Новый Структура("ИНН", Выборка.ИННКонтрагента));
			Пока ВыборкаКонтр.Следующий() Цикл
				Если не ЗначениеЗаполнено(Стр.Контрагент) или ВыборкаКонтр.КПП = Выборка.КППКонтрагента Тогда
					Стр.Контрагент = ВыборкаКонтр.Ссылка;
				КонецЕсли;
			КонецЦикла;
		КонецЕсли;
		
	КонецЦикла;
	
	ЭлементыФормы.кнЗагрузитьШаг1.Доступность = Истина;
	ЭлементыФормы.ИндикаторРеал.МаксимальноеЗначение = ТаблицаДокументов.Количество(); 
	
КонецПроцедуры

Процедура Реализации_Загрузить(Элемент)
	
	ЭлементыФормы.ИндикаторРеал.МаксимальноеЗначение = ТаблицаДокументов.Количество(); 
	ЗначениеИндикатораРеал = 0;
	
	ДокРеал = Документы.РеализацияТоваровУслуг;
	
	ВыборкаДок = глРезультатЗапросаПродажи.Выбрать(COMОбъект.ОбходРезультатаЗапроса.ПоГруппировкам);
	
	мСписокВидовДоговоров = Новый СписокЗначений;
	мСписокВидовДоговоров.Добавить(Перечисления.ВидыДоговоровКонтрагентов.СПокупателем);
	
	СпособЗаполненияЦен = Перечисления.СпособыЗаполненияЦен.ПоЦенамНоменклатуры;
	
	Пока ВыборкаДок.Следующий() Цикл
		ЗначениеИндикатораРеал = ЗначениеИндикатораРеал + 1;
		
		СтрокаТаб = ТаблицаДокументов.Найти(ВыборкаДок.Номер, "Номер");
		
		Если СтрокаТаб <> Неопределено Тогда
			Если ЗначениеЗаполнено(СтрокаТаб.Документ) Тогда
				Док = СтрокаТаб.Документ.ПолучитьОбъект();
				Док.Товары.Очистить();
				Док.Услуги.Очистить();
			Иначе
				Док = ДокРеал.СоздатьДокумент();
			КонецЕсли;
			
			
			Док.Дата = ВыборкаДок.Дата;
			Док.Номер = ВыборкаДок.Номер;
			Док.Контрагент = СтрокаТаб.Контрагент;
			
			ЗаполнениеДокументов.ЗаполнитьШапкуДокумента(Док, глЗначениеПеременной("глТекущийПользователь"), Док.мВалютаРегламентированногоУчета, "Продажа");
			ЗаполнениеДокументов.ПриИзмененииЗначенияКонтрагента(Док, мСписокВидовДоговоров);
			ЗаполнениеДокументов.ПриИзмененииЗначенияДоговора(Док, Док.ВалютаДокумента, Док.мВалютаРегламентированногоУчета, СпособЗаполненияЦен, Ценообразование.ПолучитьСтруктуруРеквизитовДокументаДляЦенообразования(Док), "Продажа", "Товары", Неопределено);
			
			Док.ЗаполнитьСчетаУчетаРасчетов();
			
			Док.УчитыватьНДС = Ложь;
			
			ВыборкаНом = ВыборкаДок.Выбрать(COMОбъект.ОбходРезультатаЗапроса.ПоГруппировкам);
			Пока ВыборкаНом.Следующий() Цикл
				
				ОбработкаПрерыванияПользователя();
				
				Ном = ПолучитьНом(ВыборкаНом);
				
				Если ВыборкаНом.Идентификатор = 1 Тогда
					СтрокаТЧ = Док.Товары.Добавить();
					СтрокаТЧ.Номенклатура = Ном;
					Док.ЗаполнитьСчетаУчетаВСтрокеТабЧасти(СтрокаТЧ, "Товары", Истина);
				Иначе
					СтрокаТЧ = Док.Услуги.Добавить();
					СтрокаТЧ.Номенклатура = Ном;
					Док.ЗаполнитьСчетаУчетаВСтрокеТабЧастиУслуги(СтрокаТЧ, ИСТИНА);
					ОбработкаТабличныхЧастей.ЗаполнитьСодержаниеТабЧасти(СтрокаТЧ, Док);
				КонецЕсли;
				
					
				ОбработкаТабличныхЧастей.ЗаполнитьСтавкуНДСТабЧасти(СтрокаТЧ, Док);
				ОбработкаТабличныхЧастей.ЗаполнитьЕдиницуЦенуПродажиТабЧасти(СтрокаТЧ, Док, Док.мВалютаРегламентированногоУчета);
				
				СтрокаТЧ.Количество = ВыборкаНом.Количество;
				СтрокаТЧ.Сумма = ВыборкаНом.Сумма;
				СтрокаТЧ.Цена = СтрокаТЧ.Сумма / ?(ВыборкаНом.Количество = 0, 1, ВыборкаНом.Количество);
				
			КонецЦикла;
			
			Если не ВыборкаДок.ДоставкаОтдельно и ВыборкаДок.СтоимостьДоставкиПлан <> 0 Тогда
				СтрокаТЧ = Док.Товары.Добавить();
				СтрокаТЧ.Номенклатура = Док.Товары[0].Номенклатура;
				Док.ЗаполнитьСчетаУчетаВСтрокеТабЧасти(СтрокаТЧ, "Товары", Истина);
				ОбработкаТабличныхЧастей.ЗаполнитьСтавкуНДСТабЧасти(СтрокаТЧ, Док);
				ОбработкаТабличныхЧастей.ЗаполнитьЕдиницуЦенуПродажиТабЧасти(СтрокаТЧ, Док, Док.мВалютаРегламентированногоУчета);
				СтрокаТЧ.Сумма = - ВыборкаДок.СтоимостьДоставкиПлан;
				
				СтрокаТЧ = Док.Услуги.Добавить();
				СтрокаТЧ.Номенклатура = Справочники.Номенклатура.ТранспортныеУслуги;
				Док.ЗаполнитьСчетаУчетаВСтрокеТабЧастиУслуги(СтрокаТЧ, ИСТИНА);
				ОбработкаТабличныхЧастей.ЗаполнитьСодержаниеТабЧасти(СтрокаТЧ, Док);
				ОбработкаТабличныхЧастей.ЗаполнитьСтавкуНДСТабЧасти(СтрокаТЧ, Док);
				ОбработкаТабличныхЧастей.ЗаполнитьЕдиницуЦенуПродажиТабЧасти(СтрокаТЧ, Док, Док.мВалютаРегламентированногоУчета);
				СтрокаТЧ.Количество = 1;
				СтрокаТЧ.Цена = ВыборкаДок.СтоимостьДоставкиПлан;
				СтрокаТЧ.Сумма = ВыборкаДок.СтоимостьДоставкиПлан;
				
			КонецЕсли;
			
			Ош = Ложь;
			Попытка
				Док.Записать(?(Проводить, РежимЗаписиДокумента.Проведение, РежимЗаписиДокумента.Запись));
				Ош = Истина;
			Исключение
			КонецПопытки;
			
			Если Ош и Проводить Тогда
				Док.Записать(РежимЗаписиДокумента.Запись);
			КонецЕсли;
			
			СтрокаТаб.Документ = Док.Ссылка;
			
		КонецЕсли;
			
	КонецЦикла;
	
КонецПроцедуры

Подключились = Ложь;

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

Индикатор выполнения

Код 1C v 8.х

 // Индикатор выполнения обработки результата запроса
Выборка = РезультатЗапроса.Выбрать(); 
Индикатор = ЭлементыФормы.ИндикаторПеребора; 
Индикатор.МаксимальноеЗначение = Выборка.Количество(); 
Индикатор.Значение = 0; 
Пока Выборка.Следующий() Цикл 
    Индикатор.Значение = Индикатор.Значение + 1; 
КонецЦикла;

Код 1C v 8.х

 // Индикатор выполнения вывода результата запроса с расширенной настройкой
Выборка = РезультатЗапроса.Выбрать(); 
Индикатор = ЭлементыФормы.ИндикаторПеребора; 
Индикатор.МаксимальноеЗначение = Выборка.Количество(); 
Индикатор.Значение = 0; 
Индикатор.ОтображатьПроценты = Истина; 
Индикатор.СтильОтображения = РежимСглаживанияИндикатора.Прерывистый; 
Индикатор.Ориентация = Ориентация.Вертикально; 
Индикатор.Шаг = 0.1; 
Пока Выборка.Следующий() Цикл 
    Индикатор.Значение = Индикатор.Значение + 1;
КонецЦикла;

Индикатор в строке состояния с помощью СКД
Иногда хочется видеть подобие индикатора, но в строке состояния. Это можно сделать только с помощью СКД, и то есть небольшой минус: невозможно убрать или изменить надпись «Вывод отчета». Сделать это можно примерно следующим образом:

Код 1C v 8.х

 ПроцессорКомпоновки = Новый ПроцессорВыводаРезультатаКомпоновкиДанных
ВТабличныйДокумент;
ПроцессорКомпоновки.ОтображатьПроцентВывода = Истина ;
ЭлементКомпоновки = Новый ЭлементРезультатаКомпоновкиДанных;

ПроцессорКомпоновки.НачатьВывод();
//Считаем проценты по своему алгоритму, для примера:
Для Сч = 1 По 100 Цикл
   ЭлементКомпоновки.ПроцентВывода = Сч;
   ПроцессорКомпоновки.ВывестиЭлемент(ЭлементКомпоновки);
КонецЦикла;
ПроцессорКомпоновки.ЗакончитьВывод();

Для 1С 7.7 посмотрите v7: Прогресс бар в строке состояния

Категория: Встроенные Функции

Как выгрузиться в EXCEL со сводными таблицами

Пошаговый рабочий алгоритм выгрузки в EXCEL на примере выгрузки отчетов производства за смену(Автор статьи: Funny):

(1) Нарисовать форму обработки и к кнопке запуска прицепить процедуру:

Код 1C v 8.х

 Процедура КнопкаВыполнитьНажатие(Кнопка)
    
    Если ПроверкаДат() Тогда 
         Состояние("Запущена выгрузка данных");
         ПолучитьДанныеВТаблице();
         Если чОтчетов<>0 Тогда
                СортироватьТаблицу();
              ВыгрузитьТаблицуВФайл();
              ЗакрытьСистему();
              Состояние("Выгрузка завершена");
         Иначе
              //ЗакрытьСистемуАварийно();
 
         КонецЕсли;
    КонецЕсли;    
КонецПроцедуры

(2) Создадим функцию ПроверкаДат() корректного указания дат обработки
(3) Создадим процедуру ПолучитьДанныеВТаблице() выборки требуемых данных из документов в таблицу значений
(4) Создадим процедуру СортироватьТаблицу() для сортировки таблицы значений как нам нужно
(5) Создадим процедуру ВыгрузитьТаблицуВФайл() выгрузки ТЗ в Excel-файл:

Код 1C v 8.х

 Процедура ВыгрузитьТаблицуВФайл()
    
        //1. Open Excel-file 
 
               Если FileOfReports = Неопределено Тогда
            Попытка
                FileOfReports = Новый COMОбъект("Excel.Application");
                MyBook=FileOfReports.WorkBooks.Add(истина); //вместо истина можно вставить имя шаблона
 
                
                FirstSheet=MyBook.Worksheets(1);
                FirstSheet.Name = ОпределитьДату(НачПериода)+"-"+ОпределитьДату(КонПериода);
                FirstSheet.Activate();

                MyBook.SaveAs(КаталогDBF+"ОтчетыПроизводства.xls");
                
            Исключение
                Сообщить("ОШИБКА ЗАПИСИ В EXCEL-ФАЙЛ:"+ОписаниеОшибки());
                Сообщить("Совет: Возможно файл, в который должна быть произведена запись, Вами открыт для просмотра");
                Сообщить("Если это так, то закройте файл и запустите данную обработку повторно!");
            КонецПопытки;
            
            FileOfReports.Visible = 0;
        Иначе
            FileOfReports.Visible = 0;
            //FileOfReports.Visible = 1;
 
        КонецЕсли;
    
        //2.=========================================================================
        //Состояние("Анализ структуры файла...");
         
        чОтчетов = ТаблицаОтчетов.Количество();
        
        ЭлементыФормы.ИндикаторЗагрузки.МинимальноеЗначение = 0;
        ЭлементыФормы.ИндикаторЗагрузки.МаксимальноеЗначение = чОтчетов;
            
        ЭлементыФормы.Logo.Заголовок = "Выгружаю документы";
        лСчетчикИндикатора = 0;
        
        ВыгрузитьЗаголовокТаблицы(26);
        
        //ВЫГРУЖАЮ ТАБЛИЦУ В ФАЙЛ ПО СТРОКАМ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 
        фСтарт=истина; //флаг первого прохода
 
        чОт=2;         //номер первой строки с данными
         
        Пока чОтчетов >= 1 Цикл //Цикл по строкам Таблицы отчетов
 
              чОтчетов = чОтчетов -1;
              СтрокаОтчетов = ТаблицаОтчетов.Получить(чОтчетов);
             Если (СтрокаОтчетов.ДатаВыпуска=ДатаВыпускаПред) 
                И (СтрокаОтчетов.Принадлежность=ПринадлежностьПред)
                И (СтрокаОтчетов.Типоразмер=ТипоразмерПред)
                И (СтрокаОтчетов.ТипОсновы=ТипОсновыПред)
             Тогда
             Иначе
                ДатаВыпускаПред=СтрокаОтчетов.ДатаВыпуска; 
                ПринадлежностьПред=СтрокаОтчетов.Принадлежность;
                ТипоразмерПред=СтрокаОтчетов.Типоразмер;
                ТипОсновыПред=СтрокаОтчетов.ТипОсновы;
                Если фСтарт Тогда
                     фСтарт = ложь; //Уже не первый проход
 
                Иначе     
                     чДо=глСчетчикСтрок;
                     ВыгрузитьСтрокуИтог(чОт,чДо,26);
                КонецЕсли;
                чОт=глСчетчикСтрок;
             КонецЕсли;
             
             ВыгрузитьСтрокуОтчетовВФайл(СтрокаОтчетов,26);
             
             лСчетчикИндикатора = лСчетчикИндикатора + 1;
             ЭлементыФормы.ИндикаторЗагрузки.Значение = лСчетчикИндикатора;
             
             ОбработкаПрерыванияПользователя();
        
        КонецЦикла;
        чДо=глСчетчикСтрок;
        ВыгрузитьСтрокуИтог(чОт,чДо,26);
 
        //КОНЕЦ ВЫГРУЗКИ СТРОК В ФАЙЛ 
 
        Состояние("Данные файла выгружены");               
        //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 
        libСообщитьНК1("ИНФО: ШАГ 1 ВЫПОЛНЕН. Данные файла Отчеты.DBF успешно считаны",1);    
        
        //Состояние("Создание сводных таблиц");
 
        ЭлементыФормы.Logo.Заголовок = "Создание сводных таблиц";
        
        //РазделитьОбласти();
 
            //Range("A2").S_elect
 
            //ActiveWindow.FreezePanes = True
 
        СоздатьТаблицуЛист(MyBook.Worksheets(1).Name,"наим","Дата","Наим","","К");
        СоздатьТаблицуЛист(MyBook.Worksheets(1).Name,"ЮВ","Дата","Наим,Каркас,Вид","","К");
        СоздатьТаблицуЛист(MyBook.Worksheets(1).Name,"В пр(2)","Дата","Наим,Каркас,Основа","","К");
        СоздатьТаблицуЛист(MyBook.Worksheets(1).Name,"В пр","Дата","Каркас,Основа","","К");
        СоздатьТаблицуЛист(MyBook.Worksheets(1).Name,"Основа","Дата","Основа","","кг основы");
        СоздатьТаблицуЛист(MyBook.Worksheets(1).Name,"Напыление","","Напылен","","кг напылен");
        СоздатьТаблицуЛист(MyBook.Worksheets(1).Name,"Клей","","Дата","","кг клея");
            
КонецПроцедуры

Процедура СоздатьТаблицуЛист(стрДанные,стрСводнаяТаблица,стрПоле1,стрПоле2,стрПоле3,стрПоле4);
    
    //Создает сводную таблицу стрСводнаяТаблица с полями (стрПоле4 - поле реквизита) 
     //и размещает ее на одноименном листе
     //Заполняет сводную таблицу данными, взятыми с листа стрДанные
     
    //Поле стрПоле2 может быть полем списка через запятую
   
    //0. Вспомогательный разбор списка значений в стрПоле2 и определение числа значений
 
         лПоля.Очистить(); //сбросим все значения, если таковые весели в памяти
 
         стрПоля=стрПоле2;
         i=1;//число значений в списке
 
         Пока Найти(стрПоля,",")<>0 Цикл
             
              n=Найти(стрПоля,",");
              лПоля.Добавить(Сред(стрПоля,1,n-1));
              стрПоля=Сред(стрПоля,n+1);
              i=i+1;
              
         КонецЦикла;      
         лПоля.Добавить(стрПоля);
         
    //1. Установить диапазон выборки данных
     FirstSheet.Activate();
    дДиапазонДанных=FirstSheet.UsedRange.Address;
    ДиапазонДанных=FirstSheet.Name+"!"+Строка(дДиапазонДанных);    
    
    //2. Создать кэш под сводную таблицу
    //   аргументы не переменные, а текст с именем переменных (crazy)
     
         SourceType = xlDatabase;
         SourceData = ДиапазонДанных;
    
         Cache = MyBook.PivotCaches().Add(SourceType, SourceData);
 
    //для отладки: FileOfReports.Visible = 1;   
           
    //3. Породить из кэша сводную таблицу с именем стрСводнаяТаблица
         TableDestination="";
         TableName=стрСводнаяТаблица;
    
         Cache.CreatePivotTable(TableDestination,TableName);
    
    //4. Определить представление данных в сводной таблице
     //стрПоле1
 
    Если СокрЛП(стрПоле1)<>"" Тогда
         MyBook.ActiveSheet.PivotTables(TableName).PivotFields(стрПоле1).Orientation = 3; //xlRowField=1 то, что указывается справа у таблицы
 
    КонецЕсли;
    
    //стрПоле2
 
    чНомер=0;
    Пока чНомер<i Цикл 
         Если СокрЛП(лПоля[чНомер].Значение)<>"" Тогда
               MyBook.ActiveSheet.PivotTables(TableName).PivotFields(лПоля[чНомер].Значение).Orientation = 1; 
         КонецЕсли;

         чНомер = чНомер + 1;  
    КонецЦикла;      

    //стрПоле3
 
    Если СокрЛП(стрПоле3)<>"" Тогда
         MyBook.ActiveSheet.PivotTables(TableName).PivotFields(стрПоле3).Orientation = 2; //xlColumnField=2 то, что указывается в вепрхней части таблицы
 
    КонецЕсли;
    
    //стрПоле4
 
    Если СокрЛП(стрПоле4)<>"" Тогда
         MyBook.ActiveSheet.PivotTables(TableName).PivotFields(стрПоле4).Orientation = 4; //xlCount=4 data
 
    КонецЕсли;
    
    //5. Скрыть пустые строки в стрПоле2, предварительно проверив, что таковые СУЩЕСТВУЮТ!!!!
    //стрПоле2
 
    чНомер=0;
    Пока чНомер<i Цикл 
         Если СокрЛП(лПоля[чНомер].Значение)<>"" Тогда
              Если IfPivotItemExists(TableName,лПоля[чНомер].Значение,"(пусто)")Тогда
                    MyBook.ActiveSheet.PivotTables(TableName).PivotFields(лПоля[чНомер].Значение).PivotItems("(пусто)").Visible = False;
              КонецЕсли;
         КонецЕсли;
         чНомер = чНомер + 1;  
    КонецЦикла;      
             
    //6. Закрыть вспомогательные панели                                                  
 
        MyBook.ShowPivotTableFieldList = False;
        FileOfReports.CommandBars("PivotTable").Visible = False;
    
    //7. Присвоить активному листу имя, заданное в параметрах процедуры
 
        MyBook.ActiveSheet.Name = стрСводнаяТаблица;
    
    //8. Сохранить файл
 
        MyBook.Save();
    
КонецПроцедуры

Функция IfPivotItemExists(strTableName,strFieldName,strItemName)
//Проверяет существование позиции поля сводной таблицы со значением strItemName    
 
        nItems = MyBook.ActiveSheet.PivotTables(strTableName).PivotFields(strFieldName).PivotItems().Count;
        i = 1;
        Пока i <= nItems Цикл
            Если strItemName=MyBook.ActiveSheet.PivotTables(strTableName).PivotFields(strFieldName).PivotItems(i).Name Тогда
                 //Искомая позиция strItemName существует:
 
                 //Сообщить("Позиция "+strItemName+" найдена");
 
                 Возврат True;
            КонецЕсли;
            i=i+1; 
        КонецЦикла;
        
        //Сообщить("Позиция "+strItemName+" не найдена");
 
        Возврат False;
        
КонецФункции

Код 1C v 7.x

  РабочаяКнига = СоздатьОбъект("Excel.Application");
РабочаяКнига.SheetsInNewWorkbook = 1;
РабочаяКнига.Caption = "Отчет по договорам отгрузки";
NewBook = РабочаяКнига.Workbooks;
List = NewBook.Add;

СписокСтолбцов = СоздатьОбъект("СписокЗначений");
СписокСтолбцов.ДобавитьЗначение("Модель");
СписокСтолбцов.ДобавитьЗначение("Разнорядка");
СписокСтолбцов.ДобавитьЗначение("По договору");
СписокСтолбцов.ДобавитьЗначение("Отгрузили");
СписокСтолбцов.ДобавитьЗначение("Осталось");

//Заполним наименование столбцов: Модель, Разнорядка, Количество
Для Столбец = 1 По СписокСтолбцов.РазмерСписка() Цикл
	Ячейка = РабочаяКнига.Cells(1,Столбец);
	Ячейка.Value = СписокСтолбцов.ПолучитьЗначение(Столбец);
КонецЦикла; 

//Формируем запрос по регистру
//	//Создание объекта типа Запрос
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса =
"//{{ЗАПРОС(Сформировать)
|Период с ДатаНач по ДатаКон;
|Разнорядка = Регистр.УчетДоговоров.Разнорядка;
|Модель = Регистр.УчетДоговоров.Модель.Группа;
|Колво = Регистр.УчетДоговоров.Количество;
|Функция КолвоПриход = Приход(Колво);
|Функция КолвоРасход = Расход(Колво);
|Функция КолвоОст = КонОст(Колво);
|Группировка Разнорядка;
|Группировка Модель;
|"//}}ЗАПРОС
;

// Если ошибка в запросе, то выход из процедуры
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
	Возврат;
КонецЕсли;

НомерСтроки = 1;
Пока Запрос.Группировка("Разнорядка") = 1 Цикл
	Пока Запрос.Группировка("Модель") = 1 Цикл 
		Модель = Запрос.Модель;
		Разнорядка = Запрос.Разнорядка;
		КолПоДоговору = Запрос.КолвоПриход;
		КолОтгрузили = Запрос.КолвоРасход;
		КолОсталось = Запрос.КолвоОст;
		НомерСтроки = НомерСтроки + 1;
		//Организум заполнение ячеек Excel
		Для Ст = 1 По СписокСтолбцов.РазмерСписка() Цикл
			Ячейка = РабочаяКнига.Cells(НомерСтроки,Ст);
			Если Ст = 1 Тогда
				Ячейка.Value = Модель;
			ИначеЕсли Ст = 2 Тогда
				Ячейка.Value = Строка(Разнорядка);
			ИначеЕсли Ст = 3 Тогда
				Ячейка.Value = КолПоДоговору;
			ИначеЕсли Ст = 4 Тогда
				Ячейка.Value = КолОтгрузили;
			ИначеЕсли Ст = 5 Тогда
				Ячейка.Value = КолОсталось;
			КонецЕсли;
		КонецЦикла;	
	КонецЦикла;
КонецЦикла; 
СводнаяТаблица = РабочаяКнига.ActiveSheet.PivotTableWizard;
//Метод СводнаяТаблица.Name возвращает имя сводной таблицы
//Можно задать имя таблицы СводнаяТаблица.Name = "МояТаблица"
СводнаяТаблица.SmallGrid = 0;
//Разворачивает макет сводной таблицы 

//Обращение к ячейкам сводной таблицы возможно по номеру
//Например, СводнаяТаблица.PivotFields(1).Value 
//возвращает значение "Модель"

//Попробуем с другого конца
//1 - Row
//2 - Column
//3 - Page
//4 - Data
СводнаяТаблица.PivotFields(1).Orientation = 1;    //Модель 
СводнаяТаблица.PivotFields(2).Orientation = 3;    //Разнорядка
СводнаяТаблица.PivotFields(3).Orientation = 4;    //По договору
СводнаяТаблица.PivotFields(4).Orientation = 4;    //Отгрузили
СводнаяТаблица.PivotFields(5).Orientation = 4;    //Осталось

//Пройдемся по форме отчета
СводнаяТаблица.Format(1);

//Попробуем закрыть панель инструментов сводной таблицы
РабочаяКнига.CommandBars("PivotTable").Visible = 0;
РабочаяКнига.Visible = 1;

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

Запрос к базе данных SQL

Код 1C v 8.х

 Функция ПодключитьCOMОбъект(Путь) Экспорт 
    Отказ = Ложь;
    
    COMСоединение = Новый COMОбъект("ADODB.Connection");
    COMСоединение.ConnectionString  = ".....";
    COMСоединение.ConnectionTimeOut = 1200;
    COMСоединение.CursorLocation    = 3;
    
    Попытка
        COMСоединение.Open(COMСоединение.ConnectionString);
    Исключение
        Отказ = Истина;
        COMСоединение = "";
        Предупреждение("Невозможно установить соединение - " + ОписаниеОшибки());
        Возврат НЕ Отказ;
    КонецПопытки;
    
    Возврат НЕ Отказ;
КонецФункции

Процедура КнопкаВыплонитьНажатие(Кнопка)
    Если НЕ ПодключитьCOMОбъект(ПутьКФайлуГДБ) Тогда
        ЗакрытьФормуИндикатора();
        Возврат;    
    КонецЕсли;


    КомандаАДО = Новый COMОбъект("ADODB.Command");
    
    ТекстЗапроса = "S_elect id from nomenclature where ext_1c_id = 1";

    Рекордсет = Новый COMОбъект("ADODB.Recordset");
    Попытка
        Рекордсет = КомандаАДО.Execute();
    Исключение
        Предупреждение("Не получилось выполнить запрос!" + " - " + ОписаниеОшибки());
    КонецПопытки;
   Рекордсет.MoveFirst();                                                               
    Пока Рекордсет.EOF() = 0 Цикл   
       ОбработкаПрерыванияПользователя();
           айди = Рекордсет.Fields("id").Value;
           Сообщить(айди);
        КонецЦикла; 
КонецПроцедуры

еще пример:

Код 1C v 8.х

 стрПодключения = "Driver={SQL Server};"
стрПодключения = стрПодключения + ИмяСервера + ";";
стрПодключения = стрПодключения +"Uid=" + ИмяПользователя + ";";
стрПодключения = стрПодключения + "Pwd=" + Пароль + ";";
стрПодключения = стрПодключения + "DataBase =" + ИмяБазы + ";";
стрПодключения = стрПодключения + "Pwd=" + Пароль + ";";

Connection = Новый COMОбъект("ADODB.Connection");
Connection.OpenServer = стрПодключения;

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

// Запрос к базе на языке SQL запросов.
RS.Open("S_elect * from TradeUnit", Connection);

Пока RS.EOF() = 0 Цикл

// Можно обращаться и обрабатывать значения полей выборки.
ИД = RS.Fields("ID").Value;
Код = RS.Fields("Code").Value;
   // Обработка других полей
RS.MoveNext();
КонецЦикла;

RS.Close();
Connection.Close();

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

Прогресс бар в строке состояния

Для наглядного представления продолжительного процесса выполнения обработки данных можно реализовать строку прогресса в строке состояния при помощи псевдографики.

Код 1C v 7.x

 //Пример процедуры обработки таблицы значений ТЗ
//Размер прогрессора задан в 20 символов (5%)
Процедура ОБработкаДанных()
    РазмерИндикатора = ТЗ.КоличествоСтрок();
    Индикатор = "";
    Для А = 1 По 20 Цикл
        Индикатор = Индикатор + "    ";
    КонецЦикла;        
    Счетчик = 0;
    //Текст обработки строк ТЗ
    ТЗ.ВыбратьСтроки();
    Пока ТЗ.ПолуичтьСтроку() = 1 Цикл
        Счетчик = Счетчик + 1;
        //Обработка строки
        Показатель = Цел(Счетчик/РазмерИндикатора * 100);
        Если Цел(Показатель/5) = Показатель/5 Тогда
            Индикатор = "";
            Для А = 1 По 20 Цикл
                Индикатор = Индикатор + ?(А<=Показатель/5,Симв(127),"    ");  
            КонецЦикла;        
            Состояние(Индикатор + "| Анализ адресов; " + Показатель + "%");
        КонецЕсли;
    КонецЦикла;
КонецПроцедуры

Код 1C v 7.x

 // ПрогрессБар в строке состояния. Маленький, шустренький
Процедура глПрогрессор(Сообщение,Всего,Текущ) Экспорт
Если Всего>0 Тогда
 Процент=Цел(Текущ/Всего * 100);
 Если Процент > Цел((Текущ-1)/Всего * 100) Тогда
   Состояние(Сообщение + ": "+Формат(Процент,"Ч(0)2")+"% "+СтрЗаменить(Формат("","С"+Мин(99,Процент))," ","l")+СтрЗаменить(Формат("","С"+Мин(99,99-Процент))," ","'")+"l");
 КонецЕсли;
КонецЕсли;
КонецПроцедуры

// Вот пример использования:
Для ин=1 По 100000 Цикл
  глПрогрессор("Тест",100000,ин);
КонецЦикла;

Категория: Полезные, Универсальные Функции