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

$DOC(BAY_OTHER_ASSETS)
 name=Приобретение прочих активов
 class=1
 product=ALD_FUND
 name_formula='N:'+@dog_no+'  От:'+.DATE_TO_STR(@dog_date)+', '+.TYPE_NAME(@type_id)+'-'+(select simple_name from t_simples where id=@asset_type_id and type_id=5101)
 remark_formula='Контрагент:'+.ITEM_NAME(@contragent_id)+'  : '+'Актив:'+.ITEM_NAME(@asset_id)+' '+.TO_STR(@asset_qty)+'шт,'+'Сумма:'+.TO_STR(@summ_doc_total)+'  '+.ITEM_NAME(@cur_id)

 $STATE(CRT)
  name=Перерегистрирован
  class=0
 $ENDSTATE

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

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

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

 $STATE(NEW)
  name=Начальный
  class=1
 $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=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(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=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_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=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(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=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(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=null
  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=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=255
  page=1
  order=15
  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(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(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=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(ASSET_ID)
  name=актив
  field_name=asset_id
  table_name=ts_baysale_assets
  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(ASSET_PRICE)
  name=цена актива
  field_name=asset_price
  table_name=ts_baysale_assets
  field_type=decimal
  field_length=9
  field_scale=6
  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(ASSET_QTY)
  name=количество активов
  field_name=asset_qty
  table_name=ts_baysale_assets
  field_type=money
  field_length=8
  field_scale=4
  field_prec=19
  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(SUMM_DOC_TOTAL)
  name=сумма договора
  field_name=summ_doc_total
  table_name=ts_baysale_assets
  field_type=money
  field_length=8
  field_scale=4
  field_prec=19
  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(SUM_IN_PAYCUR)
  name=сумма в валюте платежа
  field_name=sum_in_paycur
  table_name=ts_baysale_assets
  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(CUR_ID)
  name=валюта сделки
  field_name=cur_id
  table_name=ts_baysale_assets
  field_type=numeric
  field_length=9
  field_scale=0
  field_prec=18
  page=2
  order=24
  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(PAY_CUR_ID)
  name=валюта платежа
  field_name=pay_cur_id
  table_name=ts_baysale_assets
  field_type=numeric
  field_length=9
  field_scale=0
  field_prec=18
  page=2
  order=25
  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(RATE_PLACE_ID)
  name=площадка курса
  field_name=rate_place_id
  table_name=ts_baysale_assets
  field_type=numeric
  field_length=9
  field_scale=0
  field_prec=18
  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(RATE_DATE)
  name=дата курса
  field_name=rate_date
  table_name=ts_baysale_assets
  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(CUR_PRICE2PAY_RATE)
  name=курс вал цены к вал платежа
  field_name=cur_price2pay_rate
  table_name=ts_baysale_assets
  field_type=decimal
  field_length=9
  field_scale=8
  field_prec=18
  page=2
  order=28
  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(CONTRAGENT_ID)
  name=Контрагент
  field_name=contragent_id
  table_name=ts_baysale_assets
  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(ASSET_TYPE_ID)
  name=тип актива
  field_name=asset_type_id
  table_name=ts_baysale_assets
  field_type=numeric
  field_length=9
  field_scale=0
  field_prec=18
  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

 $PROP(BALL_ACC_TYPE_ID)
  name=Вид актива по балансу
  field_name=ball_acc_type_id
  table_name=ts_baysale_assets
  field_type=numeric
  field_length=9
  field_scale=0
  field_prec=18
  page=3
  order=31
  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(BAYSALE_DATE)
  name=дата передачи актива
  field_name=baysale_date
  table_name=ts_baysale_assets
  field_type=datetime
  field_length=8
  field_scale=3
  field_prec=23
  page=2
  order=32
  init_class=1
  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(DOG_NO)
  name=Номер договора
  field_name=dog_no
  table_name=ts_baysale_assets
  field_type=varchar
  field_length=80
  field_scale=null
  field_prec=80
  page=2
  order=33
  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(DOG_DATE)
  name=Дата договора
  field_name=dog_date
  table_name=ts_baysale_assets
  field_type=datetime
  field_length=8
  field_scale=3
  field_prec=23
  page=2
  order=34
  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(REL9)
  class=1
  type=T_OPERATIONS
  form=ITEM_OPERS_LIST
  prop=null
  idname=item_id_s
  order=99
 $ENDRELATION

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

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

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

 $RELATION(REL1)
  class=0
  type=PARTNERS
  form=null
  prop=CONTRAGENT_ID
  idname=null
  order=2
 $ENDRELATION

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

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

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

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

 $RELATION(REL8)
  class=0
  type=REALTY_OTHER_ASSETS
  form=null
  prop=ASSET_ID
  idname=null
  order=1
 $ENDRELATION

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

 $FORM(D_ASSETS_METHODS_IN)
  name=Параметры зачисления
  class=5
  filter=null
  target_state=
  uo=uo_edit
  dw=d_assets_methods_in
  procedure=ap_10000000000087515
  patterns=GENERIC_VIEW_ITEM_P3
  user_define=0
  isvisible=1
  istab=0
  posx=0
  posy=0
  width=0
  height=0
  proc_text=$TEXT(15160897)
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,3)

end
  $ENDTEXT(15160897)
 $ENDFORM

 $FORM(D_ASSET_EDIT_BYE)
  name=Договор
  class=5
  filter=null
  target_state=
  uo=uo_edit
  dw=d_asset_edit_bye
  procedure=ap_10000000000087516
  patterns=GENERIC_VIEW_ITEM_P2
  user_define=0
  isvisible=1
  istab=1
  posx=0
  posy=0
  width=0
  height=0
  proc_text=$TEXT(15160897)
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(15160897)

  $ACTION2RELATION(REL8.REALTY_OTHER_ASSETS_CODE)
   relation=REL8
   where=null
   prop=REALTY_OTHER_ASSETS_CODE
   order=null
   alias=realty_other_assets_code
  $ENDACTION2RELATION

  $ACTION2RELATION(REL8.REALTY_OTHER_ASSETS_NAME)
   relation=REL8
   where=null
   prop=REALTY_OTHER_ASSETS_NAME
   order=6
   alias=realty_other_assets_name
  $ENDACTION2RELATION

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

  $ACTION2RELATION(REL1.PARTNER_SHORT_NAME)
   relation=REL1
   where=null
   prop=PARTNER_SHORT_NAME
   order=4
   alias=partner_short_name
  $ENDACTION2RELATION

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

 $FORM(FORM1)
  name=Фильтр
  class=6
  filter=null
  target_state=
  uo=uo_filter
  dw=d_docstock_filter
  procedure=ap_30000000003451386
  patterns=null
  user_define=0
  isvisible=0
  istab=0
  posx=0
  posy=0
  width=0
  height=0
  proc_text=null

  $FILTER(OWNER_ID)
   type=1
   label=Организация
   prop=OWNER_ID
   arg_code=null
   arg_type=null
   arg_length=null
   arg_prec=null
   arg_scale=null
  $ENDFILTER

  $FILTER(DOCUMENT_FORM_ID)
   type=1
   label=DOCUMENT_FORM_ID
   prop=DOCUMENT_FORM_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=IN_DATE
   prop=IN_DATE
   arg_code=null
   arg_type=null
   arg_length=null
   arg_prec=null
   arg_scale=null
  $ENDFILTER

  $FILTER(FOLDER_ID)
   type=1
   label=FOLDER_ID
   prop=FOLDER_ID
   arg_code=null
   arg_type=null
   arg_length=null
   arg_prec=null
   arg_scale=null
  $ENDFILTER
 $ENDFORM

 $FORM(FORM2)
  name=Список договоров
  class=4
  filter=null
  target_state=
  uo=uo_list
  dw=d_assets_list
  procedure=ap_30000000003451392
  patterns=GENERIC_VIEW_LIST
  user_define=0
  isvisible=0
  istab=0
  posx=0
  posy=0
  width=0
  height=0
  proc_text=$TEXT(15160899)
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

end
  $ENDTEXT(15160899)

  $ACTION2RELATION(REL6.ITEM_NAME)
   relation=REL6
   where=null
   prop=ITEM_NAME
   order=2
   alias=folder_name
  $ENDACTION2RELATION
 $ENDFORM

 $FORM(FORM3)
  name=Просмотр
  class=5
  filter=null
  target_state=
  uo=uo_edit
  dw=d_sdepo_oper_p1
  procedure=ap_10000000000086554
  patterns=GENERIC_VIEW_ITEM_P1
  user_define=0
  isvisible=0
  istab=1
  posx=0
  posy=0
  width=2290
  height=1828
  proc_text=$TEXT(15160899)
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
.CHECK_VIEW_ITEM

if @id = -1
begin
begin tran
---- get props
.GET_PROPS
---- check insert
.CHECK_INSERT
---- init vars(b)
.INIT_VARS(B)
---- insert items
.INSERT_ITEMS
---- insert
.INSERT
commit tran
end
.INSERT_INFO4OPER(@id)
.VIEW_ITEM(ALL,1)

end
  $ENDTEXT(15160899)

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

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

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

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

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

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

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

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

  $ACTION2RELATION(REL5.PARTNER_SHORT_NAME)
   relation=REL5
   where=null
   prop=PARTNER_SHORT_NAME
   order=34
   alias=fond_name
  $ENDACTION2RELATION

  $BIND(BIND1)
   type=OBLIGATION
   action=D_OBLIGATION
   class=1
   order=30
   idname=item_id_s
  $ENDBIND

  $BIND(BIND2)
   type=BAY_OTHER_ASSETS
   action=D_ASSET_EDIT_BYE
   class=1
   order=10
   idname=null
  $ENDBIND

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

 $ACTION(ACTION1)
  name=Параметры зачисления (изм.)
  class=2
  form=D_ASSETS_METHODS_IN
  target_state=null
  procedure=ap_10000000000087534
  patterns=GENERIC_UPDATE_P2
  user_define=0
  isvisible=1
  istab=0
  posx=0
  posy=0
  width=0
  height=0
  proc_text=$TEXT(15160899)
create procedure dbo.%PROC% @sid varchar(30) = null,
.ARGLIST(ALL, 3)
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, 3)

.TEST_UNIQUE(ALL, 3)

.GET_PROPS(ALL,1)
.GET_PROPS(ALL,2)

.UPDATE_ITEMS

.UPDATE(ALL,3)

.RELGEN
.UPDATE_STATE
.ACTION_HISTORY

commit tran
  $ENDTEXT(15160899)
 $ENDACTION

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

--delete tb_plan_moves where tb_plan_moves.id in (select id from tb_plans where tb_plans.item_id=@id)
delete from t_items where t_items.id in (select id from tb_plans where tb_plans.item_id=@id)
delete from tb_plans where tb_plans.item_id=@id
delete from tb_plan_pays where tb_plan_pays.id in (select id from tb_plans where tb_plans.item_id=@id)
.UPDATE_STATE
.ACTION_HISTORY

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


commit tran
  $ENDTEXT(15160899)
 $ENDACTION

 $ACTION(ACTION2)
  name=Добавить
  class=1
  form=FORM3
  target_state=EDIT
  procedure=ap_10000000000087536
  patterns=GENERIC_INSERT_P1
  user_define=0
  isvisible=0
  istab=1
  posx=0
  posy=0
  width=2336
  height=1872
  proc_text=$TEXT(15160900)
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)

--TEST_UNIQUE(ALL,1)

begin tran

.UPDATE(ALL,1)

.RELGEN
.UPDATE_STATE
.ACTION_HISTORY
commit tran

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

  $BIND(BIND1)
   type=BAY_OTHER_ASSETS
   action=ACTION7
   class=1
   order=10
   idname=null
  $ENDBIND

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

 $ACTION(ACTION4)
  name=Изменить
  class=2
  form=FORM3
  target_state=null
  procedure=ap_10000000000087540
  patterns=GENERIC_UPDATE_P1
  user_define=0
  isvisible=0
  istab=1
  posx=0
  posy=0
  width=2235
  height=1856
  proc_text=$TEXT(15160900)
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(15160900)

  $BIND(BIND1)
   type=BAY_OTHER_ASSETS
   action=ACTION7
   class=1
   order=2
   idname=null
  $ENDBIND

  $BIND(BIND2)
   type=OBLIGATION
   action=D_OBLIGATION
   class=1
   order=8
   idname=item_id_s
  $ENDBIND

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

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

if exists(select 1 from tb_plans p where p.item_id=@id
             and upper(.ITEM_STATE_CODE(p.id))='EXEC')
begin
 .EXIT_MESSAGE('Отмена невозможна - есть обязательства в статусе Исполнен')
end

.UPDATE_STATE
.ACTION_HISTORY

-- перевод всех привязок плат.документов в статус Удален (с уменьшением покрытой суммы)
declare @pmts_id_s varchar(30)
declare pmts cursor for
 select convert(varchar,p.id) from t_pays2items p, tb_plans o
  where p.docitem_id=o.id and o.item_id=@id
    and upper(.ITEM_STATE_CODE(p.id))='CRT'
    and .ITEMS_EXISTS(o.id)
 for read only
open pmts
fetch pmts into @pmts_id_s
while .CURSOR_STATE=0
begin
 .EXEC_ACTION(@pmts_id_s,'pays2items','delete_pays2items',Y)
 fetch pmts into @pmts_id_s
end
close pmts
.DEALLOCATE pmts

.SD_MOVE_OBLIG_STATE(@id,'CRT')

declare @start_rec_id numeric, @ops_date datetime

select @start_rec_id=min(id) from t_sd_asset_ops where item_id=@id
select @ops_date=min(op_date) from t_operations where item_id=@id
   and action_id=(select min(id) from t_actions where type_id=@type_id and upper(action_code)='SD_OTHER_OPER_IN')

if @start_rec_id is not null
 update t_sd_info4oper set
   op_date=isnull(@ops_date,j.op_date),
   op_time=j.op_time,
   assent_date=j.assent_date,
   reg_date=j.op_date,
   op_no=null
  from t_sd_asset_ops j where j.id=@start_rec_id and t_sd_info4oper.id=@id

.OPERS_ROLL
.SD_ASSENT_DEL(@id)
.SD_ASSET_OPER_DEL(@id)
commit tran
  $ENDTEXT(15160900)
 $ENDACTION

 $ACTION(ACTION7)
  name=Параметры договора
  class=2
  form=D_ASSET_EDIT_BYE
  target_state=null
  procedure=ap_10000000000087537
  patterns=GENERIC_UPDATE_P2
  user_define=0
  isvisible=1
  istab=1
  posx=0
  posy=0
  width=0
  height=0
  proc_text=$TEXT(15160900)
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 isnull(@asset_qty,0) = 0
.EXIT_MESSAGE('Не задано количество')
----------
if .PURPOSE_CODE(@perpose_id)<>7000
begin
 if isnull(@contragent_id,0) = 0
 begin
 .EXIT_MESSAGE('Не задан контрагент')
 end
end

if isnull(@summ_doc_total,0) !=0
begin
select @asset_price = @summ_doc_total/@asset_qty
end
else
begin
select @summ_doc_total = .ROUND_MONEY((@asset_price * @asset_qty),2)
end

if @rate_date is null
select @rate_date = @dog_date
/*Если не задан курс*/
if ((@cur_price2pay_rate is null) or (@cur_price2pay_rate = 0))
 and (@rate_date is not null)
/* and (@rate_place_id is not null)*/
begin
declare @r_sum money, @r_date datetime
------------------------
.CONVERT_SUM(@cur_id,@pay_cur_id,@rate_date,0,1.0,@cur_price2pay_rate,@r_sum,@r_date)
-----------------------
end

if @pay_cur_id = @cur_id
select @sum_in_paycur = @summ_doc_total
else
begin
select @sum_in_paycur = .ROUND_MONEY((@summ_doc_total * @cur_price2pay_rate),2)
end


select @asset_type_id = (select assets_type_id from t_realty_other_assets where id=@asset_id)
.UPDATE_ITEMS

.UPDATE(ALL,2)

.RELGEN
.UPDATE_STATE
.ACTION_HISTORY
--
-- При вводе начальных остатков обязательсва не формируются
--
if .PURPOSE_CODE(@perpose_id)<>7000
begin

/* Формирование обязательств */
/* Основной платеж (обязательство по оплате)*/
declare @plan_sum money, @id_main_pay numeric

.TYPE_INIT('obligation_payer_out')

select @id_main_pay = null

select @id_main_pay = min(tb_plans.id)
from
tb_plans , tb_plan_pays, .ACTUAL_TABLES
where tb_plans.item_id = @id
and tb_plans.id = tb_plan_pays.id
and tb_plan_pays.pay_perpose_id = 1
.ACTUAL_WHERE(tb_plans.id)

if not(@id_main_pay is null)
begin
.TYPE_GET('obligation_payer_out',@id_main_pay,1_1)
end

.TYPE_ASSIGN(from_partner_id,@owner_id)
.TYPE_ASSIGN(to_partner_id,@contragent_id)

select @plan_sum = @sum_in_paycur

.TYPE_ASSIGN(plan_sum,@plan_sum)
.TYPE_ASSIGN(item_id,@id)
.TYPE_ASSIGN(plan_date,@dog_date)
.TYPE_ASSIGN(pay_cur_id,@pay_cur_id)
.TYPE_ASSIGN(pay_perpose_id,1)
.TYPE_ASSIGN(pay_type_id,1)

.TYPE_ASSIGN(plan_str,(convert(varchar,@plan_sum1_1)+' '+ .CUR_CODE(@pay_cur_id1_1) + ' '+ isnull(.SIMPLE_NAME(4041,@pay_perpose_id1_1),'-') + ' ' + isnull(.SIMPLE_NAME(1007,@pay_type_id1_1),'-')))

if @id_main_pay is null
begin
.TYPE_INSERT('obligation_payer_out','CRT')
select @id_main_pay = .TYPE_FIELD(id)
.INSERT_DOC_RECORD(@id_main_pay)
end
else
begin
.TYPE_UPDATE(@id_main_pay,'obligation_payer_out')
end

end

/* Коррекция плательщика-получателя в обязательствах и записи в группе для привязки платежей*/

.FOR_DOCS(N,'obligation_payer_out',ALL,C,'tb_plans.id = t_items100.id and tb_plans.item_id=@id','tb_plans')

if lower(@for_type_code1)='obligation_payer_out' and (upper(@for_state_code1) in ("CRT","OP"))
 begin
  declare @for_id1_s varchar(30)
  select @for_id1_s = convert(varchar,@for_id1)
  .EXEC_ACTION(@for_id1_s,'obligation','update_partner',Y)
  .EXEC_ACTION(@for_id1_s,'obligation','update_docitems',Y)
 end

.END_FOR_DOCS


.FOR_DOCS(N,'obligation_payer_in',ALL,C,'tb_plans.id = t_items100.id and tb_plans.item_id=@id','tb_plans',2)

if lower(@for_type_code2)='obligation_payer_in' and  (upper(@for_state_code2) in ("CRT","OP"))
 begin
  declare @for_id2_s varchar(30)
  select @for_id2_s = convert(varchar,@for_id2)
 .EXEC_ACTION(@for_id2_s,'obligation','update_partner',Y)
 .EXEC_ACTION(@for_id2_s,'obligation','update_docitems',Y)
 end

.END_FOR_DOCS(2)

commit tran
  $ENDTEXT(15160900)
 $ENDACTION

 $ACTION(ACTION9)
  name=Перерегистрировать
  class=9
  form=null
  target_state=CRT
  procedure=ap_10000000000087545
  patterns=GENERIC_MOVE
  user_define=1
  isvisible=0
  istab=0
  posx=0
  posy=0
  width=0
  height=0
  proc_text=$TEXT(15160900)
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

.GET_PROPS


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

select @baysale_date=.OPERDAY

update ts_baysale_assets
set baysale_date=@baysale_date
where id=@id

if @asset_type_id=1 /* только для недвижимости 08 -> 01 */
begin

-- изменение инф.для журнала операций
if (select is_fixed from t_sd_info4oper where id=@id)=1
begin

 declare @time4reg datetime, @assent4oper datetime

 select @time4reg=dateadd(mi,1,max(op_time)) from t_sd_asset_ops
   where fund_id=@owner_id and op_date=@baysale_date
 if @time4reg is null select @time4reg=getdate()

 -- дата согласия
 if upper(.ITEM_TYPE_CODE(@owner_id))='PIF_FUND'
  select @assent4oper=@baysale_date

 update t_sd_info4oper set
   op_date=@baysale_date,
   op_time=@time4reg,
   assent_date=@assent4oper,
   reg_date=@baysale_date,
   op_no=null
 where id=@id

end

declare @operday datetime
.GET_SD_OPER_DATE(@operday,@id)

.NAME_VAR(@fund_type_code)
.ID_VAR(@asset_manager_id)


.ID_VAR(@asset_account_id)
.ID_VAR(@asset_cor_account_id)

.ID_VAR(@fund_plan_id)
.ID_VAR(@pif_cont_comp_id)

.NAME_VAR(@doc_name_fund)

select @fund_type_code  = .ITEM_TYPE_CODE(@owner_id)
select @fund_type_code=lower(@fund_type_code)

select @asset_manager_id=isnull(@initiator_id,@owner_id)

if @fund_type_code = 'pif_fund'
  begin
    select @fund_plan_id = .ARG_PLAN('PIF_ACCOUNT')
    select @asset_account_id = .SD_ACCID_FROM_EFFNO(@fund_plan_id,'01.1')
    select @asset_cor_account_id = .SD_ACCID_FROM_EFFNO(@fund_plan_id,'08.1')
  end
else
  begin
    select @fund_plan_id = .ARG_PLAN('NPF_ACCOUNT')
    select @asset_account_id = .SD_ACCID_FROM_EFFNO(@fund_plan_id,'01.1')
    select @asset_cor_account_id = .SD_ACCID_FROM_EFFNO(@fund_plan_id,'08.1')
end

.ID_VAR(@doc_method_id)
.ID_VAR(@sum_method_id)
.ID_VAR(@partion_id)

.GET_PIF_METHODS(@owner_id,@doc_method_id,@sum_method_id)
------------------
if @sum_method_id=1
 begin
  select @partion_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'))
---------------------
 end
else
 begin
  select @partion_id=@id
 end

select @sum_in_paycur = @sum_in_paycur +
                       (select isnull(sum(pp.plan_sum),0) from tb_plan_pays pp, tb_plans p
                         where p.id=pp.id and p.item_id=@id
                           and .ITEMS_EXISTS_BY_TYPE(pp.id,'OBLIGATION_PAYER_OUT')
                           and upper(.ITEM_STATE_CODE(pp.id))='OP' and pp.pay_perpose_id<>1)


.OPERATION(@owner_id,@fund_plan_id,@operday,@asset_account_id,@asset_cor_account_id,@sum_in_paycur,@pay_cur_id,@operday,@asset_qty,@asset_qty,'Перерегистрация недвижимости',N)


.UPDATE_SUBC(D,'doc_item',@partion_id)
.UPDATE_SUBC(K,'doc_item',@partion_id)
.UPDATE_SUBC(D,'other_assets',@asset_id)
.UPDATE_SUBC(K,'other_assets',@asset_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

-- Запись в журнал

.SD_ASSENT_ADD(@id,@asset_id,@sum_in_paycur,@asset_qty,@owner_id,@asset_type_id)
.SD_ASSET_OPER_ADD(@id,@asset_id,@sum_in_paycur,@asset_qty,@owner_id,@asset_type_id,1)

end

commit tran
  $ENDTEXT(15160900)
 $ENDACTION

 $ACTION(SD_OTHER_OPER_IN)
  name=Провести
  class=9
  form=null
  target_state=CRT08
  procedure=ap_30000000003451398
  patterns=GENERIC_MOVE
  user_define=1
  isvisible=0
  istab=0
  posx=0
  posy=0
  width=0
  height=0
  proc_text=$TEXT(15160900)
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

.SD_MOVE_OBLIG_STATE(@id,'OP')

.GET_PROPS

declare @operday datetime
.GET_SD_OPER_DATE(@operday,@id)

.NAME_VAR(@fund_type_code)
.ID_VAR(@asset_manager_id)
.ID_VAR(@asset_account_id)
.ID_VAR(@asset_cor_account_id)
.ID_VAR(@obl_cor_account_id)
.ID_VAR(@fund_plan_id)
.ID_VAR(@pif_cont_comp_id)
.NAME_VAR(@doc_name_fund)
declare @ob_id numeric, @ob_sum money, @ob_partner_id numeric


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


select @fund_type_code  = .ITEM_TYPE_CODE(@owner_id)
select @fund_type_code=lower(@fund_type_code)

select @asset_manager_id=isnull(@initiator_id,@owner_id)

if @fund_type_code = 'pif_fund'
begin
 select @fund_plan_id = .ARG_PLAN('PIF_ACCOUNT')
 if @asset_type_id=1
  select @asset_account_id = .SD_ACCID_FROM_EFFNO(@fund_plan_id,'08.1') -- Недвиж незаверш
 else
  select @asset_account_id = .SD_ACCID_FROM_EFFNO(@fund_plan_id,'58.3') -- Прочие активы

 select @asset_cor_account_id = .SD_ACCID_FROM_EFFNO(@fund_plan_id,'76.13') -- Расчеты
 select @obl_cor_account_id = .SD_ACCID_FROM_EFFNO(@fund_plan_id,'76.15') -- Расходы
end

if @fund_type_code = 'npf_fund'
begin
 select @fund_plan_id = .ARG_PLAN('NPF_ACCOUNT')
 if @asset_type_id=1
  select @asset_account_id = .SD_ACCID_FROM_EFFNO(@fund_plan_id,'08.1')
 else
  select @asset_account_id = .SD_ACCID_FROM_EFFNO(@fund_plan_id,'58.3')

 if @asset_manager_id=@owner_id
 begin
  select @asset_cor_account_id = .SD_ACCID_FROM_EFFNO(@fund_plan_id,'76.10')
  select @obl_cor_account_id = .SD_ACCID_FROM_EFFNO(@fund_plan_id,'76.15')
 end
 else
 begin
  select @asset_cor_account_id = .SD_ACCID_FROM_EFFNO(@fund_plan_id,'76.11')
  select @obl_cor_account_id = .SD_ACCID_FROM_EFFNO(@fund_plan_id,'76.16')
 end
end

if .PURPOSE_CODE(@perpose_id)=7000
 select @asset_cor_account_id = .SD_ACCID_FROM_EFFNO(@fund_plan_id,'00') -- Начальное зачисление

.ID_VAR(@doc_method_id)
.ID_VAR(@sum_method_id)
.ID_VAR(@partion_id)

.GET_PIF_METHODS(@owner_id,@doc_method_id,@sum_method_id)

if @sum_method_id=1
 select @partion_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 @partion_id=@id

.OPERATION(@owner_id,@fund_plan_id,@operday,@asset_account_id,@asset_cor_account_id,@sum_in_paycur,@pay_cur_id,@operday,@asset_qty,null,'Зачисление актива',N)
.UPDATE_SUBC(D,'doc_item',@partion_id)
.UPDATE_SUBC(D,'other_assets',@asset_id)
if @fund_type_code = 'npf_fund'
begin
 .UPDATE_SUBC(D,'asset_manager',@asset_manager_id)
end
if .PURPOSE_CODE(@perpose_id)<>7000
begin
 if @fund_type_code = 'pif_fund'
 begin
  .UPDATE_SUBC(K,'partners',@contragent_id)
 end
 if @fund_type_code = 'npf_fund'
 begin
  if @asset_manager_id=@owner_id
  begin
   .UPDATE_SUBC(K,'partners',@contragent_id)
  end
  else
  begin
   .UPDATE_SUBC(K,'partners',@asset_manager_id)
  end
 end
end

.SUBC_CHECK

-- обязательства

declare oblig_ops cursor for
 select p.id, isnull(pp.plan_sum,0), p.to_partner_id from tb_plan_pays pp, tb_plans p
 where p.id=pp.id and p.item_id=@id and .ITEMS_EXISTS_BY_TYPE(pp.id,'OBLIGATION_PAYER_OUT')
   and upper(.ITEM_STATE_CODE(pp.id))='OP' and pp.pay_perpose_id<>1
 for read only
open oblig_ops
fetch oblig_ops into @ob_id, @ob_sum, @ob_partner_id
while .CURSOR_STATE=0
begin

 .OPERATION(@owner_id,@fund_plan_id,@operday,@asset_account_id,@obl_cor_account_id,@ob_sum,@pay_cur_id,@operday,0,null,'Начисление комиссий',N)
 .UPDATE_SUBC(D,'doc_item',@partion_id)
 .UPDATE_SUBC(D,'other_assets',@asset_id)
 if @fund_type_code = 'npf_fund'
 begin
  .UPDATE_SUBC(D,'asset_manager',@asset_manager_id)
 end
 if .PURPOSE_CODE(@perpose_id)<>7000
 begin
  if @fund_type_code = 'pif_fund'
  begin
   .UPDATE_SUBC(K,'partners',@ob_partner_id)
  end
  if @fund_type_code = 'npf_fund'
  begin
   if @asset_manager_id=@owner_id
   begin
    .UPDATE_SUBC(K,'partners',@ob_partner_id)
   end
   else
   begin
    .UPDATE_SUBC(K,'partners',@asset_manager_id)
   end
  end
 end

 .SUBC_CHECK

 fetch oblig_ops into @ob_id, @ob_sum, @ob_partner_id
end
close oblig_ops
.DEALLOCATE oblig_ops

-- Запись в журнал

.SD_INDOC_CREATE4OPER(@id,null,@dog_date,@dog_no,@contragent_id,@owner_id,null,null,null)

declare @j_sum money
select @j_sum=@sum_in_paycur+isnull(sum(pp.plan_sum),0) from tb_plan_pays pp, tb_plans p
 where p.id=pp.id and p.item_id=@id and .ITEMS_EXISTS_BY_TYPE(pp.id,'OBLIGATION_PAYER_OUT')
   and upper(.ITEM_STATE_CODE(pp.id))='OP' and pp.pay_perpose_id<>1

.SD_ASSENT_ADD(@id,@asset_id,@j_sum,@asset_qty,@owner_id,@asset_type_id)
.SD_ASSET_OPER_ADD(@id,@asset_id,@j_sum,@asset_qty,@owner_id,@asset_type_id,1)

commit tran
  $ENDTEXT(15160900)
 $ENDACTION

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

 $STATE2ACTION(CRT.ACTION7)
  state=CRT
  action=ACTION7
 $ENDSTATE2ACTION

 $STATE2ACTION(CRT.D_ASSET_EDIT_BYE)
  state=CRT
  action=D_ASSET_EDIT_BYE
 $ENDSTATE2ACTION

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

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

 $STATE2ACTION(CRT.FORM3)
  state=CRT
  action=FORM3
 $ENDSTATE2ACTION

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

 $STATE2ACTION(CRT08.ACTION7)
  state=CRT08
  action=ACTION7
 $ENDSTATE2ACTION

 $STATE2ACTION(CRT08.ACTION9)
  state=CRT08
  action=ACTION9
 $ENDSTATE2ACTION

 $STATE2ACTION(CRT08.D_ASSET_EDIT_BYE)
  state=CRT08
  action=D_ASSET_EDIT_BYE
 $ENDSTATE2ACTION

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

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

 $STATE2ACTION(CRT08.FORM3)
  state=CRT08
  action=FORM3
 $ENDSTATE2ACTION

 $STATE2ACTION(EDIT.ACTION10)
  state=EDIT
  action=ACTION10
 $ENDSTATE2ACTION

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

 $STATE2ACTION(EDIT.ACTION7)
  state=EDIT
  action=ACTION7
 $ENDSTATE2ACTION

 $STATE2ACTION(EDIT.D_ASSET_EDIT_BYE)
  state=EDIT
  action=D_ASSET_EDIT_BYE
 $ENDSTATE2ACTION

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

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

 $STATE2ACTION(EDIT.FORM3)
  state=EDIT
  action=FORM3
 $ENDSTATE2ACTION

 $STATE2ACTION(EDIT.SD_OTHER_OPER_IN)
  state=EDIT
  action=SD_OTHER_OPER_IN
 $ENDSTATE2ACTION

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

 $STATE2ACTION(NEW.ACTION7)
  state=NEW
  action=ACTION7
 $ENDSTATE2ACTION

 $STATE2ACTION(NEW.D_ASSET_EDIT_BYE)
  state=NEW
  action=D_ASSET_EDIT_BYE
 $ENDSTATE2ACTION

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

 $STATE2PROP(EDIT.ASSET_ID)
  state=EDIT
  prop=ASSET_ID
  enable=1
  mandatory=1
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(EDIT.ASSET_PRICE)
  state=EDIT
  prop=ASSET_PRICE
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(EDIT.ASSET_QTY)
  state=EDIT
  prop=ASSET_QTY
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(EDIT.ASSET_TYPE_ID)
  state=EDIT
  prop=ASSET_TYPE_ID
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(EDIT.BAYSALE_DATE)
  state=EDIT
  prop=BAYSALE_DATE
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(EDIT.CONTRAGENT_ID)
  state=EDIT
  prop=CONTRAGENT_ID
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

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

 $STATE2PROP(EDIT.CUR_ID)
  state=EDIT
  prop=CUR_ID
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(EDIT.CUR_PRICE2PAY_RATE)
  state=EDIT
  prop=CUR_PRICE2PAY_RATE
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

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

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

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

 $STATE2PROP(EDIT.DOG_DATE)
  state=EDIT
  prop=DOG_DATE
  enable=1
  mandatory=1
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(EDIT.DOG_NO)
  state=EDIT
  prop=DOG_NO
  enable=1
  mandatory=1
  visible=1
 $ENDSTATE2PROP

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

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

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

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

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

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

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

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

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

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

 $STATE2PROP(EDIT.RATE_DATE)
  state=EDIT
  prop=RATE_DATE
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(EDIT.RATE_PLACE_ID)
  state=EDIT
  prop=RATE_PLACE_ID
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(EDIT.SUMM_DOC_TOTAL)
  state=EDIT
  prop=SUMM_DOC_TOTAL
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

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

 $STATE2PROP(EDIT.SUM_IN_PAYCUR)
  state=EDIT
  prop=SUM_IN_PAYCUR
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

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

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

 $STATE2PROP(NEW.ASSET_ID)
  state=NEW
  prop=ASSET_ID
  enable=1
  mandatory=1
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(NEW.ASSET_PRICE)
  state=NEW
  prop=ASSET_PRICE
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(NEW.ASSET_QTY)
  state=NEW
  prop=ASSET_QTY
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(NEW.ASSET_TYPE_ID)
  state=NEW
  prop=ASSET_TYPE_ID
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(NEW.BAYSALE_DATE)
  state=NEW
  prop=BAYSALE_DATE
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(NEW.CONTRAGENT_ID)
  state=NEW
  prop=CONTRAGENT_ID
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

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

 $STATE2PROP(NEW.CUR_ID)
  state=NEW
  prop=CUR_ID
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(NEW.CUR_PRICE2PAY_RATE)
  state=NEW
  prop=CUR_PRICE2PAY_RATE
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

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

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

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

 $STATE2PROP(NEW.DOG_DATE)
  state=NEW
  prop=DOG_DATE
  enable=1
  mandatory=1
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(NEW.DOG_NO)
  state=NEW
  prop=DOG_NO
  enable=1
  mandatory=1
  visible=1
 $ENDSTATE2PROP

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

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

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

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

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

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

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

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

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

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

 $STATE2PROP(NEW.RATE_DATE)
  state=NEW
  prop=RATE_DATE
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(NEW.RATE_PLACE_ID)
  state=NEW
  prop=RATE_PLACE_ID
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(NEW.SUMM_DOC_TOTAL)
  state=NEW
  prop=SUMM_DOC_TOTAL
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

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

 $STATE2PROP(NEW.SUM_IN_PAYCUR)
  state=NEW
  prop=SUM_IN_PAYCUR
  enable=1
  mandatory=0
  visible=1
 $ENDSTATE2PROP

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

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