Расширение Fancy DEPO для M2M (процедуры Фонтвьель, снято 23.09): тексты, зависимости, параметры для установки у другого клиента

Co-Authored-By: Claude Fable 5.1 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_01Q4YVo4UMopqT5DzicqpPjL
2026-09-23 16:48:25 +03:00
parent cb67875f7b
commit b2f8652381
6 changed files with 910 additions and 0 deletions
@@ -0,0 +1,71 @@
+CREATE OR ALTER procedure [dbo].[FTV_M2M_JOB]
+ 
+ as
+ set nocount on;
+ 
+ declare
+  @ID int,
+  @STATE varchar(64);
+ 
+ declare 
+  @ERROR_NUMBER int,
+  @COMMENT varchar(MAX);
+ 
+ --Новые поручения
+ declare cur cursor local fast_forward read_only for select ID from FTV_M2M M where M.STATE = 'TODO' order by M.TimeNew;
+ 
+ open cur;
+ while 0 = 0 begin fetch next from cur into @ID;
+  if @@FETCH_STATUS <> 0 break;
+  
+  --Тут можно отправить уведомление, создать входящее сообщение и т.д.
+  update FTV_M2M set TimeBeg = GETDATE() where ID = @ID;
+ 
+  --Главный процесс
+  begin try
+   exec FTV_M2M_PROCESS_CREATE @ID;
+   set @STATE = 'SUCCESS';
+  end try
+  begin catch
+   set @ERROR_NUMBER = ERROR_NUMBER();
+   set @COMMENT = ERROR_MESSAGE() + ' // ' + ERROR_PROCEDURE() + ' // ' + trim(str(ERROR_LINE()));
+   set @STATE = 'ERROR'
+  end catch
+ 
+  --Тут можно уведомить об ошибочном статусе
+  update FTV_M2M set STATE = @STATE, TimeEnd = GETDATE(), COMMENT = @COMMENT where ID = @ID;
+ 
+ end;
+ close cur;
+ deallocate cur;
+ 
+ 
+ --Новые события
+ declare cur cursor local fast_forward read_only for select ID from FTV_M2M_EVENTS ME where ME.STATE = 'TODO' order by ME.TimeNew;
+ 
+ open cur;
+ while 0 = 0 begin fetch next from cur into @ID;
+  if @@FETCH_STATUS <> 0 break;
+  
+  --Тут можно отправить уведомление, создать входящее сообщение и т.д.
+  update FTV_M2M_EVENTS set TimeBeg = GETDATE() where ID = @ID;
+ 
+  --Процесс изменения событий 
+  begin try
+   exec FTV_M2M_PROCESS_EVENTS @ID;
+   set @STATE = 'SUCCESS';
+  end try
+  begin catch
+   set @ERROR_NUMBER = ERROR_NUMBER();
+   set @COMMENT = ERROR_MESSAGE() + ' // ' + ERROR_PROCEDURE() + ' // ' + trim(str(ERROR_LINE()));
+   set @STATE = 'ERROR'
+  end catch
+ 
+  --Тут можно уведомить об ошибочном статусе
+  update FTV_M2M_EVENTS set STATE = @STATE, TimeEnd = GETDATE(), COMMENT = @COMMENT where ID = @ID;
+ 
+ end;
+ close cur;
+ deallocate cur;
+ 
+ /* тестовый блок удалён при переносе в репозиторий */