Архивы 1C - Страница 26 из 46

1C выбор из списка на управляемой форме

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

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

Решение:

1. Создаем на форме реквизит, с типом «Список значений» и обьектом — СправочникСсылка.Склады:

2. Создаем событие формы «При создании на сервере» и заполняем список:

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
	// Заполним по умолчанию часть складов, если таковые есть..
	сп=новый ТаблицаЗначений;
	сп.Колонки.Добавить("Склады");
	спстр=сп.Добавить();
	спстр.Склады=Справочники.Склады.НайтиПоНаименованию("Вологда Торговля");
	спстр=сп.Добавить();
	спстр.Склады=Справочники.Склады.НайтиПоНаименованию("Вологда Ремонт (Р)");
	
    Запрос = Новый Запрос;
    Запрос.Текст = "ВЫБРАТЬ
                   |	Склады.Ссылка КАК Ссылка,
                   |	Склады.Представление КАК Представление
                   |ИЗ
                   |	Справочник.Склады КАК Склады
                   |ГДЕ
                   |	Склады.Ссылка В(&СписокСкладов)";
	Запрос.УстановитьПараметр("СписокСкладов", сп.ВыгрузитьКолонку("Склады"));	
    Выборка = Запрос.Выполнить().Выбрать();

    Пока Выборка.Следующий() Цикл
        СписокСкладов.Добавить(Выборка.Ссылка,Выборка.Представление);
    КонецЦикла;	
КонецПроцедуры

&НаСервере

Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)

// Заполним по умолчанию часть складов, если таковые есть..

сп=новый ТаблицаЗначений;

сп.Колонки.Добавить("Склады");

спстр=сп.Добавить();

спстр.Склады=Справочники.Склады.НайтиПоНаименованию("Вологда Торговля");

спстр=сп.Добавить();

спстр.Склады=Справочники.Склады.НайтиПоНаименованию("Вологда Ремонт (Р)");

Запрос = Новый Запрос;

Запрос.Текст = "ВЫБРАТЬ

| Склады.Ссылка КАК Ссылка,

| Склады.Представление КАК Представление

|ИЗ

| Справочник.Склады КАК Склады

|ГДЕ

| Склады.Ссылка В(&СписокСкладов)";

Запрос.УстановитьПараметр("СписокСкладов", сп.ВыгрузитьКолонку("Склады"));

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

Пока Выборка.Следующий() Цикл

СписокСкладов.Добавить(Выборка.Ссылка,Выборка.Представление);

КонецЦикла;

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

Получаем результат вида:

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

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

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

Ситуация: пользователь на клиенте выбирает файл, и его нужно обработать. Удобнее всего это сделать на сервере, т.к. на клиенте многие функции и процедуры не доступны. Реализовать это возможно помещение данных во временное хранилище, а далее из него, при вызове серверной процедуры, «обратное» изьятие. Например реализовать это можно как-то вот так:

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

&НаСервере
Процедура ОбработатьНодХМЛНаСервере(АдресВХ,владелец);
	сообщить(АдресВХ);
	ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресВХ);
	
	тПуть = "c:\temp\pricesonix.xml"; //для примера...
	ДвоичныеДанные.Записать(тПуть);	
	
	ЧтениеХ=Новый ЧтениеXML;
	ЧтениеХ.ОткрытьФайл(тПуть);	
КонецПроцедуры

&НаКлиенте

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

БинарныйФайл = Новый ДвоичныеДанные(Объект.ИмяФайла);

сообщить("-помещаем во временное хранилище");

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

ОбработатьНодХМЛНаСервере(АдресВХ,объект.ГруппаЗагрузки);

сообщить("-ок");

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

&НаСервере

Процедура ОбработатьНодХМЛНаСервере(АдресВХ,владелец);

сообщить(АдресВХ);

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

тПуть = "c:\temp\pricesonix.xml"; //для примера...

ДвоичныеДанные.Записать(тПуть);

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

ЧтениеХ.ОткрытьФайл(тПуть);

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

Оставить комментарий 1c, 1с, server, загрузка файла

Аналог case..swith в 1С

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

Вот такую конструкцию в 1С можно считать аналогом операторов case…swith в других языках:

если ст.Параметр="Изготовитель" тогда
										обсп.Брэнд=ст.Значение;
									ИначеЕсли ст.Параметр="Страна" тогда
										обсп.Страна=ст.Значение;
									иначе	
										нс=обсп.Характеристики.Добавить();
										нс.Наименование=ст.Параметр;
										нс.Значение=ст.Значение;									
									конецесли;

