Архивы 1с - Страница 15 из 38

Как постранично (порционно) листать результат запроса в 1С (ака LIMIT x,y в MySQL)

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

Большая беда MSSQL и как следствие 1С — отсутствие возможности порционно листать записи результата запроса как в MySQL. В результате рождаются такие монстроузные алгоритмы как ниже (код не мой):

Функция GetNewsList(body, answer) Экспорт
	
	answer.error = Истина;
	answer.errortext = "Что-то пошло не так..";
	answer.result = "";
	
	Попытка
		page = ?(ЗначениеЗаполнено(body.page), Число(body.page), 1);
		Если page < 1 Тогда
			page = 1;
		КонецЕсли;
		
		nums = ?(ЗначениеЗаполнено(body.nums), Число(body.nums), 5);
		Если nums < 5 Тогда
			nums = 5;
		КонецЕсли;
		
		ПредДата = ТекущаяДата();
		ПредКод = "";
		Если page > 1 Тогда
			Запрос = Новый Запрос;
			Запрос.Текст = "ВЫБРАТЬ ПЕРВЫЕ 100
			               |	Хрюкости.Дата КАК Дата,
			               |	Хрюкости.Код КАК Код
			               |ПОМЕСТИТЬ тПредыдущих
			               |ИЗ
			               |	Справочник.ПоследниеСплетни КАК Хрюкости
			               |
			               |УПОРЯДОЧИТЬ ПО
			               |	Хрюкости.Дата УБЫВ,
			               |	Хрюкости.Код УБЫВ
			               |;
			               |
			               |////////////////////////////////////////////////////////////////////////////////
			               |ВЫБРАТЬ ПЕРВЫЕ 1
			               |	тПредыдущих.Дата КАК Дата,
			               |	тПредыдущих.Код КАК Код
			               |ИЗ
			               |	тПредыдущих КАК тПредыдущих
			               |
			               |УПОРЯДОЧИТЬ ПО
			               |	тПредыдущих.Дата,
			               |	тПредыдущих.Код";
			Запрос.Текст = СтрЗаменить(Запрос.Текст, "100", Формат((page - 1) * nums, "ЧДЦ=0; ЧН=; ЧГ="));
			Выборка = Запрос.Выполнить().Выбрать();
			Если Выборка.Следующий() Тогда
				ПредДата = Выборка.Дата;
				ПредКод = Выборка.Код;
			КонецЕсли;
		КонецЕсли;
		
		Запрос = Новый Запрос;
		Запрос.Текст = "ВЫБРАТЬ ПЕРВЫЕ 100
		               |	Хрюкости.Код КАК news_code,
		               |	Хрюкости.Дата КАК date,
		               |	Хрюкости.Наименование КАК name,
		               |	Хрюкости.Содержание КОНЕЦ КАК content,
		               |	Хрюкости.Изображение КАК image
		               |ИЗ
		               |	Справочник.ПоследниеСплетни КАК Хрюкости
		               |ГДЕ
		               |	(Хрюкости.Дата < &ПредДата)
		               |	ИЛИ
					   |	(Хрюкости.Дата = &ПредДата И Хрюкости.Код < &ПредКод)
		               |
		               |УПОРЯДОЧИТЬ ПО
		               |	Хрюкости.Дата УБЫВ,
		               |	Хрюкости.Код УБЫВ";
		Запрос.Текст = СтрЗаменить(Запрос.Текст, "100", Формат(nums, "ЧДЦ=0; ЧН=; ЧГ="));
		Запрос.УстановитьПараметр("ПредДата", ПредДата);
		Запрос.УстановитьПараметр("ПредКод", ПредКод);
		Выборка = Запрос.Выполнить().Выбрать();
		
		РезМассив = Новый Массив;
		Пока Выборка.Следующий() Цикл
			РезСтрукт = Новый Структура("news_code, date, datestr, name, content, image");
			ЗаполнитьЗначенияСвойств(РезСтрукт, Выборка);
			РезСтрукт.datestr = Формат(Выборка.date, "ДФ='dd.MM.yyyy HH:mm:ss'");
			РезМассив.Добавить(РезСтрукт);
		КонецЦикла;
		
		ЕстьЕще = Ложь;
		Если РезМассив.Количество() > 0 Тогда
			КрайняяНовость = РезМассив[РезМассив.Количество() - 1];
			Запрос = Новый Запрос;
			Запрос.Текст = "ВЫБРАТЬ ПЕРВЫЕ 1
			               |	Хрюкости.Код КАК news_code
			               |ИЗ
			               |	Справочник.ПоследниеСплетни КАК Хрюкости
			               |ГДЕ
			               |	(Хрюкости.Дата < &ПредДата)
			               |	ИЛИ
						   |	(Хрюкости.Дата = &ПредДата И Хрюкости.Код < &ПредКод)
			               |
			               |УПОРЯДОЧИТЬ ПО
			               |	Хрюкости.Дата УБЫВ,
			               |	Хрюкости.Код УБЫВ";
			Запрос.УстановитьПараметр("ПредДата", КрайняяНовость.date);
			Запрос.УстановитьПараметр("ПредКод", КрайняяНовость.news_code);
			ЕстьЕще = НЕ Запрос.Выполнить().Пустой();
		КонецЕсли;
		
		answer.result = Новый Структура("portion, havingmore", РезМассив, ЕстьЕще);
		answer.error = Ложь;
		answer.errortext = "";
		
	Исключение
		answer.errortext = ОписаниеОшибки();
	КонецПопытки;
	
	Возврат answer;
	
