Публикации

БСП
Разработки

Найдено результатов: 2


Формат изображения (уменьшить,обрезать,масштабировать,сжать)

Формат изображения (уменьшить,обрезать,масштабировать,сжать)
Артур 33 4
&НаКлиенте
Процедура сжатьФото(Фото)
	МаксимальнаяШирина	= 700; 
	МаксимальнаяВысота	= 400;
			
	ОбрезкаЛ	=  200;
	ОбрезкаВ	=  0;
	ОбрезкаП	=  200;
	ОбрезкаН	=  0;
	
    // Создаем объект
    ФайлКартинка = Новый COMОбъект("WIA.ImageFile");
    ФайлКартинка.LoadFile(Фото);

    //Сообщить("Картинка: " + Картинка.Имя);
    //Сообщить("    Расширение файла: " + ФайлКартинка.FileExtension);
    //Сообщить("    Ширина: " + ФайлКартинка.Width);
    //Сообщить("    Высота: " + ФайлКартинка.Height);
    //Сообщить("    Размер: " + Окр(ФайлКартинка.FileData.Count / 1024, 2) + " Кб");
        
    ФайлПрогресс = Новый COMОбъект("WIA.ImageProcess"); ///ФайлПрогресс.Filters - список Фильтров, всего 8
		
    ФайлПрогресс.Filters.Add(ФайлПрогресс.FilterInfos("Scale").FilterID);    ///масштабирование  
    ФайлПрогресс.Filters.Add(ФайлПрогресс.FilterInfos("Crop").FilterID);     ///Обрезка
	ФайлПрогресс.Filters.Add(ФайлПрогресс.FilterInfos("Convert").FilterID);  ///Конвертация (Сжатия)
		
	ФайлПрогресс.Filters(1).Properties("MaximumWidth").Value  = МаксимальнаяШирина;        
	ФайлПрогресс.Filters(1).Properties("MaximumHeight").Value = МаксимальнаяВысота;	    
	ФайлПрогресс.Filters(1).Properties("PreserveAspectRatio").Value = Ложь;  ///Сохранять пропорции (По умолчанию было истина - сбивает разрешения высоту и ширину)
	
	//Форматы преобразований имееют следующий формат:
	///wiaFormatBMP    = "{B96B3CAB-0728-11D3-9D7B-0000F81EF32E}";      ///  .BMP
	wiaFormatJPEG   = "{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}";         ///  .JPEG

	ФайлПрогресс.Filters(3).Properties("FormatID").Value = wiaFormatJPEG;
	ФайлПрогресс.Filters(3).Properties("Quality").Value = 50;          ///Качество фотографии  (от 1 - 100); 100 =60КБ  50 = 8КБ

	///Обрезка
	ФайлПрогресс.Filters(2).Properties("Left").Value   =  ОбрезкаЛ;       /// лево;    
	ФайлПрогресс.Filters(2).Properties("Top").Value    =  ОбрезкаВ;       /// верх;     
	ФайлПрогресс.Filters(2).Properties("Right").Value  =  ОбрезкаП;       /// право;    
	ФайлПрогресс.Filters(2).Properties("Bottom").Value =  ОбрезкаН;	      /// низ;      
	
	///Применить фильтры к фотографии
    ФайлКартинка = ФайлПрогресс.Apply(ФайлКартинка);

	///Удалить старое фото и создать новое
	УдалитьФайлы(фото);
    ФайлКартинка.SaveFile(фото);
	
	
	//Сообщить("    Расширение файла: " + ФайлКартинка.FileExtension);
	//Сообщить("    Ширина: " + ФайлКартинка.Width);
	//Сообщить("    Высота: " + ФайлКартинка.Height);
	//Сообщить("    Размер: " + Окр(ФайлКартинка.FileData.Count / 1024, 2) + " Кб");
КонецПроцедуры

Кадровые данные сотрудника

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

// Список всех возможных кадровых данных
//
// ФИОПолные
// Пол
// ТабельныйНомер
// Организация
// Подразделение
// Должность
// ДатаПриема
// ДатаУвольнения
// Возраст
// Фамилия
// Имя
// Отчество
// Наименование
// ФизическоеЛицоНаименование
// Код
// ФизическоеЛицоКод
// АдресДляИнформирования
// АдресДляИнформированияПредставление
// АдресЗаПределамиРФ
// АдресЗаПределамиРФПредставление
// АдресМестаПроживания
// АдресМестаПроживанияПредставление
// АдресПоПрописке
// АдресПоПропискеПредставление
// ТелефонДомашний
// ТелефонДомашнийПредставление
// ТелефонРабочий
// ТелефонРабочийПредставление
// EMail
// EMailПредставление
// ДокументПериодРегистрации
// ДокументВид
// ДокументКодМВД
// ДокументСерия
// ДокументНомер
// ДокументДатаВыдачи
// ДокументСрокДействия
// ДокументКемВыдан
// ДокументКодПодразделения
// ДокументПредставление
// ИнвалидностьПериодРегистрации
// Инвалидность
// ИнвалидностьДатаВыдачи
// ИнвалидностьСрокДействияСправки
// ГражданствоПериодРегистрации
// Страна
// ИННВСтранеГражданства
// ПроцентСевернойНадбавки
// ТекущаяОрганизация
// ТекущееПодразделение
// ТекущаяДолжность
// ТекущийВидЗанятости
// ОсновноеРабочееМестоВОрганизации
// ДатаПриема
// ДатаЗавершенияРаботы
// ОформленПоТрудовомуДоговору
// ДатаУвольнения
// ТекущаяТарифнаяСтавка
// ТекущийСпособРасчетаАванса
// ТекущийАванс
// ДатаНачалаУчета
// ПриказОПриеме
// ПриказОПриемеДата
// ПриказОПриемеНомер
// НазначениеПодработки
// ПриказОбУвольнении
// ПриказОбУвольненииДата
// ПриказОбУвольненииНомер
// ПриказОбУвольненииСтатьяТКРФ
// ПрекращениеПодработки
// РабочееМестоПериодРегистрации
// РабочееМестоРегистратор
// ВидСобытия
// КоличествоСтавок
// ЭтоГоловнойСотрудник
// УчетЗатратПериодРегистрации
// СпособОтраженияЗарплатыВБухучете
// ОтношениеКЕНВД
// СтатьяФинансирования
// УчетЗатратДокументОснование
// ОплатаТрудаПериодЗаписи
// ОплатаТрудаРегистратор
// ТарифнаяСтавка
// ФОТ
// Надбавка
// ВидЗанятостиПериодЗаписи
// ВидЗанятостиРегистратор
// ВидЗанятости
// АвансПериодЗаписи
// АвансРегистратор
// СпособРасчетаАванса
// Аванс
// КлассУсловийТрудаПериодРегистрации
// КлассУсловийТруда
// КлассУсловийТрудаДатаРегистрацииИзменений
// ЗарплатныйПроектПериодРегистрации
// ЗарплатныйПроектРегистратор
// ЗарплатныйПроект
// НомерЛицевогоСчета.