# Date: 21/03/06
# Version: 105

$DOC(TP_PIF_PAYS_MOVES)
 name=Переход прав собственности на паи
 class=1
 product=ALD_PIF
 name_formula=.TYPE_NAME(@type_id)+' № '+@agent_regs_no+' от '+.DATE_TO_STR(@agent_regs_date)
 remark_formula=$TEXT(14133997)
.ITEM_NAME(@pay_owner_id)+'->' +.ITEM_NAME(@d_pay_owner_id)+': '
+.ITEM_NAME(@owner_id)+': '
+isnull((.SR_SUBACC_INFO(@subacc_id)),'')+'->'+isnull((.SR_SUBACC_INFO(@new_subacc_id)),'')

 $ENDTEXT(14133997)

 $STATE(BEG)
  name=Начальный
  class=1
 $ENDSTATE

 $STATE(DEL)
  name=Удален
  class=2
 $ENDSTATE

 $STATE(ED)
  name=Редактируется
  class=0
 $ENDSTATE

 $STATE(PROV)
  name=Проведен
  class=0
 $ENDSTATE

 $STATE(REF)
  name=Отказано
  class=0
 $ENDSTATE

 $PROP(OUT_DATE)
  name=Внешняя дата корреспондента
  field_name=out_date
  table_name=td_depo_docs
  field_type=datetime
  field_length=8
  field_scale=3
  field_prec=23
  page=1
  order=1
  init_class=null
  init_formula=null
  unique_index=null
  numerator=null
  import_type=null
  import_table=null
  import_field=null
  import_where=null
  ref_table=null
  ref_key=null
  ref_display=null
  ref_alias=null
  ref_where=null
 $ENDPROP

 $PROP(IN_DATE)
  name=Дата документа
  field_name=in_date
  table_name=td_depo_docs
  field_type=datetime
  field_length=8
  field_scale=3
  field_prec=23
  page=1
  order=2
  init_class=1
  init_formula=.OPERDAY
  unique_index=1
  numerator=null
  import_type=null
  import_table=null
  import_field=null
  import_where=null
  ref_table=null
  ref_key=null
  ref_display=null
  ref_alias=null
  ref_where=null
 $ENDPROP

 $PROP(WHO_GET)
  name=Кто принял
  field_name=who_get
  table_name=td_depo_docs
  field_type=varchar
  field_length=100
  field_scale=null
  field_prec=100
  page=1
  order=3
  init_class=0
  init_formula=null
  unique_index=null
  numerator=null
  import_type=null
  import_table=null
  import_field=null
  import_where=null
  ref_table=null
  ref_key=null
  ref_display=null
  ref_alias=null
  ref_where=null
 $ENDPROP

 $PROP(WHO_PUT)
  name=Кто отправил
  field_name=who_put
  table_name=td_depo_docs
  field_type=varchar
  field_length=100
  field_scale=null
  field_prec=100
  page=1
  order=4
  init_class=0
  init_formula=null
  unique_index=null
  numerator=null
  import_type=null
  import_table=null
  import_field=null
  import_where=null
  ref_table=null
  ref_key=null
  ref_display=null
  ref_alias=null
  ref_where=null
 $ENDPROP

 $PROP(OUT_NO)
  name=Внешний номер
  field_name=out_no
  table_name=td_depo_docs
  field_type=varchar
  field_length=50
  field_scale=null
  field_prec=50
  page=1
  order=5
  init_class=null
  init_formula=null
  unique_index=null
  numerator=null
  import_type=null
  import_table=null
  import_field=null
  import_where=null
  ref_table=null
  ref_key=null
  ref_display=null
  ref_alias=null
  ref_where=null
 $ENDPROP

 $PROP(IN_NO)
  name=Номер документа
  field_name=in_no
  table_name=td_depo_docs
  field_type=varchar
  field_length=50
  field_scale=null
  field_prec=50
  page=1
  order=6
  init_class=0
  init_formula=null
  unique_index=1
  numerator=null
  import_type=null
  import_table=null
  import_field=null
  import_where=null
  ref_table=null
  ref_key=null
  ref_display=null
  ref_alias=null
  ref_where=null
 $ENDPROP

 $PROP(CORRESPONDENT_ID)
  name=Корреспондент
  field_name=correspondent_id
  table_name=td_depo_docs
  field_type=numeric
  field_length=9
  field_scale=0
  field_prec=18
  page=1
  order=7
  init_class=0
  init_formula=null
  unique_index=null
  numerator=null
  import_type=null
  import_table=null
  import_field=null
  import_where=null
  ref_table=null
  ref_key=null
  ref_display=null
  ref_alias=null
  ref_where=null
 $ENDPROP

 $PROP(PAYER_ID)
  name=Плательщик
  field_name=payer_id
  table_name=td_depo_docs
  field_type=numeric
  field_length=9
  field_scale=0
  field_prec=18
  page=1
  order=8
  init_class=0
  init_formula=null
  unique_index=null
  numerator=null
  import_type=null
  import_table=null
  import_field=null
  import_where=null
  ref_table=null
  ref_key=null
  ref_display=null
  ref_alias=null
  ref_where=null
 $ENDPROP

 $PROP(PAY_SUM)
  name=Сумма
  field_name=pay_sum
  table_name=td_depo_docs
  field_type=money
  field_length=8
  field_scale=4
  field_prec=19
  page=1
  order=9
  init_class=0
  init_formula=null
  unique_index=null
  numerator=null
  import_type=null
  import_table=null
  import_field=null
  import_where=null
  ref_table=null
  ref_key=null
  ref_display=null
  ref_alias=null
  ref_where=null
 $ENDPROP

 $PROP(INITIATOR_ID)
  name=Инициатор
  field_name=initiator_id
  table_name=td_depo_docs
  field_type=numeric
  field_length=9
  field_scale=0
  field_prec=18
  page=1
  order=10
  init_class=0
  init_formula=null
  unique_index=null
  numerator=null
  import_type=null
  import_table=null
  import_field=null
  import_where=null
  ref_table=null
  ref_key=null
  ref_display=null
  ref_alias=null
  ref_where=null
 $ENDPROP

 $PROP(DOCUMENT_FORM_ID)
  name=Форма документа
  field_name=document_form_id
  table_name=td_depo_docs
  field_type=numeric
  field_length=9
  field_scale=0
  field_prec=18
  page=1
  order=11
  init_class=1
  init_formula=1
  unique_index=null
  numerator=null
  import_type=null
  import_table=null
  import_field=
  import_where=null
  ref_table=null
  ref_key=null
  ref_display=null
  ref_alias=null
  ref_where=null
 $ENDPROP

 $PROP(DEPO_DOC_TYPE)
  name=Входящий исходящий или внутр
  field_name=depo_doc_type
  table_name=td_depo_docs
  field_type=int
  field_length=4
  field_scale=0
  field_prec=10
  page=1
  order=12
  init_class=1
  init_formula=0
  unique_index=1
  numerator=null
  import_type=null
  import_table=null
  import_field=null
  import_where=null
  ref_table=null
  ref_key=null
  ref_display=null
  ref_alias=null
  ref_where=null
 $ENDPROP

 $PROP(FOLDER_ID)
  name=Папка
  field_name=folder_id
  table_name=td_depo_docs
  field_type=numeric
  field_length=9
  field_scale=0
  field_prec=18
  page=1
  order=13
  init_class=2
  init_formula=.DEPO_FOLDER_DEFAULT
  unique_index=null
  numerator=null
  import_type=null
  import_table=null
  import_field=null
  import_where=null
  ref_table=null
  ref_key=null
  ref_display=null
  ref_alias=null
  ref_where=null
 $ENDPROP

 $PROP(SUM_CUR_ID)
  name=Валюта суммы
  field_name=sum_cur_id
  table_name=td_depo_docs
  field_type=numeric
  field_length=9
  field_scale=0
  field_prec=18
  page=1
  order=14
  init_class=1
  init_formula=.CUR('RUR')
  unique_index=null
  numerator=null
  import_type=null
  import_table=null
  import_field=null
  import_where=null
  ref_table=null
  ref_key=null
  ref_display=null
  ref_alias=null
  ref_where=null
 $ENDPROP

 $PROP(DOC_COMMENT)
  name=Коментарии
  field_name=doc_comment
  table_name=td_depo_docs
  field_type=varchar
  field_length=255
  field_scale=null
  field_prec=255
  page=1
  order=15
  init_class=null
  init_formula=null
  unique_index=null
  numerator=null
  import_type=null
  import_table=null
  import_field=null
  import_where=null
  ref_table=null
  ref_key=null
  ref_display=null
  ref_alias=null
  ref_where=null
 $ENDPROP

 $PROP(FOUNDATION_ID)
  name=Документ основание
  field_name=foundation_id
  table_name=td_depo_docs
  field_type=numeric
  field_length=9
  field_scale=0
  field_prec=18
  page=1
  order=16
  init_class=null
  init_formula=null
  unique_index=null
  numerator=null
  import_type=null
  import_table=null
  import_field=null
  import_where=null
  ref_table=null
  ref_key=null
  ref_display=null
  ref_alias=null
  ref_where=null
 $ENDPROP

 $PROP(OWNER_ID)
  name=Владелец
  field_name=owner_id
  table_name=td_depo_docs
  field_type=numeric
  field_length=9
  field_scale=0
  field_prec=18
  page=1
  order=17
  init_class=1
  init_formula=.ORGANIZATION_PIF
  unique_index=null
  numerator=null
  import_type=null
  import_table=null
  import_field=null
  import_where=null
  ref_table=null
  ref_key=null
  ref_display=null
  ref_alias=null
  ref_where=null
 $ENDPROP

 $PROP(PAY_OWNER_ID)
  name=Старый пайщик
  field_name=pay_owner_id
  table_name=tp_pif_queries
  field_type=numeric
  field_length=9
  field_scale=0
  field_prec=18
  page=2
  order=18
  init_class=0
  init_formula=null
  unique_index=null
  numerator=null
  import_type=null
  import_table=null
  import_field=null
  import_where=null
  ref_table=null
  ref_key=null
  ref_display=null
  ref_alias=null
  ref_where=null
 $ENDPROP

 $PROP(STOCK_QTY)
  name=Количество паев
  field_name=stock_qty
  table_name=tp_pif_queries
  field_type=decimal
  field_length=9
  field_scale=8
  field_prec=18
  page=2
  order=19
  init_class=0
  init_formula=null
  unique_index=null
  numerator=null
  import_type=null
  import_table=null
  import_field=null
  import_where=null
  ref_table=null
  ref_key=null
  ref_display=null
  ref_alias=null
  ref_where=null
 $ENDPROP

 $PROP(TOTAL_SUM)
  name=Сумма за паи
  field_name=total_sum
  table_name=tp_pif_queries
  field_type=money
  field_length=8
  field_scale=4
  field_prec=19
  page=2
  order=23
  init_class=0
  init_formula=null
  unique_index=null
  numerator=null
  import_type=null
  import_table=null
  import_field=null
  import_where=null
  ref_table=null
  ref_key=null
  ref_display=null
  ref_alias=null
  ref_where=null
 $ENDPROP

 $PROP(D_PAY_OWNER_ID)
  name=Новый пайщик
  field_name=d_pay_owner_id
  table_name=tp_pif_queries
  field_type=numeric
  field_length=9
  field_scale=0
  field_prec=18
  page=2
  order=20
  init_class=0
  init_formula=null
  unique_index=null
  numerator=null
  import_type=null
  import_table=null
  import_field=null
  import_where=null
  ref_table=null
  ref_key=null
  ref_display=null
  ref_alias=null
  ref_where=null
 $ENDPROP

 $PROP(SUBACC_ID)
  name=Раздел счета старого пайщика
  field_name=subacc_id
  table_name=tp_pif_queries
  field_type=numeric
  field_length=9
  field_scale=0
  field_prec=18
  page=2
  order=21
  init_class=0
  init_formula=null
  unique_index=null
  numerator=null
  import_type=null
  import_table=null
  import_field=null
  import_where=null
  ref_table=null
  ref_key=null
  ref_display=null
  ref_alias=null
  ref_where=null
 $ENDPROP

 $PROP(NEW_SUBACC_ID)
  name=Раздел счета нового пайщика
  field_name=new_subacc_id
  table_name=tp_pif_queries
  field_type=numeric
  field_length=9
  field_scale=0
  field_prec=18
  page=2
  order=22
  init_class=0
  init_formula=null
  unique_index=null
  numerator=null
  import_type=null
  import_table=null
  import_field=null
  import_where=null
  ref_table=null
  ref_key=null
  ref_display=null
  ref_alias=null
  ref_where=null
 $ENDPROP

 $PROP(AGENT_REGS_DATE)
  name=Дата заявки
  field_name=agent_regs_date
  table_name=tp_pif_queries
  field_type=datetime
  field_length=8
  field_scale=3
  field_prec=23
  page=2
  order=26
  init_class=0
  init_formula=null
  unique_index=null
  numerator=null
  import_type=null
  import_table=null
  import_field=null
  import_where=null
  ref_table=null
  ref_key=null
  ref_display=null
  ref_alias=null
  ref_where=null
 $ENDPROP

 $PROP(AGENT_REGS_NO)
  name=Номер заявки
  field_name=agent_regs_no
  table_name=tp_pif_queries
  field_type=varchar
  field_length=50
  field_scale=null
  field_prec=50
  page=2
  order=25
  init_class=0
  init_formula=null
  unique_index=null
  numerator=null
  import_type=null
  import_table=null
  import_field=null
  import_where=null
  ref_table=null
  ref_key=null
  ref_display=null
  ref_alias=null
  ref_where=null
 $ENDPROP

 $PROP(CALC_DATE)
  name=Дата проведения
  field_name=calc_date
  table_name=tp_pif_queries
  field_type=datetime
  field_length=8
  field_scale=3
  field_prec=23
  page=2
  order=27
  init_class=0
  init_formula=null
  unique_index=null
  numerator=null
  import_type=null
  import_table=null
  import_field=null
  import_where=null
  ref_table=null
  ref_key=null
  ref_display=null
  ref_alias=null
  ref_where=null
 $ENDPROP

 $PROP(TYPE_QUERIES)
  name=Тип операции (0 - переход прав)
  field_name=type_queries
  table_name=tp_pif_queries
  field_type=int
  field_length=4
  field_scale=0
  field_prec=10
  page=2
  order=24
  init_class=1
  init_formula=0
  unique_index=null
  numerator=null
  import_type=null
  import_table=null
  import_field=null
  import_where=null
  ref_table=null
  ref_key=null
  ref_display=null
  ref_alias=null
  ref_where=null
 $ENDPROP

 $RELATION(REL1)
  class=1
  type=T_OPERATIONS
  form=ITEM_OPERS_LIST
  prop=null
  idname=item_id_s
  order=999
 $ENDRELATION

 $RELATION(REL5)
  class=0
  type=PARTNERS
  form=null
  prop=CORRESPONDENT_ID
  idname=null
  order=10
 $ENDRELATION

 $RELATION(REL9)
  class=0
  type=PARTNERS
  form=null
  prop=PAYER_ID
  idname=null
  order=20
 $ENDRELATION

 $RELATION(REL6)
  class=0
  type=PARTNERS
  form=null
  prop=INITIATOR_ID
  idname=null
  order=30
 $ENDRELATION

 $RELATION(REL4)
  class=0
  type=PARTNERS
  form=null
  prop=PAY_OWNER_ID
  idname=null
  order=70
 $ENDRELATION

 $RELATION(REL12)
  class=0
  type=PARTNERS
  form=null
  prop=D_PAY_OWNER_ID
  idname=null
  order=80
 $ENDRELATION

 $RELATION(REL10)
  class=0
  type=ITEMS
  form=null
  prop=FOLDER_ID
  idname=null
  order=40
 $ENDRELATION

 $RELATION(REL2)
  class=0
  type=ITEMS
  form=null
  prop=FOUNDATION_ID
  idname=null
  order=50
 $ENDRELATION

 $RELATION(REL11)
  class=0
  type=PIF_FUND
  form=null
  prop=OWNER_ID
  idname=null
  order=60
 $ENDRELATION

 $RELATION(REL7)
  class=1
  type=ACTIONS_HISTORY
  form=UO_ACTIONS_HISTORY_LIST
  prop=null
  idname=null
  order=998
 $ENDRELATION

 $RELATION(REL3)
  class=0
  type=SREG_SUBACC
  form=null
  prop=SUBACC_ID
  idname=null
  order=90
 $ENDRELATION

 $RELATION(REL13)
  class=0
  type=SREG_SUBACC
  form=null
  prop=NEW_SUBACC_ID
  idname=null
  order=100
 $ENDRELATION

 $RELATION(REL15)
  class=1
  type=SR_REPORTS
  form=UO_SR_REPORTS_PAGE_LIST
  prop=null
  idname=foundation_id_s
  order=992
 $ENDRELATION

 $RELATION(REL16)
  class=1
  type=SD_INDOC2DOC
  form=FORM2
  prop=null
  idname=doc_id_s
  order=900
 $ENDRELATION

 $FORM(D_PIF_MOVES_EDIT)
  name=Данные
  class=5
  filter=null
  target_state=
  uo=uo_edit
  dw=d_pif_moves_edit
  procedure=ap_10000000000088357
  patterns=GENERIC_VIEW_ITEM_P2
  user_define=0
  isvisible=1
  istab=0
  posx=0
  posy=0
  width=0
  height=0
  proc_text=$TEXT(14134006)
