# Date: 27/01/06
# Version: 105

$DOC(STOCK_REDEMPTION)
 name=Групповые операции с ЦБ
 class=1
 product=ALD_FUND
 name_formula=.DEPO_OPER_ITEM_NAME
 remark_formula=$TEXT(14474928)
.ITEM_NAME(@perpose_id) +' ЦБ:' +.ITEM_NAME(@stock_id) + ' Кол.:' + .TO_STR_RND(@stock_qty) + ' Доход на 1 ЦБ:'+ .TO_STR(@coupon_sum) + ' Контрагент:'+ .ITEM_NAME(@move_contragent_id)

 $ENDTEXT(14474928)

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

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

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

 $STATE(OP_END)
  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=null
  field_prec=null
  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=null
  field_prec=null
  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=null
  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=null
  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=null
  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=null
  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=null
  field_prec=null
  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=null
  field_prec=null
  page=1
  order=12
  init_class=1
  init_formula=1
  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(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=null
  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=2
  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(FOUNDATION_REMARK)
  name=Комментарий по документам - основаниям
  field_name=foundation_remark
  table_name=td_depo_docs
  field_type=varchar
  field_length=255
  field_scale=null
  field_prec=null
  page=2
  order=17
  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=18
  init_class=1
  init_formula=.ORGANIZATION
  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(PERPOSE_ID)
  name=Назначение
  field_name=perpose_id
  table_name=td_depo_docs
  field_type=numeric
  field_length=9
  field_scale=0
  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(MOVE_COMMENT)
  name=Комментарий
  field_name=move_comment
  table_name=td_stock_moves
  field_type=varchar
  field_length=255
  field_scale=null
  field_prec=null
  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(OPER_FORM_ID)
  name=Форма операции
  field_name=oper_form_id
  table_name=td_stock_moves
  field_type=numeric
  field_length=9
  field_scale=0
  field_prec=18
  page=2
  order=24
  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(STOCK_ID)
  name=ценная бумага
  field_name=stock_id
  table_name=ts_sd_stock_moves
  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(STOCK_PRICE)
  name=Сумма сделки
  field_name=stock_price
  table_name=ts_sd_stock_moves
  field_type=money
  field_length=8
  field_scale=null
  field_prec=null
  page=2
  order=25
  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(STOCK_PRICE_CUR_ID)
  name=Валюта сделки
  field_name=stock_price_cur_id
  table_name=ts_sd_stock_moves
  field_type=numeric
  field_length=9
  field_scale=0
  field_prec=18
  page=2
  order=26
  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(COUPON_SUM)
  name=Сумма на ЦБ
  field_name=coupon_sum
  table_name=ts_sd_stock_moves
  field_type=money
  field_length=8
  field_scale=null
  field_prec=null
  page=2
  order=27
  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(FOUND_DOC_ID)
  name=Договор счета ДЕПО
  field_name=found_doc_id
  table_name=ts_sd_stock_moves
  field_type=numeric
  field_length=9
  field_scale=0
  field_prec=18
  page=2
  order=22
  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(MOVE_CONTRAGENT_ID)
  name=ID контрагента для начисления
  field_name=move_contragent_id
  table_name=ts_sd_stock_moves
  field_type=numeric
  field_length=9
  field_scale=0
  field_prec=18
  page=2
  order=28
  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(STOCK_QTY)
  name=Количество
  field_name=stock_qty
  table_name=ts_sd_stock_moves
  field_type=money
  field_length=8
  field_scale=null
  field_prec=null
  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(STOCK_NEW_ID)
  name=Новая ЦБ
  field_name=stock_new_id
  table_name=ts_sd_stock_moves
  field_type=numeric
  field_length=9
  field_scale=0
  field_prec=18
  page=2
  order=29
  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_NEW_QTY)
  name=Количество новых ЦБ
  field_name=stock_new_qty
  table_name=ts_sd_stock_moves
  field_type=money
  field_length=8
  field_scale=null
  field_prec=null
  page=2
  order=30
  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

 $RELATION(REL1)
  class=0
  type=partners
  form=null
  prop=MOVE_CONTRAGENT_ID
  idname=null
  order=5
 $ENDRELATION

 $RELATION(REL2)
  class=0
  type=TARGET_PURPOSES
  form=null
  prop=PERPOSE_ID
  idname=null
  order=4
 $ENDRELATION

 $RELATION(REL3)
  class=0
  type=partners
  form=null
  prop=INITIATOR_ID
  idname=null
  order=null
 $ENDRELATION

 $RELATION(REL4)
  class=0
  type=partners
  form=null
  prop=CORRESPONDENT_ID
  idname=null
  order=null
 $ENDRELATION

 $RELATION(REL5)
  class=1
  type=t_operations
  form=item_opers_list
  prop=null
  idname=item_id_s
  order=130
 $ENDRELATION

 $RELATION(REL6)
  class=1
  type=actions_history
  form=uo_actions_history_list
  prop=null
  idname=null
  order=120
 $ENDRELATION

 $RELATION(REL7)
  class=1
  type=reports
  form=uo_reports_page_list
  prop=null
  idname=foundation_id_s
  order=110
 $ENDRELATION

 $RELATION(REL8)
  class=1
  type=foundation_docs
  form=uo_foundation_docs_list
  prop=null
  idname=depo_doc_id_s
  order=20
 $ENDRELATION

 $RELATION(REL9)
  class=1
  type=activdocs
  form=ACTION1
  prop=null
  idname=null
  order=1000
 $ENDRELATION

 $RELATION(REL10)
  class=0
  type=pif_fund
  form=null
  prop=OWNER_ID
  idname=null
  order=null
 $ENDRELATION

 $RELATION(REL11)
  class=0
  type=items
  form=null
  prop=FOUNDATION_ID
  idname=null
  order=3
 $ENDRELATION

 $RELATION(REL12)
  class=0
  type=DOG_DEALINGS_SALE
  form=null
  prop=FOUNDATION_ID
  idname=null
  order=null
 $ENDRELATION

 $RELATION(REL13)
  class=0
  type=partners
  form=null
  prop=PAYER_ID
  idname=null
  order=null
 $ENDRELATION

 $RELATION(REL14)
  class=0
  type=td_stock_emis
  form=null
  prop=STOCK_ID
  idname=null
  order=1
 $ENDRELATION

 $RELATION(REL16)
  class=0
  type=depo_subacc
  form=null
  prop=null
  idname=null
  order=null
 $ENDRELATION

 $RELATION(REL17)
  class=4
  type=d_depo_folders
  form=null
  prop=FOLDER_ID
  idname=null
  order=null
 $ENDRELATION

 $RELATION(REL18)
  class=0
  type=items
  form=null
  prop=FOUND_DOC_ID
  idname=null
  order=2
 $ENDRELATION

 $RELATION(REL15)
  class=0
  type=td_stock_emis
  form=null
  prop=STOCK_NEW_ID
  idname=null
  order=6
 $ENDRELATION

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

 $FORM(D_COUPON_OUT_VIEW)
  name=Данные
  class=5
  filter=null
  target_state=
  uo=uo_depo_p2_edit
  dw=d_coupon_out_view
  procedure=ap_50635000000027466
  patterns=GENERIC_VIEW_ITEM_P2
  user_define=0
  isvisible=1
  istab=0
  posx=0
  posy=0
  width=0
  height=0
  proc_text=$TEXT(14474937)
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

.VIEW_ITEM(ALL,2)

