# Date: 05/07/06
# Version: 105

$DOC(PIF_PAY_EXPENSES)
 name=Расходы на приобретение паев
 class=1
 product=ALD_PIF
 name_formula=null
 remark_formula=null

 $STATE(CRT)
  name=Создан
  class=0
 $ENDSTATE

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

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

 $PROP(FUND_ID)
  name=Фонд
  field_name=fund_id
  table_name=td_pif_pay_expenses
  field_type=numeric
  field_length=9
  field_scale=0
  field_prec=18
  page=1
  order=1
  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(PARTNER_ID)
  name=Пайщик
  field_name=partner_id
  table_name=td_pif_pay_expenses
  field_type=numeric
  field_length=9
  field_scale=0
  field_prec=18
  page=1
  order=2
  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(DOC_ID)
  name=Партия зачисления паев
  field_name=doc_id
  table_name=td_pif_pay_expenses
  field_type=numeric
  field_length=9
  field_scale=0
  field_prec=18
  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(EXP_SUM)
  name=Сумма расходов
  field_name=exp_sum
  table_name=td_pif_pay_expenses
  field_type=money
  field_length=8
  field_scale=4
  field_prec=19
  page=1
  order=4
  init_class=1
  init_formula=0
  unique_index=null
  numerator=null
  import_type=null
  import_table=null
  import_field=null
  import_where=null
  ref_table=null
  ref_key=null
  ref_display=null
  ref_alias=null
  ref_where=null
 $ENDPROP

 $PROP(EXP_TYPE)
  name=Вид расхода
  field_name=exp_type
  table_name=td_pif_pay_expenses
  field_type=numeric
  field_length=9
  field_scale=0
  field_prec=18
  page=1
  order=5
  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(EXP_DATE)
  name=Дата
  field_name=exp_date
  table_name=td_pif_pay_expenses
  field_type=datetime
  field_length=8
  field_scale=3
  field_prec=23
  page=1
  order=6
  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

 $RELATION(REL1)
  class=0
  type=FUND_GROUP
  form=null
  prop=FUND_ID
  idname=null
  order=10
 $ENDRELATION

 $RELATION(REL2)
  class=0
  type=SIMPLES
  form=null
  prop=EXP_TYPE
  idname=null
  order=40
 $ENDRELATION

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

 $RELATION(REL4)
  class=0
  type=ITEMS
  form=null
  prop=DOC_ID
  idname=null
  order=30
 $ENDRELATION

 $FORM(PIF_PAY_EXPENSES_EDIT)
  name=Редактор
  class=5
  filter=null
  target_state=
  uo=uo_edit
  dw=d_pif_pay_expenses_edit
  procedure=ap_30000000003453695
  patterns=GENERIC_VIEW_ITEM
  user_define=0
  isvisible=1
  istab=0
  posx=0
  posy=0
  width=0
  height=0
  proc_text=$TEXT(16561895)
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

.END
  $ENDTEXT(16561895)

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

  $ACTION2RELATION(REL3.PARTNER_SHORT_NAME)
   relation=REL3
   where=null
   prop=PARTNER_SHORT_NAME
   order=10
   alias=partner_short_name
  $ENDACTION2RELATION

  $ACTION2RELATION(REL4.ITEM_NAME)
   relation=REL4
   where=null
   prop=ITEM_NAME
   order=4
   alias=doc_name
  $ENDACTION2RELATION
 $ENDFORM

 $FORM(PIF_PAY_EXPENSES_FILTER)
  name=Фильтр
  class=6
  filter=null
  target_state=
  uo=uo_filter
  dw=d_pif_pay_expenses_filter
  procedure=ap_30000000003453699
  patterns=null
  user_define=0
  isvisible=0
  istab=0
  posx=0
  posy=0
  width=1893
  height=444
  proc_text=$TEXT(16561895)
create procedure dbo.%PROC%
as
begin


declare @fund_id numeric
declare @fund_name varchar(255)
select @fund_id = .ORGANIZATION_PIF
select @fund_name = (select partner_short_name from t_partners where id=@fund_id)


select
 convert(varchar(30), null) as sid,
 convert(varchar(30), @fund_id) as fund_id_s,
 convert(varchar(255), @fund_name) as fund_name,
 convert(varchar(30), null) as partner_id_s,
 convert(varchar(100), null) as partner_name

end
  $ENDTEXT(16561895)

  $FILTER(FUND_ID)
   type=1
   label=Фонд
   prop=FUND_ID
   arg_code=null
   arg_type=null
   arg_length=null
   arg_prec=null
   arg_scale=null
  $ENDFILTER

  $FILTER(PARTNER_ID)
   type=1
   label=Пайщик
   prop=PARTNER_ID
   arg_code=null
   arg_type=null
   arg_length=null
   arg_prec=null
   arg_scale=null
  $ENDFILTER
 $ENDFORM

 $FORM(PIF_PAY_EXPENSES_LIST)
  name=Список расходов по приобретению паев
  class=4
  filter=PIF_PAY_EXPENSES_FILTER
  target_state=
  uo=uo_list
  dw=d_pif_pay_expenses_list
  procedure=ap_30000000003453702
  patterns=GENERIC_VIEW_LIST
  user_define=0
  isvisible=0
  istab=0
  posx=0
  posy=0
  width=4251
  height=1012
  proc_text=$TEXT(16561896)
