# Date: 28/11/05
# Version: 105

$DOC(STOCK_COUPON_ALGORITHMS)
 name=Алгоритмы округления КД
 class=2
 product=ALD_SECUR
 name_formula=null
 remark_formula=null

 $STATE(DEFAULT)
  name=Назначен
  class=0
 $ENDSTATE

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

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

 $STATE(NEW)
  name=Создан
  class=1
 $ENDSTATE

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

 $PROP(STOCK_ID)
  name=Ценная бумага
  field_name=stock_id
  table_name=tb_coupon_algorithms
  field_type=numeric
  field_length=9
  field_scale=0
  field_prec=18
  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(ROUND_METHOD_ID)
  name=Метод округления КД
  field_name=round_method_id
  table_name=tb_coupon_algorithms
  field_type=numeric
  field_length=9
  field_scale=0
  field_prec=18
  page=1
  order=2
  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(DIGITS_COUNT)
  name=Количество знаков после зпт
  field_name=digits_count
  table_name=tb_coupon_algorithms
  field_type=int
  field_length=4
  field_scale=0
  field_prec=10
  page=1
  order=3
  init_class=1
  init_formula=2
  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=SIMPLES
  form=null
  prop=ROUND_METHOD_ID
  idname=null
  order=20
 $ENDRELATION

 $RELATION(REL2)
  class=0
  type=TD_STOCK_EMIS
  form=null
  prop=STOCK_ID
  idname=null
  order=10
 $ENDRELATION

 $FORM(FORM_LIST)
  name=Список алгоритмов округления купонных доходов
  class=4
  filter=null
  target_state=
  uo=uo_list
  dw=d_coupon_algorithm_list
  procedure=ap_11535000000383431
  patterns=GENERIC_VIEW_LIST_P1
  user_define=0
  isvisible=1
  istab=0
  posx=0
  posy=0
  width=0
  height=0
  proc_text=$TEXT(14095586)
create procedure dbo.%PROC%
  @sid varchar(30) = null .ARGLIST_FILTER
as
.BEGIN('N')

.CHECK_USER
.CHECK_VIEW_LIST

.ARGCONVERT_FILTER

.VIEW_LIST(ALL,1)

.END
  $ENDTEXT(14095586)

  $ACTION2RELATION(REL2.STOCK_CODE)
   relation=REL2
   where=null
   prop=STOCK_CODE
   order=37
   alias=stock_code
  $ENDACTION2RELATION

  $ACTION2RELATION(REL2.STOCK_NAME)
   relation=REL2
   where=null
   prop=STOCK_NAME
   order=38
   alias=stock_name
  $ENDACTION2RELATION

  $ACTION2RELATION(REL1.SIMPLE_NAME)
   relation=REL1
   where=type_id = 6040
   prop=SIMPLE_NAME
   order=1
   alias=round_method_name
  $ENDACTION2RELATION
 $ENDFORM

 $FORM(FORM_VIEW)
  name=Просмотр
  class=5
  filter=null
  target_state=
  uo=uo_edit
  dw=d_coupon_algorithm_edit
  procedure=ap_11535000000383434
  patterns=GENERIC_VIEW_ITEM_P1
  user_define=0
  isvisible=0
  istab=0
  posx=0
  posy=0
  width=2080
  height=840
  proc_text=$TEXT(14095586)
create procedure dbo.%PROC%
  @sid varchar(30) = null
as
.BEGIN('N')

.CHECK_USER
.CHECK_VIEW_ITEM

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

.VIEW_ITEM(ALL,1)

.END
  $ENDTEXT(14095586)

  $ACTION2RELATION(REL2.STOCK_CODE)
   relation=REL2
   where=null
   prop=STOCK_CODE
   order=37
   alias=stock_code
  $ENDACTION2RELATION

  $ACTION2RELATION(REL2.STOCK_NAME)
   relation=REL2
   where=null
   prop=STOCK_NAME
   order=38
   alias=stock_name
  $ENDACTION2RELATION
 $ENDFORM

 $ACTION(ACTION_DELETE)
  name=Удалить
  class=3
  form=FORM_VIEW
  target_state=DEL
  procedure=ap_11535000000383436
  patterns=GENERIC_MOVE
  user_define=0
  isvisible=0
  istab=0
  posx=0
  posy=0
  width=0
  height=0
  proc_text=$TEXT(14095587)
