Архивы 1C - Страница 5 из 41

1С: Еще раз о создании файла DOCX по шаблону без Word на сервере

03.05.2023 Павел Грибов 1C

Подобная статья уже была где-то на сайте, но вот еще одна, но решил актуализировать.

Итак, задача: при нажатии кнопки «В Word», сформировать на сервере файл по шаблону, сохранить его на клиент и открыть любым зарегистрированным приложением. Работать должно кроссплатформенно Linux/Windows

Создадим docx файл вида:

Решение:

{v8 Область.Тушка}

какойто текст, текст, текст. Бла-бла-бла..

{v8 АрбитражныйСудНаименование}

{/v8 Область.Тушка}

Загрузим его в макет как бинарные данные.

Далее код кнопки:


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

&НаКлиенте
Процедура ЗапускПриложения(КодВозврата, ДополнительныйПараметр) Экспорт

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



&НаСервере
Функция СформироватьДокументНаСервере(ДокументСсылка);
	Возврат Документы.СК_КалькуляторИндексации.СгенерироватьДокумент(ДокументСсылка,"ЗаявлениеОбИндексации");
КонецФункции

&НаКлиенте

Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)

ПоказатьОповещениеПользователя("Формирую документ", "", "Формируем документ. Это может занять некоторое время", БиблиотекаКартинок.БизнесПроцесс);

Для Каждого ДокументСсылка Из ПараметрКоманды Цикл

БинарныеДанные = СформироватьДокументНаСервере(ДокументСсылка);

врмф = ПолучитьИмяВременногоФайла(".docx");

БинарныеДанные.Записать(врмф);

Оповещение = Новый ОписаниеОповещения("ЗапускПриложения", ЭтотОбъект);

НачатьЗапускПриложения(Оповещение, врмф, , Ложь);

ПоказатьОповещениеПользователя("Документ сформирован", "", "Дождитесь открытия приложения для работы с документом", БиблиотекаКартинок.БизнесПроцесс);

КонецЦикла;

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

&НаКлиенте

Процедура ЗапускПриложения(КодВозврата, ДополнительныйПараметр) Экспорт

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

&НаСервере

Функция СформироватьДокументНаСервере(ДокументСсылка);

Возврат Документы.СК_КалькуляторИндексации.СгенерироватьДокумент(ДокументСсылка,"ЗаявлениеОбИндексации");

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

Код формирования файла на сервере:

Процедура ДобавитьОписаниеОбласти(НаборОбластей, знач ИмяОбласти, знач ТипОбласти) Экспорт
	НоваяОбласть = Новый Структура;	
	НоваяОбласть.Вставить("ИмяОбласти", ИмяОбласти);
	НоваяОбласть.Вставить("ТипОбласти", ТипОбласти);	
	НаборОбластей.Вставить(ИмяОбласти, НоваяОбласть);	
КонецПроцедуры

Функция ПолучениеОписанияОбластей() Экспорт
	ОписаниеОбластей = Новый Структура;	
	ДобавитьОписаниеОбласти(ОписаниеОбластей, "Тушка", "Общая");
	ДобавитьОписаниеОбласти(ОписаниеОбластей, "Подвал", "Общая");
	ДобавитьОписаниеОбласти(ОписаниеОбластей, "ВерхнийКолонтитул", "ВерхнийКолонтитул");
	ДобавитьОписаниеОбласти(ОписаниеОбластей, "НижнийКолонтитул", "НижнийКолонтитул");
	ДобавитьОписаниеОбласти(ОписаниеОбластей, "НижнийТитульныйКолонтитул", "НижнийТитульныйКолонтитул");		
	Возврат ОписаниеОбластей;		
