Архивы excel

1C: фоновая загрузка большого файла Excel в табличный документ

22.10.2024 Павел Грибов 1C, Из жизни

Задача: загрузить в табличный документ на форме файл большого размера, с индикацией прогресса загрузки с использованием фоновой работы.

Решение: если поддержка фоновой работы в 1С была уже довольно давно, то асинхронная загрузка файлов на сервер появилась лишь начиная с версии 8.3.15.1489 ,Ну тоже уже давно, но руки добрались начать использовать только сейчас, т.к. ранее было не критично — не настолько большие файлы загружал/обрабатывал.

Итак, сначала на форме разместим индикатор загрузки. Для этого в реквизитах формы необходимо создать переменную типа «число», и перетащив её на форму выбрать тип «индикатор»:

На кнопку «Загрузить ЛС» навесим открытие диалогового окна:

	Фильтр = "Файл с лицевыми счетами(*.xlsx)|*.xlsx";
	ПараметрыДиалога = новый ПараметрыДиалогаПомещенияФайлов("Выберите файлы XLSX", Истина, Фильтр);

Фильтр = "Файл с лицевыми счетами(*.xlsx)|*.xlsx";

ПараметрыДиалога = новый ПараметрыДиалогаПомещенияФайлов("Выберите файлы XLSX", Истина, Фильтр);

А чуть ниже определим обработчики оповещения о ходе загрузки файла на сервер и окончании загрузки файла, которые укажем при вызове процедуры «НачатьПомещениеФайлаНаСервер» (есть еще и «НачатьПомещениеФайловНаСервер»). В итоге код получится такой:

&НаКлиенте
Процедура ЗагрузитьЛС(Команда)
	этаформа.ИндикаторЗагрузкиЛС=0;				
	Фильтр = "Файл с лицевыми счетами(*.xlsx)|*.xlsx";
	ПараметрыДиалога = новый ПараметрыДиалогаПомещенияФайлов("Выберите файлы XLSX", Истина, Фильтр);		
	
	ОповещениеОЗавершении = новый ОписаниеОповещения("ПослеЗагрузкиФайлаЛС", ЭтаФорма);		
	ОповещениеОХодеЗагрузки = новый ОписаниеОповещения("ОповещениеОХодеЗагрузкиЛС", ЭтаФорма);		
	
	Этаформа.Элементы.ПояснениеКЗагрузкеЛС.Заголовок="Перемещаю файл на сервер..";
	НачатьПомещениеФайлаНаСервер(ОповещениеОЗавершении,ОповещениеОХодеЗагрузки,,,ПараметрыДиалога, УникальныйИдентификатор);								                                                 

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

&НаКлиенте
Процедура ПослеЗагрузкиФайлаЛС (ОписаниеФайла, ДопПараметры) Экспорт
	Этаформа.Элементы.ПояснениеКЗагрузкеЛС.Заголовок="Файл загружен, обрабатываю..";
	этаформа.ИндикаторЗагрузкиЛС=0;				
КонецПроцедуры	

&НаКлиенте
Процедура ОповещениеОХодеЗагрузкиЛС (ПомещаемыйФайл, Помещено, ОтказОтПомещенияФайла,ДополнительныеПараметры) Экспорт
	этаформа.ИндикаторЗагрузкиЛС=Помещено;				
КонецПроцедуры

&НаКлиенте

Процедура ЗагрузитьЛС(Команда)

этаформа.ИндикаторЗагрузкиЛС=0;

Фильтр = "Файл с лицевыми счетами(*.xlsx)|*.xlsx";

ПараметрыДиалога = новый ПараметрыДиалогаПомещенияФайлов("Выберите файлы XLSX", Истина, Фильтр);

ОповещениеОЗавершении = новый ОписаниеОповещения("ПослеЗагрузкиФайлаЛС", ЭтаФорма);

ОповещениеОХодеЗагрузки = новый ОписаниеОповещения("ОповещениеОХодеЗагрузкиЛС", ЭтаФорма);

Этаформа.Элементы.ПояснениеКЗагрузкеЛС.Заголовок="Перемещаю файл на сервер..";

НачатьПомещениеФайлаНаСервер(ОповещениеОЗавершении,ОповещениеОХодеЗагрузки,,,ПараметрыДиалога, УникальныйИдентификатор);

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

&НаКлиенте

Процедура ПослеЗагрузкиФайлаЛС (ОписаниеФайла, ДопПараметры) Экспорт

Этаформа.Элементы.ПояснениеКЗагрузкеЛС.Заголовок="Файл загружен, обрабатываю..";

этаформа.ИндикаторЗагрузкиЛС=0;

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

&НаКлиенте

Процедура ОповещениеОХодеЗагрузкиЛС (ПомещаемыйФайл, Помещено, ОтказОтПомещенияФайла,ДополнительныеПараметры) Экспорт

этаформа.ИндикаторЗагрузкиЛС=Помещено;

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

В результате чего после выбора файла, по экрану побежит индикатор хода перемещения файла на сервер. Далее этот файл необходимо будет обработать на сервере фоново. И тут возникает один нюанс: мы не можем передать в фоновое задание ссылку на перемещенный файл во временном хранилище.Точнее можем, но фоновое задание это хранилище прочитать не может (это то ли глюк, то ли фича платформы — не понятно). Проблема.. Тогда делаем финт ушами: перед уходом в «фон», мы создадим временный файл во временной папке пользователя 1С, и передадим в фон уже не ссылку на него, а непосредственно имя временного файла. Для этого я просто написал функцию, которая на входе получает адрес загруженного файла, а на выходе даёт имя временного файла:

