Bridge-and-Join-s/deploy/depo/fancy-m2m/FTV_M2M_PROCESS_CREATE.sql

CREATE OR ALTER procedure [dbo].[FTV_M2M_PROCESS_CREATE] (@ID int)
				 
--grant execute on FTV_M2M_PROCESS_CREATE to public;
 
/*
TODO:
Дата поручения - сейчас getdate, но можно передавать, для этого ввести пновое поле в FTV_M2M, или потом брать из события и изменять
Для входящих переводов из СПБ возможно следует дать raiserror (но это должен делать bj)
*/
 
as
set nocount on;
 
if user = 'dbo' execute as user = 'SYSDBA';
 
print 'FTV_M2M_PROCESS_CREATE';
print @ID;
 
--Создаем M2M-поручение вместе с подвалом документа
 
declare
	@WHOS int = 383118,
	@GUID uniqueidentifier,
	--шапка
	@DIRECTION varchar(64),
	@CONTRAGENT_M2M_CODE varchar(255),
	@DEPONENT_NAME varchar(255),
	@DEPONENT_DOC varchar(255),
	--подвал
	@REFERENCE varchar(36),
	@ISIN varchar(12),
	@SEC_CODE varchar(255),
	@AMOUNT numeric(25, 7),
	@PLACE_NUMBER varchar(255),
	@LINK_NUMBER varchar(128),
	@DEPO_NUMBER varchar(128),
	--переменные документа
	@D_CAT int,
	@NUM varchar(64),
	@D_DATE datetime,
	@CONTRAGENT int,
	@DEPONENT int,
	@SHARE int,
	@PLACE int,
	@DEPO int,
	@CLISER_ID int,
	@FILER_ID int,
	@FILER_NUM varchar(64),
	@FILER_DATE datetime,
	@DOL_ID int;
 
select
	@GUID = GUID,
	@DIRECTION = DIRECTION,
	@CONTRAGENT_M2M_CODE = CONTRAGENT_M2M_CODE,
	@DEPONENT_NAME = DEPONENT_NAME,
	@DEPONENT_DOC = DEPONENT_DOC
from FTV_M2M where ID = @ID;
 
--1. Критические ошибки
--1.1. Неуникальный GUID
if exists (select top 1 1 from D_CLISER_M2M where DOC_GUID = @GUID)
	raiserror ('Неуникальный GUID', 16, 1);
 
 
--1.2. Направление перевода
if @DIRECTION = 'IN'
	select @D_CAT = ID from OD_DOC_CATS where SYS_NAME = 'I_CLISER_M2M_ZACH'
else if @DIRECTION = 'OUT'
	select @D_CAT = ID from OD_DOC_CATS where SYS_NAME = 'I_CLISER_M2M_SPIS'
else
	raiserror ('Ошибочное направление DIRECTION (должно быть IN, OUT)', 16, 1);
 
 
--1.3. Контрагент
select 
	@CONTRAGENT = C.FACE
from OD_FACE_CODERS C
	left join OD_FACES F on F.SELF_ID = C.CODER and F.LAST_FLAG = 1
where 
	F.MNEM = 'M2M' 
	and C.CODE = @CONTRAGENT_M2M_CODE;
if @CONTRAGENT is null
	raiserror ('Не найден депозитарий-контрагент', 16, 1);
 
 
--1.4. Депонент
select 
	@DEPONENT = F.SELF_ID
from OD_FACES F
where 
	F.LAST_FLAG = 1
	and replace(F.NAME, ' ', '') = replace(@DEPONENT_NAME, ' ', '')
	and replace(F.DOC_SER + F.DOC_NUM, ' ', '') = replace(@DEPONENT_DOC, ' ', '')
 
 
--1.5. Шапка документа
exec GEN_ID 'OD_DOC_ID_GEN', 1, @CLISER_ID out;
set @D_DATE = getdate();
 
exec FU_NEXT_DOC_NUM @D_CAT, @D_DATE, null, @CLISER_ID, @NUM out, null;
 
insert into OD_DOCS
	(ID, NUM, PARAM, D_CAT, D_DATE, STATE, DIRECTION, WHOS, KVIT)
select
	@CLISER_ID, @NUM, null, @D_CAT, @D_DATE, 0, 0, @WHOS, null;
 
insert into D_CLISER_M2M 
	(DOC, DEPONENT, DOC_GUID, DOC_STATUS, IIS_TYPE, IIS_INN, IIS_NUM, IIS_DATE)
select
	@CLISER_ID, @DEPONENT, @GUID, 0, 0, null, null, null;
 