create procedure dbo.%PROC%
  @sid varchar(30) = null
as
declare
        @id numeric,
        @action_id numeric,
        @user_id numeric,
        @state_id numeric,
        @type_id numeric,
        @new_state_id numeric

begin

  select @id = convert(numeric, @sid)
  select @action_id = %ACTION_ID%

.CHECK_USER
.CHECK_VIEW_ITEM
.ID_VAR(@owner_id)
select @owner_id=.ORGANIZATION
.VIEW_ITEM(ALL,2)

end
  $ENDTEXT(14134006)

  $ACTION2RELATION(REL4.PARTNER_CODE)
   relation=REL4
   where=null
   prop=PARTNER_CODE
   order=1
   alias=s_owner_code
  $ENDACTION2RELATION

  $ACTION2RELATION(REL4.PARTNER_SHORT_NAME)
   relation=REL4
   where=null
   prop=PARTNER_SHORT_NAME
   order=4
   alias=s_owner_name
  $ENDACTION2RELATION

  $ACTION2RELATION(REL12.PARTNER_CODE)
   relation=REL12
   where=null
   prop=PARTNER_CODE
   order=1
   alias=d_owner_code
  $ENDACTION2RELATION

  $ACTION2RELATION(REL12.PARTNER_SHORT_NAME)
   relation=REL12
   where=null
   prop=PARTNER_SHORT_NAME
   order=4
   alias=d_owner_name
  $ENDACTION2RELATION

  $ACTION2RELATION(REL13.DEPO_SUBACC_NO)
   relation=REL13
   where=null
   prop=DEPO_SUBACC_NO
   order=13
   alias=new_subacc_no
  $ENDACTION2RELATION

  $ACTION2RELATION(REL3.DEPO_SUBACC_NO)
   relation=REL3
   where=null
   prop=DEPO_SUBACC_NO
   order=1
   alias=subacc_no
  $ENDACTION2RELATION

  $CALC(ACC_IN_REG)
   class=1
   type=integer
   calc_lenght=null
   calc_prec=null
   calc_scale=null
   formula=(select acc_in_reg from td_pay_fond where id=@owner_id)
   label=Спецдеп является спецрегистратором
   order=1
  $ENDCALC
 $ENDFORM

 $FORM(FORM1)
  name=Просмотр
  class=5
  filter=null
  target_state=
  uo=uo_edit
  dw=d_pif_depooper_p1
  procedure=ap_10000000000088364
  patterns=GENERIC_VIEW_ITEM_P1
  user_define=0
  isvisible=0
  istab=1
  posx=0
  posy=0
  width=2290
  height=1708
  proc_text=$TEXT(14134008)
