include=System\Object.sql
include=System\Module.sql
include=System\Application.sql
include=Subjects\Person.sql
go

exec Folder 'Root.Docs', 'Документы'
go

exec Class 'Document', 'Object', 'Абстрактный документ', 0
  exec Field 'Number', 'String', 'Номер', 'null'
  exec Field 'Date', 'Date', 'Дата', 'null'
  exec Field 'Manager', 'Person', 'Менеджер', 'null^Folder=Root.Refs.Subjects.Persons'
  exec Field 'BaseDoc', 'Document', 'Документ-основание', 'null^Folder=Root.Docs'
  exec Action 'Print', 'Распечатать'
  --exec Event 'Register', 'Регистрация документа'
exec Compile
go

create procedure Document_GetDefaultRegistrator
as
  set nocount on
  select distinct 
         a.DocRegisterOID,
         a.DocRegisterName,
         a.DocRegisterClass
    from VModule_Users u
           join
         VApplication a
           on a.OID = u.OID
    where u.UserOID = dbo.CurrentUser()
go

create procedure Document_GetChildDocs
  @OID OID
as
  set nocount on
  select t.*
    from VTree t
           join
         VClassTree ct
           on ct.BaseClass = t.Class
           and ct.Class = 'Document'
    where t.ParentOID = @OID
      and t.HierarchyOID = (select OID from VHierarchy where Ext = 'Documents')
go

create procedure Document_Register
  @OID OID
as
  set nocount on
  declare @EventOID OID
  
  select @EventOID = OID from VEvent where Ext = 'Register'
  exec Event_Throw @EventOID, @OID
go

include=Docs\Document.sql
include=Refs\Currency.sql
include=Things\Thing.sql
go

exec Class 'OperDoc', 'Document', 'Операционный документ', 0
  exec Field 'Agent', 'Subject', 'Юридическое лицо', 'Folder=Root.Refs.Subjects'
  exec Field 'Counter', 'Subject', 'Контрагент', 'null^Folder=Root.Refs.Subjects'
  exec Field 'Currency', 'Currency', 'Валюта', 'null^Folder=Root.Refs.Currencies'
  exec Field 'Summa', 'Money', 'Сумма', 'null'
  exec Field 'SummStr', 'String', 'Сумма Прописью', 'null'
  exec Field 'Comments', 'MaxString', 'Комментарий', 'null'
  exec SubTable 'Things' , 'Товары и услуги'
    exec Field 'RowID', 'Integer', '', 'Identity(1, 1) Key'
    exec Field 'Thing', 'Thing', 'Объект учета', 'Key^Folder=Root.Refs.Things'
    exec Field 'Agent', 'Subject', 'Субагент', 'null^Folder=Root.Refs.Subjects'
    exec Field 'Counter', 'Subject', 'Субконтрагент', 'null^Folder=Root.Refs.Subjects'
  exec SubTable 'Measures', 'Измерения'
    exec Field 'RowID', 'Integer', '', 'Key'
    exec Field 'Measure', 'Measure', 'Измерение', 'Key^Folder=Root.Refs.Measures'
    exec Field 'Unit', 'Unit', 'Ед. изм.', 'Folder=Root.Refs.Units'
    exec Field 'Quantity', 'Money', 'Количество'
  exec SubTable 'Operations', 'Операции'
    exec Field 'Operation', 'Operation', '', 'Key^Folder=Root.System.Operations'
exec Compile
go

create procedure OperDoc_Transact
  @OID OID
as
  set nocount on
  declare @TransactionOID OID,
          @Err            int
          
  declare Walker cursor local fast_forward for
    select TransactionOID
      from TOperDoc_Transactions
      where OID = @OID
      
  open Walker
    fetch next from Walker into @TransactionOID
    while @@fetch_status = 0
    begin
      exec @Err = Transaction_Execute @TransactionOID, @OID
      if @Err <> 0 return 1
      fetch next from Walker into @TransactionOID
    end
  close Walker
  deallocate Walker
go

create procedure OperDoc_Transact
  @OID         OID,
  @RegisterOID OID
