1Code - Автоматизация бизнес-процессов

1С 8.3 : Динамический список : Сгруппировать по реквизиту, изменить оформление по условию, программно установить отбор в динамическом списке

Как программно сгруппировать по реквизиту динамический список:

&НаКлиенте
Процедура СгруппироватьПоТипу(Команда)
ГруппировкаСписка = Список.Группировка.Элементы;
ЭлементГруппировки = ГруппировкаСписка.Добавить(Тип("ПолеГруппировкиКомпоновкиДанных"));
ЭлементГруппировки.Поле = Новый ПолеКомпоновкиДанных("ТипНоменклатуры");
КонецПроцедуры

&НаКлиенте

Процедура СгруппироватьПоТипу(Команда)

ГруппировкаСписка = Список.Группировка.Элементы;

ЭлементГруппировки = ГруппировкаСписка.Добавить(Тип("ПолеГруппировкиКомпоновкиДанных"));

ЭлементГруппировки.Поле = Новый ПолеКомпоновкиДанных("ТипНоменклатуры");

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

Как программно изменить оформление по условию в динамическом списке:

1С 8.3 : Как получить в структуру многомерные данные? Как собрать информацию по установленным в форме журнала отборам?…

Как получить в структуру многомерные данные? Как собрать информацию по установленным в форме журнала отборам?

СтруктураОтборов = Новый Структура; 
СтруктураПараметровОтбора = Новый Структура;

Для Каждого ЭлементОтбора из ЖурналДокументовСписок.Отбор Цикл 
Если ЭлементОтбора.Использование Тогда 
СтруктураПараметровОтбора.Очистить(); 
СтруктураПараметровОтбора.Вставить("Имя", ЭлементОтбора.Имя); 
СтруктураПараметровОтбора.Вставить("ВидСравнения", ЭлементОтбора.ВидСравнения); 
СтруктураПараметровОтбора.Вставить("Значение", ЭлементОтбора.Значение); 
СтруктураПараметровОтбора.Вставить("ЗначениеПо", ЭлементОтбора.ЗначениеПо); 
СтруктураПараметровОтбора.Вставить("ЗначениеС", ЭлементОтбора.ЗначениеС); 
СтруктураПараметровОтбора.Вставить("Представление", ЭлементОтбора.Представление); 
СтруктураПараметровОтбора.Вставить("ПутьКДанным", ЭлементОтбора.ПутьКДанным); 
СтруктураПараметровОтбора.Вставить("ТипЗначения", ЭлементОтбора.ТипЗначения); 

СтруктураОтборов.Вставить(ЭлементОтбора.Имя, СтруктураПараметровОтбора); 
КонецЕсли; 
КонецЦикла;

СтруктураОтборов = Новый Структура;

СтруктураПараметровОтбора = Новый Структура;

Для Каждого ЭлементОтбора из ЖурналДокументовСписок.Отбор Цикл

Если ЭлементОтбора.Использование Тогда

СтруктураПараметровОтбора.Очистить();

СтруктураПараметровОтбора.Вставить("Имя", ЭлементОтбора.Имя);

СтруктураПараметровОтбора.Вставить("ВидСравнения", ЭлементОтбора.ВидСравнения);

СтруктураПараметровОтбора.Вставить("Значение", ЭлементОтбора.Значение);

СтруктураПараметровОтбора.Вставить("ЗначениеПо", ЭлементОтбора.ЗначениеПо);

СтруктураПараметровОтбора.Вставить("ЗначениеС", ЭлементОтбора.ЗначениеС);

СтруктураПараметровОтбора.Вставить("Представление", ЭлементОтбора.Представление);

СтруктураПараметровОтбора.Вставить("ПутьКДанным", ЭлементОтбора.ПутьКДанным);

СтруктураПараметровОтбора.Вставить("ТипЗначения", ЭлементОтбора.ТипЗначения);

СтруктураОтборов.Вставить(ЭлементОтбора.Имя, СтруктураПараметровОтбора);

КонецЕсли;