если ст.Параметр="Изготовитель" тогда

обсп.Брэнд=ст.Значение;

ИначеЕсли ст.Параметр="Страна" тогда

обсп.Страна=ст.Значение;

иначе

нс=обсп.Характеристики.Добавить();

нс.Наименование=ст.Параметр;

нс.Значение=ст.Значение;

конецесли;

Оставить комментарий 1c, 1с, case, swith, если, иначеесли

1С сортировка структуры

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

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

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

Возврат ОтчетСтруктура;
КонецФункции

&НаСервере

Функция сортировкаструктуры(ОтчетСтруктура)

//сортировка структуры

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

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

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

Для каждого элемент из ОтчетСтруктура Цикл

новСтрока = ТЗ.Добавить();

новСтрока.Ключ = Элемент.Ключ;

новСтрока.Значение = Элемент.Значение;

КонецЦикла;

ТЗ.Сортировать("Значение Убыв");

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

Для каждого строкаТЗ из ТЗ Цикл

ОтчетСтруктура.Вставить(строкаТЗ.Ключ,строкаТЗ.Значение);

КонецЦикла;

Возврат ОтчетСтруктура;

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

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

Именованный массив в 1С

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

Ну собственно его нет в 1с. Есть некий «аналог», понятие «Структура».

Инициализируется например вот так:

ОтчетСтруктура=Новый Структура;
ОтчетСтруктура.Вставить("НаТранспорте",0);

1 2	ОтчетСтруктура=Новый Структура; ОтчетСтруктура.Вставить("НаТранспорте",0);

Причем ключ не должен содержать пробелов и цифр в начале.

К проинициализированной структуре можно обращаться по ключу например так:

ОтчетСтруктура["НаТранспорте"]=ОтчетСтруктура["НаТранспорте"]+1;

1	ОтчетСтруктура["НаТранспорте"]=ОтчетСтруктура["НаТранспорте"]+1;

Проверка наличия ключа осуществляется так:

если ОтчетСтруктура.Свойство("ключ") тогда
конецесли

1 2	если ОтчетСтруктура.Свойство("ключ") тогда конецесли

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

&НаСервере
Функция ЗаменитьПробелы(_стр)
	стр=СтрЗаменить(_стр, " ", "_");
Возврат стр;
КонецФункции

// цикл 1, заполняем структуру

		ВыборкаДетальныеЗаписи = Результат.Выбрать();
		Пока ВыборкаДетальныеЗаписи.Следующий() Цикл				
			если ВыборкаДетальныеЗаписи.Другое<>"" тогда				
				ОтчетСтруктура.Вставить(ЗаменитьПробелы(ВыборкаДетальныеЗаписи.Другое),0);
			конецесли;	
конеццикла;		


// цикл 2, приращиваем счетчики
		ВыборкаДетальныеЗаписи = Результат.Выбрать();			
		Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
если ВыборкаДетальныеЗаписи.Другое<>"" тогда							
					ОтчетСтруктура[ЗаменитьПробелы(ВыборкаДетальныеЗаписи.Другое)]=ОтчетСтруктура[ЗаменитьПробелы(ВыборкаДетальныеЗаписи.Другое)]+1;
			конецесли;								
			
		конеццикла;

&НаСервере

Функция ЗаменитьПробелы(_стр)

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

Возврат стр;

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

// цикл 1, заполняем структуру

ВыборкаДетальныеЗаписи = Результат.Выбрать();

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

если ВыборкаДетальныеЗаписи.Другое<>"" тогда

ОтчетСтруктура.Вставить(ЗаменитьПробелы(ВыборкаДетальныеЗаписи.Другое),0);

конецесли;

конеццикла;

// цикл 2, приращиваем счетчики

ВыборкаДетальныеЗаписи = Результат.Выбрать();

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

если ВыборкаДетальныеЗаписи.Другое<>"" тогда

ОтчетСтруктура[ЗаменитьПробелы(ВыборкаДетальныеЗаписи.Другое)]=ОтчетСтруктура[ЗаменитьПробелы(ВыборкаДетальныеЗаписи.Другое)]+1;

конецесли;

конеццикла;

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

« 1 … 24 25 26 27 28 … 46 »

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