&НаСервере
Функция СохранитьФайлНаСервере(АдресВременногоХранилища,расш)
		ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресВременногоХранилища);
	    ИмяВременногоФайлаХар = ПолучитьИмяВременногоФайла(расш);
	    ДвоичныеДанные.Записать(ИмяВременногоФайлаХар); 
		возврат ИмяВременногоФайлаХар;	
КонецФункции

&НаСервере

Функция СохранитьФайлНаСервере(АдресВременногоХранилища,расш)

ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресВременногоХранилища);

ИмяВременногоФайлаХар = ПолучитьИмяВременногоФайла(расш);

ДвоичныеДанные.Записать(ИмяВременногоФайлаХар);

возврат ИмяВременногоФайлаХар;

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

Кроме того, чтобы мы могли передать результат в обработку по завершению фоновой работы, нам необходимо при запуске фонового задания передать в него некоторые параметры, а именно:

имя созданного временного файла
колонки/строки откуда брать данные из эксель файла
адрес временного хранилища, куда поместить результат работы фонового задания

&НаКлиенте
Процедура ПослеЗагрузкиФайлаЛС (ОписаниеФайла, ДопПараметры) Экспорт
	Этаформа.Элементы.ПояснениеКЗагрузкеЛС.Заголовок="Файл загружен, обрабатываю..";
	этаформа.ИндикаторЗагрузкиЛС=0;				
	инф=Новый Структура("ВременныйФайл,Расширение,ЛС_начало,ЛС_лс,ЛС_то,ЛС_дата_установки_пу,АдресВременногХранилища");
	инф.ВременныйФайл=СохранитьФайлНаСервере(ОписаниеФайла.адрес,ОписаниеФайла.ссылканафайл.расширение);
	инф.Расширение=ОписаниеФайла.ссылканафайл.расширение;
	инф.ЛС_начало=объект.ЛС_начало;
	инф.ЛС_лс=объект.ЛС_лс;
	инф.ЛС_то=объект.ЛС_то;
	инф.ЛС_дата_установки_пу=объект.ЛС_дата_установки_пу;
	инф.АдресВременногХранилища=объект.ВрХранилищеФормы;	
КонецПроцедуры	

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
	объект.ВрХранилищеФормы=ПоместитьВоВременноеХранилище(0);
	ЗапуститьФЗЗагрузкиЛС(инф);	
ПодключитьОбработчикОжидания("ИндикаторВыполненияЗагрузкиФайловЛС",1,ложь);				
КонецПроцедуры

&НаКлиенте

Процедура ПослеЗагрузкиФайлаЛС (ОписаниеФайла, ДопПараметры) Экспорт

Этаформа.Элементы.ПояснениеКЗагрузкеЛС.Заголовок="Файл загружен, обрабатываю..";

этаформа.ИндикаторЗагрузкиЛС=0;

инф=Новый Структура("ВременныйФайл,Расширение,ЛС_начало,ЛС_лс,ЛС_то,ЛС_дата_установки_пу,АдресВременногХранилища");

инф.ВременныйФайл=СохранитьФайлНаСервере(ОписаниеФайла.адрес,ОписаниеФайла.ссылканафайл.расширение);

инф.Расширение=ОписаниеФайла.ссылканафайл.расширение;

инф.ЛС_начало=объект.ЛС_начало;

инф.ЛС_лс=объект.ЛС_лс;

инф.ЛС_то=объект.ЛС_то;

инф.ЛС_дата_установки_пу=объект.ЛС_дата_установки_пу;

инф.АдресВременногХранилища=объект.ВрХранилищеФормы;

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

&НаСервере

Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)

объект.ВрХранилищеФормы=ПоместитьВоВременноеХранилище(0);

ЗапуститьФЗЗагрузкиЛС(инф);

ПодключитьОбработчикОжидания("ИндикаторВыполненияЗагрузкиФайловЛС",1,ложь);

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

Функция которая будет работать фоново, должна размещаться в общем модуле. Это небольшой недостаток внешних обработок — фоново запускаются только процедуры-функции созданные внутри конфигурации. Но! до этого нам нужно опять же написать «обвязку» фонового задания, дабы мы имели возможность знать, работает или нет оно, а так-же на каком этапе. При запуске фонового задания, мы получаем идентификатор этого задания:

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

Функция ЗапуститьФЗЗагрузкиЛС(Параметры)

МассивПараметров = Новый Массив;

МассивПараметров.Добавить(Параметры);

ФЗ = ФоновыеЗадания.Выполнить("СК_ГР_ДлительныеОперации.ЗагрузитьФайлыЛС",МассивПараметров);

объект.ЛС_ФЗ = ФЗ.УникальныйИдентификатор;

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

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

&НаКлиенте
Процедура ИндикаторВыполненияЗагрузкиФайловЛС() Экспорт  
	пр=КакДелаУФЗЗагрузкиФайловЛС();   	
	если пр=неопределено тогда  
		этаформа.ИндикаторЗагрузкиЛС=100;
		ОтключитьОбработчикОжидания("ИндикаторВыполненияЗагрузкиФайловЛС");
		Этаформа.Элементы.ПояснениеКЗагрузкеЛС.Заголовок="Файлы обработаны";
	иначе
		этаформа.ИндикаторЗагрузкиЛС=пр;         		
	конецесли;