КонецЦикла;

Как определить, есть ли в структуре элемент с ключом «Контрагент», и если есть, но содержит пустое значение справочника или Неопределено — удалить этот элемент?

1С 8.3 : Как перебрать элементы структуры? Как удалить элемент структуры? Как в структуре установить значение для элемента с определенным ключом?

Как перебрать элементы структуры?

Для Каждого Элемент из СтруктураПараметров Цикл 
Сообщить(Элемент.Ключ + ": " + Элемент.Значение); 
КонецЦикла;

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

Сообщить(Элемент.Ключ + ": " + Элемент.Значение);

КонецЦикла;

Как удалить элемент структуры?

СтруктураПараметров.Удалить("Номенклатура");

СтруктураПараметров. Очистить();

СтруктураПараметров.Удалить("Номенклатура");

СтруктураПараметров. Очистить();

Как в структуре установить значение для элемента с определенным ключом?

1С 8.3 : Как можно узнать версию БСП, встроенную в конфигурацию?

Для того, чтобы узнать версию БСП, встроенную в конфигурацию необходимо выполнить: СтандартныеПодсистемыСервер.ВерсияБиблиотеки()

1С 8.3 : Условное оформление программно

<strong>Элемент = УсловноеОформление.Элементы.Добавить();</strong>

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

<strong>ПолеЭлемента = Элемент.Поля.Элементы.Добавить();
ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.Товары.Имя);
ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Объект.Товары.Номенклатура");
ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.ВСписке;
ОтборЭлемента.ПравоеЗначение = СписокЗначенийНоменклатуры;

Элемент.Оформление.УстановитьЗначениеПараметра("ЦветТекста", ЦветаСтиля.ДосьеПлохаяОценкаЦвет);
Элемент.Оформление.УстановитьЗначениеПараметра("Шрифт",      Новый Шрифт(,,Истина));
</strong>

<strong>Элемент = УсловноеОформление.Элементы.Добавить();</strong>

СписокЗначенийНоменклатуры = Новый СписокЗначений;

Для Каждого СтрокаТовар Из Объект.Товары Цикл

Если ЗначениеЗаполнено(СтрокаТовар.НоменклатураНабора) Тогда

ВариантКомплектацииНоменклатуры = НаборыВызовСервера.ВариантКомплектацииНоменклатурыПоУмолчанию(

СтрокаТовар.НоменклатураНабора,

Справочники.ХарактеристикиНоменклатуры.ПустаяСсылка());

Если Не ЗначениеЗаполнено(ВариантКомплектацииНоменклатуры) Тогда

Продолжить;

КонецЕсли;

Если ВариантКомплектацииНоменклатуры.НоменклатураОсновногоКомпонента = СтрокаТовар.Номенклатура Тогда

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

КонецЕсли;

КонецЦикла;

<strong>ПолеЭлемента = Элемент.Поля.Элементы.Добавить();

ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.Товары.Имя);

ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));

ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Объект.Товары.Номенклатура");

ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.ВСписке;

ОтборЭлемента.ПравоеЗначение = СписокЗначенийНоменклатуры;

Элемент.Оформление.УстановитьЗначениеПараметра("ЦветТекста", ЦветаСтиля.ДосьеПлохаяОценкаЦвет);

Элемент.Оформление.УстановитьЗначениеПараметра("Шрифт", Новый Шрифт(,,Истина));

</strong>

1С 8.3 : СКД : Как передать параметры отбора СКС и сформировать отчет

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

&НаКлиенте

Процедура РабочийВариант(Команда)

ИмяОтчета = "КассоваяКнигаБезВариантов";

ПараметрыФормы = Новый Структура;

ПараметрыФормы.Вставить("СформироватьПриОткрытии",Истина);

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

ОткрытьФорму("Отчет." + ИмяОтчета + ".Форма", ПараметрыФормы);

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

1С 8.3 : Как добавить дополнительную вычисляемую колонку в табличной части управляемой формы

