|
******Spravochniki o`qituvchilar ning modul qismi*******
&НаКлиенте
Процедура юклаш(Команда)
ОткрытьФормуМодально("ОбщаяФорма.МехнатФаолияти");
//ДиалогВыбора = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
//ДиалогВыбора.Заголовок = "Выберите файл";
//
//Если ДиалогВыбора.Выбрать() Тогда
// ИмяФайла = ДиалогВыбора.ПолноеИмяФайла;
// юклаш1(имяфайла);
// Предупреждение("Малумотлар юкланди");
//
//КонецЕсли;
Расмноми="";
Расмйўли="";
Если ПоместитьФайл(Расмйўли,,Расмноми,Истина)=Истина тогда
//фффф(Расмйўли);
ф=юклаш1(расмноми);
Расмноми="";
Расмйўли="";
Для н=1 по 100 цикл
Состояние("Маълумот юкланмоқда...",н);
КонецЦикла;
если ф=0 Тогда
Предупреждение("Юкланишда хатолик рўй берди!!!");
Иначе
Предупреждение("Малумотлар юкланди");
КонецЕсли;
КонецЕсли;
КонецПроцедуры
Функция юклаш1(имяфайла)
Попытка
Excel = Новый COMОбъект("Excel.Application");
Excel.WorkBooks.Open(имяфайла);
//Состояние("Обработка файла Microsoft Excel...");
Исключение
Сообщить("Ошибка при открытии файла с помощью Excel! Загрузка не будет произведена!");
Возврат 0;
КонецПопытки;
Попытка
//Открываем необходимый лист
Excel.Sheets(Константы.Лист.Получить()).Select(); // лист 1, по умолчанию
Исключение
//Закрываем Excel
Excel.ActiveWorkbook.Close();
Excel = 0;
Сообщить("Файл "+Строка(имяфайла)+" не соответствует необходимому формату! Первый лист не найден!");
ОтменитьТранзакцию();
Возврат 0;
КонецПопытки;
//Получим количество строк и колонок.
//В разных версиях Excel получаются по-разному, поэтому сначала определим версию Excel
Версия = Лев(Excel.Version,Найти(Excel.Version,".")-1);
Если Версия = "8" тогда
ФайлСтрок = Excel.Cells.CurrentRegion.Rows.Count;
ФайлКолонок = Макс(Excel.Cells.CurrentRegion.Columns.Count, 13);
Иначе
ФайлСтрок = Excel.Cells(1,1).SpecialCells(11).Row;
ФайлКолонок = Excel.Cells(1,1).SpecialCells(11).Column;
Конецесли;
если Константы.Сатрохирибор.Получить()=Истина тогда
ф=Константы.СатрОхири.Получить();
Иначе
ф=ФайлСтрок;
КонецЕсли;
для й=Константы.Сатр.Получить() по ф цикл
кар=Объект.стаж.Добавить();
кар.давир=Excel.Cells(й,Константы.Давр.Получить()).Text;
кар.манзил=Excel.Cells(й,Константы.Лавозим.Получить()).Text;
кар.БуйруқНомери=Excel.Cells(й,Константы.Буйруқномер.Получить()).Text;
кар.вақт=Формат(Excel.Cells(й,Константы.БерилганВақт.Получить()).Text+" 23:59:59", "ДФ=dd.MM.yyyy");
КонецЦикла;
Возврат 1;
Excel.ActiveWorkbook.Close();
Excel = 0;
КонецФункции
&НаКлиенте
Процедура УчотиВақтинчаПриИзменении(Элемент)
стч=Элементы.Учоти.ТекущиеДанные;
Если стч.доими=Истина тогда
стч.доими=Ложь;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура УчотиДоимиПриИзменении(Элемент)
стч=Элементы.Учоти.ТекущиеДанные;
Если стч.вақтинча=Истина тогда
стч.вақтинча=Ложь;
КонецЕсли;
КонецПроцедуры
Функция фотойўли()
Возврат Константы.Фотойўл.Получить();
КонецФункции
&НаКлиенте
Процедура РасмЮклаш(Команда)
FSO= Новый COMОбъект("Scripting.FileSystemObject");
басе=фотойўли();
Расмноми="";
Расмйўли="";
Если ПоместитьФайл(Расмйўли,,Расмноми,Истина)=Истина тогда
фото=Расмйўли;
Элементы.фото.РазмерКартинки=РазмерКартинки.АвтоРазмер;
установка();
л1=СтрДлина(Расмноми);
корень=басе+Строка(сатрНоми(л1,расмноми));
FSO.CopyFile(Расмноми,басе);
Объект.Расмноми=СокрЛП(Корень);
КонецЕсли;
КонецПроцедуры
Функция сатрНоми(л1,расмноми)
для ф=1 по л1 цикл
чар=Лев(прав(Расмноми,ф),1);
Если чар="\" тогда
break;
Иначе
сатр=Прав(расмноми,ф);;
КонецЕсли;
КонецЦикла;
Возврат сатр;
КонецФункции
Процедура установка()
НовыйФайлКартинки = Справочники.файл.СоздатьЭлемент();
//в реквизит СправочникаФайлы Файл помещаем выбранную ранее Картинку,
НовыйФайлКартинки.расим = Новый ХранилищеЗначения(ПолучитьИзВременногоХранилища(Фото));
Фото = ПоместитьВоВременноеХранилище(НовыйФайлКартинки.расим.Получить());
//записываем новый элемент справочника Файлы
НовыйФайлКартинки.Записать();
//устанавливаем значение реквизита Картинка Справочника Сотрудники
Объект.Картинка = НовыйФайлКартинки.Ссылка;
КонецПроцедуры
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
тек=ПользователиИнформационнойБазы.ТекущийПользователь();
Если тек.Роли.Содержит(Метаданные.Роли.Мехмон)=Истина тогда
Отказ=Истина
Иначе
если тек.Роли.Содержит(Метаданные.Роли.Ходимлар)=Истина тогда
Если Объект.логин=тек.Имя тогда
СтандартнаяОбработка=Истина;
ЭтаФорма.ТолькоПросмотр=Ложь;
Иначе
ЭтаФорма.ТолькоПросмотр=Истина;
Элементы.Страницы.ТолькоПросмотр=Истина;
Элементы.Группа18.ТолькоПросмотр=Истина;
Элементы.Группақариндошлар.Видимость=Ложь;
Элементы.стаж.КоманднаяПанель.Доступность=Ложь;
КонецЕсли;
КонецЕсли;
фото=ПолучитьНавигационнуюСсылку(Объект.Картинка,"расим");
Элементы.фото.РазмерКартинки=РазмерКартинки.АвтоРазмер;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура қариндошларВафотЕтганПриИзменении(Элемент)
стч=Элементы.қариндошлар.ТекущиеДанные;
қариндошларВафотЕтганПриИзмененииНаСервере(стч.ВафотЕтган,стч.ТурарЖой,стч.ВафотЕтганВакт)
КонецПроцедуры
Процедура қариндошларВафотЕтганПриИзмененииНаСервере(ВафотЕтган,ТурарЖой,ВафотЕтганВакт)
КариндошлариПриИзмерения.ВафотЕтган(ВафотЕтган,ТурарЖой,ВафотЕтганВакт);
КонецПроцедуры
&НаКлиенте
Процедура қариндошларТурарЖойПриИзменении(Элемент)
стч=Элементы.қариндошлар.ТекущиеДанные;
қариндошларТурарЖойПриИзмененииНаСервере(стч.ВафотЕтган,стч.ВафотЕтганВакт);
КонецПроцедуры
&НаСервере
Процедура қариндошларТурарЖойПриИзмененииНаСервере(ВафотЕтган,ВафотЕтганВакт)
ВафотЕтган=Ложь;
ВафотЕтганВакт=Неопределено;
КонецПроцедуры
&НаКлиенте
Процедура қариндошларВафотЕтганВактПриИзменении(Элемент)
стч=Элементы.қариндошлар.ТекущиеДанные;
қариндошларВафотЕтганВактПриИзмененииНаСервере(стч.ВафотЕтган,стч.ТурарЖой,стч.ВафотЕтганВакт);
КонецПроцедуры
&НаСервере
Процедура қариндошларВафотЕтганВактПриИзмененииНаСервере(ВафотЕтган,ТурарЖой,ВафотЕтганВакт)
ВафотЕтган=Истина;
ТурарЖой=Неопределено;
КонецПроцедуры
- - - -
Do'stlaringiz bilan baham: |