КонецПроцедуры	 
&НаСервере
Функция КакДелаУФЗЗагрузкиФайловЛС()
	ФЗ = ФоновыеЗадания.НайтиПоУникальномуИдентификатору(объект.идФЗ);
	если ФЗ=Неопределено тогда		
		возврат неопределено;
	иначе	                                                                                                    
		если ФЗ.Состояние=СостояниеФоновогоЗадания.Завершено тогда
			возврат неопределено;
		конецесли;	   
		если ФЗ.Состояние=СостояниеФоновогоЗадания.ЗавершеноАварийно тогда
			Сообщить("Ошибка:"+ФЗ.ИнформацияОбОшибке.Описание);
			возврат неопределено;
		конецесли;										
	конецесли;	
	возврат 0;
конецфункции

&НаКлиенте

Процедура ИндикаторВыполненияЗагрузкиФайловЛС() Экспорт

пр=КакДелаУФЗЗагрузкиФайловЛС();

если пр=неопределено тогда

этаформа.ИндикаторЗагрузкиЛС=100;

ОтключитьОбработчикОжидания("ИндикаторВыполненияЗагрузкиФайловЛС");

Этаформа.Элементы.ПояснениеКЗагрузкеЛС.Заголовок="Файлы обработаны";

иначе

этаформа.ИндикаторЗагрузкиЛС=пр;

конецесли;

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

&НаСервере

Функция КакДелаУФЗЗагрузкиФайловЛС()

ФЗ = ФоновыеЗадания.НайтиПоУникальномуИдентификатору(объект.идФЗ);

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

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

иначе

если ФЗ.Состояние=СостояниеФоновогоЗадания.Завершено тогда

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

конецесли;

если ФЗ.Состояние=СостояниеФоновогоЗадания.ЗавершеноАварийно тогда

Сообщить("Ошибка:"+ФЗ.ИнформацияОбОшибке.Описание);

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

конецесли;

возврат 0;

конецфункции

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

перехват вывода функции Сообщить() на сервере, и парсинг данных из него. Например в фоновом задании можно с какой-то периодичностью выводить что-то вроде: Сообщить(«12.3%загружаю»);, а получив на клиенте эту запись показывать индикацию 12.3% и соответствующее пояснение.
Можно во время работы фонового задания ложить данные во временно хранилище, и читать их из клиента. НО! данный способ работает только в случай файловой БД. Циатата из справки 1С: «Данные, помещенные во временное хранилище в фоновом задании, не будут доступны из родительского сеанса до момента завершения фонового задания»

Посему остаётся таки отлавливать сообщения сервера по известному идентификатору фонового задания:

&НаСервере
Функция ПолучитьСообщенияФЗ(ФЗ, Состояние = Неопределено, УдалятьСообщения = Ложь) Экспорт
	Если Состояние = Неопределено Тогда
		Состояние = ФЗ.Состояние;
	КонецЕсли;
	МассивСообщений = Новый Массив;
	Сообщения = ФЗ.ПолучитьСообщенияПользователю(УдалятьСообщения);
	Если Сообщения <> Неопределено Тогда
		Для Каждого Сообщение Из Сообщения Цикл
			МассивСообщений.Добавить(Сообщение.Текст);
		КонецЦикла;
	КонецЕсли;
	Возврат МассивСообщений;
КонецФункции

&НаСервере

Функция ПолучитьСообщенияФЗ(ФЗ, Состояние = Неопределено, УдалятьСообщения = Ложь) Экспорт

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

Состояние = ФЗ.Состояние;

КонецЕсли;

МассивСообщений = Новый Массив;

Сообщения = ФЗ.ПолучитьСообщенияПользователю(УдалятьСообщения);

Если Сообщения <> Неопределено Тогда

Для Каждого Сообщение Из Сообщения Цикл

МассивСообщений.Добавить(Сообщение.Текст);

КонецЦикла;

КонецЕсли;

Возврат МассивСообщений;

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

А в самом фоновом здании, городить огород с выводом сообщений:

// На входе:
//	парам.ВременныйФайл
//	парам.Расширение
//	парам.ЛС_начало
//	парам.ЛС_лс
//	парам.ЛС_то
//	парам.ЛС_дата_установки_пу
//	парам.АдресВременногХранилища
Функция ЗагрузитьФайлыЛСРасширенно(парам) экспорт    
	Сообщить("0%читаю файл на сервере");
	ТабличныйДокументХар = Новый ТабличныйДокумент; 
	ТабличныйДокументХар.Прочитать(парам.ВременныйФайл,СпособЧтенияЗначенийТабличногоДокумента.Значение);
	стар=0;
	Для Каждого ОбластьТД ИЗ ТабличныйДокументХар.Области Цикл         		     
	    ОбластьФайла = ТабличныйДокументХар.ПолучитьОбласть(ОбластьТД.Имя);
	    КолВоСтрокФайла = ОбластьФайла.ПолучитьРазмерОбластиДанныхПоВертикали();
	    КолВоКолонокФайла = ОбластьФайла.ПолучитьРазмерОбластиДанныхПоГоризонтали();

		НачСтрока=парам.ЛС_начало;КонСтрока=0;
	    НачСтрока = ?(НачСтрока = 0, 2, НачСтрока);
	    КонСтрока = ?(КонСтрока = 0, КолвоСтрокФайла, КонСтрока);
					
		//перебираем все строки без первой строки            
		Для нСтрокаТФ = НачСтрока ПО КонСтрока Цикл      				
			если стар<>Окр(нСтрокаТФ*100/КонСтрока) тогда
				Сообщить(Строка(Окр(нСтрокаТФ*100/КонСтрока))+"%обрабатываю файл");
				стар=Окр(нСтрокаТФ*100/КонСтрока);
			конецесли;				
		конеццикла;		
	конеццикла						
