Расширение Fancy DEPO для M2M (процедуры Фонтвьель, снято 23.09): тексты, зависимости, параметры для установки у другого клиента
Co-Authored-By: Claude Fable 5.1 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_01Q4YVo4UMopqT5DzicqpPjL
This commit is contained in:
zuevav
@@ -0,0 +1,188 @@
|
||||
CREATE OR ALTER procedure [dbo].[FTV_M2M_PROCESS_CREATE] (@ID int)
|
||||
|
||||
/*
|
||||
TODO:
|
||||
Дата поручения - сейчас getdate, но можно передавать, для этого ввести пновое поле в FTV_M2M, или потом брать з события и изменять
|
||||
Для входящий переводов из СПБ возможно следует дать raiserror
|
||||
*/
|
||||
|
||||
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;
|
||||
--TODO!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||
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;
|
||||
|
||||
--TODO!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||
set @FILER_DATE = getdate();
|
||||
|
||||
exec FU_NEXT_DOC_NUM @D_CAT, @FILER_DATE, null, @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)
|
||||
values (@FILER_ID, 7, 173, 'M2M поручение на списание через MOEX-МОСТ', @NUM, cast(@D_DATE as date), @DEPONENT, @DEPONENT, @DEPO, @PLACE, @FILER_DATE, @D_CAT);
|
||||
|
||||
--Связываем с М2М-поручением
|
||||
update OD_DOCS set ID = 0, KVIT = @FILER_ID where ID = @CLISER_ID;
|
||||
end;
|
||||
Reference in New Issue
Block a user