получитьобщуюформу » Поиск

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

Система оповещений Пользователей (универсальная) Категория: Полезные, Универсальные Функции

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

Принудительная установка пароля пользователям, работающим без пароля!

Чтоб заставить всех, кто работает без пароля, установить пароль. Можно применить программный ограничитель. Для этого в модуле приложения добавляем функцию:

Код 1C v 8.х

 //am+
Функция ПроверитьИзменитьПарольПользователя()

    ТекПользовательИБ = ПользователиИнформационнойБазы.ТекущийПользователь();
    Если Не ТекПользовательИБ.ПарольУстановлен Тогда
        ФВП = ПолучитьОбщуюФорму("ФормаВводаПароля");
        ФВП.Заголовок = "Установите пароль на вход в 1С (не менее 6 симв.)";
        ФВП.ОткрытьМодально();
        Если ЗначениеЗаполнено(ФВП.Пароль) Тогда
            Пароль1 = ФВП.Пароль;
            Если СтрДлина(Пароль1)<6 Тогда
                Предупреждение("Длина пароля должна быть не менее 6 символов!");
                Возврат Ложь;
            КонецЕсли;
            ФВП = ПолучитьОбщуюФорму("ФормаВводаПароля");
            ФВП.Заголовок = "Повторите новый пароль";
            ФВП.ОткрытьМодально();
            Если ЗначениеЗаполнено(ФВП.Пароль) Тогда
                Пароль2 = ФВП.Пароль;
                Если Пароль1<>Пароль2 Тогда
                    Предупреждение("Не совпадают пароли!");
                    Возврат Ложь;
                Иначе
                    ТекПользовательИБ.Пароль = Пароль1;
                    ТекПользовательИБ.Записать();
                    Возврат Истина;
                КонецЕсли;
            Иначе
                Возврат Ложь;
            КонецЕсли;
        Иначе
            Возврат Ложь;
        КонецЕсли;
    Иначе
        Возврат Истина;
    КонецЕсли;

КонецФункции
//am-

и в предопредленной процедуре ПриНачалеРаботыСистемы (мы не можем использовать ПередНачаломРаботыСистемы т.к. в ней еще не существует окна программы и нет возможности открыть общую форму ввода пароля) делаем вызов

Код 1C v 8.х

 //am+
Если Не ПроверитьИзменитьПарольПользователя() Тогда
    ЗавершитьРаботуСистемы(Ложь);
    Возврат;
КонецЕсли;
//am-

источник

Категория: Администрирование

Форма ~ Универсальная Форма Вопроса для Пользователя Категория: Работа с Формой (Диалог) и её элементами

Универсальная форма для выбора пользователем значения из списка значений Категория: Работа с Списком Значений