КонецФункции

100

101

102

103

104

105

106

107

108

109

110

111

112

113

Функция GetNewsList(body, answer) Экспорт

answer.error = Истина;

answer.errortext = "Что-то пошло не так..";

answer.result = "";

Попытка

page = ?(ЗначениеЗаполнено(body.page), Число(body.page), 1);

Если page < 1 Тогда

page = 1;

КонецЕсли;

nums = ?(ЗначениеЗаполнено(body.nums), Число(body.nums), 5);

Если nums < 5 Тогда

nums = 5;

КонецЕсли;

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

ПредКод = "";

Если page > 1 Тогда

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

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

| Хрюкости.Дата КАК Дата,

| Хрюкости.Код КАК Код

|ПОМЕСТИТЬ тПредыдущих

|ИЗ

| Справочник.ПоследниеСплетни КАК Хрюкости

|УПОРЯДОЧИТЬ ПО

| Хрюкости.Дата УБЫВ,

| Хрюкости.Код УБЫВ

|////////////////////////////////////////////////////////////////////////////////

|ВЫБРАТЬ ПЕРВЫЕ 1

| тПредыдущих.Дата КАК Дата,

| тПредыдущих.Код КАК Код

|ИЗ

| тПредыдущих КАК тПредыдущих

|УПОРЯДОЧИТЬ ПО

| тПредыдущих.Дата,

| тПредыдущих.Код";

Запрос.Текст = СтрЗаменить(Запрос.Текст, "100", Формат((page - 1) * nums, "ЧДЦ=0; ЧН=; ЧГ="));

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

Если Выборка.Следующий() Тогда

ПредДата = Выборка.Дата;

ПредКод = Выборка.Код;

КонецЕсли;

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

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

| Хрюкости.Код КАК news_code,

| Хрюкости.Дата КАК date,

| Хрюкости.Наименование КАК name,

| Хрюкости.Содержание КОНЕЦ КАК content,

| Хрюкости.Изображение КАК image

|ИЗ

| Справочник.ПоследниеСплетни КАК Хрюкости

|ГДЕ

| (Хрюкости.Дата < &ПредДата)

| ИЛИ

| (Хрюкости.Дата = &ПредДата И Хрюкости.Код < &ПредКод)

|УПОРЯДОЧИТЬ ПО

| Хрюкости.Дата УБЫВ,

| Хрюкости.Код УБЫВ";

Запрос.Текст = СтрЗаменить(Запрос.Текст, "100", Формат(nums, "ЧДЦ=0; ЧН=; ЧГ="));

Запрос.УстановитьПараметр("ПредДата", ПредДата);

Запрос.УстановитьПараметр("ПредКод", ПредКод);

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

РезМассив = Новый Массив;

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

РезСтрукт = Новый Структура("news_code, date, datestr, name, content, image");

ЗаполнитьЗначенияСвойств(РезСтрукт, Выборка);

РезСтрукт.datestr = Формат(Выборка.date, "ДФ='dd.MM.yyyy HH:mm:ss'");

РезМассив.Добавить(РезСтрукт);

КонецЦикла;

ЕстьЕще = Ложь;

Если РезМассив.Количество() > 0 Тогда

КрайняяНовость = РезМассив[РезМассив.Количество() - 1];

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

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

| Хрюкости.Код КАК news_code

|ИЗ

| Справочник.ПоследниеСплетни КАК Хрюкости

|ГДЕ

| (Хрюкости.Дата < &ПредДата)

| ИЛИ

| (Хрюкости.Дата = &ПредДата И Хрюкости.Код < &ПредКод)

|УПОРЯДОЧИТЬ ПО

| Хрюкости.Дата УБЫВ,