конецфункции

// На входе:

// парам.ВременныйФайл

// парам.Расширение

// парам.ЛС_начало

// парам.ЛС_лс

// парам.ЛС_то

// парам.ЛС_дата_установки_пу

// парам.АдресВременногХранилища

Функция ЗагрузитьФайлыЛСРасширенно(парам) экспорт

Сообщить("0%читаю файл на сервере");

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

ТабличныйДокументХар.Прочитать(парам.ВременныйФайл,СпособЧтенияЗначенийТабличногоДокумента.Значение);

стар=0;

Для Каждого ОбластьТД ИЗ ТабличныйДокументХар.Области Цикл

ОбластьФайла = ТабличныйДокументХар.ПолучитьОбласть(ОбластьТД.Имя);

КолВоСтрокФайла = ОбластьФайла.ПолучитьРазмерОбластиДанныхПоВертикали();

КолВоКолонокФайла = ОбластьФайла.ПолучитьРазмерОбластиДанныхПоГоризонтали();

НачСтрока=парам.ЛС_начало;КонСтрока=0;

НачСтрока = ?(НачСтрока = 0, 2, НачСтрока);

КонСтрока = ?(КонСтрока = 0, КолвоСтрокФайла, КонСтрока);

//перебираем все строки без первой строки

Для нСтрокаТФ = НачСтрока ПО КонСтрока Цикл

если стар<>Окр(нСтрокаТФ*100/КонСтрока) тогда

Сообщить(Строка(Окр(нСтрокаТФ*100/КонСтрока))+"%обрабатываю файл");

стар=Окр(нСтрокаТФ*100/КонСтрока);

конецесли;

конеццикла;

конеццикла

конецфункции

Посему модифицируем и обработчик ожидания, добавив парсинг сообщений сервера:

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

&НаКлиенте

Процедура ИндикаторВыполненияЗагрузкиФайловЛС() Экспорт

пр=КакДелаУФЗЗагрузкиФайловЛС();

если пр=неопределено тогда

этаформа.ИндикаторЗагрузкиЛС=100;

ОтключитьОбработчикОжидания("ИндикаторВыполненияЗагрузкиФайловЛС");

Этаформа.Элементы.ПояснениеКЗагрузкеЛС.Заголовок="Файлы обработаны";

иначе

если пр.Количество()>0 тогда

этаформа.ИндикаторЗагрузкиЛС=пр[0];

Этаформа.Элементы.ПояснениеКЗагрузкеЛС.Заголовок=пр[1];

конецесли;

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

&НаСервере

Функция КакДелаУФЗЗагрузкиФайловЛС()

ФЗ = ФоновыеЗадания.НайтиПоУникальномуИдентификатору(объект.ЛС_ФЗ);

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

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

иначе

если ФЗ.Состояние=СостояниеФоновогоЗадания.Завершено тогда

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

конецесли;

если ФЗ.Состояние=СостояниеФоновогоЗадания.ЗавершеноАварийно тогда

Сообщить("Ошибка:"+ФЗ.ИнформацияОбОшибке.Описание);

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

конецесли;

ФСообщения=СК_ГР_ДлительныеОперации.ПолучитьСообщенияФЗ(ФЗ,,истина);

Если ФСообщения.Количество() > 0 Тогда

Для Каждого Сообщение Из ФСообщения Цикл

Если СтрНайти(Сообщение,"%")>0 тогда

возврат СтрРазделить(Сообщение,"%");

конецесли;

КонецЦикла;

КонецЕсли;

конецесли;

возврат Новый Массив();

конецфункции

Оставить комментарий 1с, excel, индикация, прогресс бар

PHP: работа с файлами Excel

27.06.2022 Павел Грибов PHP

Одним из вариантов работы с файлами Эксель является библиотека PhpSpreadsheet.

Установка:

composer require phpoffice/phpspreadsheet

Пример использования:

composer require phpoffice/phpspreadsheet

Пример использования:

/require_once('vendor/autoload.php');
 
use PhpOffice\PhpSpreadsheet\IOFactory;
use PhpOffice\PhpSpreadsheet\Spreadsheet;
use PhpOffice\PhpSpreadsheet\Style\{Font, Border, Alignment};
use PhpOffice\PhpSpreadsheet\Writer\Xlsx;

$oSpreadsheet = IOFactory::load("akt.xlsx"); // шаблон с шапкой

$oSpreadsheet->getProperties()
   ->setCreator('SSK, OOO')
   ->setLastModifiedBy('SSK, OOO')
   ->setTitle('Акт сверки с клиентом') 
   ->setSubject('Акт сверки с клиентом')
   ->setKeywords('кцмукмц ')
   ->setCategory('узщшамыуозк ')
;

$oSpreadsheet->setActiveSheetIndex(0);
$wSheet = $oSpreadsheet->getActiveSheet();

$wSheet->setCellValueByColumnAndRow(1, 3, "Клиент: " . $res->result->user);
$wSheet->setCellValueByColumnAndRow(1, 4, "Дата с: " . $res->result->from);
$wSheet->setCellValueByColumnAndRow(1, 5, "Дата по: " . $res->result->from);

$totalrow=8;