end
  $ENDTEXT(14474937)

  $ACTION2RELATION(REL16.DEPO_SUBACC_NAME)
   relation=REL16
   where=null
   prop=DEPO_SUBACC_NAME
   order=5
   alias=keep_subacc_name
  $ENDACTION2RELATION

  $ACTION2RELATION(REL16.DEPO_SUBACC_NO)
   relation=REL16
   where=null
   prop=DEPO_SUBACC_NO
   order=13
   alias=keep_subacc_no
  $ENDACTION2RELATION

  $ACTION2RELATION(REL14.EMMITENT_ID)
   relation=REL14
   where=null
   prop=EMMITENT_ID
   order=1
   alias=emmitent_id_s
  $ENDACTION2RELATION

  $ACTION2RELATION(REL14.STOCK_CODE)
   relation=REL14
   where=null
   prop=STOCK_CODE
   order=3
   alias=stock_code
  $ENDACTION2RELATION

  $ACTION2RELATION(REL14.STOCK_NAME)
   relation=REL14
   where=null
   prop=STOCK_NAME
   order=4
   alias=stock_name
  $ENDACTION2RELATION

  $ACTION2RELATION(REL14.STOCK_TYPE_ID)
   relation=REL14
   where=null
   prop=STOCK_TYPE_ID
   order=6
   alias=stock_type_id_s
  $ENDACTION2RELATION

  $ACTION2RELATION(REL11.ITEM_NAME)
   relation=REL11
   where=null
   prop=ITEM_NAME
   order=2
   alias=dog_name
  $ENDACTION2RELATION

  $ACTION2RELATION(REL11.ITEM_REMARK)
   relation=REL11
   where=null
   prop=ITEM_REMARK
   order=4
   alias=dog_remark
  $ENDACTION2RELATION

  $ACTION2RELATION(REL18.ITEM_NAME)
   relation=REL18
   where=null
   prop=ITEM_NAME
   order=2
   alias=dog_depo_name
  $ENDACTION2RELATION

  $ACTION2RELATION(REL18.ITEM_REMARK)
   relation=REL18
   where=null
   prop=ITEM_REMARK
   order=4
   alias=dog_depo_remark
  $ENDACTION2RELATION

  $ACTION2RELATION(REL2.CODE)
   relation=REL2
   where=null
   prop=CODE
   order=1
   alias=purpose_code
  $ENDACTION2RELATION

  $ACTION2RELATION(REL2.NAME)
   relation=REL2
   where=null
   prop=NAME
   order=2
   alias=purpose_name
  $ENDACTION2RELATION

  $ACTION2RELATION(REL1.PARTNER_CODE)
   relation=REL1
   where=null
   prop=PARTNER_CODE
   order=1
   alias=move_contr_code
  $ENDACTION2RELATION

  $ACTION2RELATION(REL1.PARTNER_NAME)
   relation=REL1
   where=null
   prop=PARTNER_NAME
   order=2
   alias=move_contr_name
  $ENDACTION2RELATION

  $ACTION2RELATION(REL15.EMMITENT_ID)
   relation=REL15
   where=null
   prop=EMMITENT_ID
   order=32
   alias=new_emmitent_id_s
  $ENDACTION2RELATION

  $ACTION2RELATION(REL15.STOCK_CODE)
   relation=REL15
   where=null
   prop=STOCK_CODE
   order=33
   alias=new_stock_code
  $ENDACTION2RELATION

  $ACTION2RELATION(REL15.STOCK_NAME)
   relation=REL15
   where=null
   prop=STOCK_NAME
   order=34
   alias=new_stock_name
  $ENDACTION2RELATION

  $ACTION2RELATION(REL15.STOCK_TYPE_ID)
   relation=REL15
   where=null
   prop=STOCK_TYPE_ID
   order=35
   alias=new_stock_type_id_s
  $ENDACTION2RELATION
 $ENDFORM

 $FORM(D_STOCK_REDEMPTION_LIST)
  name=Список операций
  class=4
  filter=FORM2
  target_state=
  uo=uo_list
  dw=d_stock_redemption_list
  procedure=ap_60705000000031116
  patterns=GENERIC_VIEW_LIST
  user_define=0
  isvisible=0
  istab=0
  posx=0
  posy=0
  width=4041
  height=1528
  proc_text=$TEXT(14474941)
create procedure dbo.%PROC% @sid varchar(30) = null
   .ARGLIST_FILTER
as
declare
        @action_id numeric,
        @user_id numeric,
        @state_id numeric,
        @type_id numeric
begin

set nocount on

select @action_id = %ACTION_ID%

.CHECK_USER
.CHECK_VIEW

.ARGCONVERT_FILTER

.VIEW_LIST
and td_depo_docs.owner_id=.ORGANIZATION

end
  $ENDTEXT(14474941)

  $ACTION2RELATION(REL2.NAME)
   relation=REL2
   where=null
   prop=NAME
   order=2
   alias=purpose_name
  $ENDACTION2RELATION

  $ACTION2RELATION(REL14.STOCK_NAME)
   relation=REL14
   where=null
   prop=STOCK_NAME
   order=18
   alias=stock_name
  $ENDACTION2RELATION

  $CALC(OP_DATE)
   class=1
   type=datetime
   calc_lenght=null
   calc_prec=null
   calc_scale=null
   formula=(select op_date from t_sd_info4oper where id=t_items.id)
   label=null
   order=1
  $ENDCALC
 $ENDFORM

 $FORM(FORM1)
  name=Просмотр
  class=5
  filter=null
  target_state=
  uo=uo_edit
  dw=d_sdepo_oper_p1
  procedure=ap_50635000000027461
  patterns=GENERIC_VIEW_ITEM_P1
  user_define=0
  isvisible=0
  istab=1
  posx=0
  posy=0
  width=0
  height=0
  proc_text=$TEXT(14474941)
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_INFO4OPER(@id)
.VIEW_ITEM(ALL,1)
/*
.ACTION_HISTORY
*/
end
  $ENDTEXT(14474941)

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

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

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

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

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

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

  $ACTION2RELATION(REL10.CTRL_COMP_ID)
   relation=REL10
   where=null
   prop=CTRL_COMP_ID
   order=null
   alias=ctrl_comp_id_s
  $ENDACTION2RELATION

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

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

  $BIND(BIND1)
   type=STOCK_REDEMPTION
   action=D_COUPON_OUT_VIEW
   class=1
   order=1
   idname=null
  $ENDBIND

  $BIND(BIND2)
   type=activdocs
   action=ACTION1
   class=0
   order=3
   idname=null
  $ENDBIND

  $BIND(BIND3)
   type=SD_INFO4OPER
   action=FORM_ED
   class=1
   order=10
   idname=sid
  $ENDBIND
 $ENDFORM

 $FORM(FORM2)
  name=Фильтр
  class=6
  filter=null
  target_state=
  uo=uo_filter
  dw=d_stock_redemption_filter
  procedure=ap_60805000000343968
  patterns=null
  user_define=0
  isvisible=0
  istab=0
  posx=0
  posy=0
  width=2126
  height=820
  proc_text=$TEXT(14474942)
create procedure dbo.%PROC%
as
begin

declare @type_id numeric
select @type_id=.TYPE_ID_FROM_CODE_FUNC('stock_redemption')

select
convert(datetime, null) as in_date_db,
convert(datetime, null) as in_date_de,
convert(varchar(255), null) as in_no,
convert(varchar(30), null) as perpose_id_s,
convert(varchar(30), null) as stock_id_s,
convert(varchar(255), null) as move_comment,
convert(varchar(30), null) as move_contragent_id_s,
convert(varchar(255), null) as stock_name,
convert(varchar(255), null) as purpose_name,
convert(varchar(255), null) as move_contr_name,
convert(varchar(30), @type_id) as type_id_s

