Вы искали 1с - Страница 14 из 40

1С: добавление в дерево на форме элемента перетаскиванием с другой таблице на форме

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

Собственно обрабатывать нужно событие «перетаскивание» на форме:

&НаКлиенте
Процедура ДеревоРасчетаФормаПеретаскивание(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка, Строка, Поле)	
	для каждого тз из    ПараметрыПеретаскивания.Значение цикл
		ПараметрыПеретаскивания.Действие=ДействиеПеретаскивания.Отмена;
			сообщить("Тащу узел учета: "+тз.Наименование+", в "+строка);
			ДобавитьВДеревоНаКлиентеУзел(ДеревоРасчетаФорма.ПолучитьЭлементы(),строка,тз);
	конеццикла;	
КонецПроцедуры

&НаКлиенте

Процедура ДеревоРасчетаФормаПеретаскивание(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка, Строка, Поле)

для каждого тз из ПараметрыПеретаскивания.Значение цикл

ПараметрыПеретаскивания.Действие=ДействиеПеретаскивания.Отмена;

сообщить("Тащу узел учета: "+тз.Наименование+", в "+строка);

ДобавитьВДеревоНаКлиентеУзел(ДеревоРасчетаФорма.ПолучитьЭлементы(),строка,тз);

конеццикла;

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

,где в

ПараметрыПеретаскивания.Значение — собственно что именно перетащилось
ПараметрыПеретаскивания.Действие=ДействиеПеретаскивания.Отмена; — что мы сами обработаем результат перетаскивания
Строка — в какую именно строчку тащим в дереве
Поле — в какое поле тащим в дереве

И как добавляем:

&НаКлиенте
Процедура ДобавитьВДеревоНаКлиентеУзел(СтрокиДерева,строка,тз);
	Для каждого элемента  Из СтрокиДерева Цикл                             
             	//Сообщить(элемента.Наименование+"/"+элемента.ПолучитьИдентификатор());
				если строка=элемента.ПолучитьИдентификатор() тогда
					тс       = ДеревоРасчетаФорма.НайтиПоИдентификатору(элемента.ПолучитьИдентификатор());
					НоваяСтрокаДерева   = тс.ПолучитьЭлементы().Добавить();
					НоваяСтрокаДерева.Наименование=тз.Наименование;
					НоваяСтрокаДерева.ВидНачисления=тз.ВидНачисления;
				конецесли;	
             	ВложенныеСтроки = элемента.ПолучитьЭлементы();  
             	Если ВложенныеСтроки.Количество() > 0 Тогда                   	
                         	ДобавитьВДеревоНаКлиентеУзел(ВложенныеСтроки,строка,тз);           	
             	КонецЕсли;
  	КонецЦикла;	
КонецПроцедуры

&НаКлиенте

Процедура ДобавитьВДеревоНаКлиентеУзел(СтрокиДерева,строка,тз);

Для каждого элемента Из СтрокиДерева Цикл

//Сообщить(элемента.Наименование+"/"+элемента.ПолучитьИдентификатор());

если строка=элемента.ПолучитьИдентификатор() тогда

тс = ДеревоРасчетаФорма.НайтиПоИдентификатору(элемента.ПолучитьИдентификатор());

НоваяСтрокаДерева = тс.ПолучитьЭлементы().Добавить();

НоваяСтрокаДерева.Наименование=тз.Наименование;

НоваяСтрокаДерева.ВидНачисления=тз.ВидНачисления;

конецесли;

ВложенныеСтроки = элемента.ПолучитьЭлементы();

Если ВложенныеСтроки.Количество() > 0 Тогда

ДобавитьВДеревоНаКлиентеУзел(ВложенныеСтроки,строка,тз);

КонецЕсли;

КонецЦикла;

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

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

