Архивы 1C

Динамическая таблица значений на форме

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

Часто возникают ситуации, что необходимо отобразить данные на форме в виде таблицы (динамическая таблица значений на форме). Классический метод — добавить к документу (справочнику и т.п.) табличную часть — объект. Но из этого возникает значительный минус — при записи данные будут храниться в БД. А если это не нужно, и данные должны подтягиваться динамически из других таблиц? Выход есть — создать таблицу не как объект, а как переменную формы. В этом случае данные в БД сохраняться не будут. Что для этого нужно?

Создать реквизит с типом «Таблица значений»:

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

Далее, перетащите получившуюся таблицу на форму:

И остаётся только при событии формы «При создании на сервере», заполнить эту таблицу:

ТЗДвижения.Очистить();
 
 НомерИП=СокрЛП(объект.НомерИП);
 ТЗ=Новый ТаблицаЗначений();
 ТЗ.Колонки.Добавить("Дата");
 ТЗ.Колонки.Добавить("ИсточникДанных");
 ТЗ.Колонки.Добавить("ВидДанных");
 ТЗ.Колонки.Добавить("Комментарий");
 ТЗ.Колонки.Добавить("СсылкаНаДокумент");
...
заполняем таблицу
...
 ТЗ.Сортировать("Дата УБЫВ"); 
 ТЗДвижения.Загрузить(ТЗ);

ТЗДвижения.Очистить();

НомерИП=СокрЛП(объект.НомерИП);

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

ТЗ.Колонки.Добавить("Дата");

ТЗ.Колонки.Добавить("ИсточникДанных");

ТЗ.Колонки.Добавить("ВидДанных");

ТЗ.Колонки.Добавить("Комментарий");

ТЗ.Колонки.Добавить("СсылкаНаДокумент");

...

заполняем таблицу

...

ТЗ.Сортировать("Дата УБЫВ");

ТЗДвижения.Загрузить(ТЗ);

Как результат — получим динамически формируемую таблицу на управляемой форме 1С (динамическая таблица значений). Другие статьи по теме 1С можете найти здесь

Оставить комментарий 1с, динамическая таблица, форма

Кнопка выбора периода

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

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

Далее, перетаскиваем этот реквизит на форму, и добавляю обычные реквизиты с типом Дата+Время:

Осталось всего ничего — добавить обработчик события «при изменении»:


&НаКлиенте
Процедура ВыборПериодаПриИзменении(Элемент)
	НачПериода = ВыборПериода.ДатаНачала;
	КонПериода = ВыборПериода.ДатаОкончания;
	
	Сообщить("Начало: " + НачПериода + ", окончание: " + КонПериода);
КонецПроцедуры

&НаКлиенте

Процедура ВыборПериодаПриИзменении(Элемент)

НачПериода = ВыборПериода.ДатаНачала;

КонПериода = ВыборПериода.ДатаОкончания;

Сообщить("Начало: " + НачПериода + ", окончание: " + КонПериода);

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

На этом задача «кнопка выбора периода» будем считать завершена. Еще больше всяких шпаргалок по 1С, легко найдется здесь.

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

Шрифты при формировании pdf из табличного документа

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

В виду того, что организация плавно переходит на использование свободных от лицензий шрифтов (и соответственно не попадающих на санкции), то начал работу по переводу некоторых печатных форм в 1С на новые шрифты. Сегодня столкнулся с интересной проблемой, а именно: шрифты при формировании pdf из табличного документа выставляются не верно. Проблема актуальна только при формировании PDF на «сервере». На «клиенте» — всё корректно. Например если в поле табличного документа указать шрифт PT Astra Serif, то в документе pdf они станут ArialMT:

Шрифты при формировании pdf из табличного документа

Мало того, даже если при формировании документа прямо указать шрифт…то результат тот же:

Область = Макет.ПолучитьОбласть("Шапка");
Область.Область().Шрифт=Новый Шрифт("PT Astra Serif",11);   
....
ТабДок.Область().Шрифт=Новый Шрифт("PT Astra Serif",11); 
 Вложения=Новый КоллекцияВложенийPDF();
 ТабДок.Записать(врмф , ТипФайлаТабличногоДокумента.PDF_A_3,Вложения);

Область = Макет.ПолучитьОбласть("Шапка");

Область.Область().Шрифт=Новый Шрифт("PT Astra Serif",11);

....

ТабДок.Область().Шрифт=Новый Шрифт("PT Astra Serif",11);

Вложения=Новый КоллекцияВложенийPDF();

ТабДок.Записать(врмф , ТипФайлаТабличногоДокумента.PDF_A_3,Вложения);

Да, тут я попробовал даже использовать относительно новый функционал по сохранению PDF, именно использование формата PDF_A_3, который позволяет добавлять «вложения». Но толкового описания и примеров в сети я не нашел, а документация от 1С очень скудна. Возможно при помощи «вложений» можно прикрепить этот шрифт для использования. Но не факт.

Открыв сформировавшийся файл pdf блокнотом, можно увидеть что платформа 1С даже не пытается упомянуть нужные шрифты:

Хотя если сохранять тот-же самый табличный документ сначала в формат docx, а затем средствами Word сохранить в pdf, то всё отлично сохраняется, и PDF получается корректный:

Ну что я могу сказать? На лицо похоже ошибка в платформе. Будем ждать обновлений, а пока решил проблему формированием файла в формате html5:

 врмф=ПолучитьИмяВременногоФайла(".html");  
 ТабДок.Записать(врмф , ТипФайлаТабличногоДокумента.HTML5);
 дд = Новый ДвоичныеДанные(врмф);

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