as
  set nocount on
  declare @Date            datetime,
          @AgentOID        OID,
          @CounterOID      OID,
          @TranID          int,
          @MeasureOID      OID,
          @UnitOID         OID,
          @ThingOID        OID,
          @Err             int,
          @Quantity        int,
          @DebitOID        OID,
          @CreditOID       OID,
          @RowID           int
  
  select @Date        = dbo.Date(Date),
         @AgentOID    = AgentOID,
         @CounterOID  = CounterOID
    from VOperDoc 
    where OID = @OID
    
  declare Things cursor local fast_forward for
    select t.RowID, t.ThingOID, isnull(t.AgentOID, @AgentOID), isnull(t.CounterOID, @CounterOID)
      from TOperDoc_Things t
      where t.OID = @OID
      
  open Things
    fetch next from Things into @RowID, @ThingOID, @AgentOID, @CounterOID
    while @@fetch_status = 0
    begin
      exec @Err = Register_AddTran @RegisterOID, @OID, @Date, @AgentOID, @CounterOID, @ThingOID, @TranID output
      if @Err <> 0 return 1
      
      declare Measures cursor local fast_forward for
        select m.MeasureOID, m.UnitOID, m.Quantity
          from TOperDoc_Measures m
          where m.OID = @OID 
            and m.RowID = @RowID
            
      open Measures
        fetch next from Measures into @MeasureOID, @UnitOID, @Quantity
        while @@fetch_status = 0
        begin
          exec @Err = Register_AddMeasure @RegisterOID, @TranID, @MeasureOID, @UnitOID, @Quantity
          if @Err <> 0 return 1
          fetch next from Measures into @MeasureOID, @UnitOID, @Quantity
        end
      close Measures
      deallocate Measures
      
      declare Accounts cursor local fast_forward for
        select a.DebitOID, a.CreditOID
          from TOperDoc_Accounts a
          where a.OID = @OID
            and a.RowID = @RowID
            
      open Accounts
        fetch next from Accounts into @DebitOID, @CreditOID
        while @@fetch_status = 0
        begin
          exec @Err = Register_AddCorresponse @RegisterOID, @TranID, @DebitOID, @CreditOID
          if @Err <> 0 return 1
          fetch next from Accounts into @DebitOID, @CreditOID
        end
      close Accounts
      deallocate Accounts
            
      fetch next from Things into @RowID, @ThingOID, @AgentOID, @CounterOID
    end
  close Things
  deallocate Things
go

exec Class 'Bank', 'Company', 'Банк' 
exec Compile
GO

include=Subjects\Subject.sql
go

exec Folder 'Root.Refs.Subjects.Departments', 'Подразделения'
go

exec Class 'Department', 'Subject', 'Отдел'
  exec SubTable 'Positions', 'Должности'
    exec Field 'Position', 'Position', 'Должность', 'Key'
exec Compile
go

create procedure Department_Staffs_Select
  @OID  OID,
  @Date datetime = null
as
  set nocount on
  
  set @Date = isnull(@Date, dbo.ToDay())
  
  select distinct
         StaffOID = s.OID,
         StaffName = s.Name,
         StaffClass = s.Class,
         s.PositionOID,
         s.PositionName,
         s.PositionClass,
         sh.PersonOID,
         sh.PersonName,
         sh.PersonClass,
         s.ParentOID,
         s.ParentName,
         s.ParentClass,
         ss.StateOID,
         ss.StateName,
         ss.StateClass
    from VTreePath tp
           join
         VDepartment d
           on d.OID = tp.ChildOID
           join
         VStaff s
           on s.DepartmentOID = d.OID
           join
         VStaff_States ss
           on ss.OID = s.OID
           and ss.Date = (select max(Date)
                            from VStaff_States
                            where OID = ss.OID
                              and Date <= @Date)
           join
         VStaff_History sh
           on sh.OID = s.OID
           and sh.Date = (select max(Date)
                            from VStaff_History
                            where OID = sh.OID
                              and Date <= @Date)
    where tp.ParentOID = @OID
      and tp.HierarchyOID = (select OID from VHierarchy where Ext = 'Legal')
go

include=System\Object.sql
include=System\Module.sql
include=System\Application.sql
include=Subjects\Person.sql
go

exec Folder 'Root.Docs', 'Документы'
go

exec Class 'Document', 'Object', 'Абстрактный документ', 0
  exec Field 'Number', 'String', 'Номер', 'null'
  exec Field 'Date', 'Date', 'Дата', 'null'
  exec Field 'Manager', 'Person', 'Менеджер', 'null^Folder=Root.Refs.Subjects.Persons'
  exec Field 'BaseDoc', 'Document', 'Документ-основание', 'null^Folder=Root.Docs'
  exec Action 'Print', 'Распечатать'
  --exec Event 'Register', 'Регистрация документа'
exec Compile
go

  exec Field 'Manager', 'Person', 'Менеджер', 'null^Folder=Root.Refs.Subjects.Persons'
  exec Field 'BaseDoc', 'Document', 'Документ-основание', 'null^Folder=Root.Docs'