create procedure dbo.%PROC% @sid varchar(30) = null
as
.BEGIN('N')

.CHECK_USER
.CHECK_UPDATE

begin tran

.GET_PROPS

if rtrim(ltrim(.GET_CONST('CLIENT_CODE'))) not in ('WEBINVEST')
begin
if @pif_pay_id is null
  .EXIT_MESSAGE('Не указана заявка')
if (@pif_pay_id is not null) and (upper(.ITEM_STATE_CODE(@pif_pay_id)) != 'PROV')
 .EXIT_MESSAGE('Заявка должна быть на исполнении')
if (@pif_pay_id is not null) and
   ((select owner_id from td_depo_docs where id=@pif_pay_id) != @owner_id)
 .EXIT_MESSAGE('Выберите заявку для указанного фонда')
if (@pif_pay_id is not null) and
   ((select pay_owner_id from tp_pif_queries where id=@pif_pay_id) != @from_partner_id)
 .EXIT_MESSAGE('Отправитель платежа не является пайщиком в заявке')
end
else
begin
if @pif_pay_id is null
  .EXIT_MESSAGE('Не указана заявка')
if upper(.ITEM_STATE_CODE(@pif_pay_id)) != 'PROV'
 .EXIT_MESSAGE('Заявка должна быть на исполнении')
if (select owner_id from td_depo_docs where id=@pif_pay_id) != @owner_id

 .EXIT_MESSAGE('Выберите заявку для указанного фонда')
if (select pay_owner_id from tp_pif_queries where id=@pif_pay_id) != @from_partner_id
begin


declare @fact_partner_id numeric
 select @fact_partner_id=@from_partner_id
 select @from_partner_id=(select pay_owner_id from tp_pif_queries where id=@pif_pay_id)
 select @from_partner_name=(select partner_name from t_partners where id=@from_partner_id)
update t_paydocs set from_partner_id=@from_partner_id, from_partner_name=@from_partner_name where id=@id
 .ID_VAR(@acc76_id)
 .ID_VAR(@fund_plan_id)
 .NAME_VAR(@comment)
 select @fund_plan_id = .ARG_PLAN('PIF_ACCOUNT')
 select @acc76_id=.SD_ACCID_FROM_EFFNO(@fund_plan_id,'76.4.1')
 select @comment='Корректирующая проводка по смене пайщика для платежа № '+@doc_number+' от '+convert(varchar,@doc_date,3)
 .OPERATION(@owner_id,@fund_plan_id,@complete_date,@acc76_id,@acc76_id,@doc_sum,'RUR',@complete_date,0,0,@comment,N)
 .UPDATE_SUBC(D,'partners',@fact_partner_id)
 .UPDATE_SUBC(D,'paydocs',@id)
 .UPDATE_SUBC(K,'partners',@from_partner_id)
 .UPDATE_SUBC(K,'paydocs',@id)
 .SUBC_CHECK

end
end

.UPDATE_STATE
.ACTION_HISTORY

/*-------Проводки ----------*/
commit tran
.END