end
  $ENDTEXT(14474942)

  $FILTER(PERPOSE_ID)
   type=1
   label=Назначение
   prop=PERPOSE_ID
   arg_code=null
   arg_type=null
   arg_length=null
   arg_prec=null
   arg_scale=null
  $ENDFILTER

  $FILTER(MOVE_CONTRAGENT_ID)
   type=1
   label=ID контрагента для начисления
   prop=MOVE_CONTRAGENT_ID
   arg_code=null
   arg_type=null
   arg_length=null
   arg_prec=null
   arg_scale=null
  $ENDFILTER

  $FILTER(STOCK_ID)
   type=1
   label=ценная бумага
   prop=STOCK_ID
   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(MOVE_COMMENT)
   type=3
   label=Комментарий
   prop=MOVE_COMMENT
   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
 $ENDFORM

 $ACTION(ACTION1)
  name=Подтверждение
  class=9
  form=null
  target_state=OP_END
  procedure=ap_50635000000027477
  patterns=GENERIC_MOVE
  user_define=1
  isvisible=0
  istab=1
  posx=0
  posy=0
  width=0
  height=0
  proc_text=$TEXT(14474942)
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(@stock_acc_id)
.ID_VAR(@coupon_acc_id)
.ID_VAR(@pol_coupon_acc_id)
.ID_VAR(@contr_account_id)
.ID_VAR(@obl_account_id)
.ID_VAR(@add_account_id)
.ID_VAR(@div_account_id)
.ID_VAR(@div_add_account_id)
.ID_VAR(@obl_add_account_id)
.ID_VAR(@emi_contragent_id)
.ID_VAR(@subc3_type_id)
.ID_VAR(@subc3_item_id)
.ID_VAR(@fund_plan_id)
.ID_VAR(@metod_id)
.ID_VAR(@sum_metod_id)
.ID_VAR(@asset_manager_id)
.ID_VAR(@part_id)
.INT_VAR(@purpose_code)
.NAME_VAR(@doc_name)
.NAME_VAR(@fund_type_code)
.NAME_VAR(@subc_str)
.MONEY_VAR(@all_stock_qty)
.MONEY_VAR(@acc_stock_qty)
.MONEY_VAR(@all_sum)
.MONEY_VAR(@diff)
.MONEY_VAR(@coupon_bal_sum_lf)
.MONEY_VAR(@coupon_qty_sum_lf)
.MONEY_VAR(@coupon_bal_sum_total)

.ID_VAR(@comis_acc_id)
.ID_VAR(@overv_acc_id)
.ID_VAR(@add_acc_id)
.MONEY_VAR(@comis_bal_sum)
.MONEY_VAR(@overv_bal_sum)
.MONEY_VAR(@comis_bal_sum_total)
.MONEY_VAR(@overv_bal_sum_total)
.MONEY_VAR(@oper_sum)
.NAME_VAR(@oper_doc_name)

.MONEY_VAR(@op_in_sum)
.MONEY_VAR(@op_in_qty)
.ID_VAR(@op_in_stock_id)

declare @sd_scha_2005_d datetime

select @sd_scha_2005_d=convert(datetime,(.GET_CONST('SD_SCHA_2005')),3)

declare @oper_date datetime

if @owner_id is null
.EXIT_MESSAGE('Задайте фонд')

.GET_SD_OPER_DATE(@oper_date,@id)

select @fund_type_code = lower(.ITEM_TYPE_CODE(@owner_id))
.GET_PIF_METHODS(@owner_id,@metod_id,@sum_metod_id)

select @emi_contragent_id = @move_contragent_id

if @fund_type_code = 'pif_fund'
begin
 select @fund_plan_id = .ARG_PLAN('PIF_ACCOUNT')
 select @stock_acc_id = .SD_ACCID_FROM_EFFNO(@fund_plan_id,'58.1')
 select @coupon_acc_id = .SD_ACCID_FROM_EFFNO(@fund_plan_id,'76.6')
 select @pol_coupon_acc_id = .SD_ACCID_FROM_EFFNO(@fund_plan_id,'76.7')
 select @contr_account_id = .SD_ACCID_FROM_EFFNO(@fund_plan_id,'76.5.3')
 select @obl_account_id = .SD_ACCID_FROM_EFFNO(@fund_plan_id,'76.16')
 select @add_account_id = .SD_ACCID_FROM_EFFNO(@fund_plan_id,'96.3.1')
 select @obl_add_account_id = .SD_ACCID_FROM_EFFNO(@fund_plan_id,'96.3.5')
 select @div_add_account_id = .SD_ACCID_FROM_EFFNO(@fund_plan_id,'96.3.3')
 select @div_account_id = .SD_ACCID_FROM_EFFNO(@fund_plan_id,'76.9')
end
else if @fund_type_code = 'npf_fund'
begin
 select @fund_plan_id = .ARG_PLAN('NPF_ACCOUNT')
 select @asset_manager_id = isnull(@initiator_id,@owner_id)
 select @stock_acc_id = .SD_ACCID_FROM_EFFNO(@fund_plan_id,'58.1')
 select @coupon_acc_id = .SD_ACCID_FROM_EFFNO(@fund_plan_id,'76.6')
 select @pol_coupon_acc_id = .SD_ACCID_FROM_EFFNO(@fund_plan_id,'76.7')
 select @div_account_id = .SD_ACCID_FROM_EFFNO(@fund_plan_id,'76.9')
 if @owner_id = @asset_manager_id /* При размещении НПФ*/
 begin
  select @add_account_id = .SD_ACCID_FROM_EFFNO(@fund_plan_id,'80.2')
  select @contr_account_id = .SD_ACCID_FROM_EFFNO(@fund_plan_id,'76.4')
 end
 else /* При размещении УК*/
 begin
  select @add_account_id = .SD_ACCID_FROM_EFFNO(@fund_plan_id,'80.1')
  select @contr_account_id = .SD_ACCID_FROM_EFFNO(@fund_plan_id,'76.5')
 end
 select @obl_account_id = @contr_account_id
 select @div_add_account_id = @add_account_id
 select @obl_add_account_id = @add_account_id
end

if @sd_scha_2005_d <= @oper_date
begin
  select @comis_acc_id = .SD_ACCID_FROM_EFFNO(@fund_plan_id,'58.10')
  select @overv_acc_id = .SD_ACCID_FROM_EFFNO(@fund_plan_id,'58.11')
end
else
begin
  select @comis_acc_id = @stock_acc_id
  select @overv_acc_id = @stock_acc_id
end

select @doc_name = .ITEM_NAME(@perpose_id)
select @purpose_code=.PURPOSE_CODE(@perpose_id)

--------------------------------------
-- количество бумаг и сумма начисления
--------------------------------------
if @fund_type_code = 'pif_fund'
begin
 .SALDO_FAST(@owner_id,@fund_plan_id,@oper_date,@stock_acc_id,D,Y,'stock_emis',@stock_id,N,N,N,@acc_stock_qty)
end
if @fund_type_code = 'npf_fund'
begin
 .SALDO_FAST(@owner_id,@fund_plan_id,@oper_date,@stock_acc_id,D,Y,'stock_emis',@stock_id,'asset_manager',@asset_manager_id,N,@acc_stock_qty)
end

if (@acc_stock_qty < @stock_qty and isnull(@stock_qty,0) != 0) or (isnull(@acc_stock_qty,0) = 0)
begin
 .EXIT_MESSAGE('Не хватает ценных бумаг на счете 58.1 бухгалтерского учета фонда')