$balance=0;
foreach($res->result->table as $row) {
    $source="";
    if ($row->doc_reservation>0){$source="уцкацук м №".$row->doc_reservation;};
    if ($row->doc_charge>0){$source="ы укмыу №".$row->doc_charge;};
    if ($row->doc_payment>0){
        $source="уфыкмыукм №".$row->doc_payment;
        if ($row->connector>0){$source=$source.",фыумукау №".$row->connector;};        
    }; 
    
    $wSheet->setCellValueByColumnAndRow(1, $totalrow, $row->date);    //дата
    $wSheet->setCellValueByColumnAndRow(2, $totalrow, $source);    // источник     
    $wSheet->setCellValueByColumnAndRow(3, $totalrow, $row->debit);    // дебет
    $wSheet->setCellValueByColumnAndRow(4, $totalrow, $row->credit);    // кредит
    $wSheet->setCellValueByColumnAndRow(5, $totalrow, $row->balance);    // баланс
    $wSheet->setCellValueByColumnAndRow(6, $totalrow, $row->ezs);    // ЭЗС
    $balance=$row->balance;
    $totalrow++;
}

$wSheet->setCellValueByColumnAndRow(1, $totalrow, "Текущий баланс: " . $balance);
$wSheet->getStyle('A'.$totalrow)->applyFromArray([
    'font' => [
      'name' => 'Arial',
      'bold' => true,
      'italic' => false,
      'underline' => Font::UNDERLINE_DOUBLE,
      'strikethrough' => false,
      'color' => [
          'rgb' => '808080' 
        ]
    ],
    'borders' => [
        'allBorders' => [
            'borderStyle' => Border::BORDER_THIN,
            'color' => [
                'rgb' => '808080'
            ]
        ],
    ],
    'alignment' => [
        'horizontal' => Alignment::HORIZONTAL_CENTER,
        'vertical' => Alignment::VERTICAL_CENTER,
        'wrapText' => true,
    ]
]);
// установить цвет фона ячейки
$wSheet->getStyle('A'.$totalrow)->getFill()->setFillType(\PhpOffice\PhpSpreadsheet\Style\Fill::FILL_SOLID)->getStartColor()->setARGB('00FF7F');
 

$oWriter = IOFactory::createWriter($oSpreadsheet, 'Xlsx');
$oWriter->save('php://output');

/require_once('vendor/autoload.php');

use PhpOffice\PhpSpreadsheet\IOFactory;

use PhpOffice\PhpSpreadsheet\Spreadsheet;

use PhpOffice\PhpSpreadsheet\Style\{Font, Border, Alignment};

use PhpOffice\PhpSpreadsheet\Writer\Xlsx;

$oSpreadsheet = IOFactory::load("akt.xlsx"); // шаблон с шапкой

$oSpreadsheet->getProperties()

->setCreator('SSK, OOO')

->setLastModifiedBy('SSK, OOO')

->setTitle('Акт сверки с клиентом')

->setSubject('Акт сверки с клиентом')

->setKeywords('кцмукмц ')

->setCategory('узщшамыуозк ')

;

$oSpreadsheet->setActiveSheetIndex(0);

$wSheet = $oSpreadsheet->getActiveSheet();

$wSheet->setCellValueByColumnAndRow(1, 3, "Клиент: " . $res->result->user);

$wSheet->setCellValueByColumnAndRow(1, 4, "Дата с: " . $res->result->from);

$wSheet->setCellValueByColumnAndRow(1, 5, "Дата по: " . $res->result->from);

$totalrow=8;

$balance=0;

foreach($res->result->table as $row) {

$source="";

if ($row->doc_reservation>0){$source="уцкацук м №".$row->doc_reservation;};

if ($row->doc_charge>0){$source="ы укмыу №".$row->doc_charge;};

if ($row->doc_payment>0){

$source="уфыкмыукм №".$row->doc_payment;

if ($row->connector>0){$source=$source.",фыумукау №".$row->connector;};

};

$wSheet->setCellValueByColumnAndRow(1, $totalrow, $row->date); //дата

$wSheet->setCellValueByColumnAndRow(2, $totalrow, $source); // источник

$wSheet->setCellValueByColumnAndRow(3, $totalrow, $row->debit); // дебет

$wSheet->setCellValueByColumnAndRow(4, $totalrow, $row->credit); // кредит

$wSheet->setCellValueByColumnAndRow(5, $totalrow, $row->balance); // баланс

$wSheet->setCellValueByColumnAndRow(6, $totalrow, $row->ezs); // ЭЗС

$balance=$row->balance;

$totalrow++;

}

$wSheet->setCellValueByColumnAndRow(1, $totalrow, "Текущий баланс: " . $balance);