1С: проверка на пустую ссылку справочника (документа и.п.) на клиенте

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

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

	Для каждого элемента  Из СтрокиДерева Цикл                             
		если элемента.Счетчик<>ПредопределенноеЗначение("Справочник.Счетчики.ПустаяСсылка") тогда
			 сообщить("--добавляю ТУ: "+элемента.Счетчик);
		конецесли;
		ВложенныеСтроки = элемента.ПолучитьЭлементы();  
        Если ВложенныеСтроки.Количество() > 0 Тогда                   	
			СоздатьТочкиУчетаСчетчики(ВложенныеСтроки);           	
        КонецЕсли;
		 
  	КонецЦикла;

Для каждого элемента Из СтрокиДерева Цикл

если элемента.Счетчик<>ПредопределенноеЗначение("Справочник.Счетчики.ПустаяСсылка") тогда

сообщить("--добавляю ТУ: "+элемента.Счетчик);

конецесли;

ВложенныеСтроки = элемента.ПолучитьЭлементы();

Если ВложенныеСтроки.Количество() > 0 Тогда

СоздатьТочкиУчетаСчетчики(ВложенныеСтроки);

КонецЕсли;

КонецЦикла;

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

1С: Генерация документа DOCX на сервере без установки WORD

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

Задача: создать по шаблону файл формата Word на сервере 1С предприятие. Кросплатформенно (т.е. никаких COMОбъект).

Первоначально было сделано на основе сохранения табличного документа генерируемого из Макета. Однако в нём сложно получить вычурную разметку, которая необходима в моем случае.

Решение: используем функционал БСП УправлениеПечатью, а именно функцию ИнициализироватьМакетОфисногоДокумента.

1.Создаем документа в формате OpenXML. Любым редактором. Хоть Word хоть LibreOffice. Без разницы. Разметку в нём делаем в соответствии с разделителями вида:

{v8 Область.<Имя области>}
  {v8 <ИмяПараметра>}
{/v8 Область.<Имя области>}

{v8 Область.<Имя области>}

{v8 <ИмяПараметра>}

{/v8 Область.<Имя области>}

Подробнее о разметке тут

2. Создаем в конфигураторе 1С документ и макет с бинарными данными и загружаем в него этот файл.

3. В Менеджере документа размещаем:

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

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

функция СоздатьДокументOfficeOpenXML(Ссылка, ДанныеМакетов, ИмяМакета)
	
	//Тестовые данные, могут быть получены ранее в другой функции или в этой функции
	ДанныеОбъекта = Новый Структура;
	ДанныеОбъекта.Вставить("Кому", "ООО НАША ОРГАНИЗАЦИЯ");

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

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

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

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

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

ОфисныеДокументы = Новый Соответствие;

АдресХранилищаОфисныйДокумент = СоздатьДокументOfficeOpenXML(Ссылка, ДанныеМакета, ИмяМакета);

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

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

возврат фф;

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

функция СоздатьДокументOfficeOpenXML(Ссылка, ДанныеМакетов, ИмяМакета)

//Тестовые данные, могут быть получены ранее в другой функции или в этой функции

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

ДанныеОбъекта.Вставить("Кому", "ООО НАША ОРГАНИЗАЦИЯ");

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

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

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

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

ИмяМакета);

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

Возврат "";

КонецЕсли;

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

Попытка

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

Макет);

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

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

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

Возврат "";

КонецЕсли;

// Вывод верхней части документа - обычная область с параметрами.

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

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

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

Исключение

ОбщегоНазначения.СообщитьПользователю(КраткоеПредставлениеОшибки(ИнформацияОбОшибке()));

ЗакрытьОкноПечатнойФормы = Истина;

Возврат "";

КонецПопытки;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

КонецЕсли;

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

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

функция ОписаниеОбластейМакетаОфисногоДокумента()

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

УправлениеПечатью.ДобавитьОписаниеОбласти(ОписаниеОбластей, "Шапка", "Общая");

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

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

4. В Форме документа размещаем:

&НаСервере
Функция СформироватьДокументНаСервереБСП();
	бинарныеданные=Документы.ascsdc.СгенерироватьДокументБСП(объект,"Шаблон_2");
	возврат бинарныеданные;
КонецФункции

