Postgresql: перебор всех записей таблицы в функции

postgressql

Задача: обновить все записи одной таблицы, на основании данных другой таблицы. Причем условие сложное, которое просто в запрос update from select не впехнешь

Решение: сделаем функцию, которая собственно будет последовательно перебирать таблицу, и обновлять данные 

CREATE OR REPLACE FUNCTION public.update_epd_cancel()
	RETURNS int4
	LANGUAGE plpgsql
AS $function$
DECLARE
    crsr CURSOR FOR SELECT * FROM refusals;  -- курсор для запроса
	emp RECORD;
	BEGIN
		 OPEN crsr;  -- открываем курсор
		LOOP
        FETCH crsr INTO emp;  -- извлекаем следующую строку в переменную
        EXIT WHEN NOT FOUND;  -- если строк больше нет — выходим
	    update ls set dt_cancel_epd_bill=emp.dt where ls.id=emp.ls; -- обработка строки
        update ls set dt_cancel_epd_bill=emp.dt where ls.id=emp.ls_epd; -- обработка строки
    END LOOP;
    CLOSE crsr;  -- закрываем курсор
    return 0;
	END;
$function$
;
Оставить комментарий , , ,

1С Бухгалтерия: Добавить файл в справочник Файлы

1C

Есть в 1С Бухгалтерия один справочник, называется «Файлы». И возникла у меня идея использовать его как «файлопомойку» для всяких разных целей. Ну чтобы не плодить разные сущности типа дополнительных справочников. А что? Просто раскладывать всё по нужным папочкам да и всё..

Как оказалось использовать его довольно просто:

	Текст=новый ЗаписьТекста;
    Текст.Открыть(КаталогВременныхФайлов()+"\1.txt",КодировкаТекста.ANSI);
    Текст.ЗаписатьСтроку("Программируем в 1С 8.2");
    Текст.Закрыть(); 
	
	ИмяФайлаНаДиске = КаталогВременныхФайлов()+"\1.txt";	
	ДвоичныеДанные = Новый ДвоичныеДанные(ИмяФайлаНаДиске);
	ВременноеХранилище = ПоместитьВоВременноеХранилище(ДвоичныеДанные);
	
	// Подготоваливаем описание файла заполнив все необходимые параметры
	ПараметрыФайла = РаботаСФайлами.ПараметрыДобавленияФайла();
	ПараметрыФайла.Автор = Пользователи.ТекущийПользователь();
	ПараметрыФайла.ВладелецФайлов = Справочники.ПапкиФайлов.НайтиПоНаименованию("Росфинмониторинг").Ссылка;
	ПараметрыФайла.ИмяБезРасширения = "Абырвалг";
	ПараметрыФайла.РасширениеБезТочки = "txt";
	// Используем функцию БСП и добавляем файл к объекту
	РаботаСФайлами.ДобавитьФайл(ПараметрыФайла, ВременноеХранилище);
Оставить комментарий , ,

Чтиво за последнее время

Чтиво

Путь строителя 1-11. Ковтунов Алексей. Сюжет: Строитель-подрывник погибает на объекте и возрождается в теле малохольного юноши в деревне. Другой мир или измерение. Где есть мана (основа) и система. Оценка 4/5.

Затерянная планета древних. Аристов Руслан Иванович. Сюжет: умер, очнулся в медицинской капсуле. Вселенная EVO. Не осилил. Оценка 2/5

Смотритель Маяка 1-2. Град Артём, Шиленко Сергей. Сюжет: умер, очнулся смотрителем маяка, непонятно где. Есть некое подобие «системы». Читабельно, но не захватываемо. Дочитал только из-за того что не нашел что-то поинтереснее в тот момент. Оценка 3/5

Плацдарм в сарае 1..3. Антонов Михаил. Сюжет: Чел обнаруживает у себя в сарае переход на другую планету. А там дальше мир EVO. Чиабельно, но далее 2 части, скучновато становится. Оценка 3/5

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

1С: Отслеживание обновления конфигурации

1C

Задача: Необходимо уведомлять на почту заинтересованных лиц об обновлении конфигурации 1С

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