$wSheet->getStyle('A'.$totalrow)->applyFromArray([

'font' => [

'name' => 'Arial',

'bold' => true,

'italic' => false,

'underline' => Font::UNDERLINE_DOUBLE,

'strikethrough' => false,

'color' => [

'rgb' => '808080'

]

'borders' => [

'allBorders' => [

'borderStyle' => Border::BORDER_THIN,

'color' => [

'rgb' => '808080'

]

'alignment' => [

'horizontal' => Alignment::HORIZONTAL_CENTER,

'vertical' => Alignment::VERTICAL_CENTER,

'wrapText' => true,

]

]);

// установить цвет фона ячейки

$wSheet->getStyle('A'.$totalrow)->getFill()->setFillType(\PhpOffice\PhpSpreadsheet\Style\Fill::FILL_SOLID)->getStartColor()->setARGB('00FF7F');

$oWriter = IOFactory::createWriter($oSpreadsheet, 'Xlsx');

$oWriter->save('php://output');

Оставить комментарий excel, php

Как много нам открытий чудных (с)

20.02.2021 Павел Грибов Из жизни

А вы знали, что ячейку в Excel можно разделить диагональной линией? Вот так:

Для этого достаточно в свойствах ячейки в «границах» щелкнуть по середине окна (там где точка оранжевая). Ну соответственно в связи с этим открываются возможности для всяких извращений типа с заголовками типа:

Линию подчеркивания закрасить белым цветом

Оставить комментарий 1с, excel, ячейка по диагонали

jqgrid-free экспорт в эксель

24.12.2019 Павел Грибов WEB

В «свободном» форке jqgrid, к сожалению нет «встроенного» способа сформировать на основании таблицы файл Excel. Однако можно использовать сторонний способ https://github.com/SheetJS/sheetjs

Тогда код может получиться примерно следующий:

        jQuery("#paylist").jqGrid('navButtonAdd',"#paypager",{caption:'Excel',                              
             title: "Выгрузить в Excel",buttonicon: "none",position:"last",
             onClickButton:function(){                
                          var filename = "export_rents.xlsx",
                            data = $("#paylist").getRowData();
                            dataAsArray = [["dt", "amount", "comment"]];
                              for (i = 0; i < data.length; i++) {
                                item = data[i];
                                dataAsArray.push([item.dt, item.amount, item.comment]);
                              }
                              var ws_name = "SheetJS";
                              var wb = XLSX.utils.book_new(),
                                  ws = XLSX.utils.aoa_to_sheet(dataAsArray);
                              XLSX.utils.book_append_sheet(wb, ws, ws_name);
                              XLSX.writeFile(wb, filename);                
             }        
         });

jQuery("#paylist").jqGrid('navButtonAdd',"#paypager",{caption:'Excel',

title: "Выгрузить в Excel",buttonicon: "none",position:"last",

onClickButton:function(){

var filename = "export_rents.xlsx",

data = $("#paylist").getRowData();

dataAsArray = [["dt", "amount", "comment"]];

for (i = 0; i < data.length; i++) {

item = data[i];

dataAsArray.push([item.dt, item.amount, item.comment]);

}

var ws_name = "SheetJS";

var wb = XLSX.utils.book_new(),

ws = XLSX.utils.aoa_to_sheet(dataAsArray);

XLSX.utils.book_append_sheet(wb, ws, ws_name);

XLSX.writeFile(wb, filename);

}

});

Оставить комментарий excel, export, jqgrid, jqrid-free

Экспорт из jqGrid в Excel часть 2

27.02.2014 Павел Грибов WEB

Описанный вот здесь способ таки оказался неудобен. Однако я вспомнил что Excel отлично открывает файл в формате xml. И формат этот хорошо описан здесь. Так почему бы не формировать xml файл? Сказано — сделано. Код видоизменился в :

function exportExcel(list)
        {
            var mya=new Array();
            mya=$(list).getDataIDs(); 
            var data=$(list).getRowData(mya[0]);  
            var colNames=new Array(); 
            var ii=0;
            for (var i in data){colNames[ii++]=i;}
            var html="";            
            headxls="<?xml version='1.0'?><?mso-application progid='Excel.Sheet'?>"+"\n";
            sworkbook="<Workbook xmlns='urn:schemas-microsoft-com:office:spreadsheet' xmlns:o='urn:schemas-microsoft-com:office:office' xmlns:x='urn:schemas-microsoft-com:office:excel' xmlns:ss='urn:schemas-microsoft-com:office:spreadsheet' xmlns:html='http://www.w3.org/TR/REC-html40'>"+"\n";
            eworkbook="</Workbook>"+"\n";
            styles="<Styles>"+"\n"+
                    "<Style ss:ID='borderedbold'>"+"\n"+
                    "<Borders>"+"\n"+
                    "	  <Border ss:Position='Bottom' ss:LineStyle='Continuous' ss:Weight='1' /> "+"\n"+
                    "	  <Border ss:Position='Left' ss:LineStyle='Continuous' ss:Weight='1' /> "+"\n"+
                    "	  <Border ss:Position='Right' ss:LineStyle='Continuous' ss:Weight='1' /> "+"\n"+
                    "	  <Border ss:Position='Top' ss:LineStyle='Continuous' ss:Weight='1' /> "+"\n"+
                    "</Borders>"+"\n"+
                    "<Font ss:Bold='1' /> "+"\n"+
                    "</Style>"+"\n"+
                    "<Style ss:ID='bordered'>"+"\n"+
                    "<Borders>"+"\n"+
                    "	  <Border ss:Position='Bottom' ss:LineStyle='Continuous' ss:Weight='1' /> "+"\n"+
                    "	  <Border ss:Position='Left' ss:LineStyle='Continuous' ss:Weight='1' /> "+"\n"+
                    "	  <Border ss:Position='Right' ss:LineStyle='Continuous' ss:Weight='1' /> "+"\n"+
                    "	  <Border ss:Position='Top' ss:LineStyle='Continuous' ss:Weight='1' /> "+"\n"+
                    "</Borders>"+"\n"+                    
                    "</Style>"+"\n"+                    
                    "</Styles> "+"\n";
            sworksheet="<Worksheet ss:Name='WorksheetName'>"+"\n";
            eworksheet="</Worksheet>"+"\n";
            stable="<Table>"+"\n";
            etable="</Table>"+"\n";
            columnw=""+
                    "<Column ss:Index='1' ss:AutoFitWidth='0' ss:Width='60' /> "+"\n"+
                    "<Column ss:Index='2' ss:AutoFitWidth='0' ss:Width='200' /> "+"\n"+
                    "<Column ss:Index='3' ss:AutoFitWidth='0' ss:Width='200' /> "+"\n"+
                    "<Column ss:Index='4' ss:AutoFitWidth='0' ss:Width='130' /> "+"\n"+
                    "<Column ss:Index='5' ss:AutoFitWidth='0' ss:Width='130' /> "+"\n"+
                    "<Column ss:Index='6' ss:AutoFitWidth='0' ss:Width='120' /> "+"\n";
            headcolumn=""+
                    	"<Row>"+"\n"+
			"   <Cell ss:StyleID='borderedbold'><Data ss:Type='String'>Номер</Data></Cell>"+"\n"+
			"   <Cell ss:StyleID='borderedbold'><Data ss:Type='String'>Склад</Data></Cell>"+"\n"+
			"   <Cell ss:StyleID='borderedbold'><Data ss:Type='String'>Номенклатура</Data></Cell>"+"\n"+
			"   <Cell ss:StyleID='borderedbold'><Data ss:Type='String'>Серия</Data></Cell>"+"\n"+
			"   <Cell ss:StyleID='borderedbold'><Data ss:Type='String'>Дата окончания</Data></Cell>"+"\n"+
			"   <Cell ss:StyleID='borderedbold'><Data ss:Type='String'>Количество</Data></Cell>"+"\n"+
			"</Row> "+"\n";
            
            html=html+headxls+sworkbook+styles+sworksheet+stable+columnw+headcolumn;
            
            for(i=0;i<mya.length;i++)
                {
                data=$(list).getRowData(mya[i]); 
                html=html+"<Row>"+"\n";
                for(j=0;j<colNames.length;j++)
                    {
                    html=html+"<Cell ss:StyleID='bordered'><Data ss:Type='String'>"+data[colNames[j]]+"</Data></Cell>"+"\n";                        
                    }
                html=html+"</Row>"+"\n";
                }
            html=html+etable+eworksheet+eworkbook;
            
            document.forms[0].csvBuffer.value=html;
            document.forms[0].method='POST';
            document.forms[0].action='inc/csvExport.php'; 
            document.forms[0].target='_blank';
            document.forms[0].submit();
        };
function ViewReports(list,pager){
jQuery(list).jqGrid({
   	url:'controller/server/operreports/viewremainssert.php',
	datatype: "json",
   	colNames:['Id','Склад','Номенклатура','Серия','Дата окончания','Количество'],
   	colModel:[
   		{name:'id',index:'id', width:20},
                {name:'sklad',index:'sklad', width:155, width:155,summaryType:'count', summaryTpl : '({0}) Всего:'},
   		{name:'namenome',index:'namenome', width:100},
		{name:'seria',index:'seria', width:100},
   		{name:'dtend',index:'dtend', width:100},
                {name:'kol',index:'kol', width:100,sorttype:'number',formatter:'number', summaryType:'sum'}
   	],
        grouping: true,
   	groupingView : {
   		groupField : ['sklad'],
   		groupText : ['<b>{0}</b>'],
                groupCollapse : true,
		groupSummary : true,
   	},        
        
        viewrecords: true,
   	height: 'auto',        
	autowidth: true,	
        shrinkToFit: true, 
   	pager: pager,
   	sortname: 'sklad',
    viewrecords: true,
    rowNum:1000,
    scroll:1,
    sortorder: "asc",    
    caption:"Просоченные сертификаты"
}); 
jQuery(list).jqGrid('navGrid',pager,{edit:false,add:false,del:false,search:false});
jQuery(list).jqGrid('navButtonAdd',pager,{caption:"<img src='controller/client/themes/"+theme+"/ico/disk.png'>",                              
        title: "Экспорт в Excel",
	onClickButton:function(){
            exportExcel(list);
	} 
});
};

   ViewReports("#tbl_rep","#pg_nav");

     $("#viewwork").click(function(){
           jQuery("#tbl_rep").GridUnload("#tbl_rep");
           ViewReports("#tbl_rep","#pg_nav");
    });

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

function exportExcel(list)

{

var mya=new Array();

mya=$(list).getDataIDs();

var data=$(list).getRowData(mya[0]);

var colNames=new Array();

var ii=0;

for (var i in data){colNames[ii++]=i;}

var html="";

headxls="<?xml version='1.0'?><?mso-application progid='Excel.Sheet'?>"+"\n";

sworkbook="<Workbook xmlns='urn:schemas-microsoft-com:office:spreadsheet' xmlns:o='urn:schemas-microsoft-com:office:office' xmlns:x='urn:schemas-microsoft-com:office:excel' xmlns:ss='urn:schemas-microsoft-com:office:spreadsheet' xmlns:html='http://www.w3.org/TR/REC-html40'>"+"\n";

eworkbook="</Workbook>"+"\n";

styles="<Styles>"+"\n"+

"<Style ss:ID='borderedbold'>"+"\n"+

"<Borders>"+"\n"+

" <Border ss:Position='Bottom' ss:LineStyle='Continuous' ss:Weight='1' /> "+"\n"+

" <Border ss:Position='Left' ss:LineStyle='Continuous' ss:Weight='1' /> "+"\n"+

" <Border ss:Position='Right' ss:LineStyle='Continuous' ss:Weight='1' /> "+"\n"+

" <Border ss:Position='Top' ss:LineStyle='Continuous' ss:Weight='1' /> "+"\n"+

"</Borders>"+"\n"+

"<Font ss:Bold='1' /> "+"\n"+

"</Style>"+"\n"+

"<Style ss:ID='bordered'>"+"\n"+

"<Borders>"+"\n"+

" <Border ss:Position='Bottom' ss:LineStyle='Continuous' ss:Weight='1' /> "+"\n"+

" <Border ss:Position='Left' ss:LineStyle='Continuous' ss:Weight='1' /> "+"\n"+

" <Border ss:Position='Right' ss:LineStyle='Continuous' ss:Weight='1' /> "+"\n"+

" <Border ss:Position='Top' ss:LineStyle='Continuous' ss:Weight='1' /> "+"\n"+

"</Borders>"+"\n"+

"</Style>"+"\n"+

"</Styles> "+"\n";

sworksheet="<Worksheet ss:Name='WorksheetName'>"+"\n";

eworksheet="</Worksheet>"+"\n";

stable="<Table>"+"\n";

etable="</Table>"+"\n";

columnw=""+

"<Column ss:Index='1' ss:AutoFitWidth='0' ss:Width='60' /> "+"\n"+

"<Column ss:Index='2' ss:AutoFitWidth='0' ss:Width='200' /> "+"\n"+

"<Column ss:Index='3' ss:AutoFitWidth='0' ss:Width='200' /> "+"\n"+

"<Column ss:Index='4' ss:AutoFitWidth='0' ss:Width='130' /> "+"\n"+

"<Column ss:Index='5' ss:AutoFitWidth='0' ss:Width='130' /> "+"\n"+

"<Column ss:Index='6' ss:AutoFitWidth='0' ss:Width='120' /> "+"\n";

headcolumn=""+

"<Row>"+"\n"+

" <Cell ss:StyleID='borderedbold'><Data ss:Type='String'>Номер</Data></Cell>"+"\n"+

" <Cell ss:StyleID='borderedbold'><Data ss:Type='String'>Склад</Data></Cell>"+"\n"+

" <Cell ss:StyleID='borderedbold'><Data ss:Type='String'>Номенклатура</Data></Cell>"+"\n"+

" <Cell ss:StyleID='borderedbold'><Data ss:Type='String'>Серия</Data></Cell>"+"\n"+

" <Cell ss:StyleID='borderedbold'><Data ss:Type='String'>Дата окончания</Data></Cell>"+"\n"+

" <Cell ss:StyleID='borderedbold'><Data ss:Type='String'>Количество</Data></Cell>"+"\n"+

"</Row> "+"\n";

html=html+headxls+sworkbook+styles+sworksheet+stable+columnw+headcolumn;

for(i=0;i<mya.length;i++)

{

data=$(list).getRowData(mya[i]);

html=html+"<Row>"+"\n";

for(j=0;j<colNames.length;j++)

{

html=html+"<Cell ss:StyleID='bordered'><Data ss:Type='String'>"+data[colNames[j]]+"</Data></Cell>"+"\n";

}

html=html+"</Row>"+"\n";

}

html=html+etable+eworksheet+eworkbook;

document.forms[0].csvBuffer.value=html;

document.forms[0].method='POST';

document.forms[0].action='inc/csvExport.php';

document.forms[0].target='_blank';

document.forms[0].submit();

};

function ViewReports(list,pager){

jQuery(list).jqGrid({

url:'controller/server/operreports/viewremainssert.php',

datatype: "json",

colNames:['Id','Склад','Номенклатура','Серия','Дата окончания','Количество'],

colModel:[

{name:'id',index:'id', width:20},

{name:'sklad',index:'sklad', width:155, width:155,summaryType:'count', summaryTpl : '({0}) Всего:'},

{name:'namenome',index:'namenome', width:100},

{name:'seria',index:'seria', width:100},

{name:'dtend',index:'dtend', width:100},

{name:'kol',index:'kol', width:100,sorttype:'number',formatter:'number', summaryType:'sum'}

grouping: true,

groupingView : {

groupField : ['sklad'],

groupText : ['<b>{0}</b>'],

groupCollapse : true,

groupSummary : true,

viewrecords: true,

height: 'auto',

autowidth: true,

shrinkToFit: true,

pager: pager,

sortname: 'sklad',

viewrecords: true,

rowNum:1000,

scroll:1,

sortorder: "asc",

caption:"Просоченные сертификаты"

});

jQuery(list).jqGrid('navGrid',pager,{edit:false,add:false,del:false,search:false});

jQuery(list).jqGrid('navButtonAdd',pager,{caption:"<img src='controller/client/themes/"+theme+"/ico/disk.png'>",

title: "Экспорт в Excel",

onClickButton:function(){

exportExcel(list);

}

});

};

ViewReports("#tbl_rep","#pg_nav");

$("#viewwork").click(function(){

jQuery("#tbl_rep").GridUnload("#tbl_rep");

ViewReports("#tbl_rep","#pg_nav");

});

Оставить комментарий excel, javascript, jqgrid, php

1 2 »

Ноябрь 2024
Пн	Вт	Ср	Чт	Пт	Сб	Вс
				1	2	3
4	5	6	7	8	9	10
11	12	13	14	15	16	17
18	19	20	21	22	23	24
25	26	27	28	29	30