ТабДок.Записать(врмф , ТипФайлаТабличногоДокумента.HTML5);

дд = Новый ДвоичныеДанные(врмф);

Что в принципе в моём случае, проблему «не верные шрифты при формировании pdf» временно закрыло

Оставить комментарий pdf, сбиваются шрифты, табличный документ

Сколько дней в году

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

Иногда возникает задача, как определить сколько дней в году на языке 1С. Их есть у нас (с), ну я имею ввиду решение.. Странно конечно, что в 1С нет готовой функции, приходится напрягать мозжечок (ну или гугл/яндекс) и велосипедить. Ну на самом деле есть несколько вариантов, Например первый вариант:

Функция ДнейВЭтомГоду()
 Дата = ТекущаяДата();
 ДнейВГоду = ДеньГода(КонецГода(Дата));
 возврат ДнейВГоду;
конецфункции

Функция ДнейВЭтомГоду()

Дата = ТекущаяДата();

ДнейВГоду = ДеньГода(КонецГода(Дата));

возврат ДнейВГоду;

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

Основан на функциях 1С которые позволяют определить порядковый номер дня по переданной дате. Т.е. передаём в неё последний день текущего года, и получаем или 365 или 366, в зависимости от високосности года.

Есть другой вариант того-же решения:

Функция ДнейВЭтомГоду()
 Попытка
   А = Дата(Год(ТекущаяДата()),2,29);
   Возврат 366;
 Исключение
   Возврат 365;
 КонецПопытки;
КонецФункции

Функция ДнейВЭтомГоду()

Попытка

А = Дата(Год(ТекущаяДата()),2,29);

Возврат 366;

Исключение

Возврат 365;

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

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

,проверяем наличие 29 Февраля в этом году. Если возникает исключение, значит в этом году 365 дней, иначе — 366.

Есть еще вариант с делением года на 4. Если он делится без остатка, то год високосный. Но там есть исключения для некоторых годов. Ну и самый тупой 😉 способ определить сколько дней в году:

Оставить комментарий 1с, високосный год, день года, дней в году

1С: Поиск слова обрамлённого символами

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

В продолжение этого. Пользователи оказались немножко более изобретательными, чем предполагал программист, и начали в комментариях писать и что-то типа:

Контролер процесса {Коновалова Е.П.} очень хочет получить премию в размере (20 рублей)!

1	Контролер процесса {Коновалова Е.П.} очень хочет получить премию в размере (20 рублей)!

Соответственно описанная в предыдущей статье функция начала определять только «20 рублей». Т.е. алгоритм не предусматривал наличие нескольких вложений скобок внутри строки. Поправим это:


Функция СложитьМассивы(массив1,массив2) экспорт
	для каждого эл из массив2 цикл
		массив1.добавить(эл);
	конеццикла;	
	возврат массив1;
конецфункции	
              
             
Функция ВычленитьМассивФИОИзСкобок(стр,стрн,стрк) экспорт
	 МассивФИО=Новый Массив();
	 // сначала вычленяем из ()
	 массивКонцовСкобки=СтрРазделить(стр,стрк);
	 для каждого эл из массивКонцовСкобки цикл
		если СтрНайти(эл,стрн)>0 тогда
			МассивНачалСкобки=СтрРазделить(эл,стрн);	 		
			если СокрЛП(МассивНачалСкобки[1])<>"" тогда
				МассивФИО.Добавить(СокрЛП(МассивНачалСкобки[1]));		
			конецесли;
		конецесли;
	конеццикла;	 	
	возврат МассивФИО; 
конецфункции	

				контролеры=ВычленитьМассивФИОИзСкобок(body.message,"(",")");
				контролеры=СложитьМассивы(контролеры,ВычленитьМассивФИОИзСкобок(body.message,"{","}"));
				контролеры=СложитьМассивы(контролеры,ВычленитьМассивФИОИзСкобок(body.message,"<",">"));
				контролеры=СложитьМассивы(контролеры,ВычленитьМассивФИОИзСкобок(body.message,"[","]"));

Функция СложитьМассивы(массив1,массив2) экспорт

для каждого эл из массив2 цикл

массив1.добавить(эл);

конеццикла;

возврат массив1;

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

Функция ВычленитьМассивФИОИзСкобок(стр,стрн,стрк) экспорт

МассивФИО=Новый Массив();

// сначала вычленяем из ()

массивКонцовСкобки=СтрРазделить(стр,стрк);

для каждого эл из массивКонцовСкобки цикл

если СтрНайти(эл,стрн)>0 тогда

МассивНачалСкобки=СтрРазделить(эл,стрн);

если СокрЛП(МассивНачалСкобки[1])<>"" тогда

МассивФИО.Добавить(СокрЛП(МассивНачалСкобки[1]));

конецесли;

конеццикла;

возврат МассивФИО;

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

контролеры=ВычленитьМассивФИОИзСкобок(body.message,"(",")");

контролеры=СложитьМассивы(контролеры,ВычленитьМассивФИОИзСкобок(body.message,"{","}"));

контролеры=СложитьМассивы(контролеры,ВычленитьМассивФИОИзСкобок(body.message,"<",">"));

контролеры=СложитьМассивы(контролеры,ВычленитьМассивФИОИзСкобок(body.message,"[","]"));

В результате в переменную попадает массив слов заключенных в скобки

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

1 2 3 … 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