end

if isnull(@stock_qty,0) = 0 /* Количество ЦБ не задано*/
begin
 select @all_stock_qty=@acc_stock_qty
end
else
 select @all_stock_qty=@stock_qty

select @all_sum=@all_stock_qty * @coupon_sum

----------------------------
-- Начисление дивидендов (6011)
----------------------------
if @purpose_code = 6011
begin
 .UPDATE_STATE
 .ACTION_HISTORY
-- PIF:76.9-96.3.3 NPF:76.9-80.2(1)
 .OPERATION(@owner_id,@fund_plan_id,@oper_date,@div_account_id,@div_add_account_id,@all_sum,'RUR',@oper_date,null,null,@doc_name,N)
 .UPDATE_SUBC(D,'partners',@emi_contragent_id)
 if @fund_type_code = 'npf_fund'
 begin
  .UPDATE_SUBC(D,'asset_manager',@asset_manager_id)
  .UPDATE_SUBC(K,'asset_manager',@asset_manager_id)
 end
 .SUBC_CHECK
end
else
------------------------------------------------
-- Начисление ПНКД (6010), Погашение ЦБ (6012), Переоценка ЦБ (6014)
-- Конвертация (6015), Мена (6016)
------------------------------------------------
begin
------ расчет партий для списания
if @fund_type_code = 'pif_fund'
begin
 select @subc3_type_id = .SUBCTYPE_FROM_CODE('stock_emis')
 select @subc3_item_id = @stock_id
end
else
begin
 select @subc3_type_id = .SUBCTYPE_FROM_CODE('asset_manager')
 select @subc3_item_id = @asset_manager_id