create procedure dbo.%PROC% @sid varchar(30) = null
as
.BEGIN('N')

.CHECK_USER
.CHECK_UPDATE

begin tran
.UPDATE_STATE
.ACTION_HISTORY

/*-------Проводки ----------*/
commit tran
.END
  $ENDTEXT(14095587)
 $ENDACTION

 $ACTION(ACTION_INSERT)
  name=Добавить
  class=1
  form=FORM_VIEW
  target_state=ED
  procedure=ap_11535000000383437
  patterns=GENERIC_INSERT_P1
  user_define=0
  isvisible=0
  istab=0
  posx=0
  posy=0
  width=2181
  height=784
  proc_text=$TEXT(14095587)
create procedure dbo.%PROC% @sid varchar(30) = null,
.ARGLIST(ALL,1)
as
.BEGIN('N')

.CHECK_USER
.CHECK_UPDATE

.ARGCONVERT(ALL,1)

.INIT_VARS(AFTER,ALL,1)

.TEST_UNIQUE(ALL,1)

begin tran

.UPDATE(ALL,1)

.RELGEN
.UPDATE_STATE
.ACTION_HISTORY
commit tran

select sid = convert(varchar,@id)
.END
  $ENDTEXT(14095587)
 $ENDACTION

 $ACTION(ACTION_MOVE1)
  name=Использовать по умолчанию
  class=9
  form=null
  target_state=DEFAULT
  procedure=ap_11535000000383438
  patterns=GENERIC_MOVE
  user_define=0
  isvisible=0
  istab=0
  posx=0
  posy=0
  width=0
  height=0
  proc_text=$TEXT(14095587)
create procedure dbo.%PROC% @sid varchar(30) = null
as
.BEGIN('N')

.CHECK_USER
.CHECK_UPDATE

.GET_PROPS(ALL,1)

begin tran
.UPDATE_STATE
.ACTION_HISTORY

IF(ISNULL(@stock_id,-1) <> -1)
 .EXIT_MESSAGE('В данной настройке нет необходимости указывать ЦБ.')

IF(ISNULL(@round_method_id,-1) = -1)
 .EXIT_MESSAGE('В данной настройке не указан метод округления КД.')

IF(EXISTS(SELECT 1
            FROM tb_coupon_algorithms, t_items, t_types, t_states
           WHERE tb_coupon_algorithms.id = t_items.id
             AND tb_coupon_algorithms.id != @id
             AND t_types.type_code = 'STOCK_COUPON_ALGORITHMS'
             AND t_items.type_id = t_types.id
             AND t_items.state_id = t_states.id
             AND t_states.class_id = 0
             AND t_states.state_code = 'DEFUALT'))
 BEGIN
 .EXIT_MESSAGE('Алгоритм округления купонного дохода по умолчанию уже существует.')
 END

/*-------Проводки ----------*/
commit tran
.END
  $ENDTEXT(14095587)
 $ENDACTION

 $ACTION(ACTION_MOVE2)
  name=Отменить
  class=9
  form=null
  target_state=ED
  procedure=ap_11535000000383439
  patterns=GENERIC_MOVE
  user_define=0
  isvisible=0
  istab=0
  posx=0
  posy=0
  width=0
  height=0
  proc_text=$TEXT(14095587)
create procedure dbo.%PROC% @sid varchar(30) = null
as
.BEGIN('N')

.CHECK_USER
.CHECK_UPDATE

begin tran
.UPDATE_STATE
.ACTION_HISTORY