КонецФункции		


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

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

	ПечатнаяФорма = УправлениеПечатью.ИнициализироватьПечатнуюФорму(ТипМакета, Макет.НастройкиСтраницыМакета,Макет);
	АдресХранилищаПечатнойФормы = "";
		
	Если ПечатнаяФорма = Неопределено Тогда
		УправлениеПечатью.ОчиститьСсылки(Макет);
		Возврат "";
	КонецЕсли;	
	
	Область = УправлениеПечатью.ОбластьМакета(Макет, Области[ИмяМакета]["Тушка"]);
	УправлениеПечатью.ПрисоединитьОбластьИЗаполнитьПараметры(ПечатнаяФорма, Область, ДанныеОбъекта);
		
	АдресХранилищаПечатнойФормы = УправлениеПечатью.СформироватьДокумент(ПечатнаяФорма);
			
	УправлениеПечатью.ОчиститьСсылки(ПечатнаяФорма, ЗакрытьОкноПечатнойФормы);
	УправлениеПечатью.ОчиститьСсылки(Макет);
	
	докбин = Новый ХранилищеЗначения(ПолучитьИзВременногоХранилища(АдресХранилищаПечатнойФормы));
	док = докбин.Получить();
	Возврат док;

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

Процедура ДобавитьОписаниеОбласти(НаборОбластей, знач ИмяОбласти, знач ТипОбласти) Экспорт

НоваяОбласть = Новый Структура;

НоваяОбласть.Вставить("ИмяОбласти", ИмяОбласти);

НоваяОбласть.Вставить("ТипОбласти", ТипОбласти);

НаборОбластей.Вставить(ИмяОбласти, НоваяОбласть);

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

Функция ПолучениеОписанияОбластей() Экспорт

ОписаниеОбластей = Новый Структура;

ДобавитьОписаниеОбласти(ОписаниеОбластей, "Тушка", "Общая");

ДобавитьОписаниеОбласти(ОписаниеОбластей, "Подвал", "Общая");

ДобавитьОписаниеОбласти(ОписаниеОбластей, "ВерхнийКолонтитул", "ВерхнийКолонтитул");

ДобавитьОписаниеОбласти(ОписаниеОбластей, "НижнийКолонтитул", "НижнийКолонтитул");

ДобавитьОписаниеОбласти(ОписаниеОбластей, "НижнийТитульныйКолонтитул", "НижнийТитульныйКолонтитул");

Возврат ОписаниеОбластей;

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

функция ПолучитьДанныеМакета(Знач ИмяМакета)

ОписаниеОбластей = Новый Соответствие;

ДвоичныеДанныеМакетов = Новый Соответствие;

ТипыМакетов = Новый Соответствие;

ДвоичныеДанныеМакетов.Вставить(ИмяМакета, ПолучитьМакет(ИмяМакета));

ОписаниеОбластей.Вставить(ИмяМакета, ПолучениеОписанияОбластей());

Макет = Новый Структура;

Макет.Вставить("ОписаниеОбластей", ОписаниеОбластей);

Макет.Вставить("ДвоичныеДанныеМакетов", ДвоичныеДанныеМакетов);

Макет.Вставить("ТипыМакетов", ТипыМакетов);

Макет.Вставить("ЛокальныйКаталогФайловПечати", Неопределено);

Если НЕ Макет.Свойство("ТипыМакетов") Тогда

Макет.Макеты.Вставить("ТипыМакетов", Новый Соответствие);

КонецЕсли;

Возврат Макет;

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

Функция СгенерироватьДокумент(ДокументСсылка,ИмяМакета) Экспорт

ДанныеОбъекта = Новый Структура;

ДанныеОбъекта.Вставить("АрбитражныйСуд", "Самый гуманный суд в мире!");

ДанныеМакетов = ПолучитьДанныеМакета(ИмяМакета);

ТипМакета = ДанныеМакетов.ТипыМакетов[ИмяМакета];

ДвоичныеДанныеМакета = ДанныеМакетов.ДвоичныеДанныеМакетов;

Области = ДанныеМакетов.ОписаниеОбластей;

Макет = УправлениеПечатью.ИнициализироватьМакетОфисногоДокумента(ДвоичныеДанныеМакета[ИмяМакета],ТипМакета,ИмяМакета);

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

Возврат "";

КонецЕсли;

ЗакрытьОкноПечатнойформы = Ложь;

ПечатнаяФорма = УправлениеПечатью.ИнициализироватьПечатнуюФорму(ТипМакета, Макет.НастройкиСтраницыМакета,Макет);

АдресХранилищаПечатнойФормы = "";

Если ПечатнаяФорма = Неопределено Тогда

УправлениеПечатью.ОчиститьСсылки(Макет);

Возврат "";

КонецЕсли;

Область = УправлениеПечатью.ОбластьМакета(Макет, Области[ИмяМакета]["Тушка"]);