Иногда возникает необходимость вывода в табличное поле документа (или любого другого объекта, имеющего табличную часть) дополнительных колонок с данными, которые не содержатся непосредственно в табличной части. Реализовать это на платформе 1С: Предприятие 8.1 или 8.2 в режиме обычного приложения (без использования управляемых форм) было достаточно просто, чего не скажешь об управляемых формах в 1С 8.2. Реализация на платформе 1С: Предприятие 8.1 В начале коротко о том, как добавить дополнительную колонку в табличное поле на платформе 1С 8.1. Предположим, что у нас есть некий документ с табличной частью “Товары” (с колонками “Номенклатура” и “Количество”) и нам нужно вывести дополнительную колонку “Цена”, которая бы содержала данные реквизита “Цена” элементов справочника “Номенклатура”, выбранных в строках табличной части. Для этого нам достаточно добавить в форме документа новую колонку “Цена” в табличное поле, содержащее данные табличной части документа и написать следующий код в обработчике события “ПриПолученииДанных” этого табличного поля:

// обработчик события "ПриПолученииДанных" табличного поля "Товары"
Процедура ТоварыПриПолученииДанных(Элемент, ОформленияСтрок)
 Для Каждого ОформлениеСтроки Из ОформленияСтрок Цикл
  Номенклатура = ОформлениеСтроки.ДанныеСтроки.Номенклатура;
  Если ЗначениеЗаполнено(Номенклатура) Тогда
   ОформлениеСтроки.Ячейки.Цена.ОтображатьТекст = Истина;
   ОформлениеСтроки.Ячейки.Цена.Текст = Формат(Номенклатура.Цена,"ЧЦ=15; ЧДЦ=2");
  КонецЕсли;
 КонецЦикла;
КонецПроцедуры

// обработчик события "ПриПолученииДанных" табличного поля "Товары"

Процедура ТоварыПриПолученииДанных(Элемент, ОформленияСтрок)

Для Каждого ОформлениеСтроки Из ОформленияСтрок Цикл

Номенклатура = ОформлениеСтроки.ДанныеСтроки.Номенклатура;

Если ЗначениеЗаполнено(Номенклатура) Тогда

ОформлениеСтроки.Ячейки.Цена.ОтображатьТекст = Истина;

ОформлениеСтроки.Ячейки.Цена.Текст = Формат(Номенклатура.Цена,"ЧЦ=15; ЧДЦ=2");

КонецЕсли;

КонецЦикла;

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

Хочу обратить внимание на то, что строки табличного поля обрабатываются порциями, по мере прокрутки списка. Реализация на платформе 1С: Предприятие 8.2

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

Надо очистить таблицу Users и в таблице Params удалить запись users.usr

1С 8.3 : Нумерация строк в запросе (конкретный пример нумерация в рамках группы справочника)

Пример:

ВЫБРАТЬ
    Номенклатура.Ссылка КАК Номенклатура,
    Номенклатура.Родитель КАК Родитель,
    КОЛИЧЕСТВО(Номенклатура_1.Ссылка) КАК Номер
ИЗ
    Справочник.Номенклатура КАК Номенклатура
        ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.Номенклатура КАК Номенклатура_1
        ПО Номенклатура.Наименование >= Номенклатура_1.Наименование
            И Номенклатура.Родитель = Номенклатура_1.Родитель

СГРУППИРОВАТЬ ПО
    Номенклатура.Родитель,
    Номенклатура.Ссылка

ВЫБРАТЬ

Номенклатура.Ссылка КАК Номенклатура,

Номенклатура.Родитель КАК Родитель,

КОЛИЧЕСТВО(Номенклатура_1.Ссылка) КАК Номер

ИЗ

Справочник.Номенклатура КАК Номенклатура

ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.Номенклатура КАК Номенклатура_1

ПО Номенклатура.Наименование >= Номенклатура_1.Наименование

И Номенклатура.Родитель = Номенклатура_1.Родитель

СГРУППИРОВАТЬ ПО

Номенклатура.Родитель,

Номенклатура.Ссылка

1С 8.3 : Динамический список: позиционирование на определенной строке