create procedure dbo.%PROC%
  @sid varchar(30) = null
as
declare
        @id numeric,
        @action_id numeric,
        @user_id numeric,
        @state_id numeric,
        @type_id numeric,
        @type_id_s varchar(30),
        @new_state_id numeric,
        @state_name_id_s varchar(30)

begin

  select @id = convert(numeric, @sid)
  select @action_id = %ACTION_ID%
 select @type_id_s = NULL
select  @state_name_id_s = NULL

.CHECK_USER
.CHECK_VIEW_ITEM

if @id = -1
begin
begin tran
.GET_PROPS
.CHECK_INSERT
.INIT_VARS(B)
.INSERT_ITEMS
.INSERT
commit tran
end

.INSERT_INFO4SR_OPER(@id)
.VIEW_ITEM(ALL,1)

end
  $ENDTEXT(14134008)

  $ACTION2RELATION(REL6.PARTNER_CODE)
   relation=REL6
   where=null
   prop=PARTNER_CODE
   order=1
   alias=initiator_code
  $ENDACTION2RELATION

  $ACTION2RELATION(REL6.PARTNER_SHORT_NAME)
   relation=REL6
   where=null
   prop=PARTNER_SHORT_NAME
   order=4
   alias=initiator_short_name
  $ENDACTION2RELATION

  $ACTION2RELATION(REL5.PARTNER_CODE)
   relation=REL5
   where=null
   prop=PARTNER_CODE
   order=1
   alias=corr_code
  $ENDACTION2RELATION

  $ACTION2RELATION(REL5.PARTNER_SHORT_NAME)
   relation=REL5
   where=null
   prop=PARTNER_SHORT_NAME
   order=4
   alias=corr_short_name
  $ENDACTION2RELATION

  $ACTION2RELATION(REL9.PARTNER_CODE)
   relation=REL9
   where=null
   prop=PARTNER_CODE
   order=1
   alias=payer_code
  $ENDACTION2RELATION

  $ACTION2RELATION(REL9.PARTNER_SHORT_NAME)
   relation=REL9
   where=null
   prop=PARTNER_SHORT_NAME
   order=4
   alias=payer_short_name
  $ENDACTION2RELATION

  $ACTION2RELATION(REL11.PARTNER_CODE)
   relation=REL11
   where=null
   prop=PARTNER_CODE
   order=1
   alias=fond_code
  $ENDACTION2RELATION

  $ACTION2RELATION(REL11.PARTNER_NAME)
   relation=REL11
   where=null
   prop=PARTNER_NAME
   order=2
   alias=fond_name
  $ENDACTION2RELATION

  $ACTION2RELATION(REL2.ITEM_NAME)
   relation=REL2
   where=null
   prop=ITEM_NAME
   order=2
   alias=foundation_name
  $ENDACTION2RELATION

  $BIND(BIND1)
   type=TP_PIF_PAYS_MOVES
   action=D_PIF_MOVES_EDIT
   class=1
   order=1
   idname=null
  $ENDBIND

  $BIND(BIND2)
   type=SR_INFO4OPER
   action=D_SR_INFO4OPER_EDIT
   class=1
   order=2
   idname=sid
  $ENDBIND
 $ENDFORM

 $FORM(FORM_FILTER)
  name=Фильтр
  class=6
  filter=null
  target_state=
  uo=uo_filter
  dw=d_pif_moves_filter
  procedure=ap_30000000003455540
  patterns=null
  user_define=0
  isvisible=0
  istab=0
  posx=0
  posy=0
  width=2130
  height=1080
  proc_text=$TEXT(14134008)