УправлениеПечатью.ПрисоединитьОбластьИЗаполнитьПараметры(ПечатнаяФорма, Область, ДанныеОбъекта);

АдресХранилищаПечатнойФормы = УправлениеПечатью.СформироватьДокумент(ПечатнаяФорма);

УправлениеПечатью.ОчиститьСсылки(ПечатнаяФорма, ЗакрытьОкноПечатнойФормы);

УправлениеПечатью.ОчиститьСсылки(Макет);

докбин = Новый ХранилищеЗначения(ПолучитьИзВременногоХранилища(АдресХранилищаПечатнойФормы));

док = докбин.Получить();

Возврат док;

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

Оставить комментарий 1с, linux, формирование файла по шаблону

Нарушена целостность структуры конфигурации 1С

19.04.2023 Павел Грибов 1C

Уже ранее была статья на эту тему, но в этом случае все советы не помогли. Помогли другие:

Найти не битую cf этой версии конфигурации
Зайти битую конфигурацию, снять её с поддержки
Объединить битую конфигурацию с не битой cf. В время объединения 1С предложит снова поставить её на поддержку
После этой манипуляции, битая становится не битой и позволяет далее нормально штатно обновлятся

Оставить комментарий 1с, нарушена целостность структуры

1c 7.7 Выборка всех элементов справочника без группировки

30.03.2023 Павел Грибов 1C

1С 7.7 не умеет выбирать все элементы справочника в запросе без группировки по какому то реквизиту. Обычно группируют по Коду. А что делать, если какой-то талантливый программист, решил что поле Код в справочнике например может быть не уникальным? Тогда будем группировать по текущему элементу справочника. Например:

	ТекстЗапроса=
	"//{{ЗАПРОС(СформироватьСЧТ)
	|ОбрабатыватьДокументы все;
	|Обрабатывать НеПомеченныеНаУдаление;
	|Владелец = Справочник.Счетчики.Владелец;
	|Наименование = Справочник.Счетчики.Наименование;
	|ТекущийЭлемент = Справочник.Счетчики.ТекущийЭлемент;
	|Группировка ТекущийЭлемент  Без Групп;
	|"//}}ЗАПРОС
	;             
            
		Запрос = СоздатьОбъект("Запрос");		
		Запрос.Выполнить(ТекстЗапроса);		 
		Пока Запрос.Группировка() = 1 Цикл
...
...

ТекстЗапроса=

"//{{ЗАПРОС(СформироватьСЧТ)

|ОбрабатыватьДокументы все;

|Обрабатывать НеПомеченныеНаУдаление;

|Владелец = Справочник.Счетчики.Владелец;

|Наименование = Справочник.Счетчики.Наименование;

|ТекущийЭлемент = Справочник.Счетчики.ТекущийЭлемент;

|Группировка ТекущийЭлемент Без Групп;

|"//}}ЗАПРОС

;

Запрос = СоздатьОбъект("Запрос");

Запрос.Выполнить(ТекстЗапроса);

Пока Запрос.Группировка() = 1 Цикл

...

Оставить комментарий 1с 7.7, 7.7, группировка в запросе

1c 7.7 Получения последней даты занесения периодического реквизита

24.03.2023 Павел Грибов 1C

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

Решение: используем следующую функцию:

Функция ПолучитьПоследнююДатуВводаПериодическогоРеквизита(ИмяРеквизита,спрЭлементСправочника)
	ДатаПерЗначения = ПолучитьПустоеЗначение("Дата");
	Пер = СоздатьОбъект("Периодический");
	Пер.ИспользоватьОбъект(ИмяРеквизита,спрЭлементСправочника);
	Пер.ОбратныйПорядок(1);
	Если Пер.ВыбратьЗначения() = 1 Тогда
		Если Пер.ПолучитьЗначение() = 1 Тогда
	   		ДатаПерЗначения = Пер.ДатаЗнач;
		КонецЕсли;
	КонецЕсли;
	Пер = 0;         
	//сообщить(ДатаПерЗначения);
	Возврат ДатаПерЗначения;
КонецФункции

Функция ПолучитьПоследнююДатуВводаПериодическогоРеквизита(ИмяРеквизита,спрЭлементСправочника)