create procedure dbo.%PROC% @sid varchar(30) = null
   .ARGLIST_FILTER
as
.BEGIN('N')

.CHECK_USER
.CHECK_VIEW_LIST

.ARGCONVERT_FILTER

.VIEW_LIST

.END
  $ENDTEXT(16561896)

  $ACTION2RELATION(REL1.PARTNER_SHORT_NAME)
   relation=REL1
   where=null
   prop=PARTNER_SHORT_NAME
   order=1
   alias=fund_name
  $ENDACTION2RELATION

  $ACTION2RELATION(REL3.PARTNER_SHORT_NAME)
   relation=REL3
   where=null
   prop=PARTNER_SHORT_NAME
   order=10
   alias=partner_short_name
  $ENDACTION2RELATION

  $ACTION2RELATION(REL4.ITEM_NAME)
   relation=REL4
   where=null
   prop=ITEM_NAME
   order=3
   alias=doc_name
  $ENDACTION2RELATION

  $ACTION2RELATION(REL2.SIMPLE_NAME)
   relation=REL2
   where=type_id=5050
   prop=SIMPLE_NAME
   order=2
   alias=expenses_name
  $ENDACTION2RELATION
 $ENDFORM

 $ACTION(PIF_PAY_EXPENSES_ADD)
  name=Добавить
  class=1
  form=PIF_PAY_EXPENSES_EDIT
  target_state=CRT
  procedure=ap_30000000003453707
  patterns=GENERIC_INSERT
  user_define=1
  isvisible=0
  istab=0
  posx=0
  posy=0
  width=1947
  height=844
  proc_text=$TEXT(16561896)
create procedure dbo.%PROC% @sid varchar(30) = null,
.ARGLIST
as
.BEGIN('N')
/*
--*****************************************************************
if @exp_sum<=0
 .EXIT_MESSAGE('Сумма расходов не может быть меньше или равна 0')
--*****************************************************************
*/

.CHECK_USER
.CHECK_UPDATE

.ARGCONVERT

.INIT_VARS

.TEST_UNIQUE



begin tran

.UPDATE_ITEMS

.UPDATE

.RELGEN

.UPDATE_STATE
.ACTION_HISTORY

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

 $ACTION(PIF_PAY_EXPENSES_DEL)
  name=Удалить
  class=3
  form=PIF_PAY_EXPENSES_EDIT
  target_state=DEL
  procedure=ap_30000000003453708
  patterns=GENERIC_MOVE
  user_define=0
  isvisible=0
  istab=0
  posx=0
  posy=0
  width=1966
  height=848
  proc_text=$TEXT(16561896)
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(16561896)
 $ENDACTION

 $ACTION(PIF_PAY_EXPENSES_EDT)
  name=Изменить
  class=2
  form=PIF_PAY_EXPENSES_EDIT
  target_state=null
  procedure=ap_30000000003453709
  patterns=GENERIC_UPDATE
  user_define=0
  isvisible=0
  istab=0
  posx=0
  posy=0
  width=1966
  height=880
  proc_text=$TEXT(16561896)
create procedure dbo.%PROC% @sid varchar(30) = null,
.ARGLIST
as
.BEGIN('N')
--*****************************************************************
if @exp_sum<=0 begin
   rollback tran
   raiserror 40000 'Сумма расходов не может быть меньше или равна 0'
   return
end
--*****************************************************************
.CHECK_USER
.CHECK_UPDATE

.ARGCONVERT

.TEST_UNIQUE

begin tran
.UPDATE_ITEMS

.UPDATE