&НаСервере
Процедура ПроверкаОбновленияКонфигурации() экспорт	
   // получаем таблицу когда меняли конфигурацию	
   ЖурналОбновленияКонфигурации = Новый ТаблицаЗначений;   
   СтатусыТранзакций = Новый Массив;
   СтатусыТранзакций.Добавить(СтатусТранзакцииЗаписиЖурналаРегистрации.Зафиксирована);
   СтатусыТранзакций.Добавить(СтатусТранзакцииЗаписиЖурналаРегистрации.НетТранзакции);       
   МетаданныеМассив = Новый Массив;  
   МассивСобытий = Новый Массив;
   МассивСобытий.Добавить("_$InfoBase$_.DBConfigUpdate");      
   ФильтрЗаполнения = Новый Структура;
   ФильтрЗаполнения.Вставить("ДатаНачала", НачалоДня(ТекущаяДата()));
   ФильтрЗаполнения.Вставить("ДатаОкончания", КонецДня(ТекущаяДата()));
   ФильтрЗаполнения.Вставить("Метаданные", МетаданныеМассив);
   ФильтрЗаполнения.Вставить("Событие", МассивСобытий);
   ФильтрЗаполнения.Вставить("Комментарий", "Регистрация конфигурации изменена");   
   ВыгрузитьЖурналРегистрации(ЖурналОбновленияКонфигурации, ФильтрЗаполнения,"Дата, Событие, Метаданные, Данные, ПредставлениеДанных,Комментарий,Пользователь");
   
   ДатаПоследнегоОбновления=неопределено;
   Обновлятор=неопределено;
   если ЖурналОбновленияКонфигурации.Количество()>0 тогда
	   Зап=ЖурналОбновленияКонфигурации[ЖурналОбновленияКонфигурации.Количество()-1];
	   ДатаПоследнегоОбновления=Зап[0];
       УИНПользователя = Новый УникальныйИдентификатор(Зап[2]);
	   ПользовательИБ = ПользователиИнформационнойБазы.НайтиПоУникальномуИдентификатору(УИНПользователя);
   конецесли;	   
   если ДатаПоследнегоОбновления<>неопределено тогда	   
	   //Получаем таблицу когда уведомляли об изменнии конфигурации
	   ЖурналУведомленийОбОбновленииКонфигурации = Новый ТаблицаЗначений;   
	   СтатусыТранзакций = Новый Массив;
	   СтатусыТранзакций.Добавить(СтатусТранзакцииЗаписиЖурналаРегистрации.Зафиксирована);
	   СтатусыТранзакций.Добавить(СтатусТранзакцииЗаписиЖурналаРегистрации.НетТранзакции);       
	   МетаданныеМассив = Новый Массив;  
	   МассивСобытий = Новый Массив;
	   МассивСобытий.Добавить("UpdateConfigAlert");      
	   ФильтрЗаполнения = Новый Структура;
	   ФильтрЗаполнения.Вставить("ДатаНачала", НачалоДня(ТекущаяДата()));
	   ФильтрЗаполнения.Вставить("ДатаОкончания", КонецДня(ТекущаяДата()));
	   ФильтрЗаполнения.Вставить("Метаданные", МетаданныеМассив);
	   ФильтрЗаполнения.Вставить("Событие", МассивСобытий);
	   ВыгрузитьЖурналРегистрации(ЖурналУведомленийОбОбновленииКонфигурации, ФильтрЗаполнения,"Дата, Событие, Метаданные, Данные, ПредставлениеДанных,Комментарий,Пользователь");
	   ДатаПоследнегоУведомления=неопределено;
	   если ЖурналУведомленийОбОбновленииКонфигурации.Количество()>0 тогда
		   Зап=ЖурналУведомленийОбОбновленииКонфигурации[ЖурналУведомленийОбОбновленииКонфигурации.Количество()-1];
		   ДатаПоследнегоУведомления=Зап[5];
	   конецесли;	   	   	   
	   // Писнем в журнал данные, когда последний раз уведомляли об изменениях заинтересованных лиц
	   если ДатаПоследнегоУведомления=неопределено или ДатаПоследнегоУведомления<>ДатаПоследнегоОбновления тогда
	    ЗаписьЖурналаРегистрации("UpdateConfigAlert", УровеньЖурналаРегистрации.Информация, ,ДатаПоследнегоОбновления, "Чуток обновили конфу", РежимТранзакцииЗаписиЖурналаРегистрации.Транзакционная);
		МассивЗаинтересованыхЛиц=Новый Массив();
		МассивЗаинтересованыхЛиц.Добавить("ауцук@укацук.ru");		
		ИмяБазы = СоединенияИБКлиентСервер.ПутьКИнформационнойБазе();
		ТелоПисьма="<b>Внимание!</b><br/>Наш коллега "+Строка(ПользовательИБ)+" успешно выполнил обновление конфигурации.<br/>База: "+ИмяБазы+"<br/>Дата: "+Строка(ДатаПоследнегоОбновления)+"<br/><br/>Ура товарищи!";
		
		для каждого email из МассивЗаинтересованыхЛиц цикл
		  	попытка		
				УчетнаяЗаписьПочты = РаботаСПочтовымиСообщениями.ПолучитьСистемнуюУчетнуюЗапись();
				ПараметрыПисьма = Новый Структура("Кому, Тема, Тело,ТипТекста", email, "Было обновление конфигурации 1С", ТелоПисьма,"HTML");
				РаботаСПочтовымиСообщениями.ОтправитьСообщение(УчетнаяЗаписьПочты, ПараметрыПисьма);				
			исключение   
				ЗаписьЖурналаРегистрации("СК_ГР.МониторингИзмененияКонфигурации", УровеньЖурналаРегистрации.Ошибка,,ОписаниеОшибки(),);		
			конецпопытки;
		конеццикла;
	   конецесли;
		
	конецесли;
	   
КонецПроцедуры

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

1С: Фильтры с выбором значения в шапке отчета СКД

1C

Заметил в одном из отчетов на СКД замечательную функцию: щелкаешь по столбику шапки, и выходит окошко в котором можно пофильтровать по результату. Однако..подумал я. Штатно такого в СКД нет. Чуть порывшись в коде модуля, нашел что за это отвечает следующая конструкция:


Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)
	
	КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных();    	
	
	МакетКомпоновкиДанных = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, 
	КомпоновщикНастроек.ПолучитьНастройки(),ДанныеРасшифровки,,Тип("ГенераторМакетаКомпоновкиДанных"),Истина);
	
	ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;
	ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновкиДанных,,ДанныеРасшифровки,Истина);
	
	ТабличныйДокументРезультата = Новый ТабличныйДокумент;
	
	ПроцессорВыводаРезультатаКомпоновкиДанных = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
	
	ПроцессорВыводаРезультатаКомпоновкиДанных.УстановитьДокумент(ТабличныйДокументРезультата);
	ПроцессорВыводаРезультатаКомпоновкиДанных.Вывести(ПроцессорКомпоновкиДанных);
        
КонецПроцедуры

В результате и получается:

Что вышеприведенный код делает, в душе не понимаю (недолюбливаю СКД, потому редко его касаюсь). Как и то, почему это всё нельзя было сделать чтоб сразу «было» из «коробки».

Оставить комментарий , ,
1 2 3 … 320