&НаКлиенте
Процедура ГенерацияБСП(Команда)
	БинарныеДанные=СформироватьДокументНаСервереБСП();	
	врмф=ПолучитьИмяВременногоФайла(".docx");
	БинарныеДанные.Записать(врмф);
    Попытка
	     ОбъектВорд = Новый COMОбъект("Word.Application"); 
	Исключение
	     Сообщить("Ошибка при запуске Microsoft Word (3): " + ОписаниеОшибки(), СтатусСообщения.Внимание);		        
	КонецПопытки;
		     
	//Путь к шаблону
	ОбъектВорд.Documents.Add(врмф);
	ШаблонВорд = ОбъектВорд.ActiveDocument;	
	ОбъектВорд.Application.Visible = Истина;
    ОбъектВорд.Activate();     		
КонецПроцедуры

&НаСервере

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

бинарныеданные=Документы.ascsdc.СгенерироватьДокументБСП(объект,"Шаблон_2");

возврат бинарныеданные;

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

&НаКлиенте

Процедура ГенерацияБСП(Команда)

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

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

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

Попытка

ОбъектВорд = Новый COMОбъект("Word.Application");

Исключение

Сообщить("Ошибка при запуске Microsoft Word (3): " + ОписаниеОшибки(), СтатусСообщения.Внимание);

КонецПопытки;

//Путь к шаблону

ОбъектВорд.Documents.Add(врмф);

ШаблонВорд = ОбъектВорд.ActiveDocument;

ОбъектВорд.Application.Visible = Истина;

ОбъектВорд.Activate();

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

В приведенном примере, файл формируется на сервере и открывается для наглядности в Word уже «готовым» на клиенте. В принципе ничего не мешает эту фазу исключить и сразу сохранять полученный с сервера файл куда угодно.

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

Пауза в исполнении кода в 1С

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

В языке 1С нет команды паузы. Ну нет и всё тут! Парадигма: если чего то нет, что вам нужно, значит вы что то делаете не так (с) конечно хороша… Но усложнять код ради «выверта»? Код должен быть читаем и прост! Ну вот как например ПРОСТО сделать 10 попыток чтения чего-то с паузой в 60 секунд например не городя огород из костылей? Например, элементарная схема:

  Для Сч = 1 По 10 Цикл
       рез=ПопытатьсяЧтоТоСделать();           
	если рез=Ложь тогда
	 ГлПауза(1);
	иначе	
	    Прервать;
	конецесли				
 конеццикла

Для Сч = 1 По 10 Цикл

рез=ПопытатьсяЧтоТоСделать();

если рез=Ложь тогда

ГлПауза(1);

иначе

Прервать;

конецесли

конеццикла

А вот так можно реализовать функцию ГлПауза:

 Процедура глПауза(Сек)
scr = Новый COMОбъект("WScript.Shell");
scr.Run("sleep "+СокрЛП(Число(Сек)),0,1);
КонецПроцедуры;

Процедура глПауза(Сек)

scr = Новый COMОбъект("WScript.Shell");

scr.Run("sleep "+СокрЛП(Число(Сек)),0,1);

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

Вариант 2 с загрузкой процессора:

Процедура глПауза(Сек)
	КонДата = ТекущаяДата() + Сек;
  	Пока ТекущаяДата() < КонДата Цикл
      // ждемссс....
  	КонецЦикла;	
КонецПроцедуры

Процедура глПауза(Сек)

КонДата = ТекущаяДата() + Сек;

Пока ТекущаяДата() < КонДата Цикл

// ждемссс....

КонецЦикла;

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

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

1С: Не работает авторизация по учетной записи

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

Ситуация: есть два сервера Windows, один из которых играет роль сервера 1С предприятие+БД, другой RDP. Оба сервера «отдельно стоящие», не входят в AD. Проблема заключается в не возможности входа по учетной записи на RDP сервере, т.к. запущенный клиент 1С на сервере RDP ищет на самом деле у.з. на сервере 1С предприятие.

Решение: создавать ПОЛНОСТЬЮ идентичные учетные записи пользователей на обоих серверах. Вплоть до одинакового пароля. Тогда фишка с авторизацией «прокатывает»

Оставить комментарий 1с, ошибка авторизации

« 1 … 12 13 14 15 16 … 40 »

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