.RELGEN
.UPDATE_STATE
.ACTION_HISTORY
commit tran
.END
  $ENDTEXT(16561896)
 $ENDACTION

 $STATE2ACTION(CRT.PIF_PAY_EXPENSES_ADD)
  state=CRT
  action=PIF_PAY_EXPENSES_ADD
  is_available=0
 $ENDSTATE2ACTION

 $STATE2ACTION(CRT.PIF_PAY_EXPENSES_DEL)
  state=CRT
  action=PIF_PAY_EXPENSES_DEL
  is_available=1
 $ENDSTATE2ACTION

 $STATE2ACTION(CRT.PIF_PAY_EXPENSES_EDIT)
  state=CRT
  action=PIF_PAY_EXPENSES_EDIT
  is_available=1
 $ENDSTATE2ACTION

 $STATE2ACTION(CRT.PIF_PAY_EXPENSES_EDT)
  state=CRT
  action=PIF_PAY_EXPENSES_EDT
  is_available=1
 $ENDSTATE2ACTION

 $STATE2ACTION(CRT.PIF_PAY_EXPENSES_FILTER)
  state=CRT
  action=PIF_PAY_EXPENSES_FILTER
  is_available=1
 $ENDSTATE2ACTION

 $STATE2ACTION(CRT.PIF_PAY_EXPENSES_LIST)
  state=CRT
  action=PIF_PAY_EXPENSES_LIST
  is_available=1
 $ENDSTATE2ACTION

 $STATE2ACTION(DEL.PIF_PAY_EXPENSES_ADD)
  state=DEL
  action=PIF_PAY_EXPENSES_ADD
  is_available=0
 $ENDSTATE2ACTION

 $STATE2ACTION(DEL.PIF_PAY_EXPENSES_DEL)
  state=DEL
  action=PIF_PAY_EXPENSES_DEL
  is_available=0
 $ENDSTATE2ACTION

 $STATE2ACTION(DEL.PIF_PAY_EXPENSES_EDIT)
  state=DEL
  action=PIF_PAY_EXPENSES_EDIT
  is_available=0
 $ENDSTATE2ACTION

 $STATE2ACTION(DEL.PIF_PAY_EXPENSES_EDT)
  state=DEL
  action=PIF_PAY_EXPENSES_EDT
  is_available=0
 $ENDSTATE2ACTION

 $STATE2ACTION(DEL.PIF_PAY_EXPENSES_FILTER)
  state=DEL
  action=PIF_PAY_EXPENSES_FILTER
  is_available=0
 $ENDSTATE2ACTION

 $STATE2ACTION(DEL.PIF_PAY_EXPENSES_LIST)
  state=DEL
  action=PIF_PAY_EXPENSES_LIST
  is_available=0
 $ENDSTATE2ACTION

 $STATE2ACTION(NEW.PIF_PAY_EXPENSES_ADD)
  state=NEW
  action=PIF_PAY_EXPENSES_ADD
  is_available=1
 $ENDSTATE2ACTION

 $STATE2ACTION(NEW.PIF_PAY_EXPENSES_DEL)
  state=NEW
  action=PIF_PAY_EXPENSES_DEL
  is_available=0
 $ENDSTATE2ACTION

 $STATE2ACTION(NEW.PIF_PAY_EXPENSES_EDIT)
  state=NEW
  action=PIF_PAY_EXPENSES_EDIT
  is_available=0
 $ENDSTATE2ACTION

 $STATE2ACTION(NEW.PIF_PAY_EXPENSES_EDT)
  state=NEW
  action=PIF_PAY_EXPENSES_EDT
  is_available=0
 $ENDSTATE2ACTION

 $STATE2ACTION(NEW.PIF_PAY_EXPENSES_FILTER)
  state=NEW
  action=PIF_PAY_EXPENSES_FILTER
  is_available=1
 $ENDSTATE2ACTION

 $STATE2ACTION(NEW.PIF_PAY_EXPENSES_LIST)
  state=NEW
  action=PIF_PAY_EXPENSES_LIST
  is_available=0
 $ENDSTATE2ACTION

 $STATE2PROP(CRT.DOC_ID)
  state=CRT
  prop=DOC_ID
  enable=1
  mandatory=1
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(CRT.EXP_DATE)
  state=CRT
  prop=EXP_DATE
  enable=1
  mandatory=1
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(CRT.EXP_SUM)
  state=CRT
  prop=EXP_SUM
  enable=1
  mandatory=1
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(CRT.EXP_TYPE)
  state=CRT
  prop=EXP_TYPE
  enable=1
  mandatory=1
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(CRT.FUND_ID)
  state=CRT
  prop=FUND_ID
  enable=1
  mandatory=1
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(CRT.PARTNER_ID)
  state=CRT
  prop=PARTNER_ID
  enable=1
  mandatory=1
  visible=1
 $ENDSTATE2PROP

 $STATE2PROP(DEL.DOC_ID)
  state=DEL
  prop=DOC_ID
  enable=0
  mandatory=0
  visible=0
 $ENDSTATE2PROP

 $STATE2PROP(DEL.EXP_DATE)
  state=DEL
  prop=EXP_DATE
  enable=0
  mandatory=0
  visible=0
 $ENDSTATE2PROP

 $STATE2PROP(DEL.EXP_SUM)
  state=DEL
  prop=EXP_SUM
  enable=0
  mandatory=0
  visible=0
 $ENDSTATE2PROP

 $STATE2PROP(DEL.EXP_TYPE)
  state=DEL
  prop=EXP_TYPE
  enable=0
  mandatory=0
  visible=0
 $ENDSTATE2PROP

 $STATE2PROP(DEL.FUND_ID)
  state=DEL
  prop=FUND_ID
  enable=0
  mandatory=0
  visible=0
 $ENDSTATE2PROP

 $STATE2PROP(DEL.PARTNER_ID)
  state=DEL
  prop=PARTNER_ID
  enable=0
  mandatory=0
  visible=0
 $ENDSTATE2PROP

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

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

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

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

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

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