create procedure dbo.%PROC%
as
begin

declare @date_b datetime, @date_e datetime, @owner_id numeric, @is_reg int
select @date_b = .OPERDAY
select @date_e = @date_b
select @owner_id=.ORGANIZATION
select @is_reg=.SR_FOR_PIF(@owner_id)

select
 @date_b as agent_regs_date_db,
 @date_e as agent_regs_date_de,
 convert(varchar(255), null) as agent_regs_no,
 convert(varchar(30), null) as pay_owner_id_s,
 convert(varchar(30), null) as d_pay_owner_id_s,
 convert(varchar(100), null) as old_partner_name,
 convert(varchar(100), null) as new_partner_name,
 convert(datetime, null) as in_date_db,
 convert(datetime, null) as in_date_de,
 convert(varchar(100), null) as in_no,
 convert(varchar(30), null) as subacc_id_s,
 convert(varchar(30), null) as new_subacc_id_s,
 convert(varchar(255), null) as subacc_no,
 convert(varchar(255), null) as new_subacc_no,
 @is_reg as is_reg

end
  $ENDTEXT(14134008)

  $FILTER(SUBACC_ID)
   type=1
   label=Раздел счета старого пайщика
   prop=SUBACC_ID
   arg_code=null
   arg_type=null
   arg_length=null
   arg_prec=null
   arg_scale=null
  $ENDFILTER

  $FILTER(NEW_SUBACC_ID)
   type=1
   label=Раздел счета нового пайщика
   prop=NEW_SUBACC_ID
   arg_code=null
   arg_type=null
   arg_length=null
   arg_prec=null
   arg_scale=null
  $ENDFILTER

  $FILTER(PAY_OWNER_ID)
   type=1
   label=Старый пайщик
   prop=PAY_OWNER_ID
   arg_code=null
   arg_type=null
   arg_length=null
   arg_prec=null
   arg_scale=null
  $ENDFILTER

  $FILTER(D_PAY_OWNER_ID)
   type=1
   label=Новый пайщик
   prop=D_PAY_OWNER_ID
   arg_code=null
   arg_type=null
   arg_length=null
   arg_prec=null
   arg_scale=null
  $ENDFILTER

  $FILTER(IN_NO)
   type=3
   label=Номер документа
   prop=IN_NO
   arg_code=null
   arg_type=null
   arg_length=null
   arg_prec=null
   arg_scale=null
  $ENDFILTER

  $FILTER(IN_DATE)
   type=2
   label=Дата документа
   prop=IN_DATE
   arg_code=null
   arg_type=null
   arg_length=null
   arg_prec=null
   arg_scale=null
  $ENDFILTER

  $FILTER(AGENT_REGS_NO)
   type=3
   label=Номер заявки
   prop=AGENT_REGS_NO
   arg_code=null
   arg_type=null
   arg_length=null
   arg_prec=null
   arg_scale=null
  $ENDFILTER

  $FILTER(AGENT_REGS_DATE)
   type=2
   label=Дата заявки
   prop=AGENT_REGS_DATE
   arg_code=null
   arg_type=null
   arg_length=null
   arg_prec=null
   arg_scale=null
  $ENDFILTER
 $ENDFORM

 $FORM(FORM_LIST)
  name=Список
  class=4
  filter=FORM_FILTER
  target_state=
  uo=uo_list
  dw=d_pif_moves_list
  procedure=ap_30000000003455529
  patterns=GENERIC_VIEW_LIST
  user_define=0
  isvisible=0
  istab=0
  posx=0
  posy=0
  width=4663
  height=1012
  proc_text=$TEXT(14134009)
create procedure dbo.%PROC% @sid varchar(30) = null
   .ARGLIST_FILTER
as
.BEGIN('N')

declare @owner_id numeric
select @owner_id = .ORGANIZATION

.CHECK_USER
.CHECK_VIEW_LIST

.ARGCONVERT_FILTER

.VIEW_LIST
and td_depo_docs.owner_id = @owner_id

.END
  $ENDTEXT(14134009)

  $ACTION2RELATION(REL4.PARTNER_SHORT_NAME)
   relation=REL4
   where=null
   prop=PARTNER_SHORT_NAME
   order=10
   alias=old_partner_name
  $ENDACTION2RELATION

  $ACTION2RELATION(REL12.PARTNER_SHORT_NAME)
   relation=REL12
   where=null
   prop=PARTNER_SHORT_NAME
   order=10
   alias=new_partner_name
  $ENDACTION2RELATION

  $ACTION2RELATION(REL13.DEPO_SUBACC_NO)
   relation=REL13
   where=null
   prop=DEPO_SUBACC_NO
   order=1
   alias=new_subacc_no
  $ENDACTION2RELATION

  $ACTION2RELATION(REL3.DEPO_SUBACC_NO)
   relation=REL3
   where=null
   prop=DEPO_SUBACC_NO
   order=12
   alias=old_subacc_no
  $ENDACTION2RELATION

  $ACTION2RELATION(REL11.PARTNER_CODE)
   relation=REL11
   where=null
   prop=PARTNER_CODE
   order=42
   alias=fund_code
  $ENDACTION2RELATION

  $CALC(OLD_ACC)
   class=1
   type=varchar
   calc_lenght=255
   calc_prec=null
   calc_scale=null
   formula=$TEXT(14134009)
(select a.depo_acc_number from td_depo_accounts a, td_depo_subacc s
  where s.depo_acc_id=a.id and s.id=tp_pif_queries.subacc_id)
   $ENDTEXT(14134009)
   label=Счет старый
   order=1
  $ENDCALC

  $CALC(NEW_ACC)
   class=1
   type=varchar
   calc_lenght=255
   calc_prec=null
   calc_scale=null
   formula=$TEXT(14134011)
(select a.depo_acc_number from td_depo_accounts a, td_depo_subacc s
  where s.depo_acc_id=a.id and s.id=tp_pif_queries.new_subacc_id)
   $ENDTEXT(14134011)
   label=Новый счет
   order=2
  $ENDCALC
 $ENDFORM

 $ACTION(ACTION1)
  name=Провести (без партий)
  class=9
  form=null
  target_state=PROV
  procedure=ap_10000000000088371
  patterns=GENERIC_MOVE
  user_define=1
  isvisible=1
  istab=0
  posx=0
  posy=0
  width=0
  height=0
  proc_text=$TEXT(14134011)
create procedure dbo.%PROC% @sid varchar(30) = null
as
declare @action_id numeric,
        @id numeric,
        @user_id numeric,
        @state_id numeric,
        @new_state_id numeric,
        @type_id numeric

begin tran
   select @action_id = %ACTION_ID%
   select @id = convert(numeric, @sid)

.CHECK_USER
.CHECK_UPDATE

.GET_PROPS

.ID_VAR(@fund_plan_id)
.ID_VAR(@acc96_id)
.MONEY_VAR(@stock_price)
declare @qty_saldo money
declare @bal_qty money
declare @summ_saldo money
declare @oper_sum money
declare @sreg_oper_date datetime

.SREG_OPER_DATE(@id,@sreg_oper_date)

select @fund_plan_id = .ARG_PLAN('PIF_ACCOUNT')
select @acc96_id = .SD_ACCID_FROM_EFFNO(@fund_plan_id,'96.1')

.SALDO_FAST(@owner_id,'PIF_ACCOUNT',@sreg_oper_date,@acc96_id,K,Y,'partners',@pay_owner_id,N,N,@summ_saldo,@qty_saldo)

select @qty_saldo=isnull(@qty_saldo,0)
if isnull(@stock_qty,0)=0
 select @stock_qty=.PAYS_QTY_CALC(@qty_saldo,@owner_id)

select @bal_qty=.PAYS_QTY_BAL(@stock_qty,@owner_id)