Пример: ТекущаяСтрока = Элементы.Список.ТекущаяСтрока; СтруктураПараметров = Новый Структура(«ТекущаяСтрока», ТекущаяСтрока); ОткрытьФорму(«РегистрНакопления.Взаиморасчеты.ФормаСписка», СтруктураПараметров, , Истина);

1С 8.3 : Как добавить произвольные кнопки в диалоге Вопрос и обработка их

Пример:

Действие = "ВыполнитьУдаление";
СписокКнопок = Новый СписокЗначений;
СписокКнопок.Добавить(Действие, НСтр("ru = 'Выполнить удаление'", "ru"));
СписокКнопок.Добавить(КодВозвратаДиалога.Отмена);
Оповещение = Новый ОписаниеОповещения(
	"УдалитьВыполнитьВопросЗавершение", ЭтотОбъект, Действие);

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

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

Действие = "ВыполнитьУдаление";

СписокКнопок = Новый СписокЗначений;

СписокКнопок.Добавить(Действие, НСтр("ru = 'Выполнить удаление'", "ru"));

СписокКнопок.Добавить(КодВозвратаДиалога.Отмена);

Оповещение = Новый ОписаниеОповещения(

"УдалитьВыполнитьВопросЗавершение", ЭтотОбъект, Действие);

ПоказатьВопрос(Оповещение,

НСтр("ru = 'После удаления настроек форма будет открываться с настройками по умолчанию.'", "ru"),

СписокКнопок, , Действие);

&НаКлиенте

Процедура УдалитьВыполнитьВопросЗавершение(Результат, Действие) Экспорт

Если Результат = Действие Тогда

УдалитьНаСервере();

ОбновитьСписокФорм();

ПрименитьФильтр();

ПоказатьОповещениеПользователя(НСтр("ru = 'Настройки удалены'", "ru"));

КонецЕсли;

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

1С 8.3 : Как проверить пересечения одного периода с другим

Если Макс(Начало1,Начало2) < Мин(Конец1,Конец2) Тогда
  Прересекаются = Истина;
Иначе
  Прересекаются = Ложь;
КонецЕсли;

Если Макс(Начало1,Начало2) < Мин(Конец1,Конец2) Тогда

Прересекаются = Истина;

Иначе

Прересекаются = Ложь;

КонецЕсли;

1С 8.3 : Как получить чистый текст из HTML

Построитель = Новый ПостроительDOM; ЧтениеHTML = Новый ЧтениеHTML; ЧтениеHTML.УстановитьСтроку(ЭтотОбъект.ТекстСообщенияHTML); ДокументHTML = Построитель.Прочитать(ЧтениеHTML); ЭтотОбъект.ТекстСообщенияЧистыйТекст=ДокументHTML.Тело.ТекстовоеСодержимое;

1С 8.3 : Как передать файл с сервера на клиент

Пример:

&НаКлиенте
Процедура ИнициироватьФайлШаблона()
ИмяФайлаНаСервере=ПолучитьXLSССервера();
	ИмяФайла=ПолучитьИмяВременногоФайла("xls");
	ПолучитьФайл(ИмяФайлаНаСервере, ИмяФайла, Ложь);
КонецПроцедуры

&НаКлиенте

Процедура ИнициироватьФайлШаблона()

ИмяФайлаНаСервере=ПолучитьXLSССервера();

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

ПолучитьФайл(ИмяФайлаНаСервере, ИмяФайла, Ложь);

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

1С 8.3 : Как передать файл с клиента на сервер

Пример:

&НаКлиенте
Процедура Загрузить(Команда)
	НачатьПомещениеФайла(Новый ОписаниеОповещения("ВыполнитьЗагрузку",ЭтаФорма),,,Истина,УникальныйИдентификатор); 	
КонецПроцедуры

&НаКлиенте

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

НачатьПомещениеФайла(Новый ОписаниеОповещения("ВыполнитьЗагрузку",ЭтаФорма),,,Истина,УникальныйИдентификатор);

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