ДатаПерЗначения = ПолучитьПустоеЗначение("Дата");

Пер = СоздатьОбъект("Периодический");

Пер.ИспользоватьОбъект(ИмяРеквизита,спрЭлементСправочника);

Пер.ОбратныйПорядок(1);

Если Пер.ВыбратьЗначения() = 1 Тогда

Если Пер.ПолучитьЗначение() = 1 Тогда

ДатаПерЗначения = Пер.ДатаЗнач;

КонецЕсли;

Пер = 0;

//сообщить(ДатаПерЗначения);

Возврат ДатаПерЗначения;

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

Оставить комментарий 7.7, периодический реквизит

1С: Получить таблицы из Html

25.01.2023 Павел Грибов 1C

Задача: в неком html файле содержится несколько таблиц. Необходимо их распарсить и обработать силами 1С

Решение: воспользуемся построителем DOM. Результатом работы функции будет массив таблиц html документа.

&НаСервере
Функция УбратьНеОбрабатываемыеСимволы(стр)
	стр=стрзаменить(стр," ","_");
	стр=стрзаменить(стр,"№","N");
	стр=стрзаменить(стр,"-","_");
	стр=стрзаменить(стр,".","_");
	стр=стрзаменить(стр,",","_");
	стр=стрзаменить(стр,"/","_");
	возврат стр;
конецфункции	
&НаСервере
Функция ПреобразоватьФайлHtmlВМассивТаблиц(АдресХранилищаФайла)	
	
	ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресХранилищаФайла);
	ИмяВременногоФайлаСпр = ПолучитьИмяВременногоФайла("html");
	ДвоичныеДанные.Записать(ИмяВременногоФайлаСпр);     
	
	ЧтениеHTML = Новый ЧтениеHTML;
	ЧтениеHTML.ОткрытьФайл(ИмяВременногоФайлаСпр, "UTF-8");

	ПостроительDOM = Новый ПостроительDOM;
	ДокументHTML = ПостроительDOM.Прочитать(ЧтениеHTML);
	ЭлементыТаблицы = ДокументHTML.ПолучитьЭлементыПоИмени("table");
	
	МассивТаблиц=Новый Массив();	
	для каждого таблица из	ЭлементыТаблицы цикл
	  ТЗ=Новый ТаблицаЗначений();	
	  строкиТаблицы=таблица.ПолучитьЭлементыПоИмени("tr");	
	      ПрочитаноСтрок=0;
		  для каждого строкаТаблицы из	строкиТаблицы цикл
		  	колонки=строкаТаблицы.ПолучитьЭлементыПоИмени("td");			
			ПрочитаноКолонок=0;
			для каждого колонка из колонки цикл
				если ПрочитаноСтрок=0 тогда
					ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(колонка.ТекстовоеСодержимое));
				иначе
					если ПрочитаноКолонок=0 тогда
					 нс=ТЗ.Добавить()
				    конецесли;		 
				    нс[ПрочитаноКолонок]=колонка.ТекстовоеСодержимое;
				конецесли;	
				ПрочитаноКолонок=ПрочитаноКолонок+1;
			конеццикла;		
			ПрочитаноСтрок=ПрочитаноСтрок+1;
		  конеццикла;
	  МассивТаблиц.Добавить(ТЗ);
	конеццикла;	
	ЧтениеHTML.Закрыть();											
	
конецфункции

&НаКлиенте
Процедура ЗагрузитьФайл(Команда)
Режим = РежимДиалогаВыбораФайла.Открытие;
    ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);
    ДиалогОткрытияФайла.ПолноеИмяФайла = "";
    Фильтр = НСтр("ru = 'Текст'; en = 'Text'")+ "(*.xls)|*.xlsx";
    ДиалогОткрытияФайла.Фильтр = Фильтр;
    ДиалогОткрытияФайла.МножественныйВыбор = ложь;
    ДиалогОткрытияФайла.Заголовок = "Выберите файлы";
    Если ДиалогОткрытияФайла.Выбрать() Тогда
        МассивФайлов = ДиалогОткрытияФайла.ВыбранныеФайлы;
		ФайлСМС="";
		Для Каждого ИмяФайла Из МассивФайлов Цикл
			ФайлСМС=ИмяФайла;
		конеццикла;
		если ФайлСМС<>"" тогда 			
					АдресХранилищаФайла = "";			
					Состояние("Перемещаю файл на сервер");
		            ПоместитьФайл(АдресХранилищаФайла, ФайлСМС, , Ложь, ЭтаФорма.УникальныйИдентификатор);   					
					Состояние("Обрабатывается файл "+ФайлСМС);							
					таблицы=ПреобразоватьФайлHtmlВМассивТаблиц(АдресХранилищаФайла);					
		иначе
			сообщить("Файл не выбран");
		конецесли;	
	конецесли;	        