-- SREG ---------------------------------------------
if (select acc_in_reg from td_pay_fond where id=@owner_id)=1
begin

 declare @s_acc_id numeric,
         @new_acc_id numeric

 select @s_acc_id = depo_acc_id from td_depo_subacc
  where td_depo_subacc.id = @subacc_id
    and .ITEMS_EXISTS_BY_TYPE(td_depo_subacc.depo_acc_id,'SREG_ACC')

 select @new_acc_id = depo_acc_id
   from td_depo_subacc
  where td_depo_subacc.id = @new_subacc_id
    and .ITEMS_EXISTS_BY_TYPE(td_depo_subacc.depo_acc_id,'SREG_ACC')

 .SREG_CHECK_ACCOUNT2FUND(@s_acc_id,@owner_id)
 .SREG_CHECK_ACCOUNT2FUND(@new_acc_id,@owner_id)

  EXECUTE dbo.ap_op_sreg_move @sid = @sid,
                              @pays_qty=@bal_qty,
                              @pay_owner_id=@pay_owner_id,
                              @new_pay_owner_id=@d_pay_owner_id,
                              @subacc_id=@subacc_id,
                              @new_subacc_id=@new_subacc_id,
                              @owner_id=@owner_id,
                              @sr_op_date=@sreg_oper_date
  if @@error != 0 begin
    rollback transaction
    return
  end
end

-- Спецдеп -------------------------------------------------

-- if @qty_saldo < @bal_qty or @qty_saldo=0
-- .EXIT_MESSAGE('Не хватает паев для проводки по плану счетов ПИФ')

if isnull(@total_sum,0)=0
 if @bal_qty < @qty_saldo
  select @oper_sum=(@summ_saldo/@qty_saldo)*@bal_qty
 else
  select @oper_sum=@summ_saldo
else
 select @oper_sum=@total_sum

select @oper_sum=.ROUND_MONEY(@oper_sum,2)

.UPDATE_STATE
.ACTION_HISTORY

declare @comment varchar(255)
select @comment=.TYPE_NAME(@type_id)+' №'+isnull(@in_no,'')+' от '+isnull(convert(varchar,@in_date,104),'')

.OPERATION(@owner_id,@fund_plan_id,@sreg_oper_date,@acc96_id,@acc96_id,@oper_sum,'RUR',@sreg_oper_date,@bal_qty,@bal_qty,(@comment),N)
.UPDATE_SUBC(K,'partners',@d_pay_owner_id)
.UPDATE_SUBC(D,'partners',@pay_owner_id)
.SUBC_CHECK

update tp_pif_queries set
 stock_qty=@stock_qty,
 total_sum=@oper_sum
where id=@id


declare @sreg_acc_id_s numeric(18,0)

select @sreg_acc_id_s = td_depo_subacc.depo_acc_id
from td_depo_subacc
where td_depo_subacc.id = @subacc_id

.SR_REG_JOURNAL_ADD(@id,@sreg_acc_id_s,@stock_qty,@owner_id,null,@sreg_acc_id_s,null,null)

select @sreg_acc_id_s = td_depo_subacc.depo_acc_id
from td_depo_subacc
where td_depo_subacc.id = @new_subacc_id

.SR_REG_JOURNAL_ADD(@id,@sreg_acc_id_s,@stock_qty,@owner_id,null,@sreg_acc_id_s,null,null)

-- Отчеты реестра
declare @rep4outdoc_id numeric --для генерации исх. док-та

if (select acc_in_reg from td_pay_fond where id=@owner_id)=1
begin

 .SR_CREATE_REPORT('SR_REPORT_FOR_OPERATION','CREATE',121,@sreg_oper_date,@owner_id)

  --исходящий документ
  select @sreg_acc_id_s = td_depo_subacc.depo_acc_id
   from td_depo_subacc
   where td_depo_subacc.id = @subacc_id
  select @rep4outdoc_id=.TYPE_FIELD(id,121)
  .SR_CREATE_OUTDOC(@rep4outdoc_id,@id,@owner_id,null,@sreg_acc_id_s,null)

 .ARH_NUMBER_UPDATE

end

commit tran
  $ENDTEXT(14134011)
 $ENDACTION

 $ACTION(ACTION2)
  name=Данные (изменение)
  class=2
  form=D_PIF_MOVES_EDIT
  target_state=null
  procedure=ap_10000000000088372
  patterns=GENERIC_UPDATE_P2
  user_define=1
  isvisible=1
  istab=0
  posx=0
  posy=0
  width=0
  height=0
  proc_text=$TEXT(14134011)
create procedure dbo.%PROC% @sid varchar(30) = null,
.ARGLIST(ALL, 2)
as
declare @action_id numeric,
        @id numeric,
        @user_id numeric,
        @state_id numeric,
        @type_id numeric,
        @item_name varchar(100),
        @new_state_id numeric
begin tran

  select @action_id = %ACTION_ID%
   select @id = convert(numeric, @sid)

.CHECK_USER
.CHECK_UPDATE

.ARGCONVERT(ALL, 2)

.TEST_UNIQUE(ALL, 2)

.GET_PROPS(ALL,1)

if (select acc_in_reg from td_pay_fond where id=@owner_id)=1
begin
 .SREG_CHECK_SUBACC_OWNER(@subacc_id,@pay_owner_id)
 .SREG_CHECK_SUBACC_FUND(@subacc_id,@owner_id)
 .SREG_CHECK_SUBACC_OWNER(@new_subacc_id,@d_pay_owner_id)
 .SREG_CHECK_SUBACC_FUND(@new_subacc_id,@owner_id)
end

.PIF_ROUND_PAYS(@owner_id,@stock_qty,@stock_qty)

.UPDATE_ITEMS
.UPDATE(ALL,2)

--23/12/04----
update td_depo_docs
   set out_no=@agent_regs_no
 where id=@id
   and out_no is null

update td_depo_docs
   set out_date=@agent_regs_date
 where id=@id
   and out_date is null
--------------

.RELGEN
.UPDATE_STATE
.ACTION_HISTORY

commit tran
  $ENDTEXT(14134011)
 $ENDACTION

 $ACTION(ACTION3)
  name=Добавить
  class=1
  form=FORM1
  target_state=ED
  procedure=ap_10000000000088373
  patterns=GENERIC_INSERT_P1
  user_define=0
  isvisible=0
  istab=1
  posx=0
  posy=0
  width=2213
  height=1628
  proc_text=$TEXT(14134011)
create procedure dbo.%PROC% @sid varchar(30) = null,
.ARGLIST(ALL,1)
as
declare @action_id numeric,
        @id numeric,
        @user_id numeric,
        @state_id numeric,
        @type_id numeric,
        @item_name varchar(100),
        @new_state_id numeric
begin

  select @action_id = %ACTION_ID%
   select @id = convert(numeric, @sid)

.CHECK_USER
.CHECK_UPDATE

.ARGCONVERT(ALL,1)
.DEPO_GEN_NO(@in_no,@depo_doc_type)
.INIT_VARS(AFTER,ALL,1)

.TEST_UNIQUE(ALL,1)

.TEST_ORGANIZATION_PIF(@owner_id)

begin tran

.UPDATE(ALL,1)

.RELGEN
.UPDATE_STATE

.ACTION_HISTORY
commit tran

select @sid = convert(varchar,@id)
select @sid
end
  $ENDTEXT(14134011)

  $BIND(BIND1)
   type=TP_PIF_PAYS_MOVES
   action=ACTION2
   class=1
   order=1
   idname=null
  $ENDBIND

  $BIND(BIND2)
   type=SR_INFO4OPER
   action=ACTION_UPDATE
   class=1
   order=2
   idname=sid
  $ENDBIND
 $ENDACTION

 $ACTION(ACTION4)
  name=Изменить
  class=2
  form=FORM1
  target_state=null
  procedure=ap_10000000000088375
  patterns=GENERIC_UPDATE_P1
  user_define=0
  isvisible=0
  istab=1
  posx=0
  posy=0
  width=2217
  height=1476
  proc_text=$TEXT(14134011)