if @DIRECTION = 'IN'
	insert into OD_IN_DOCS (DOC, FROM_FACE, PASS_KIND) values (@CLISER_ID, @CONTRAGENT, 8);
else if @DIRECTION = 'OUT'
	insert into OD_OUT_DOCS (DOC, TO_FACE, PASS_KIND) values (@CLISER_ID, @CONTRAGENT, 8);
 

--1.6. Обогащаем FTV_M2M
update FTV_M2M set
	DOC = @CLISER_ID,
	CONTRAGENT = @CONTRAGENT,
	DEPONENT = @DEPONENT
where GUID = @GUID;
 

--1.7. Подвал документа (только в курсоре)
declare cur cursor local fast_forward read_only for
select 
	ML.REFERENCE, ML.ISIN, ML.SEC_CODE, ML.AMOUNT, ML.PLACE_NUMBER, ML.LINK_NUMBER, ML.DEPO_NUMBER
from FTV_M2M_LINES ML
	join FTV_M2M M on M.GUID = ML.GUID
where 
	ML.GUID = @GUID 
	and ML.STATE = 'TODO'
order by ML.ID;
 
open cur;
while 0 = 0 begin fetch next from cur into @REFERENCE, @ISIN, @SEC_CODE, @AMOUNT, @PLACE_NUMBER, @LINK_NUMBER, @DEPO_NUMBER;
if @@FETCH_STATUS <> 0 break;
 
	--Бумага
	select 
		@SHARE = V.ID
	from OD_VALUES V
		left join OD_VALUE_CODERS C on C.SHARE = V.ID
		left join OD_FACES F on F.SELF_ID = C.CODER and F.LAST_FLAG = 1
	where 
		V.ISIN = @ISIN 
		and F.MNEM = 'НДЦ' 
		and C.CODE = @SEC_CODE;
 
	--Счет МХ
	select 
		@PLACE = C.ID
	from OD_CLIENTS C
		left join OD_CLIENTS_REC CR on CR.CLIENT = C.SELF_ID and CR.E_DATE = '9999-01-01'
	where 
		C.NUMBER like '%' + @PLACE_NUMBER + '%' 
		and CR.LINK_NUMBER = @LINK_NUMBER;
 
	--Счет клиента
	select 
		@DEPO = C.ID
	from OD_CLIENTS C
	where C.NUMBER = @DEPO_NUMBER;
 
	exec GEN_ID 'OD_DOL_ID_GEN', 1, @DOL_ID out;
 
	insert into OD_DOLS (ID, DOC) values (@DOL_ID, @CLISER_ID);
 
	insert into D_CLISER_M2M_DOL (DOL, SHARE, AMOUNT, DOL_REF, PLACE, CLIENT) values (@DOL_ID, @SHARE, @AMOUNT, @REFERENCE, @PLACE, @DEPO);
 
	--Обогащаем FTV_M2M_LINES
	update FTV_M2M_LINES set
		STATE = 'SUCCESS',
		DOC = @CLISER_ID,
		DOL = @DOL_ID,
		SHARE = @SHARE,
		PLACE = @PLACE,
		DEPO = @DEPO
	where GUID = @GUID and REFERENCE = @REFERENCE;
 
	end;
	close cur;
	deallocate cur;
 
 
--1.8. Входящая запись только для списания (исходящего перевода OUT)
if @DIRECTION = 'OUT' begin
	exec GEN_ID 'OD_DOC_ID_GEN', 1, @FILER_ID out;
 
	set @FILER_DATE = getdate();
 
	exec FU_NEXT_DOC_NUM 'D_FILER', @FILER_DATE, 1, @FILER_ID, @FILER_NUM out, null;
 
	insert into OD_DOCS 
		(ID, NUM, D_CAT, D_DATE, STATE, DIRECTION, WHOS) 
	values 
		(@FILER_ID, @FILER_NUM, 255, @FILER_DATE, 2, 1, @WHOS);
 
	insert into D_FILER 
		(DOC, PASS_KIND, RUBRICA, COMMENT, DOC_NUM, DOC_DATE, CORR_FACE, FUND, ACCOUNT, PLACE, ORI_DATE, CHILD_CAT, MESS)
	values 
		(@FILER_ID, 7, 8, 'M2M поручение на списание через MOEX-МОСТ', @NUM, cast(@D_DATE as date), @DEPONENT, @DEPONENT, @DEPO, @PLACE, @FILER_DATE, @D_CAT, cast(@GUID as varchar(36)));
 
	--Связываем с М2М-поручением
	update OD_DOCS set ID = 0, KVIT = @FILER_ID where ID = @CLISER_ID;
end;