| Хрюкости.Код УБЫВ";

Запрос.УстановитьПараметр("ПредДата", КрайняяНовость.date);

Запрос.УстановитьПараметр("ПредКод", КрайняяНовость.news_code);

ЕстьЕще = НЕ Запрос.Выполнить().Пустой();

КонецЕсли;

answer.result = Новый Структура("portion, havingmore", РезМассив, ЕстьЕще);

answer.error = Ложь;

answer.errortext = "";

Исключение

answer.errortext = ОписаниеОшибки();

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

Возврат answer;

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

Если вкратце, то алгоритм следующий:

Делаем выборку ВСЕХ записей, определяя, с какой записи было начало предыдущей страницы
Начиная с этой записи, делаем выборку N записей
Передаем результат

Интересно будет посмотреть как этот алгоритм будет вести себя при миллионах записей..

Оставить комментарий 1c, 1с, limit, msqsql, mysql, выдача, постранично

1C: пауза при исполнении кода

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

Есть мнение, что необходимость паузы в коде, это признак плохой архитектуры кода. Категорически не согласен. Да любой код можно усложнить так, чтобы избежать необходимости паузы. Но стоит ли усложнять код ради этого? Нужно искать компромисс. В моем случае, пауза понадобилась из-за того что есть ограничение по количеству отправляемых СМС в секунду со стороны провайдера. Простой способ: отправлять СМС с паузой. Сложный способ — организовать очередь отправки через..ну например регламентные задания. Зачем сложный способ для редкой отправки 20 СМС? Вот, держите один из реализаций «Паузы»:

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

&НаСервере

Процедура Пауза(Секунд) Экспорт

ТекущийСеансИнформационнойБазы = ПолучитьТекущийСеансИнформационнойБазы();

ФоновоеЗадание = ТекущийСеансИнформационнойБазы.ПолучитьФоновоеЗадание();

Если ФоновоеЗадание = Неопределено Тогда

ПараметрыН = Новый Массив;

ПараметрыН.Добавить(Секунд);

ФоновоеЗадание = ФоновыеЗадания.Выполнить("ОбщегоНазначенияБТС.Пауза", ПараметрыН);

КонецЕсли;

Попытка

ФоновоеЗадание.ОжидатьЗавершения(Секунд);

Исключение

Возврат;

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

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

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

1С:Добавление своего представления в поле выбора

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

Задача: в отображении контрагента в поле выбора добавить помимо наименования, еще и его ИНН

Решение: переопределим процедуру ОбработкаПолученияПредставления в модуле менеджера справочника контрагента:

Процедура ОбработкаПолученияПредставления(Данные, Представление, СтандартнаяОбработка)
  СтандартнаяОбработка = Ложь;
  КнтНаименование=Данные.Ссылка.НаименованиеПолное;
  ИНН=Данные.Ссылка.ИНН;
  попытка
   Представление = КнтНаименование+"("+строка(ИНН)+")";
  исключение                                             	
   Представление = Данные.Наименование;
  конецпопытки
КонецПроцедуры

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

СтандартнаяОбработка = Ложь;

КнтНаименование=Данные.Ссылка.НаименованиеПолное;

ИНН=Данные.Ссылка.ИНН;

попытка

Представление = КнтНаименование+"("+строка(ИНН)+")";

исключение

Представление = Данные.Наименование;

конецпопытки

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

Получится:

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

Как много нам открытий чудных (с)

20.02.2021 Павел Грибов Из жизни

А вы знали, что ячейку в Excel можно разделить диагональной линией? Вот так:

Для этого достаточно в свойствах ячейки в «границах» щелкнуть по середине окна (там где точка оранжевая). Ну соответственно в связи с этим открываются возможности для всяких извращений типа с заголовками типа:

Линию подчеркивания закрасить белым цветом

Оставить комментарий 1с, excel, ячейка по диагонали

1С: просмотр содержимого временных таблиц в отладчике

03.02.2021 Павел Грибов Из жизни

Часто при отладке хитромудрых конфигураций необходимо подсмотреть содержимое временных таблиц. Начиная с платформы 8.13 это можно посмотреть прямо в отладчике. Пусть например временные тблицы у нас находятся в переменной МенеджерВТ. Нажимаем Shift-F9, вводим МенеджерВТ, нажимаем расчитать, проваливаемся в значение «Временные таблицы запроса» и видим названия временных таблиц:

Далее зная имена таблиц, можно получить содержимое каждой из них или по индексу или по имени:

МенеджерВТ.Таблицы[0].ПолучитьДанные().Выгрузить()

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

« 1 … 13 14 15 16 17 … 38 »

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