create procedure dbo.%PROC% @sid varchar(30) = null,
.ARGLIST(ALL,1)
as
declare @action_id numeric,
        @id numeric,
        @user_id numeric,
        @state_id numeric,
        @type_id numeric,
        @item_name varchar(100),
        @new_state_id numeric
begin tran

  select @action_id = %ACTION_ID%
   select @id = convert(numeric, @sid)

.CHECK_USER
.CHECK_UPDATE

.ARGCONVERT(ALL,1)
.DEPO_CHK_NO(@id,@in_no,@depo_doc_type)
.TEST_UNIQUE(ALL,1)

.UPDATE(ALL,1)

.RELGEN
.UPDATE_STATE
.ACTION_HISTORY

commit tran
select sid = convert(varchar, @id)
  $ENDTEXT(14134011)

  $BIND(BIND1)
   type=TP_PIF_PAYS_MOVES
   action=ACTION2
   class=1
   order=1
   idname=null
  $ENDBIND

  $BIND(BIND2)
   type=SR_INFO4OPER
   action=ACTION_UPDATE
   class=1
   order=2
   idname=sid
  $ENDBIND
 $ENDACTION

 $ACTION(ACTION5)
  name=Удалить
  class=9
  form=null
  target_state=DEL
  procedure=ap_10000000000088377
  patterns=GENERIC_MOVE
  user_define=0
  isvisible=0
  istab=0
  posx=0
  posy=0
  width=0
  height=0
  proc_text=$TEXT(14134012)
create procedure dbo.%PROC% @sid varchar(30) = null
as
declare @action_id numeric,
        @id numeric,
        @user_id numeric,
        @state_id numeric,
        @new_state_id numeric,
        @type_id numeric
begin tran

  select @action_id = %ACTION_ID%
   select @id = convert(numeric, @sid)

.CHECK_USER
.CHECK_UPDATE

.UPDATE_STATE
.ACTION_HISTORY

/*-------Проводки ----------*/


commit tran
  $ENDTEXT(14134012)

  $BIND(BIND1)
   type=TP_PIF_PAYS_MOVES
   action=D_PIF_MOVES_EDIT
   class=1
   order=1
   idname=null
  $ENDBIND
 $ENDACTION

 $ACTION(ACTION6)
  name=На редактирование
  class=9
  form=null
  target_state=ED
  procedure=ap_10000000000088379
  patterns=GENERIC_MOVE
  user_define=1
  isvisible=0
  istab=0
  posx=0
  posy=0
  width=0
  height=0
  proc_text=$TEXT(14134012)
create procedure dbo.%PROC% @sid varchar(30) = null
as
declare @action_id numeric,
        @id numeric,
        @user_id numeric,
        @state_id numeric,
        @new_state_id numeric,
        @type_id numeric
begin tran

  select @action_id = %ACTION_ID%
   select @id = convert(numeric, @sid)

.CHECK_USER
.CHECK_UPDATE

.SR_OUTDOC_EXISTS_CHECK(@id)

.GET_PROPS

.UPDATE_STATE
.ACTION_HISTORY

.OPERS_ROLL(ALL)

if .SR_FOR_PIF(@owner_id)=1
begin
 .SR_REG_JOURNAL_DEL(@id)
 .SR_REPORTS_DESTROY(@id)
end

commit tran
  $ENDTEXT(14134012)
 $ENDACTION

 $ACTION(ACTION_OPS)
  name=Провести
  class=9
  form=null
  target_state=PROV
  procedure=ap_30000000003451700
  patterns=GENERIC_MOVE
  user_define=1
  isvisible=0
  istab=0
  posx=0
  posy=0
  width=0
  height=0
  proc_text=$TEXT(14134012)
create procedure dbo.%PROC% @sid varchar(30) = null
as
declare @action_id numeric,
        @id numeric,
        @user_id numeric,
        @state_id numeric,
        @new_state_id numeric,
        @type_id numeric

begin tran
   select @action_id = %ACTION_ID%
   select @id = convert(numeric, @sid)

.CHECK_USER
.CHECK_UPDATE

.GET_PROPS

declare
 @fund_plan_id numeric,
 @acc96_id numeric,
 @sreg_acc_id numeric,
 @s_acc_id numeric,
 @new_acc_id numeric,
 @qty_saldo money,
 @bal_qty money,
 @summ_saldo money,
 @oper_sum money,
 @sreg_oper_date datetime,
 @alloc_date datetime,
 @stock_qty_bal .PIF_PAY_TYPE,
 @sum1 money,
 @sum2 money,
 @sum3 money,
 @dop_sum money,
 @loss_used_sum money,
 @income_sum money

.CHECK_START_END_DATE(@agent_regs_date,@owner_id)   --Добавлено 31.03.05 Демихов

if .SR_FOR_PIF(@owner_id)=1
begin
 .SREG_OPER_DATE(@id,@sreg_oper_date)
end
else
 select @sreg_oper_date=isnull(@calc_date,(.OPERDAY))

select @fund_plan_id = .ARG_PLAN('PIF_ACCOUNT')
select @acc96_id = .SD_ACCID_FROM_EFFNO(@fund_plan_id,'96.1')
.SALDO_FAST(@owner_id,'PIF_ACCOUNT',@sreg_oper_date,@acc96_id,K,Y,'partners',@pay_owner_id,N,N,@summ_saldo,@qty_saldo)

select @qty_saldo=isnull(@qty_saldo,0)
if isnull(@stock_qty,0)=0
 select @stock_qty=.PAYS_QTY_CALC(@qty_saldo,@owner_id)

select @bal_qty=.PAYS_QTY_BAL(@stock_qty,@owner_id)

.UPDATE_STATE
.ACTION_HISTORY

exec ap_pifpay_out_parts
 @owner_id,
 null,
 @pay_owner_id,
 @id,
 @sreg_oper_date,
 @sreg_oper_date,
 @stock_qty,
 null,
 null,
 null,
 null,
 null,
 1,             -- с проводками
 @id,
 @action_id,
 @action_history_id,
 @sum1 out,
 @sum2 out,
 @sum3 out,
 @oper_sum out, -- бал.стоимость
 @dop_sum out,  -- доп.расходы (пока не считаем!)
 @alloc_date out,         -- дата посл.партии
 @stock_qty_bal out,       -- все к-во с баланса
 0,
 @loss_used_sum out,       -- использованный убыток
 @income_sum out           -- прибыль

 if @@error != 0
 begin
  if @@trancount<>0 rollback tran
  return
 end

update tp_pif_queries set
 stock_qty=@stock_qty,
 total_sum=@oper_sum,
 calc_date=@sreg_oper_date
where id=@id

-- SREG ---------------------------------------------
declare @rep4outdoc_id numeric --для генерации исх. док-та

if .SR_FOR_PIF(@owner_id)=1
begin
 select @s_acc_id = depo_acc_id from td_depo_subacc where id = @subacc_id
 .SREG_CHECK_ACCOUNT2FUND(@s_acc_id,@owner_id)

 select @new_acc_id = depo_acc_id from td_depo_subacc where id = @new_subacc_id
 .SREG_CHECK_ACCOUNT2FUND(@new_acc_id,@owner_id)

 EXECUTE dbo.ap_op_sreg_move @sid = @sid,
                             @pays_qty=@bal_qty,
                             @pay_owner_id=@pay_owner_id,
                             @new_pay_owner_id=@d_pay_owner_id,
                             @subacc_id=@subacc_id,
                             @new_subacc_id=@new_subacc_id,
                             @owner_id=@owner_id,
                             @sr_op_date=@sreg_oper_date
 if @@error != 0 begin
   rollback transaction
   return
 end

 .SD_INDOC_CREATE4OPER(@id,null,@agent_regs_date,@agent_regs_no,@correspondent_id,@owner_id,@document_form_id,@folder_id,null)

 select @sreg_acc_id = depo_acc_id from td_depo_subacc where id = @subacc_id
 .SR_REG_JOURNAL_ADD(@id,@sreg_acc_id,@stock_qty,@owner_id,null,null,null,null)