end
.TRANSACTION_SAVE
if @purpose_code in (6012,6014,6015,6016) -- по балансу
begin
 .TOTALS_QUERY_SUB(@owner_id,@fund_plan_id,@oper_date,@oper_date,@stock_acc_id,'stock_emis',@stock_id,'doc_item',N,(.FROM_SUBC3),(.WHERE_SUBC3(@subc3_type_id,@subc3_item_id)),L,N,Y,N,Y)
 delete #tmp_oss where q_saldo_de<=0 or saldo_de<0
 if isnull((select count(*) from #tmp_oss),0) = 0
 begin
  .DROP_QUERY_TABLES(#tmp_oss)
  .TRANSACTION_RESTORE
  .EXIT_MESSAGE('Не выдана разбивка по документам')
 end
end
-- по УНКД
.TOTALS_QUERY_SUB(@owner_id,@fund_plan_id,@oper_date,@oper_date,@coupon_acc_id,'stock_emis',@stock_id,'doc_item',N,(.FROM_SUBC3),(.WHERE_SUBC3(@subc3_type_id,@subc3_item_id)),L,N,Y,N,Y,#tmp_coupon)
delete #tmp_coupon where q_saldo_de<=0 or saldo_de<0


-- по Комиссиям
.TOTALS_QUERY_SUB(@owner_id,@fund_plan_id,@oper_date,@oper_date,@comis_acc_id,'stock_emis',@stock_id,'doc_item',N,(.FROM_SUBC3),(.WHERE_SUBC3(@subc3_type_id,@subc3_item_id)),L,N,Y,N,Y,#tmp_comis)
delete #tmp_comis where saldo_de<0

-- по Переоценке
.TOTALS_QUERY_SUB(@owner_id,@fund_plan_id,@oper_date,@oper_date,@overv_acc_id,'stock_emis',@stock_id,'doc_item',N,(.FROM_SUBC3),(.WHERE_SUBC3(@subc3_type_id,@subc3_item_id)),L,N,Y,N,Y,#tmp_overv)
delete #tmp_overv where saldo_de<0


-- ПРОВОДКИ
begin tran
.UPDATE_STATE
.ACTION_HISTORY

------------------------------
-- Начисление купонного дохода
------------------------------
if @purpose_code = 6010
begin
 ----- зачисление ожидаемой суммы
 -- PIF:76.16-76.7 NPF:76.5(4)-76.7
 .OPERATION(@owner_id,@fund_plan_id,@oper_date,@obl_account_id,@pol_coupon_acc_id,@all_sum,'RUR',@oper_date,null,null,@doc_name,N)
 .UPDATE_SUBC(K,'stock_emis',@stock_id)
 if @fund_type_code = 'npf_fund'
 begin
  .UPDATE_SUBC(K,'asset_manager',@asset_manager_id)
  if @asset_manager_id = @owner_id /* При размещениии НПФ*/
  begin
   .UPDATE_SUBC(D,'partners',@emi_contragent_id)
  end
  else
  begin /* Через УК */
   .UPDATE_SUBC(D,'partners_cont',@emi_contragent_id)
   .UPDATE_SUBC(D,'partners',@asset_manager_id)
  end
 end
 else
 begin
  .UPDATE_SUBC(D,'partners',@emi_contragent_id)
 end
 .SUBC_CHECK

 --------- Партионное списание ПКНД 76.7-76.6
 if isnull((select count(*) from #tmp_coupon),0)!=0
 begin
  .LIFO_FIFO_BEGIN(#tmp_coupon,1,@all_stock_qty,@id)
  .OPERATION(@owner_id,@fund_plan_id,@oper_date,@pol_coupon_acc_id,@coupon_acc_id,@op_sum_lf,'RUR',@oper_date,null,@op_qty_lf,@doc_name,N)
  .UPDATE_SUBC(D,'stock_emis',@stock_id)
  .UPDATE_SUBC(K,'stock_emis',@stock_id)
  .UPDATE_SUBC(K,'doc_item',@subc2_id_lf)
  if @fund_type_code = 'npf_fund'
  begin
   .UPDATE_SUBC(D,'asset_manager',@asset_manager_id)
   .UPDATE_SUBC(K,'asset_manager',@asset_manager_id)
  end
  .SUBC_CHECK
  .LIFO_FIFO_END
  select @diff = @all_sum-@bal_sum_total_lf
 end
 else
  select @diff = @all_sum

 --- Отнесение на прибыли или убытки -- PIF:76.7<>96.3.5 NPF:76.7-80.2(1)
 if @diff > 0 /* Прибыль */
 begin
  .OPERATION(@owner_id,@fund_plan_id,@oper_date,@pol_coupon_acc_id,@obl_add_account_id,@diff,'RUR',@oper_date,null,null,@doc_name,N)
  .UPDATE_SUBC(D,'stock_emis',@stock_id)
  if @fund_type_code = 'npf_fund'
  begin
   .UPDATE_SUBC(D,'asset_manager',@asset_manager_id)
   .UPDATE_SUBC(K,'asset_manager',@asset_manager_id)
  end
  .SUBC_CHECK
 end

 if @diff < 0 /* Убыток */
 begin
  select @diff=@diff * (-1)
  .OPERATION(@owner_id,@fund_plan_id,@oper_date,@obl_add_account_id,@pol_coupon_acc_id,@diff,'RUR',@oper_date,null,null,@doc_name,N)
  .UPDATE_SUBC(K,'stock_emis',@stock_id)
  if @fund_type_code = 'npf_fund'
  begin
   .UPDATE_SUBC(D,'asset_manager',@asset_manager_id)
   .UPDATE_SUBC(K,'asset_manager',@asset_manager_id)
  end
  .SUBC_CHECK
 end
end

--------------------------------------------
-- Погашение ЦБ (6012), Переоценка ЦБ (6014)
-- Конвертация (6015), Мена (6016)
--------------------------------------------
if @purpose_code in (6012,6014,6015,6016)
begin
 select @coupon_bal_sum_total = 0
 --------- Партионное списание
 .LIFO_FIFO_BEGIN(#tmp_oss,@metod_id,@all_stock_qty,@id)
 -- ! валюта в проводку = валюте плана(RUR)
 -- PIF:76.5.3-58.1 NPF:76.5(4)-58.1
  .OPERATION(@owner_id,@fund_plan_id,@oper_date,@contr_account_id,@stock_acc_id,@op_sum_lf,'RUR',@oper_date,null,@op_qty_lf,@doc_name,N)
  .UPDATE_SUBC(K,'stock_emis',@stock_id)
  .UPDATE_SUBC(К,'doc_item',@subc2_id_lf)
  if @fund_type_code = 'npf_fund'
  begin
   .UPDATE_SUBC(K,'asset_manager',@asset_manager_id)
   if @asset_manager_id = @owner_id /* При размещениии НПФ*/
   begin
    .UPDATE_SUBC(D,'partners',@emi_contragent_id)
   end
   else
   begin /* Через УК */
    .UPDATE_SUBC(D,'partners_cont',@emi_contragent_id)
    .UPDATE_SUBC(D,'partners',@asset_manager_id)
   end
  end
  if @fund_type_code = 'pif_fund'
  begin
   .UPDATE_SUBC(D,'partners',@emi_contragent_id)
  end
  .SUBC_CHECK

  -- Списание УНКД
  if exists(select 1 from #tmp_coupon o where o.subc2_id = @subc2_id_lf)
  begin

  -- Расчет цены списания УНКД

/* -- старое - 03.09.03
   select @coupon_bal_sum_lf = o.saldo_de,
          @coupon_qty_sum_lf = o.q_saldo_de
     from #tmp_coupon o
    where o.subc2_id = @subc2_id_lf
   if @coupon_qty_sum_lf > @op_qty_lf
   begin
    select @coupon_bal_sum_lf = .ROUND_MONEY((@coupon_bal_sum_lf * @op_qty_lf /@coupon_qty_sum_lf),2)
    select @coupon_qty_sum_lf = @op_qty_lf
   end
*/

   declare @coupon_saldo_qty money

   select @coupon_bal_sum_lf = o.saldo_de,
          @coupon_saldo_qty = o.q_saldo_de
     from #tmp_coupon o
    where o.subc2_id = @subc2_id_lf

   select @coupon_qty_sum_lf = @q_saldo_lf -- кол-во в партии по 58.1

   if @coupon_qty_sum_lf > @op_qty_lf -- кол-во в партии по 58.1 > кол-во, списываемое из партии по 58.1
   begin
    -- УНКД, списываемое с 76.6 пропорционально кол-ву, списываемому из партии по 58.1
    select @coupon_bal_sum_lf = .ROUND_MONEY(((convert(double precision,@coupon_bal_sum_lf)/convert(double precision,@coupon_qty_sum_lf)) * @op_qty_lf),2)
    -- кол-во, списываемое из партии по 58.1
    select @coupon_qty_sum_lf = @op_qty_lf
   end

   -- кол-во в партии по 58.1 (или кол-во, списываемое из партии по 58.1) > кол-во в партии по 76.6
   if @coupon_qty_sum_lf > @coupon_saldo_qty select @coupon_qty_sum_lf = @coupon_saldo_qty

   -- ! валюта в проводку = валюте плана(RUR)
   -- PIF:76.5.3-76.6 NPF:76.5(4)-76.6
   .OPERATION(@owner_id,@fund_plan_id,@oper_date,@contr_account_id,@coupon_acc_id,@coupon_bal_sum_lf,'RUR',@oper_date,0,@coupon_qty_sum_lf,@doc_name,N)

   .UPDATE_SUBC(K,'stock_emis',@stock_id)
   .UPDATE_SUBC(К,'doc_item',@subc2_id_lf)
   if @fund_type_code = 'npf_fund'
   begin
    .UPDATE_SUBC(K,'asset_manager',@asset_manager_id)
    if @asset_manager_id = @owner_id /* При размещениии НПФ*/
    begin
     .UPDATE_SUBC(D,'partners',@emi_contragent_id)
    end
    else
    begin /* Через УК */
     .UPDATE_SUBC(D,'partners_cont',@emi_contragent_id)
     .UPDATE_SUBC(D,'partners',@asset_manager_id)
    end
   end
   if @fund_type_code = 'pif_fund'
   begin
    .UPDATE_SUBC(D,'partners',@emi_contragent_id)
   end
   .SUBC_CHECK
   select @coupon_bal_sum_total = @coupon_bal_sum_total + @coupon_bal_sum_lf
  end

-- Начало списания комиссий и переоценки

-- Списание расходов на приобретение ЦБ (58.10)
  if @sd_scha_2005_d <= @oper_date
  begin
    if exists(select 1 from #tmp_comis o where o.subc2_id = @subc2_id_lf)
    begin

      if @doc_method_lf <> 3
        if @q_saldo_lf < @qty_rest_lf

          select @comis_bal_sum=o.saldo_de   -- Партия целиком
            from #tmp_comis o
           where o.subc2_id = @subc2_id_lf

        else
        begin

          select @comis_bal_sum=o.saldo_de   -- Часть партии
            from #tmp_comis o
           where o.subc2_id = @subc2_id_lf

          select @comis_bal_sum=.ROUND_MONEY(((convert(double precision,@comis_bal_sum)/convert(double precision,@q_saldo_lf))*@op_qty_lf),2)

        end
      else
      begin

        select @comis_bal_sum=o.saldo_de     -- Выбранная партия
          from #tmp_comis o
         where o.subc2_id = @subc2_id_lf

        select @comis_bal_sum=.ROUND_MONEY(((convert(double precision,@comis_bal_sum)/convert(double precision,@q_saldo_lf))*@part_qty_lf),2)

      end

      select @oper_doc_name='Списание расходов на приобретение ЦБ по партии: '+.ITEM_NAME(@subc2_id_lf)


      .OPERATION(@owner_id,@fund_plan_id,@oper_date,@contr_account_id,@comis_acc_id,@comis_bal_sum,'RUR',@oper_date,0,0,@oper_doc_name,N)

      .UPDATE_SUBC(K,'stock_emis',@stock_id)
      .UPDATE_SUBC(К,'doc_item',@subc2_id_lf)

      if @fund_type_code = 'npf_fund'
      begin

        .UPDATE_SUBC(K,'asset_manager',@asset_manager_id)

        if @asset_manager_id = @owner_id /* При размещениии НПФ*/
        begin

          .UPDATE_SUBC(D,'partners',@emi_contragent_id)

        end
        else
        begin /* Через УК */

          .UPDATE_SUBC(D,'partners_cont',@emi_contragent_id)
          .UPDATE_SUBC(D,'partners',@asset_manager_id)

        end

      end

     if @fund_type_code = 'pif_fund'
     begin

       .UPDATE_SUBC(D,'partners',@emi_contragent_id)

     end

     .SUBC_CHECK

     select @comis_bal_sum_total=isnull(@comis_bal_sum_total,0)+isnull(@comis_bal_sum,0)

   end


    if exists(select 1 from #tmp_overv o where o.subc2_id = @subc2_id_lf)
    begin

      if @doc_method_lf <> 3
        if @q_saldo_lf < @qty_rest_lf

          select @overv_bal_sum=o.saldo_de   -- Партия целиком
            from #tmp_overv o
           where o.subc2_id = @subc2_id_lf

        else
        begin

          select @overv_bal_sum=o.saldo_de   -- Часть партии
            from #tmp_overv o
           where o.subc2_id = @subc2_id_lf

          select @overv_bal_sum=.ROUND_MONEY(((convert(double precision,@overv_bal_sum)/convert(double precision,@q_saldo_lf))*@op_qty_lf),2)

        end
      else
      begin

        select @overv_bal_sum=o.saldo_de     -- Выбранная партия
          from #tmp_overv o
         where o.subc2_id = @subc2_id_lf

        select @overv_bal_sum=.ROUND_MONEY(((convert(double precision,@overv_bal_sum)/convert(double precision,@q_saldo_lf))*@part_qty_lf),2)

      end

      select @oper_doc_name='Списание переоценки ЦБ по партии: '+.ITEM_NAME(@subc2_id_lf)

      select @oper_sum=abs(@overv_bal_sum)

      if @overv_bal_sum > 0
      begin

        .OPERATION(@owner_id,@fund_plan_id,@oper_date,@contr_account_id,@overv_acc_id,@oper_sum,,'RUR',@oper_date,0,0,@oper_doc_name,N)

        .UPDATE_SUBC(K,'stock_emis',@stock_id)
        .UPDATE_SUBC(К,'doc_item',@subc2_id_lf)

        if @fund_type_code = 'npf_fund'
        begin

          .UPDATE_SUBC(K,'asset_manager',@asset_manager_id)

          if @asset_manager_id = @owner_id /* При размещениии НПФ*/
          begin

            .UPDATE_SUBC(D,'partners',@emi_contragent_id)

          end
          else
          begin /* Через УК */

            .UPDATE_SUBC(D,'partners_cont',@emi_contragent_id)
            .UPDATE_SUBC(D,'partners',@asset_manager_id)

          end

        end

        if @fund_type_code = 'pif_fund'
        begin

          .UPDATE_SUBC(D,'partners',@emi_contragent_id)

        end

        .SUBC_CHECK

      end

      if @overv_bal_sum < 0
      begin

        .OPERATION(@owner_id,@fund_plan_id,@oper_date,@overv_acc_id,@contr_account_id,@oper_sum,,'RUR',@oper_date,0,0,@oper_doc_name,N)


        .UPDATE_SUBC(D,'stock_emis',@stock_id)
        .UPDATE_SUBC(D,'doc_item',@subc2_id_lf)

        if @fund_type_code = 'npf_fund'
        begin

          .UPDATE_SUBC(D,'asset_manager',@asset_manager_id)

          if @asset_manager_id = @owner_id /* При размещениии НПФ*/
          begin

            .UPDATE_SUBC(K,'partners',@emi_contragent_id)

          end
          else
          begin /* Через УК */

            .UPDATE_SUBC(K,'partners_cont',@emi_contragent_id)
            .UPDATE_SUBC(K,'partners',@asset_manager_id)

          end

        end

        if @fund_type_code = 'pif_fund'
        begin

          .UPDATE_SUBC(K,'partners',@emi_contragent_id)

        end

        .SUBC_CHECK

      end

      select @overv_bal_sum_total=isnull(@overv_bal_sum_total,0)+isnull(@overv_bal_sum,0)

    end

  end

-- Окончание списания комиссий и переоценки


 .LIFO_FIFO_END

 if @purpose_code = 6014 -- для Переоценки
 begin

   if @sd_scha_2005_d <= @oper_date
   begin
     select @diff = @all_sum - (@bal_sum_total_lf + isnull(@comis_bal_sum_total,0) + isnull(@overv_bal_sum_total,0))
   end
   else
     select @diff = @all_sum - @bal_sum_total_lf

 end

 if @purpose_code = 6012 -- Погашение
  select @diff = @all_sum - @bal_sum_total_lf - @coupon_bal_sum_total

 -- Зачисление обратно -- для Переоценки, Конвертации и Мены
 if @purpose_code in (6014,6015,6016)
 begin
  if @purpose_code = 6014 -- Переоценка
  begin
   select @op_in_sum=@all_sum
   select @op_in_stock_id=@stock_id
   select @op_in_qty=@all_stock_qty
  end
  if @purpose_code in (6015,6016) -- Конвертация и Мена
  begin
   select @op_in_sum=@bal_sum_total_lf
   select @op_in_stock_id=@stock_new_id
   if isnull(@stock_new_qty,0)=0
    select @op_in_qty=@all_stock_qty
   else
    select @op_in_qty=@stock_new_qty
  end
  -- Партия
  if (select out_sum_method_id from td_pay_fond where id=@owner_id) = 1
   select @part_id=(select td_depo_docs.id from td_depo_docs where in_no='COMMON_ASSET_INPUT'
                      and .ITEMS_EXISTS_BY_TYPE(td_depo_docs.id,'letter_in'))
  else
   select @part_id=@id
  -- Зачисление ЦБ
  .OPERATION(@owner_id,@fund_plan_id,@oper_date,@stock_acc_id,@contr_account_id,@op_in_sum,'RUR',@oper_date,@op_in_qty,null,@doc_name,N)
  .UPDATE_SUBC(D,'stock_emis',@op_in_stock_id)
  .UPDATE_SUBC(D,'doc_item',@part_id)
  if @fund_type_code = 'npf_fund'
  begin
   .UPDATE_SUBC(D,'asset_manager',@asset_manager_id)
   if @asset_manager_id = @owner_id /* При размещениии НПФ*/
   begin
    .UPDATE_SUBC(K,'partners',@emi_contragent_id)
   end
   else
   begin /* Через УК */
    .UPDATE_SUBC(K,'partners_cont',@emi_contragent_id)
    .UPDATE_SUBC(K,'partners',@asset_manager_id)
   end
  end
  if @fund_type_code = 'pif_fund'
  begin
   .UPDATE_SUBC(K,'partners',@emi_contragent_id)
  end
  .SUBC_CHECK
  -- Зачисление УНКД - обратно
  if isnull(@coupon_bal_sum_total,0)!=0
  begin
   .OPERATION(@owner_id,@fund_plan_id,@oper_date,@coupon_acc_id,@contr_account_id,@coupon_bal_sum_total,'RUR',@oper_date,@op_in_qty,null,@doc_name,N)
   .UPDATE_SUBC(D,'stock_emis',@op_in_stock_id)
   .UPDATE_SUBC(D,'doc_item',@part_id)
   if @fund_type_code = 'npf_fund'
   begin
    .UPDATE_SUBC(D,'asset_manager',@asset_manager_id)
    if @asset_manager_id = @owner_id /* При размещениии НПФ*/
    begin
     .UPDATE_SUBC(K,'partners',@emi_contragent_id)
    end
    else
    begin /* Через УК */
     .UPDATE_SUBC(K,'partners_cont',@emi_contragent_id)
     .UPDATE_SUBC(K,'partners',@asset_manager_id)
    end
   end
   if @fund_type_code = 'pif_fund'
   begin
    .UPDATE_SUBC(K,'partners',@emi_contragent_id)
   end
   .SUBC_CHECK
  end

  if @sd_scha_2005_d <= @oper_date
  begin

    if isnull(@comis_bal_sum_total,0) > 0
    begin
      .OPERATION(@owner_id,@fund_plan_id,@oper_date,@comis_acc_id,@contr_account_id,@comis_bal_sum_total,'RUR',@oper_date,0,0,@doc_name,N)

      .UPDATE_SUBC(D,'stock_emis',@op_in_stock_id)
      .UPDATE_SUBC(D,'doc_item',@part_id)

      if @fund_type_code = 'npf_fund'
      begin

        .UPDATE_SUBC(D,'asset_manager',@asset_manager_id)

        if @asset_manager_id = @owner_id /* При размещениии НПФ*/
        begin

          .UPDATE_SUBC(K,'partners',@emi_contragent_id)

        end
        else
        begin /* Через УК */

          .UPDATE_SUBC(K,'partners_cont',@emi_contragent_id)
          .UPDATE_SUBC(K,'partners',@asset_manager_id)

        end

      end

      if @fund_type_code = 'pif_fund'
      begin
        .UPDATE_SUBC(K,'partners',@emi_contragent_id)
      end

     .SUBC_CHECK

    end

    select @oper_sum=abs(@overv_bal_sum_total)

    if isnull(@overv_bal_sum_total,0) > 0
    begin

      .OPERATION(@owner_id,@fund_plan_id,@oper_date,@overv_acc_id,@contr_account_id,@oper_sum,'RUR',@oper_date,0,0,@doc_name,N)


      .UPDATE_SUBC(D,'stock_emis',@op_in_stock_id)
      .UPDATE_SUBC(D,'doc_item',@part_id)

      if @fund_type_code = 'npf_fund'
      begin

        .UPDATE_SUBC(D,'asset_manager',@asset_manager_id)

        if @asset_manager_id = @owner_id /* При размещениии НПФ*/
        begin

          .UPDATE_SUBC(K,'partners',@emi_contragent_id)

        end
        else
        begin /* Через УК */

          .UPDATE_SUBC(K,'partners_cont',@emi_contragent_id)
          .UPDATE_SUBC(K,'partners',@asset_manager_id)

        end

      end

      if @fund_type_code = 'pif_fund'
      begin
        .UPDATE_SUBC(K,'partners',@emi_contragent_id)
      end

     .SUBC_CHECK

    end

    if isnull(@overv_bal_sum_total,0) < 0
    begin

      .OPERATION(@owner_id,@fund_plan_id,@oper_date,@contr_account_id,@overv_acc_id,@oper_sum,'RUR',@oper_date,0,0,@doc_name,N)

      .UPDATE_SUBC(K,'stock_emis',@op_in_stock_id)
      .UPDATE_SUBC(K,'doc_item',@part_id)

      if @fund_type_code = 'npf_fund'
      begin

        .UPDATE_SUBC(K,'asset_manager',@asset_manager_id)

        if @asset_manager_id = @owner_id /* При размещениии НПФ*/
        begin

          .UPDATE_SUBC(D,'partners',@emi_contragent_id)

        end
        else
        begin /* Через УК */

          .UPDATE_SUBC(D,'partners_cont',@emi_contragent_id)
          .UPDATE_SUBC(D,'partners',@asset_manager_id)

        end

      end

      if @fund_type_code = 'pif_fund'
      begin
        .UPDATE_SUBC(D,'partners',@emi_contragent_id)
      end

     .SUBC_CHECK

    end

  end

 end
 --- Отнесение на прибыли или убытки (для погашения и переоценки)
 if @purpose_code in (6012,6014)
 begin
  if @diff > 0 /* Прибыль */
  begin
   .OPERATION(@owner_id,@fund_plan_id,@oper_date,@contr_account_id,@add_account_id,@diff,'RUR',@oper_date,null,null,@doc_name,N)
   if @fund_type_code = 'npf_fund'
   begin
    .UPDATE_SUBC(K,'asset_manager',@asset_manager_id)
    if @asset_manager_id = @owner_id /* При размещениии НПФ*/
    begin
     .UPDATE_SUBC(D,'partners',@emi_contragent_id)
    end
    else
    begin /* Через УК */
     .UPDATE_SUBC(D,'partners_cont',@emi_contragent_id)
     .UPDATE_SUBC(D,'partners',@asset_manager_id)
    end
   end
   if @fund_type_code = 'pif_fund'
   begin
    .UPDATE_SUBC(D,'partners',@emi_contragent_id)
   end
   .SUBC_CHECK
  end
  if @diff < 0 /* Убыток */
  begin
   select @diff=@diff * (-1)
   .OPERATION(@owner_id,@fund_plan_id,@oper_date,@add_account_id,@contr_account_id,@diff,'RUR',@oper_date,null,null,@doc_name,N)
   if @fund_type_code = 'npf_fund'
   begin
    .UPDATE_SUBC(D,'asset_manager',@asset_manager_id)
    if @asset_manager_id = @owner_id /* При размещениии НПФ*/
    begin
     .UPDATE_SUBC(K,'partners',@emi_contragent_id)
    end
    else
    begin /* Через УК */
     .UPDATE_SUBC(K,'partners_cont',@emi_contragent_id)
     .UPDATE_SUBC(K,'partners',@asset_manager_id)
    end
   end
   if @fund_type_code = 'pif_fund'
   begin
    .UPDATE_SUBC(K,'partners',@emi_contragent_id)
   end
   .SUBC_CHECK
  end
 end
end

declare @j_sum money, @j_qty money, @j_type int

if @purpose_code=6014 begin
 select @j_type=1
 select @j_sum=sum(op_sum) from t_operations where item_id=@id
 select @j_qty=0
end else
 select @j_sum=@all_sum, @j_type=2, @j_qty=(case when isnull(@stock_qty,0)=0 then @all_stock_qty else @stock_qty end)
.SD_ASSENT_ADD(@id,@stock_id,@j_sum,@j_qty,@owner_id,@perpose_id)
.SD_ASSET_OPER_ADD(@id,@stock_id,@j_sum,@j_qty,@owner_id,@perpose_id,@j_type)
if @purpose_code in (6015,6016,6018)
begin
 select @j_qty=(case when isnull(@stock_new_qty,0)=0 then @all_stock_qty else @stock_new_qty end)
 .SD_ASSENT_ADD(@id,@stock_new_id,@j_sum,@j_qty,@owner_id,@perpose_id)
 .SD_ASSET_OPER_ADD(@id,@stock_new_id,@j_sum,@j_qty,@owner_id,@perpose_id,1)
end

commit tran


if object_id('tempdb..#tmp_oss') is not null
  drop table #tmp_oss
if object_id('tempdb..#tmp_oss_a') is not null
  drop table #tmp_oss_a
if object_id('tempdb..#tmp_oss_t') is not null
  drop table #tmp_oss_t

if object_id('tempdb..#tmp_coupon') is not null
  drop table #tmp_coupon
if object_id('tempdb..#tmp_coupon_a') is not null
  drop table #tmp_coupon_a
if object_id('tempdb..#tmp_coupon_t') is not null
  drop table #tmp_coupon_t

if object_id('tempdb..#tmp_comis') is not null
  drop table #tmp_comis
if object_id('tempdb..#tmp_comis_a') is not null
  drop table #tmp_comis_a
if object_id('tempdb..#tmp_comis_t') is not null
  drop table #tmp_comis_t

if object_id('tempdb..#tmp_overv') is not null
  drop table #tmp_overv
if object_id('tempdb..#tmp_overv_a') is not null
  drop table #tmp_overv_a
if object_id('tempdb..#tmp_overv_t') is not null
  drop table #tmp_overv_t

.TRANSACTION_RESTORE

end
-----------------------------------------------------------------------------------
if isnull(@stock_qty,0) = 0 /* Количество ЦБ было не задано*/
begin
 update ts_sd_stock_moves
    set stock_qty = @all_stock_qty
    where id = @id
 if @purpose_code in (6015,6016) and isnull(@stock_new_qty,0)=0
  update ts_sd_stock_moves
    set stock_new_qty = @all_stock_qty
    where id = @id
end

commit tran
  $ENDTEXT(14474942)
 $ENDACTION

 $ACTION(ACTION2)
  name=Добавить
  class=1
  form=FORM1
  target_state=ED
  procedure=ap_50635000000027478
  patterns=GENERIC_INSERT_P1
  user_define=0
  isvisible=0
  istab=1
  posx=0
  posy=0
  width=2546
  height=1900
  proc_text=$TEXT(14474944)
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)

.INIT_VARS(AFTER,ALL,1)

.DEPO_GEN_NO(@in_no,@depo_doc_type)


begin tran

.UPDATE(ALL,1)

.RELGEN
.UPDATE_STATE
.ACTION_HISTORY
commit tran

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

  $BIND(BIND1)
   type=STOCK_REDEMPTION
   action=ACTION6
   class=1
   order=1
   idname=null
  $ENDBIND

  $BIND(BIND2)
   type=activdocs
   action=ACTION1
   class=0
   order=2
   idname=null
  $ENDBIND

  $BIND(BIND3)
   type=SD_INFO4OPER
   action=ACTION_UPDATE
   class=1
   order=10
   idname=sid
  $ENDBIND
 $ENDACTION

 $ACTION(ACTION3)
  name=Изменить
  class=2
  form=FORM1
  target_state=null
  procedure=ap_50635000000027482
  patterns=GENERIC_UPDATE_P1
  user_define=0
  isvisible=0
  istab=1
  posx=0
  posy=0
  width=2350
  height=1876
  proc_text=$TEXT(14474944)
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)

.UPDATE(ALL,1)

.RELGEN
.UPDATE_STATE
.ACTION_HISTORY

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

  $BIND(BIND1)
   type=STOCK_REDEMPTION
   action=ACTION6
   class=1
   order=1
   idname=null
  $ENDBIND

  $BIND(BIND2)
   type=activdocs
   action=ACTION1
   class=0
   order=2
   idname=null
  $ENDBIND

  $BIND(BIND3)
   type=SD_INFO4OPER
   action=ACTION_UPDATE
   class=1
   order=10
   idname=sid
  $ENDBIND
 $ENDACTION

 $ACTION(ACTION4)
  name=Удалить
  class=9
  form=null
  target_state=DEL
  procedure=ap_50635000000027485
  patterns=GENERIC_MOVE
  user_define=0
  isvisible=0
  istab=0
  posx=0
  posy=0
  width=0
  height=0
  proc_text=$TEXT(14474944)
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

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

commit tran
  $ENDTEXT(14474944)

  $BIND(BIND1)
   type=STOCK_REDEMPTION
   action=D_COUPON_OUT_VIEW
   class=1
   order=1
   idname=null
  $ENDBIND
 $ENDACTION

 $ACTION(ACTION5)
  name=Отменить
  class=9
  form=null
  target_state=ED
  procedure=ap_50635000000027487
  patterns=GENERIC_MOVE
  user_define=0
  isvisible=0
  istab=0
  posx=0
  posy=0
  width=0
  height=0
  proc_text=$TEXT(14474944)
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

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

.OPERS_ROLL
.GET_PROPS
if .PURPOSE_CODE(@perpose_id) in (6010,6014) -- начисл куп.дохода и переоценка
 update ts_sd_stock_moves set stock_qty=0 where id=@id
.ARH_FLAG_CLEAR
.SD_ASSENT_DEL(@id)
.SD_ASSET_OPER_DEL(@id)
commit tran
  $ENDTEXT(14474944)
 $ENDACTION

 $ACTION(ACTION6)
  name=Данные (изменение)
  class=2
  form=D_COUPON_OUT_VIEW
  target_state=null
  procedure=ap_50635000000027479
  patterns=GENERIC_UPDATE_P2
  user_define=0
  isvisible=1
  istab=1
  posx=0
  posy=0
  width=0
  height=0
  proc_text=$TEXT(14474945)
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)

.INT_VAR(@purpose_code)
select @purpose_code = .PURPOSE_CODE(@perpose_id)
select @coupon_sum = isnull(@coupon_sum,0)

if @stock_id is null
.EXIT_MESSAGE('Не задана ЦБ')

if @stock_new_id is null and @purpose_code in (6015,6016) -- конв-ция и мена
.EXIT_MESSAGE('Не задана новая ЦБ')

if @coupon_sum=0 and @purpose_code = 6014 -- переоценка
 .EXIT_MESSAGE('Не задана сумма')

if @purpose_code in (6014) -- переоценка - на все кол-во бумаг
 select @stock_qty=0

if  @stock_qty < 0 or @stock_new_qty < 0
.EXIT_MESSAGE('Количество бумаг не может быть отрицательным ')

if isnull(@stock_new_qty,0)=0 and @purpose_code in (6015,6016) -- конв-ция и мена
 select @stock_new_qty=@stock_qty

if  @move_contragent_id is null
.EXIT_MESSAGE('Не задан контрагент (эмитент)')

.TEST_UNIQUE(ALL, 2)

.GET_PROPS(ALL,1)

.UPDATE_ITEMS

.UPDATE(ALL,2)

.RELGEN
.UPDATE_STATE
.ACTION_HISTORY

commit tran
  $ENDTEXT(14474945)
 $ENDACTION

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

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

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

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

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

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

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

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

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

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

 $STATE2ACTION(OP_END.D_COUPON_OUT_VIEW)
  state=OP_END
  action=D_COUPON_OUT_VIEW
 $ENDSTATE2ACTION

 $STATE2ACTION(OP_END.D_STOCK_REDEMPTION_LIST)
  state=OP_END
  action=D_STOCK_REDEMPTION_LIST
 $ENDSTATE2ACTION

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

 $STATE2ACTION(OP_END.FORM2)
  state=OP_END
  action=FORM2
 $ENDSTATE2ACTION

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

 $STATE2PROP(BEG.COUPON_SUM)
  state=BEG
  prop=COUPON_SUM
  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=0
  visible=1
 $ENDSTATE2PROP

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

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

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

 $STATE2PROP(BEG.FOUND_DOC_ID)
  state=BEG
  prop=FOUND_DOC_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.MOVE_COMMENT)
  state=BEG
  prop=MOVE_COMMENT
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

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

 $STATE2PROP(BEG.OPER_FORM_ID)
  state=BEG
  prop=OPER_FORM_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.PAYER_ID)
  state=BEG
  prop=PAYER_ID
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

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

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

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

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

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

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

 $STATE2PROP(BEG.STOCK_PRICE_CUR_ID)
  state=BEG
  prop=STOCK_PRICE_CUR_ID
  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.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.CORRESPONDENT_ID)
  state=ED
  prop=CORRESPONDENT_ID
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

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

 $STATE2PROP(ED.DEPO_DOC_TYPE)
  state=ED
  prop=DEPO_DOC_TYPE
  enable=1
  mandatory=0
  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.FOLDER_ID)
  state=ED
  prop=FOLDER_ID
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

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

 $STATE2PROP(ED.FOUND_DOC_ID)
  state=ED
  prop=FOUND_DOC_ID
  enable=1
  mandatory=0
  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.MOVE_COMMENT)
  state=ED
  prop=MOVE_COMMENT
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

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

 $STATE2PROP(ED.OPER_FORM_ID)
  state=ED
  prop=OPER_FORM_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.PAYER_ID)
  state=ED
  prop=PAYER_ID
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

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

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

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

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

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

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

 $STATE2PROP(ED.STOCK_PRICE_CUR_ID)
  state=ED
  prop=STOCK_PRICE_CUR_ID
  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.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

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

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

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