Примеры программирования 1С 8 - 1Code - Page 2

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

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

&НаКлиенте
Процедура УпорядочитьПоКонтрагентам(Команда)

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

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

&НаКлиенте

Процедура УпорядочитьПоКонтрагентам(Команда)

ЭлементыПользовательскихНастроек = Список.КомпоновщикНастроек.ПользовательскиеНастройки.Элементы;

Для Каждого Элемент Из ЭлементыПользовательскихНастроек Цикл

Если ТипЗнч(Элемент) = ТипЗнч(Список.КомпоновщикНастроек.Настройки.Порядок) Тогда

Элемент.Элементы.Очистить();

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

УсловиеСортировки.Поле = Новый ПолеКомпоновкиДанных("Организация.Наименование");

УсловиеСортировки.ТипУпорядочивания = НаправлениеСортировкиКомпоновкиДанных.Возр;

УсловиеСортировки.Использование = Истина;

КонецЕсли;

КонецЦикла;

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

Читать далее

Как в 1С передать файл с клиента на сервер с сохранением на сервере

Для клиент-серверного варианта работы 1С, когда сервер 1С расположен на отдельном компьютере, если необходимо сохранить/открыть файл на сервере, к примеру *.xlsx открыть средствами Excel через COM/OLE:

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

1

2

3

4

5

6

7

8

&НаКлиенте

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

Файл = Новый ДвоичныеДанные(ИмяФайла);

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

ОбработатьНаСервере(Адрес);

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

Читать далее

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

На всякий, заметка: проведение документа из управляемой формы проводимого документа

Читать далее

1С 8.3 : Нюансы работы с расширениями конфигурации

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

Читать далее

1С 8.3 : Создание нового элемента справочника с заполнением, подстановкой и с оповещением

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

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

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

&НаКлиенте

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

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

ТекДок = Новый ОписаниеОповещения("ВыполнитьПослеЗаписиДоговора", ЭтотОбъект, тПараметр);

СтруктураНачУстановок = Новый Структура;

СтруктураНачУстановок.Вставить("Проект", Объект.Ссылка);

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

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

ОткрытьФорму("Справочник.ИсходящиеДокументы.ФормаОбъекта", СтруктураНачУстановок, ЭтаФорма,,,,ТекДок);

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

Обработчик, вызываемый при закрытии созданного договора:

Читать далее

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

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

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

1

2

3

4

5

6

&НаКлиенте

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

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

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

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

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

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

Читать далее

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

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

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

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

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

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

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

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

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

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

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

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

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

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

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

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

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

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

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

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

КонецЕсли;

КонецЦикла;

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

Читать далее

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

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

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

1

2

3

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

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

КонецЦикла;

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

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

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

1

2

3

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

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

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

Читать далее

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

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

Читать далее

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

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

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

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

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

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

32

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

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

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

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

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

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

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

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

Продолжить;

КонецЕсли;

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

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

КонецЕсли;

КонецЕсли;

КонецЦикла;

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

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

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

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

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

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

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

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

</strong>

Читать далее

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

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

1

2

3

4

5

6

7

8

&НаКлиенте

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

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

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

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

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

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

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

Читать далее

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

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

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

1

2

3

4

5

6

7

8

9

10

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

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

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

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

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

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

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

КонецЕсли;

КонецЦикла;

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

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

Читать далее

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

Пример:

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

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

1

2

3

4

5

6

7

8

9

10

11

12

13

ВЫБРАТЬ

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

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

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

ИЗ

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

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

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

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

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

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

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

Читать далее

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

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

Читать далее

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

Пример:

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

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

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

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

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

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

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

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

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

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

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

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

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

&НаКлиенте

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

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

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

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

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

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

КонецЕсли;

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

Читать далее