-- 2 уведомления: 1-e -отчуждателю
 select @correspondent_id=@pay_owner_id
 .SR_CREATE_REPORT('SR_REPORT_FOR_OPERATION','CREATE',120,@sreg_oper_date,@owner_id)

  --исходящий документ - отчуждателю
  select @rep4outdoc_id=.TYPE_FIELD(id,120)
  .SR_CREATE_OUTDOC(@rep4outdoc_id,@id,@owner_id,null,@sreg_acc_id,null)

 select @sreg_acc_id = depo_acc_id from td_depo_subacc where id = @new_subacc_id
 .SR_REG_JOURNAL_ADD(@id,@sreg_acc_id,@stock_qty,@owner_id,null,null,null,null)

-- 2 уведомления: 2-e -приобретателю
 select @correspondent_id=@d_pay_owner_id
 .SR_CREATE_REPORT('SR_REPORT_FOR_OPERATION','CREATE',121,@sreg_oper_date,@owner_id)

  --исходящий документ - приобретателю
  select @rep4outdoc_id=.TYPE_FIELD(id,121)
  .SR_CREATE_OUTDOC(@rep4outdoc_id,@id,@owner_id,null,@sreg_acc_id,null)

end

commit tran
  $ENDTEXT(14134012)
 $ENDACTION

 $ACTION(ACTION_REFUSE)
  name=Отказать
  class=9
  form=null
  target_state=REF
  procedure=ap_30000000003400096
  patterns=null
  user_define=1
  isvisible=0
  istab=0
  posx=0
  posy=0
  width=0
  height=0
  proc_text=$TEXT(14134012)
create procedure dbo.%PROC% @sid varchar(30) = null
as
declare @action_id numeric,
        @id numeric,
        @user_id numeric,
        @state_id numeric,
        @new_state_id numeric,
        @type_id numeric
begin tran

  select @action_id = %ACTION_ID%
   select @id = convert(numeric, @sid)

.CHECK_USER
.CHECK_UPDATE

.UPDATE_STATE
.ACTION_HISTORY
.ARH_NUMBER_UPDATE

.GET_PROPS

declare @sreg_acc_id numeric
declare @sreg_oper_date datetime

.SREG_OPER_DATE(@id,@sreg_oper_date)

declare @rep4outdoc_id numeric --для генерации исх. док-та

if .SR_FOR_PIF(@owner_id)=1
begin
 .SD_INDOC_CREATE4OPER(@id,null,@agent_regs_date,@agent_regs_no,@correspondent_id,@owner_id,@document_form_id,@folder_id,null)
 select @sreg_acc_id = depo_acc_id from td_depo_subacc where id = @subacc_id
 .SR_REG_JOURNAL_ADD(@id,@sreg_acc_id,@stock_qty,@owner_id,null,null,1,null)
 select @sreg_acc_id = depo_acc_id from td_depo_subacc where id = @new_subacc_id
 .SR_REG_JOURNAL_ADD(@id,@sreg_acc_id,@stock_qty,@owner_id,null,null,1,null)
 .SR_CREATE_REPORT('SR_REPORT_REFUS','CREATE',11,@sreg_oper_date,@owner_id)

  --исходящий документ
  select @sreg_acc_id = depo_acc_id from td_depo_subacc where id = @subacc_id
  select @rep4outdoc_id=.TYPE_FIELD(id,11)
  .SR_CREATE_OUTDOC(@rep4outdoc_id,@id,@owner_id,null,@sreg_acc_id,null)
end

commit tran
  $ENDTEXT(14134012)
 $ENDACTION

 $ACTION(OP_SREG_MOVE)
  name=Проводка у спецрегистратора (между пайщиками)
  class=9
  form=null
  target_state=null
  procedure=ap_op_sreg_move
  patterns=GENERIC_MOVE
  user_define=0
  isvisible=1
  istab=0
  posx=0
  posy=0
  width=0
  height=0
  proc_text=$TEXT(14134012)
create procedure dbo.%PROC% @sid varchar(30) = null,
@pays_qty money = null,
@pay_owner_id numeric = null,
@new_pay_owner_id numeric = null,
@subacc_id numeric = null,
@new_subacc_id numeric = null,
@owner_id numeric = null,
@sr_op_date datetime
as
.BEGIN('N')

--.CHECK_USER
--.CHECK_UPDATE
.ACTION_HISTORY

.ID_VAR(@reg_plan_id)
.ID_VAR(@sreg_id)
.ID_VAR(@stock_id)
.ID_VAR(@p_subacc_id)
.ID_VAR(@new_p_subacc_id)
.ID_VAR(@reg_subacc_id)
.INT_VAR(@ret)
.NAME_VAR(@reg_code)

select @sreg_id=.SREG_ID
select @reg_code=(select upper(partner_code) from t_partners where id=@sreg_id)
select @reg_plan_id = .ARG_PLAN('SREG')
select @stock_id=.SREG_PIF_STOCK_ID(@owner_id)
if @sreg_id is null or @reg_plan_id is null or @stock_id is null
 .EXIT_MESSAGE('Не выполнены настройки для учета паев фонда в реестре')

if @subacc_id is null
begin
 .SREG_PAYER_SUBACC_ID(@p_subacc_id,@pay_owner_id)
end
else
begin
 .SREG_CHECK_SUBACC_OWNER(@subacc_id,@pay_owner_id)
 select @p_subacc_id=@subacc_id
end

if @new_subacc_id is null
begin
 .SREG_PAYER_SUBACC_ID(@new_p_subacc_id,@new_pay_owner_id)
end
else
begin
 .SREG_CHECK_SUBACC_OWNER(@new_subacc_id,@new_pay_owner_id)
 select @new_p_subacc_id=@new_subacc_id
end

.SREG_BLTEST_STOCK(@stock_id,@sr_op_date,@sreg_id)
.SREG_BLTEST_SUBACC(@p_subacc_id,'D',@sr_op_date,1,@sreg_id)
.SREG_BLTEST_SUBACC(@new_p_subacc_id,'C',@sr_op_date,1,@sreg_id)

exec @ret = ap_sreg_subacc_check_qty @plan_owner_code=@reg_code,
                         @plan_code='SREG',
                         @subacc_id=@p_subacc_id,
                         @stock_id=@stock_id,
                         @check_date=@sr_op_date,
                         @check_qty=@pays_qty,
                         @check_deb_or_cred=1
if @ret!=0
 .EXIT_MESSAGE('Операция приводит к отрицательным остаткам на разделе счета пайщика')

declare @doc_name varchar(255)
select @doc_name='Переход прав собственности на паи №' + isnull((select agent_regs_no from tp_pif_queries where id=@id),'') +
                   ' от ' + isnull((select convert(varchar,agent_regs_date,3) from tp_pif_queries where id=@id),'')

.OPERATION(@sreg_id,@reg_plan_id,@sr_op_date,'2','2',@pays_qty,null,@sr_op_date,0,0,@doc_name,0)
.UPDATE_SUBC(D,'stock_emis',@stock_id)
.UPDATE_SUBC(D,'reg_subacc',@p_subacc_id)
.UPDATE_SUBC(K,'stock_emis',@stock_id)
.UPDATE_SUBC(K,'reg_subacc',@new_p_subacc_id)
.SUBC_CHECK