/*-------Проводки ----------*/
commit tran
.END
  $ENDTEXT(14095587)
 $ENDACTION

 $ACTION(ACTION_MOVE3)
  name=Подтвердить алгоритм
  class=9
  form=null
  target_state=PODT
  procedure=ap_11535000000383440
  patterns=GENERIC_MOVE
  user_define=0
  isvisible=0
  istab=0
  posx=0
  posy=0
  width=0
  height=0
  proc_text=$TEXT(14095587)
create procedure dbo.%PROC% @sid varchar(30) = null
as
.BEGIN('N')

.CHECK_USER
.CHECK_UPDATE

.GET_PROPS(ALL,1)

begin tran
.UPDATE_STATE
.ACTION_HISTORY

IF(ISNULL(@stock_id,-1) = -1)
 .EXIT_MESSAGE('В данной настройке не указана ЦБ.')

IF(ISNULL(@round_method_id,-1) = -1)
 .EXIT_MESSAGE('В данной настройке не указан метод округления КД.')

IF(EXISTS(SELECT 1
            FROM tb_coupon_algorithms, t_items, t_types, t_states
           WHERE tb_coupon_algorithms.stock_id = @stock_id
             AND tb_coupon_algorithms.id != @id
             AND tb_coupon_algorithms.id = t_items.id
             AND t_types.type_code = 'STOCK_COUPON_ALGORITHMS'
             AND t_items.type_id = t_types.id
             AND t_items.state_id = t_states.id
             AND t_states.class_id = 0
             AND t_states.state_code = 'PODT'))
 BEGIN
 .EXIT_MESSAGE('Алгоритм округления купонного дохода для данной ЦБ уже существует.')
 END

/*-------Проводки ----------*/
commit tran
.END
  $ENDTEXT(14095587)
 $ENDACTION

 $ACTION(ACTION_UPDATE)
  name=Изменить алгоритм
  class=2
  form=FORM_VIEW
  target_state=null
  procedure=ap_11535000000383441
  patterns=GENERIC_UPDATE_P1
  user_define=0
  isvisible=0
  istab=0
  posx=0
  posy=0
  width=2185
  height=812
  proc_text=$TEXT(14095587)
create procedure dbo.%PROC% @sid varchar(30) = null,
.ARGLIST(ALL,1)
as
.BEGIN('N')

.CHECK_USER
.CHECK_UPDATE

.ARGCONVERT(ALL,1)

.TEST_UNIQUE(ALL,1)

begin tran
.UPDATE(ALL,1)

.RELGEN
.UPDATE_STATE
.ACTION_HISTORY

commit tran
select sid = convert(varchar, @id)
.END
  $ENDTEXT(14095587)
 $ENDACTION

 $STATE2ACTION(DEFAULT.ACTION_MOVE2)
  state=DEFAULT
  action=ACTION_MOVE2
 $ENDSTATE2ACTION

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

 $STATE2ACTION(DEFAULT.FORM_VIEW)
  state=DEFAULT
  action=FORM_VIEW
 $ENDSTATE2ACTION

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

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

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

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

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

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

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

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

 $STATE2ACTION(PODT.ACTION_MOVE2)
  state=PODT
  action=ACTION_MOVE2
 $ENDSTATE2ACTION

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

 $STATE2ACTION(PODT.FORM_VIEW)
  state=PODT
  action=FORM_VIEW
 $ENDSTATE2ACTION

 $STATE2PROP(DEFAULT.DIGITS_COUNT)
  state=DEFAULT
  prop=DIGITS_COUNT
  enable=1
  mandatory=1
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(DEFAULT.ROUND_METHOD_ID)
  state=DEFAULT
  prop=ROUND_METHOD_ID
  enable=1
  mandatory=1
  visible=1
 $ENDSTATE2PROP

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

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

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

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

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

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

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

 $STATE2PROP(PODT.DIGITS_COUNT)
  state=PODT
  prop=DIGITS_COUNT
  enable=1
  mandatory=1
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(PODT.ROUND_METHOD_ID)
  state=PODT
  prop=ROUND_METHOD_ID
  enable=1
  mandatory=1
  visible=1
 $ENDSTATE2PROP

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