КонецПроцедуры

&НаСервере

Функция УбратьНеОбрабатываемыеСимволы(стр)

стр=стрзаменить(стр," ","_");

стр=стрзаменить(стр,"№","N");

стр=стрзаменить(стр,"-","_");

стр=стрзаменить(стр,".","_");

стр=стрзаменить(стр,",","_");

стр=стрзаменить(стр,"/","_");

возврат стр;

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

&НаСервере

Функция ПреобразоватьФайлHtmlВМассивТаблиц(АдресХранилищаФайла)

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

ИмяВременногоФайлаСпр = ПолучитьИмяВременногоФайла("html");

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

ЧтениеHTML = Новый ЧтениеHTML;

ЧтениеHTML.ОткрытьФайл(ИмяВременногоФайлаСпр, "UTF-8");

ПостроительDOM = Новый ПостроительDOM;

ДокументHTML = ПостроительDOM.Прочитать(ЧтениеHTML);

ЭлементыТаблицы = ДокументHTML.ПолучитьЭлементыПоИмени("table");

МассивТаблиц=Новый Массив();

для каждого таблица из ЭлементыТаблицы цикл

ТЗ=Новый ТаблицаЗначений();

строкиТаблицы=таблица.ПолучитьЭлементыПоИмени("tr");

ПрочитаноСтрок=0;

для каждого строкаТаблицы из строкиТаблицы цикл

колонки=строкаТаблицы.ПолучитьЭлементыПоИмени("td");

ПрочитаноКолонок=0;

для каждого колонка из колонки цикл

если ПрочитаноСтрок=0 тогда

ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(колонка.ТекстовоеСодержимое));

иначе

если ПрочитаноКолонок=0 тогда

нс=ТЗ.Добавить()

конецесли;

нс[ПрочитаноКолонок]=колонка.ТекстовоеСодержимое;

конецесли;

ПрочитаноКолонок=ПрочитаноКолонок+1;

конеццикла;

ПрочитаноСтрок=ПрочитаноСтрок+1;

конеццикла;

МассивТаблиц.Добавить(ТЗ);

конеццикла;

ЧтениеHTML.Закрыть();

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

&НаКлиенте

Процедура ЗагрузитьФайл(Команда)

Режим = РежимДиалогаВыбораФайла.Открытие;

ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);

ДиалогОткрытияФайла.ПолноеИмяФайла = "";

Фильтр = НСтр("ru = 'Текст'; en = 'Text'")+ "(*.xls)|*.xlsx";

ДиалогОткрытияФайла.Фильтр = Фильтр;

ДиалогОткрытияФайла.МножественныйВыбор = ложь;

ДиалогОткрытияФайла.Заголовок = "Выберите файлы";

Если ДиалогОткрытияФайла.Выбрать() Тогда

МассивФайлов = ДиалогОткрытияФайла.ВыбранныеФайлы;

ФайлСМС="";

Для Каждого ИмяФайла Из МассивФайлов Цикл

ФайлСМС=ИмяФайла;

конеццикла;

если ФайлСМС<>"" тогда

АдресХранилищаФайла = "";

Состояние("Перемещаю файл на сервер");

ПоместитьФайл(АдресХранилищаФайла, ФайлСМС, , Ложь, ЭтаФорма.УникальныйИдентификатор);

Состояние("Обрабатывается файл "+ФайлСМС);

таблицы=ПреобразоватьФайлHtmlВМассивТаблиц(АдресХранилищаФайла);

иначе

сообщить("Файл не выбран");

конецесли;

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

Один комментарий 1c, html, table

« 1 … 3 4 5 6 7 … 41 »

Пн	Вт	Ср	Чт	Пт	Сб	Вс
		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	31