.END
  $ENDTEXT(14134012)
 $ENDACTION

 $STATE2ACTION(BEG.ACTION3)
  state=BEG
  action=ACTION3
 $ENDSTATE2ACTION

 $STATE2ACTION(ED.ACTION1)
  state=ED
  action=ACTION1
 $ENDSTATE2ACTION

 $STATE2ACTION(ED.ACTION2)
  state=ED
  action=ACTION2
 $ENDSTATE2ACTION

 $STATE2ACTION(ED.ACTION4)
  state=ED
  action=ACTION4
 $ENDSTATE2ACTION

 $STATE2ACTION(ED.ACTION5)
  state=ED
  action=ACTION5
 $ENDSTATE2ACTION

 $STATE2ACTION(ED.ACTION_OPS)
  state=ED
  action=ACTION_OPS
 $ENDSTATE2ACTION

 $STATE2ACTION(ED.ACTION_REFUSE)
  state=ED
  action=ACTION_REFUSE
 $ENDSTATE2ACTION

 $STATE2ACTION(ED.D_PIF_MOVES_EDIT)
  state=ED
  action=D_PIF_MOVES_EDIT
 $ENDSTATE2ACTION

 $STATE2ACTION(ED.FORM1)
  state=ED
  action=FORM1
 $ENDSTATE2ACTION

 $STATE2ACTION(ED.FORM_FILTER)
  state=ED
  action=FORM_FILTER
 $ENDSTATE2ACTION

 $STATE2ACTION(ED.FORM_LIST)
  state=ED
  action=FORM_LIST
 $ENDSTATE2ACTION

 $STATE2ACTION(ED.OP_SREG_MOVE)
  state=ED
  action=OP_SREG_MOVE
 $ENDSTATE2ACTION

 $STATE2ACTION(PROV.ACTION6)
  state=PROV
  action=ACTION6
 $ENDSTATE2ACTION

 $STATE2ACTION(PROV.D_PIF_MOVES_EDIT)
  state=PROV
  action=D_PIF_MOVES_EDIT
 $ENDSTATE2ACTION

 $STATE2ACTION(PROV.FORM1)
  state=PROV
  action=FORM1
 $ENDSTATE2ACTION

 $STATE2ACTION(PROV.FORM_FILTER)
  state=PROV
  action=FORM_FILTER
 $ENDSTATE2ACTION

 $STATE2ACTION(PROV.FORM_LIST)
  state=PROV
  action=FORM_LIST
 $ENDSTATE2ACTION

 $STATE2ACTION(REF.ACTION6)
  state=REF
  action=ACTION6
 $ENDSTATE2ACTION

 $STATE2ACTION(REF.D_PIF_MOVES_EDIT)
  state=REF
  action=D_PIF_MOVES_EDIT
 $ENDSTATE2ACTION

 $STATE2ACTION(REF.FORM1)
  state=REF
  action=FORM1
 $ENDSTATE2ACTION

 $STATE2ACTION(REF.FORM_FILTER)
  state=REF
  action=FORM_FILTER
 $ENDSTATE2ACTION

 $STATE2ACTION(REF.FORM_LIST)
  state=REF
  action=FORM_LIST
 $ENDSTATE2ACTION

 $STATE2PROP(BEG.AGENT_REGS_DATE)
  state=BEG
  prop=AGENT_REGS_DATE
  enable=1
  mandatory=1
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(BEG.AGENT_REGS_NO)
  state=BEG
  prop=AGENT_REGS_NO
  enable=1
  mandatory=1
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(BEG.CALC_DATE)
  state=BEG
  prop=CALC_DATE
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(BEG.CORRESPONDENT_ID)
  state=BEG
  prop=CORRESPONDENT_ID
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(BEG.DEPO_DOC_TYPE)
  state=BEG
  prop=DEPO_DOC_TYPE
  enable=1
  mandatory=1
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(BEG.DOCUMENT_FORM_ID)
  state=BEG
  prop=DOCUMENT_FORM_ID
  enable=1
  mandatory=1
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(BEG.DOC_COMMENT)
  state=BEG
  prop=DOC_COMMENT
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(BEG.D_PAY_OWNER_ID)
  state=BEG
  prop=D_PAY_OWNER_ID
  enable=1
  mandatory=1
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(BEG.FOLDER_ID)
  state=BEG
  prop=FOLDER_ID
  enable=1
  mandatory=1
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(BEG.FOUNDATION_ID)
  state=BEG
  prop=FOUNDATION_ID
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(BEG.INITIATOR_ID)
  state=BEG
  prop=INITIATOR_ID
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(BEG.IN_DATE)
  state=BEG
  prop=IN_DATE
  enable=1
  mandatory=1
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(BEG.IN_NO)
  state=BEG
  prop=IN_NO
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(BEG.NEW_SUBACC_ID)
  state=BEG
  prop=NEW_SUBACC_ID
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(BEG.OUT_DATE)
  state=BEG
  prop=OUT_DATE
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(BEG.OUT_NO)
  state=BEG
  prop=OUT_NO
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(BEG.OWNER_ID)
  state=BEG
  prop=OWNER_ID
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(BEG.PAYER_ID)
  state=BEG
  prop=PAYER_ID
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(BEG.PAY_OWNER_ID)
  state=BEG
  prop=PAY_OWNER_ID
  enable=1
  mandatory=1
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(BEG.PAY_SUM)
  state=BEG
  prop=PAY_SUM
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(BEG.STOCK_QTY)
  state=BEG
  prop=STOCK_QTY
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(BEG.SUBACC_ID)
  state=BEG
  prop=SUBACC_ID
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(BEG.SUM_CUR_ID)
  state=BEG
  prop=SUM_CUR_ID
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(BEG.WHO_GET)
  state=BEG
  prop=WHO_GET
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(BEG.WHO_PUT)
  state=BEG
  prop=WHO_PUT
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(ED.AGENT_REGS_DATE)
  state=ED
  prop=AGENT_REGS_DATE
  enable=1
  mandatory=1
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(ED.AGENT_REGS_NO)
  state=ED
  prop=AGENT_REGS_NO
  enable=1
  mandatory=1
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(ED.CALC_DATE)
  state=ED
  prop=CALC_DATE
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(ED.CORRESPONDENT_ID)
  state=ED
  prop=CORRESPONDENT_ID
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(ED.DEPO_DOC_TYPE)
  state=ED
  prop=DEPO_DOC_TYPE
  enable=1
  mandatory=1
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(ED.DOCUMENT_FORM_ID)
  state=ED
  prop=DOCUMENT_FORM_ID
  enable=1
  mandatory=1
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(ED.DOC_COMMENT)
  state=ED
  prop=DOC_COMMENT
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(ED.D_PAY_OWNER_ID)
  state=ED
  prop=D_PAY_OWNER_ID
  enable=1
  mandatory=1
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(ED.FOLDER_ID)
  state=ED
  prop=FOLDER_ID
  enable=1
  mandatory=1
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(ED.INITIATOR_ID)
  state=ED
  prop=INITIATOR_ID
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(ED.IN_DATE)
  state=ED
  prop=IN_DATE
  enable=1
  mandatory=1
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(ED.IN_NO)
  state=ED
  prop=IN_NO
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(ED.NEW_SUBACC_ID)
  state=ED
  prop=NEW_SUBACC_ID
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(ED.OUT_DATE)
  state=ED
  prop=OUT_DATE
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(ED.OUT_NO)
  state=ED
  prop=OUT_NO
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(ED.OWNER_ID)
  state=ED
  prop=OWNER_ID
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(ED.PAYER_ID)
  state=ED
  prop=PAYER_ID
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(ED.PAY_OWNER_ID)
  state=ED
  prop=PAY_OWNER_ID
  enable=1
  mandatory=1
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(ED.PAY_SUM)
  state=ED
  prop=PAY_SUM
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(ED.STOCK_QTY)
  state=ED
  prop=STOCK_QTY
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(ED.SUBACC_ID)
  state=ED
  prop=SUBACC_ID
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(ED.SUM_CUR_ID)
  state=ED
  prop=SUM_CUR_ID
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(ED.WHO_GET)
  state=ED
  prop=WHO_GET
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(ED.WHO_PUT)
  state=ED
  prop=WHO_PUT
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP
$ENDDOC