object dmDaic: TdmDaic
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 64
  Top = 101
  Height = 632
  Width = 937
  
  
  object dsEx_obj: TDataSource
      DataSet = cdsEx_obj
      Left = 2
      Top = 2
  end

 object cdsAll_Rebuild_Org: TDeloDataSet
    Connection = adcDaic
    CommandText = 'select * from all_rebuild_org where ID_ORG = :ID_REC and ID_ARC=:ID_ARC'
    EnableBCD = False
    DataSource = dsAll_Organization_View
    MasterFields = 'ID_REC;ID_ARC'
    ActiveLikeMaster = true
    IndexFieldNames = 'ID_ORG;ID_ARC'
    Parameters =
      <
      item
        Name = 'ID_REC'
        Size = -1
        Value = Null
        DataType = ftInteger
      end
 	item 
        Name = 'ID_ARC'
        Size = -1
 	  Value = Null
	  DataType = ftInteger
 	end
      >
    Left = 224
    Top = 168
    object TIntegerField
      Tag = 1
      DisplayWidth = 5
      FieldName = 'ID_REC'
      Visible = false
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_ORG'
      Visible = False
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_REBUILD'
      Visible = False
    end
    object TStringField
      DisplayLabel = 'Организация'
      DisplayWidth = 32
      FieldKind = fkLookup
      FieldName = 'REBUILD'
      LookupDataSet = cdsAll_Organization
      LookupKeyFields = 'ID_REC;ID_ARC'
      LookupResultField = 'FL_OBJECT_NAME'
      KeyFields = 'ID_REBUILD;ID_ARC'
      Size = 256
      Lookup = True
    end
    object TDateTimeField
      DisplayLabel = 'Дата'
      DisplayWidth = 10
      FieldName = 'DT_REBUILD'
    end
    object TStringField
      DisplayLabel = 'Примечания'
      DisplayWidth = 48
      FieldName = 'ADD_INFO'
      Size = 128
    end
    object TDateTimeField
      Tag = 1
      DisplayLabel = 'Дата изм.'
      DisplayWidth = 10
      FieldName = 'DT_CHANGE'
    end
    object TDateTimeField
      Tag = 1
      DisplayLabel = 'Дата импорта'
      DisplayWidth = 10
      FieldName = 'DT_IMPORT'
    end
    object TIntegerField
      Tag = 1
      DisplayWidth = 5
      FieldName = 'ID_ARC'
      Visible = false
    end
  end

  object dsAll_Rebuild_Org: TDataSource
    DataSet = cdsAll_Rebuild_Org
    Left = 2
    Top = 2
  end


 object cdsAll_Organization: TADODataSet
    Connection = adcDaic
    CommandText = 'SELECT * FROM ALL_ORGANIZATION'
    EnableBCD = False
    Parameters = <>
    Left = 392
    Top = 96
    object TIntegerField
      Tag = 1
      DisplayWidth = 5
      FieldName = 'ID_REC'
    end
    object TIntegerField
      Tag = 1
      DisplayWidth = 5
      FieldName = 'ID_ARC'
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_STAT_ORG'
      Visible = False
    end
    object TStringField
      DisplayLabel = 'Статус'
      DisplayWidth = 16
      FieldKind = fkLookup
      FieldName = 'STAT_ORG'
      LookupDataSet = cdsStat_Org
      LookupKeyFields = 'ID'
      LookupResultField = 'STAT_ORG'
      KeyFields = 'ID_STAT_ORG'
      Size = 16
      Lookup = True
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_DISTRICT'
      Visible = False
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_PREF_TOWN'
      Visible = False
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_TOWN'
      Visible = False
    end
    object TStringField
      DisplayLabel = 'Наименование'
      DisplayWidth = 64
      FieldName = 'FL_OBJECT_NAME'
      Size = 256
    end
    object TStringField
      DisplayLabel = 'Краткое наименование'
      DisplayWidth = 64
      FieldName = 'SH_OBJECT_NAME'
      Size = 128
    end
    object TStringField
      DisplayLabel = 'Район'
      DisplayWidth = 32
      FieldKind = fkLookup
      FieldName = 'DISTRICT'
      LookupDataSet = cdsDistrict_a
      LookupKeyFields = 'ID'
      LookupResultField = 'DISTRICT'
      KeyFields = 'ID_DISTRICT'
      Size = 256
      Lookup = True
    end
    object TStringField
      DisplayLabel = 'Вид'
      DisplayWidth = 16
      FieldKind = fkLookup
      FieldName = 'PREF_TOWN'
      LookupDataSet = cdsPref_Town
      LookupKeyFields = 'ID'
      LookupResultField = 'PREF_TOWN'
      KeyFields = 'ID_PREF_TOWN'
      Size = 16
      Lookup = True
    end
    object TStringField
      DisplayLabel = 'Нас. пункт'
      DisplayWidth = 32
      FieldKind = fkLookup
      FieldName = 'TOWN'
      LookupDataSet = cdsTown_a
      LookupKeyFields = 'ID'
      LookupResultField = 'TOWN'
      KeyFields = 'ID_TOWN'
      Size = 64
      Lookup = True
    end
    object TStringField
      DisplayLabel = 'Индекс'
      DisplayWidth = 8
      FieldName = 'POSTINDEX'
      Size = 8
    end
    object TStringField
      DisplayLabel = 'Улица'
      DisplayWidth = 32
      FieldName = 'STREET'
      Size = 64
    end
    object TStringField
      DisplayLabel = 'Номер'
      DisplayWidth = 5
      FieldName = 'HS_NUMB'
      Size = 8
    end
    object TStringField
      DisplayLabel = 'Корпус'
      DisplayWidth = 5
      FieldName = 'CORPUS'
      Size = 8
    end
    object TStringField
      DisplayLabel = 'Офис'
      DisplayWidth = 5
      FieldName = 'FLAT'
      Size = 8
    end
    object TStringField
      DisplayLabel = 'Телефон'
      DisplayWidth = 16
      FieldName = 'PHONE'
      Size = 32
    end
    object TStringField
      DisplayLabel = 'Эл. почта'
      DisplayWidth = 16
      FieldName = 'EMAIL'
      Size = 64
    end
    object TStringField
      DisplayLabel = 'Руководитель'
      DisplayWidth = 32
      FieldName = 'LEADER'
      Size = 64
    end
    object TStringField
      DisplayLabel = 'Должность'
      DisplayWidth = 48
      FieldName = 'LEADER_POS'
      Size = 128
    end
    object TDateTimeField
      Tag = 1
      DisplayLabel = 'Дата изм.'
      DisplayWidth = 10
      FieldName = 'DT_CHANGE'
    end
    object TDateTimeField
      Tag = 1
      DisplayLabel = 'Дата импорта'
      DisplayWidth = 10
      FieldName = 'DT_IMPORT'
    end
  end

  object dsAll_Organization: TDataSource
    DataSet = cdsAll_Organization
    Left = 2
    Top = 2
  end


 object cdsAll_Organization_View: TDeloRptDataSet
      Connection = adcDaic
      CommandText = 'select * from all_organization'
      LockType = ltOptimistic
      EnableBCD = False
      Parameters = <>
      Left = 224
      Top = 168

    object TIntegerField
      Tag = 1
      DisplayWidth = 5
      FieldName = 'ID_REC'
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_STAT_ORG'
      Visible = False
    end
    object TStringField
      DisplayLabel = 'Статус'
      DisplayWidth = 16
      FieldKind = fkLookup
      FieldName = 'STAT_ORG'
      LookupDataSet = cdsStat_Org
      LookupKeyFields = 'ID'
      LookupResultField = 'STAT_ORG'
      KeyFields = 'ID_STAT_ORG'
      Size = 16
      Lookup = True
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_DISTRICT'
      Visible = False
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_PREF_TOWN'
      Visible = False
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_TOWN'
      Visible = False
    end
    object TStringField
      DisplayLabel = 'Наименование'
      DisplayWidth = 64
      FieldName = 'FL_OBJECT_NAME'
      Size = 256
    end
    object TStringField
      DisplayLabel = 'Краткое наименование'
      DisplayWidth = 64
      FieldName = 'SH_OBJECT_NAME'
      Size = 128
    end
    object TStringField
      DisplayLabel = 'Район'
      DisplayWidth = 32
      FieldKind = fkLookup
      FieldName = 'DISTRICT'
      LookupDataSet = cdsDistrict_a
      LookupKeyFields = 'ID'
      LookupResultField = 'DISTRICT'
      KeyFields = 'ID_DISTRICT'
      Size = 256
      Lookup = True
    end

    object TStringField
      DisplayLabel = 'Вид'
      DisplayWidth = 16
      FieldKind = fkLookup
      FieldName = 'PREF_TOWN'
      LookupDataSet = cdsPref_Town
      LookupKeyFields = 'ID'
      LookupResultField = 'PREF_TOWN'
      KeyFields = 'ID_PREF_TOWN'
      Size = 16
      Lookup = True
    end
    object TStringField
      DisplayLabel = 'Нас. пункт'
      DisplayWidth = 32
      FieldKind = fkLookup
      FieldName = 'TOWN'
      LookupDataSet = cdsTown_a
      LookupKeyFields = 'ID'
      LookupResultField = 'TOWN'
      KeyFields = 'ID_TOWN'
      Size = 64
      Lookup = True
    end
    object TStringField
      DisplayLabel = 'Индекс'
      DisplayWidth = 8
      FieldName = 'POSTINDEX'
      Size = 8
    end
    object TStringField
      DisplayLabel = 'Улица'
      DisplayWidth = 32
      FieldName = 'STREET'
      Size = 64
    end
    object TStringField
      DisplayLabel = 'Номер'
      DisplayWidth = 5
      FieldName = 'HS_NUMB'
      Size = 8
    end
    object TStringField
      DisplayLabel = 'Корпус'
      DisplayWidth = 5
      FieldName = 'CORPUS'
      Size = 8
    end
    object TStringField
      DisplayLabel = 'Офис'
      DisplayWidth = 5
      FieldName = 'FLAT'
      Size = 8
    end
    object TStringField
      DisplayLabel = 'Телефон'
      DisplayWidth = 16
      FieldName = 'PHONE'
      Size = 32
    end
    object TStringField
      DisplayLabel = 'Эл. почта'
      DisplayWidth = 16
      FieldName = 'EMAIL'
      Size = 64
    end
    object TStringField
      DisplayLabel = 'Руководитель'
      DisplayWidth = 32
      FieldName = 'LEADER'
      Size = 64
    end
    object TStringField
      DisplayLabel = 'Должность'
      DisplayWidth = 48
      FieldName = 'LEADER_POS'
      Size = 128
    end
    object TStringField
      DisplayLabel = 'Примечание'
      DisplayWidth = 64
      FieldName = 'ORG_NOTE'
      Size = 256
    end
    object TStringField
      DisplayLabel = 'Номер фонда'
      DisplayWidth = 64
      FieldName = 'FOND_NUMBER'
      Size = 64
    end
    object TDateTimeField
      Tag = 1
      DisplayLabel = 'Дата изм.'
      DisplayWidth = 10
      FieldName = 'DT_CHANGE'
    end
    object TIntegerField
      Tag = 1
      DisplayWidth = 5
      FieldName = 'ID_ARC'
    end
    object TDateTimeField
      Tag = 1
      DisplayLabel = 'Дата импорта'
      DisplayWidth = 10
      FieldName = 'DT_IMPORT'
    end
   
  end

 object dsAll_Organization_View: TDataSource
      DataSet = cdsAll_Organization_View
      Left = 309
      Top = 42
  end

  object cdsAll_Org_Docs: TDeloDataSet
    Connection = adcDaic
    CommandText = 'select * from all_org_docs where ID_ORG = :ID_REC and ID_ARC= :ID_ARC'
    EnableBCD = False
    DataSource = dsAll_Organization_View
    MasterFields = 'ID_REC;ID_ARC'
    ActiveLikeMaster = true
    IndexFieldNames = 'ID_ORG;ID_ARC'
    Parameters =
      <
      item
        Name = 'ID_REC'
        Size = -1
        Value = Null
        DataType = ftInteger
      end
 	item 
        Name = 'ID_ARC'
        Size = -1
 	  Value = Null
	  DataType = ftInteger
 	end
      >

    Left = 224
    Top = 168
    
    object TIntegerField
      Tag = 1
      DisplayWidth = 5
      FieldName = 'ID_REC'
      Visible = false
    end
    object TIntegerField
      Tag = 1
      DisplayWidth = 5
      FieldName = 'ID_ARC'
      Visible = false
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_ORG'
      Visible = False
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_DOCS'
      Visible = False
    end
    object TStringField
      DisplayLabel = 'Организация'
      DisplayWidth = 35
      FieldKind = fkLookup
      FieldName = 'CHILD_ORG'
      LookupDataSet = cdsAll_Organization
      LookupKeyFields = 'ID_REC;ID_ARC'
      LookupResultField = 'FL_OBJECT_NAME'
      KeyFields = 'ID_CHILD_ORG;ID_ARC'
      Size = 256
      Lookup = True
    end
    object TStringField
      DisplayLabel = 'Документы'
      DisplayWidth = 16
      FieldKind = fkLookup
      FieldName = 'KIND_DOCS'
      LookupDataSet = cdsKind_Docs
      LookupKeyFields = 'ID'
      LookupResultField = 'KIND_DOCS'
      KeyFields = 'ID_DOCS'
      Size = 32
      Lookup = True
    end
    object TDateTimeField
      DisplayLabel = 'Дата c'
      DisplayWidth = 10
      FieldName = 'BEGIN_DATE'
    end
    object TDateTimeField
      DisplayLabel = 'Дата по'
      DisplayWidth = 10
      FieldName = 'END_DATE'
    end
    object TStringField
      DisplayLabel = 'Примечания'
      DisplayWidth = 48
      FieldName = 'ADD_INFO'
      Size = 128
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_CHILD_ORG'
      Visible = False
    end
   object TStringField
      DisplayLabel = 'Даты(текст)'
      DisplayWidth = 30
      FieldName = 'CHAR_DATE'
      Size = 64
    end
    object TDateTimeField
      Tag = 1
      DisplayLabel = 'Дата изм.'
      DisplayWidth = 10
      FieldName = 'DT_CHANGE'
    end
    object TDateTimeField
      Tag = 1
      DisplayLabel = 'Дата импорта'
      DisplayWidth = 10
      FieldName = 'DT_IMPORT'
    end
  end

  object dsAll_Org_Docs: TDataSource
    DataSet = cdsAll_Org_Docs
    Left = 2
    Top = 2
  end
 
  object cdsAll_Org_Preview: TDeloDataSet
    Connection = adcDaic
    CommandText = 'select * from get_rebuild_org_(:id_rec,:id_arc)'
    DataSource = dsAll_Organization_View
    MasterFields = 'ID_REC;ID_ARC'
    ActiveLikeMaster = true
    EnableBCD = False
    Parameters =
      <
      item
        Name = 'ID_REC'
        DataType = ftInteger
        Size = -1
        Value = Null
      end
      item
        Name = 'ID_ARC'
        DataType = ftInteger
        Size = -1
        Value = Null
      end
      >
    Left = 224
    Top = 168
  end

 
  object dsAll_Org_Preview: TDataSource
    DataSet = cdsAll_Org_Preview
    Left = 2
    Top = 2
  end


  object cdsOrganization_View: TDeloRptDataSet
      Connection = adcDaic
      CommandText = 'select * from organization'
      EnableBCD = False
      LockType = ltReadOnly
      Parameters = <>
      Left = 224
      Top = 168

    object TIntegerField
      Tag = 1
      DisplayWidth = 5
      FieldName = 'ID'
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_STAT_ORG'
      Visible = False
    end
    object TStringField
      DisplayLabel = 'Статус'
      DisplayWidth = 16
      FieldKind = fkLookup
      FieldName = 'STAT_ORG'
      LookupDataSet = cdsStat_Org
      LookupKeyFields = 'ID'
      LookupResultField = 'STAT_ORG'
      KeyFields = 'ID_STAT_ORG'
      Size = 16
      Lookup = True
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_DISTRICT'
      Visible = False
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_PREF_TOWN'
      Visible = False
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_TOWN'
      Visible = False
    end
    object TStringField
      DisplayLabel = 'Наименование'
      DisplayWidth = 64
      FieldName = 'FL_OBJECT_NAME'
      Size = 256
    end
    object TStringField
      DisplayLabel = 'Краткое наименование'
      DisplayWidth = 64
      FieldName = 'SH_OBJECT_NAME'
      Size = 128
    end
    object TStringField
      DisplayLabel = 'Район'
      DisplayWidth = 32
      FieldKind = fkLookup
      FieldName = 'DISTRICT'
      LookupDataSet = cdsDistrict_a
      LookupKeyFields = 'ID'
      LookupResultField = 'DISTRICT'
      KeyFields = 'ID_DISTRICT'
      Size = 256
      Lookup = True
    end

    object TStringField
      DisplayLabel = 'Вид'
      DisplayWidth = 16
      FieldKind = fkLookup
      FieldName = 'PREF_TOWN'
      LookupDataSet = cdsPref_Town
      LookupKeyFields = 'ID'
      LookupResultField = 'PREF_TOWN'
      KeyFields = 'ID_PREF_TOWN'
      Size = 16
      Lookup = True
    end
    object TStringField
      DisplayLabel = 'Нас. пункт'
      DisplayWidth = 32
      FieldKind = fkLookup
      FieldName = 'TOWN'
      LookupDataSet = cdsTown_a
      LookupKeyFields = 'ID'
      LookupResultField = 'TOWN'
      KeyFields = 'ID_TOWN'
      Size = 64
      Lookup = True
    end
    object TStringField
      DisplayLabel = 'Индекс'
      DisplayWidth = 8
      FieldName = 'POSTINDEX'
      Size = 8
    end
    object TStringField
      DisplayLabel = 'Улица'
      DisplayWidth = 32
      FieldName = 'STREET'
      Size = 64
    end
    object TStringField
      DisplayLabel = 'Номер'
      DisplayWidth = 5
      FieldName = 'HS_NUMB'
      Size = 8
    end
    object TStringField
      DisplayLabel = 'Корпус'
      DisplayWidth = 5
      FieldName = 'CORPUS'
      Size = 8
    end
    object TStringField
      DisplayLabel = 'Офис'
      DisplayWidth = 5
      FieldName = 'FLAT'
      Size = 8
    end
    object TStringField
      DisplayLabel = 'Телефон'
      DisplayWidth = 16
      FieldName = 'PHONE'
      Size = 32
    end
    object TStringField
      DisplayLabel = 'Эл. почта'
      DisplayWidth = 16
      FieldName = 'EMAIL'
      Size = 64
    end
    object TStringField
      DisplayLabel = 'Руководитель'
      DisplayWidth = 32
      FieldName = 'LEADER'
      Size = 64
    end
    object TStringField
      DisplayLabel = 'Должность'
      DisplayWidth = 48
      FieldName = 'LEADER_POS'
      Size = 128
    end
    object TStringField
      DisplayLabel = 'Примечание'
      DisplayWidth = 64
      FieldName = 'ORG_NOTE'
      Size = 256
    end
    object TStringField
      DisplayLabel = 'Номер фонда'
      DisplayWidth = 64
      FieldName = 'FOND_NUMBER'
      Size = 64
    end
    object TDateTimeField
      Tag = 1
      DisplayLabel = 'Дата изм.'
      DisplayWidth = 10
      FieldName = 'DT_CHANGE'
    end
  end

  object dsOrganization_View: TDataSource
      DataSet = cdsOrganization_View
      Left = 309
      Top = 42
  end

  object dsCountry: TDataSource
    DataSet = cdsCountry
    Left = 101
    Top = 128
  end
  object dsRegion: TDataSource
    DataSet = cdsRegion
    Left = 157
    Top = 128
  end
  object dsDistrict: TDataSource
    DataSet = cdsDistrict
    Left = 213
    Top = 128
  end
  object dsPref_Town: TDataSource
    DataSet = cdsPref_Town
    Left = 269
    Top = 128
  end

  object dsPref_Town_Imp: TDataSource
    DataSet = cdsPref_Town_Imp
    Left = 269
    Top = 128
  end

  object dsTown: TDataSource
    DataSet = cdsTown
    Left = 341
    Top = 128
  end
 
  object avObjects_now: TADOTable
    Left = 882
    Top = 432
  end
 
  object dsUsers: TDataSource
    AutoEdit = False
    DataSet = cdsUsers
    Left = 728
    Top = 128
  end
  object dsSys_Tabs: TDataSource
    DataSet = cdsSys_Tabs
    Left = 80
    Top = 200
  end
  
  
  
  object dsInner_Obj: TDataSource
    DataSet = cdsInner_Obj
    Left = 531
    Top = 128
  end
  
  
  object adcDaic: TADOConnection
    Tag = 1
    CommandTimeout = 0
    Connected = False
    ConnectionString = 'FILE NAME=daic_conn.udl'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'MSDAORA.1'
    AfterConnect = adcDaicAfterConnect
    Left = 8
  end
  
  object cdsOperation: TADODataSet
    Connection = adcDaic
    BeforePost = cdsOperationBeforePost
    CommandText = 'SELECT * FROM OPERATION'
    EnableBCD = False
    Parameters = <>
    Left = 528
    object TIntegerField
      Tag = 1
      DisplayWidth = 5
      FieldName = 'ID'
    end
    object TStringField
      DisplayLabel = #1058#1080#1087' '#1076#1077#1081#1089#1090#1074#1080#1103
      DisplayWidth = 32
      FieldName = 'OPERATION'
      Size = 32
    end
    object TDateTimeField
      Tag = 1
      DisplayLabel = #1044#1072#1090#1072' '#1080#1079#1084'.'
      DisplayWidth = 10
      FieldName = 'DT_CHANGE'
    end
  end
  
  object cdsDistrict: TADODataSet
    Connection = adcDaic
    BeforePost = cdsDistrictBeforePost
    CommandText = 'SELECT * FROM DISTRICT'
    DataSource = dsRegion
    EnableBCD = False
    IndexFieldNames = 'ID_REGION'
    MasterFields = 'ID'
    Parameters = <>
    Left = 216
    Top = 96
    object TIntegerField
      Tag = 1
      DisplayWidth = 5
      FieldName = 'ID'
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_REGION'
      Visible = False
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_COUNTRY'
      Visible = False
    end
    object TStringField
      DisplayLabel = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
      DisplayWidth = 64
      FieldName = 'DISTRICT'
      Size = 256
    end
    object TStringField
      DisplayLabel = #1050#1088#1072#1090'. '#1085#1072#1080#1084#1077#1085'.'
      DisplayWidth = 32
      FieldName = 'SH_DISTRICT'
      Size = 128
    end
    object TDateTimeField
      Tag = 1
      DisplayLabel = #1044#1072#1090#1072' '#1080#1079#1084'.'
      DisplayWidth = 10
      FieldName = 'DT_CHANGE'
    end
  end


  object cdsPref_Town: TADODataSet
    Connection = adcDaic
    BeforePost = cdsPref_TownBeforePost
    CommandText = 'SELECT * FROM PREF_TOWN'
    EnableBCD = False
    Parameters = <>
    Left = 272
    Top = 96
    object TIntegerField
      Tag = 1
      DisplayWidth = 5
      FieldName = 'ID'
    end
    object TStringField
      DisplayLabel = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
      DisplayWidth = 32
      FieldName = 'PREF_TOWN'
      Size = 64
    end
    object TDateTimeField
      Tag = 1
      DisplayLabel = #1044#1072#1090#1072' '#1080#1079#1084'.'
      DisplayWidth = 10
      FieldName = 'DT_CHANGE'
    end  
  end

  object cdsPref_Town_Imp: TADODataSet
    Connection = adcDaic
    LockType = ltOptimistic
    CommandText = 'SELECT * FROM PREF_TOWN'
    EnableBCD = False
    Parameters = <>
    Left = 272
    Top = 96
    object TIntegerField
      Tag = 1
      DisplayWidth = 5
      FieldName = 'ID'
    end
    object TStringField
      DisplayLabel = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
      DisplayWidth = 32
      FieldName = 'PREF_TOWN'
      Size = 64
    end
    object TDateTimeField
      Tag = 1
      DisplayLabel = #1044#1072#1090#1072' '#1080#1079#1084'.'
      DisplayWidth = 10
      FieldName = 'DT_CHANGE'
    end  
    object TStringField
      DisplayLabel = 'CENTER'
      DisplayWidth = 1
      FieldName = 'CENTER'
      Size = 1
    end
  end



  object cdsTown: TADODataSet
    Connection = adcDaic
    BeforePost = cdsTownBeforePost
    CommandText = 'SELECT * FROM TOWN'
    DataSource = dsDistrict
    EnableBCD = False
    IndexFieldNames = 'ID_DISTRICT'
    MasterFields = 'ID'
    Parameters = <>
    Left = 336
    Top = 96
    object TIntegerField
      Tag = 1
      DisplayWidth = 5
      FieldName = 'ID'
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_PREF_TOWN'
      Visible = False
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_COUNTRY'
      Visible = False
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_REGION'
      Visible = False
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_DISTRICT'
      Visible = False
    end
    object TStringField
      DisplayLabel = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
      DisplayWidth = 64
      FieldName = 'TOWN'
      Size = 64
    end
    object TDateTimeField
      Tag = 1
      DisplayLabel = #1044#1072#1090#1072' '#1080#1079#1084'.'
      DisplayWidth = 10
      FieldName = 'DT_CHANGE'
    end
    object TStringField
      FieldName = 'CENTER'
      Size = 1
    end
  end
  
 
  object cdsUsers: TADODataSet
    Connection = adcDaic
    BeforePost = cdsUsersBeforePost
    CommandText = 'SELECT * FROM USERS ORDER BY ID'
    EnableBCD = False
    Parameters = <>
    Left = 728
    Top = 96
    object TIntegerField
      Tag = 1
      DisplayWidth = 5
      FieldName = 'ID'
    end
    object TStringField
      DisplayLabel = #1048#1084#1103' '#1087#1086#1083#1100#1079#1074#1072#1090#1077#1083#1103
      DisplayWidth = 32
      FieldName = 'LOGIN'
      Size = 32
    end
    object TStringField
      DisplayLabel = #1060#1072#1084#1080#1083#1080#1103' '#1048'.'#1054'.'
      DisplayWidth = 32
      FieldKind = fkLookup
      FieldName = 'PEOPLES'
      LookupDataSet = cdsPeoples_Us
      LookupKeyFields = 'ID'
      LookupResultField = 'FIO'
      KeyFields = 'ID_PEOPLES'
      Size = 64
      Lookup = True
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_OFFICES'
      Visible = False
    end
    object TStringField
      DisplayLabel = #1055#1072#1088#1086#1083#1100
      DisplayWidth = 32
      FieldName = 'PSW'
      Visible = False
      Size = 32
    end
    object TStringField
      DisplayLabel = #1054#1092#1080#1089
      DisplayWidth = 32
      FieldKind = fkLookup
      FieldName = 'OFFICES'
      LookupDataSet = cdsOffices
      LookupKeyFields = 'ID'
      LookupResultField = 'OFFICES'
      KeyFields = 'ID_OFFICES'
      Size = 256
      Lookup = True
    end
    object TDateTimeField
      Tag = 1
      DisplayLabel = #1044#1072#1090#1072' '#1080#1079#1084'.'
      DisplayWidth = 10
      FieldName = 'DT_USERS'
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_PEOPLES'
      Visible = False
    end
  end
  
 
  object cdsGetAutoInc: TADOStoredProc
    Connection = adcDaic
    ProcedureName = 'AUTO_INCREMENT_F'
    Parameters = <
      item
        Name = 'TABLE_NAME'
        Attributes = [paNullable]
        DataType = ftString
        Size = 4000
        Value = Null
      end
      item
        Name = 'VAR_RESULT'
        Attributes = [paNullable]
        DataType = ftInteger
        Direction = pdOutput
        Value = Null
      end>
    Left = 272
    Top = 384
  end
  
  object cdsUsers_Lst: TADODataSet
    Connection = adcDaic
    CommandText = 'select * from users_lst where UPPER(LOGIN)  = :LOGIN'
    Parameters = <
      item
        Name = 'LOGIN'
        Size = -1
        Value = Null
      end>
    Left = 72
  end
 
  object cdsTakeDocs: TADOStoredProc
    Connection = adcDaic
    ProcedureName = 'TAKE_DOCS'
    Parameters = <
      item
        Name = 'VAR_ID_OUT_OFFICES'
        Attributes = [paNullable]
        DataType = ftBCD
        Value = Null
      end
      item
        Name = 'VAR_ID_OUT_PEOPLE'
        Attributes = [paNullable]
        DataType = ftBCD
        Value = Null
      end>
    Left = 192
    Top = 384
  end
 
 object cdsImport_Pref_Town: TADOStoredProc
    Connection = adcDaic
    ProcedureName = 'IMPORT_PREF_TOWN'
    Parameters = <
      item
        Name = 'IN_ID_ALL'
        Attributes = [paNullable]
        DataType = ftInteger
        Value = Null
      end
      item
        Name = 'IN_DT_CHANGE'
        Attributes = [paNullable]
        DataType = ftDate
        Value = Null
      end
      item
        Name = 'IN_PREF_TOWN'
        Attributes = [paNullable]
        DataType = ftString
        Size = 64
        Value = Null
      end
>

    Left = 192
    Top = 384
  end

object cdsImport_Town: TADOStoredProc
    Connection = adcDaic
    ProcedureName = 'IMPORT_TOWN'
    Parameters = <
      item
        Name = 'IN_ID_ALL'
        Attributes = [paNullable]
        DataType = ftInteger
        Value = Null
      end
      item
        Name = 'IN_DT_CHANGE'
        Attributes = [paNullable]
        DataType = ftDate
        Value = Null
      end
      item
        Name = 'IN_TOWN'
        Attributes = [paNullable]
        DataType = ftString
        Size = 64
        Value = Null
      end
      item
        Name = 'IN_ID_DISTRICT'
        Attributes = [paNullable]
        DataType = ftInteger
        Value = Null
      end
      item
        Name = 'IN_ID_PREF_TOWN'
        Attributes = [paNullable]
        DataType = ftInteger
        Value = Null
      end
>

    Left = 192
    Top = 384
  end



  object ADOTable1: TADOTable
    Connection = adcDaic
    TableName = 'REGION'
    Left = 672
    Top = 512
    object ADOTable1ID: TBCDField
      FieldName = 'ID'
      Precision = 32
      Size = 0
    end
    object ADOTable1ID_COUNTRY: TBCDField
      FieldName = 'ID_COUNTRY'
      Precision = 32
      Size = 0
    end
    object ADOTable1REGION: TStringField
      FieldName = 'REGION'
      Size = 256
    end
    object ADOTable1SH_REGION: TStringField
      FieldName = 'SH_REGION'
      Size = 128
    end
    object ADOTable1COD_REGION: TStringField
      FieldName = 'COD_REGION'
      Size = 5
    end
    object ADOTable1DT_CHANGE: TDateTimeField
      FieldName = 'DT_CHANGE'
    end
    object ADOTable1lu: TStringField
      FieldKind = fkLookup
      FieldName = 'lu'
      LookupDataSet = cdsCountry
      LookupKeyFields = 'ID'
      LookupResultField = 'COUNTRY'
      KeyFields = 'ID_COUNTRY'
      Size = 64
      Lookup = True
    end
  end
  
  object cdsContentTemplate: TADODataSet
    CommandType = cmdFile
    Parameters = <>
    Left = 528
    Top = 448
    object cdsContentTemplateCONTENT: TStringField
      DisplayLabel = #1064#1072#1073#1083#1086#1085' '#1082#1088#1072#1090#1082#1086#1075#1086' '#1089#1086#1076#1077#1088#1078#1072#1085#1080#1103
      FieldName = 'CONTENT'
      Size = 1024
    end
  end
  
 

  object cdsStat_Org: TAdoDataSet
    Connection = adcDaic
    CommandText = 'select * from STAT_ORG'
    EnableBCD = False
    Parameters = <>
    Left = 224
    Top = 168

    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID'
      Visible = true
    end

    object TStringField
      DisplayLabel = 'Статус'
      DisplayWidth = 16
      FieldName = 'STAT_ORG'
      Size = 16
    end

    object TDateTimeField
      DisplayLabel = 'Дата'
      DisplayWidth = 10
      FieldName = 'DT_CHANGE'
    end
  end

  object dsStat_Org: TDataSource
    DataSet = cdsStat_Org
    Left = 400
    Top = 536
  end

  object cdsKind_Docs: TAdoDataSet
    Connection = adcDaic
    CommandText = 'select * from KIND_DOCS'
    EnableBCD = False
    Parameters = <>
    Left = 224
    Top = 168

    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID'
      Visible = True
    end

    object TStringField
      DisplayLabel = 'Вид документов'
      DisplayWidth = 32
      FieldName = 'KIND_DOCS'
      Size = 32
    end

    object TDateTimeField
      DisplayLabel = 'Дата'
      DisplayWidth = 10
      FieldName = 'DT_CHANGE'
    end
  end

  object dsKind_Docs: TDataSource
    DataSet = cdsKind_Docs
    Left = 400
    Top = 536
  end

  object cdsDistrict_a: TADODataSet
    Connection = adcDaic
    BeforePost = cdsDistrictBeforePost
    CommandText = 'SELECT * FROM DISTRICT'
    EnableBCD = False
    Parameters = <>
    Left = 216
    Top = 96
    object TIntegerField
      Tag = 1
      DisplayWidth = 5
      FieldName = 'ID'
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_REGION'
      Visible = False
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_COUNTRY'
      Visible = False
    end
    object TStringField
      DisplayLabel = 'Наименование'
      DisplayWidth = 64
      FieldName = 'DISTRICT'
      Size = 256
    end
    object TStringField
      DisplayLabel = 'Краткое наименование'
      DisplayWidth = 32
      FieldName = 'SH_DISTRICT'
      Size = 128
    end
    object TDateTimeField
      Tag = 1
      DisplayLabel = 'Дата изм.'
      DisplayWidth = 10
      FieldName = 'DT_CHANGE'
    end
  end

  object cdsTown_a: TADODataSet
    Connection = adcDaic
    BeforePost = cdsTownBeforePost
    CommandText = 'SELECT * FROM TOWN'
    EnableBCD = False
    Parameters = <>
    Left = 336
    Top = 96
    object TIntegerField
      Tag = 1
      DisplayWidth = 5
      FieldName = 'ID'
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_PREF_TOWN'
      Visible = False
    end
    object TStringField
      FieldKind = fkLookup
      FieldName = 'PREF_TOWN'
      LookupKeyFields = 'ID'
      LookupResultField = 'PREF_TOWN'
      LookupDataSet = cdsPref_Town
      KeyFields = 'ID_PREF_TOWN'
      Size = 64
      Lookup = True
      DisplayLabel = 'Вид'
      DisplayWidth = 16
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_COUNTRY'
      Visible = False
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_REGION'
      Visible = False
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_DISTRICT'
      Visible = False
    end
    object TStringField
      DisplayLabel = 'Наименование'
      DisplayWidth = 32
      FieldName = 'TOWN'
      Size = 64
    end
    object TStringField
      FieldKind = fkLookup
      FieldName = 'DISTRICT'
      LookupKeyFields = 'ID'
      LookupResultField = 'DISTRICT'
      LookupDataSet = cdsDistrict_a
      KeyFields = 'ID_DISTRICT'
      Size = 256
      Lookup = True
      DisplayLabel = 'Район'
      DisplayWidth = 48
    end
    object TDateTimeField
      Tag = 1
      DisplayLabel = 'Дата изм.'
      DisplayWidth = 10
      FieldName = 'DT_CHANGE'
    end
  end

  object dsTown_a: TDataSource
    DataSet = cdsTown_a
    Left = 400
    Top = 536
  end

  object cdsOrg_Info: TDeloDataSet
    Connection = adcDaic
    CommandText = 'SELECT * FROM ORGANIZATION where ID = :ID'
    EnableBCD = False
    Sequence = 'ORGANIZATION'
    KeyFieldName = 'ID'
    IndexFieldNames = 'FL_OBJECT_NAME'

    DataSource = dsOrganization_View
    MasterFields = 'ID'
    KeyFieldName = 'ID'
    IndexFieldNames = 'ID'
    ForeignKey = 'ID'
    EnableBCD = False

    Parameters = <
      item
        DataType = ftFloat
        Name = 'ID'
        Size = -1
        Value = Null
      end
    >
    Left = 392
    Top = 96
    object TIntegerField
      Tag = 1
      DisplayWidth = 5
      FieldName = 'ID'
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_STAT_ORG'
      Visible = False
    end
    object TStringField
      DisplayLabel = 'Статус'
      DisplayWidth = 16
      FieldKind = fkLookup
      FieldName = 'STAT_ORG'
      LookupDataSet = cdsStat_Org
      LookupKeyFields = 'ID'
      LookupResultField = 'STAT_ORG'
      KeyFields = 'ID_STAT_ORG'
      Size = 16
      Lookup = True
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_DISTRICT'
      Visible = False
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_PREF_TOWN'
      Visible = False
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_TOWN'
      Visible = False
    end
    object TStringField
      DisplayLabel = 'Наименование'
      DisplayWidth = 64
      FieldName = 'FL_OBJECT_NAME'
      Size = 256
    end
    object TStringField
      DisplayLabel = 'Краткое наименование'
      DisplayWidth = 64
      FieldName = 'SH_OBJECT_NAME'
      Size = 128
    end
    object TStringField
      DisplayLabel = 'Район'
      DisplayWidth = 32
      FieldKind = fkLookup
      FieldName = 'DISTRICT'
      LookupDataSet = cdsDistrict_a
      LookupKeyFields = 'ID'
      LookupResultField = 'DISTRICT'
      KeyFields = 'ID_DISTRICT'
      Size = 256
      Lookup = True
    end
    object TStringField
      DisplayLabel = 'Вид'
      DisplayWidth = 16
      FieldKind = fkLookup
      FieldName = 'PREF_TOWN'
      LookupDataSet = cdsPref_Town
      LookupKeyFields = 'ID'
      LookupResultField = 'PREF_TOWN'
      KeyFields = 'ID_PREF_TOWN'
      Size = 16
      Lookup = True
    end
    object TStringField
      DisplayLabel = 'Нас. пункт'
      DisplayWidth = 32
      FieldKind = fkLookup
      FieldName = 'TOWN'
      LookupDataSet = cdsTown_a
      LookupKeyFields = 'ID'
      LookupResultField = 'TOWN'
      KeyFields = 'ID_TOWN'
      Size = 64
      Lookup = True
    end
    object TStringField
      DisplayLabel = 'Индекс'
      DisplayWidth = 8
      FieldName = 'POSTINDEX'
      Size = 8
    end
    object TStringField
      DisplayLabel = 'Улица'
      DisplayWidth = 32
      FieldName = 'STREET'
      Size = 64
    end
    object TStringField
      DisplayLabel = 'Номер'
      DisplayWidth = 5
      FieldName = 'HS_NUMB'
      Size = 8
    end
    object TStringField
      DisplayLabel = 'Корпус'
      DisplayWidth = 5
      FieldName = 'CORPUS'
      Size = 8
    end
    object TStringField
      DisplayLabel = 'Офис'
      DisplayWidth = 5
      FieldName = 'FLAT'
      Size = 8
    end
    object TStringField
      DisplayLabel = 'Телефон'
      DisplayWidth = 16
      FieldName = 'PHONE'
      Size = 32
    end
    object TStringField
      DisplayLabel = 'Эл. почта'
      DisplayWidth = 16
      FieldName = 'EMAIL'
      Size = 64
    end
    object TStringField
      DisplayLabel = 'Руководитель'
      DisplayWidth = 32
      FieldName = 'LEADER'
      Size = 64
    end
    object TStringField
      DisplayLabel = 'Должность'
      DisplayWidth = 48
      FieldName = 'LEADER_POS'
      Size = 128
    end
	object TStringField
      DisplayLabel = 'Примечание'
      DisplayWidth = 64
      FieldName = 'ORG_NOTE'
      Size = 256
    end
    object TStringField
      DisplayLabel = 'Номер фонда'
      DisplayWidth = 64
      FieldName = 'FOND_NUMBER'
      Size = 64
    end
    object TDateTimeField
      Tag = 1
      DisplayLabel = 'Дата изм.'
      DisplayWidth = 10
      FieldName = 'DT_CHANGE'
    end
  end

  object dsOrg_Info: TDataSource
    DataSet = cdsOrg_Info
    Left = 2
    Top = 2
  end

  object cdsOrganization: TADODataSet
    Connection = adcDaic
    CommandText = 'SELECT * FROM ORGANIZATION'
    EnableBCD = False
    Parameters = <>
    Left = 392
    Top = 96
    object TIntegerField
      Tag = 1
      DisplayWidth = 5
      FieldName = 'ID'
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_STAT_ORG'
      Visible = False
    end
    object TStringField
      DisplayLabel = 'Статус'
      DisplayWidth = 16
      FieldKind = fkLookup
      FieldName = 'STAT_ORG'
      LookupDataSet = cdsStat_Org
      LookupKeyFields = 'ID'
      LookupResultField = 'STAT_ORG'
      KeyFields = 'ID_STAT_ORG'
      Size = 16
      Lookup = True
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_DISTRICT'
      Visible = False
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_PREF_TOWN'
      Visible = False
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_TOWN'
      Visible = False
    end
    object TStringField
      DisplayLabel = 'Наименование'
      DisplayWidth = 64
      FieldName = 'FL_OBJECT_NAME'
      Size = 256
    end
    object TStringField
      DisplayLabel = 'Краткое наименование'
      DisplayWidth = 64
      FieldName = 'SH_OBJECT_NAME'
      Size = 128
    end
    object TStringField
      DisplayLabel = 'Район'
      DisplayWidth = 32
      FieldKind = fkLookup
      FieldName = 'DISTRICT'
      LookupDataSet = cdsDistrict_a
      LookupKeyFields = 'ID'
      LookupResultField = 'DISTRICT'
      KeyFields = 'ID_DISTRICT'
      Size = 256
      Lookup = True
    end
    object TStringField
      DisplayLabel = 'Вид'
      DisplayWidth = 16
      FieldKind = fkLookup
      FieldName = 'PREF_TOWN'
      LookupDataSet = cdsPref_Town
      LookupKeyFields = 'ID'
      LookupResultField = 'PREF_TOWN'
      KeyFields = 'ID_PREF_TOWN'
      Size = 16
      Lookup = True
    end
    object TStringField
      DisplayLabel = 'Нас. пункт'
      DisplayWidth = 32
      FieldKind = fkLookup
      FieldName = 'TOWN'
      LookupDataSet = cdsTown_a
      LookupKeyFields = 'ID'
      LookupResultField = 'TOWN'
      KeyFields = 'ID_TOWN'
      Size = 64
      Lookup = True
    end
    object TStringField
      DisplayLabel = 'Индекс'
      DisplayWidth = 8
      FieldName = 'POSTINDEX'
      Size = 8
    end
    object TStringField
      DisplayLabel = 'Улица'
      DisplayWidth = 32
      FieldName = 'STREET'
      Size = 64
    end
    object TStringField
      DisplayLabel = 'Номер'
      DisplayWidth = 5
      FieldName = 'HS_NUMB'
      Size = 8
    end
    object TStringField
      DisplayLabel = 'Корпус'
      DisplayWidth = 5
      FieldName = 'CORPUS'
      Size = 8
    end
    object TStringField
      DisplayLabel = 'Офис'
      DisplayWidth = 5
      FieldName = 'FLAT'
      Size = 8
    end
    object TStringField
      DisplayLabel = 'Телефон'
      DisplayWidth = 16
      FieldName = 'PHONE'
      Size = 32
    end
    object TStringField
      DisplayLabel = 'Эл. почта'
      DisplayWidth = 16
      FieldName = 'EMAIL'
      Size = 64
    end
    object TStringField
      DisplayLabel = 'Руководитель'
      DisplayWidth = 32
      FieldName = 'LEADER'
      Size = 64
    end
    object TStringField
      DisplayLabel = 'Должность'
      DisplayWidth = 48
      FieldName = 'LEADER_POS'
      Size = 128
    end
    object TDateTimeField
      Tag = 1
      DisplayLabel = 'Дата изм.'
      DisplayWidth = 10
      FieldName = 'DT_CHANGE'
    end
  end

  object dsOrganization: TDataSource
    DataSet = cdsOrganization
    Left = 2
    Top = 2
  end

  object cdsRebuild_Org: TDeloDataSet
    Connection = adcDaic
    CommandText = 'select * from rebuild_org where ID_ORG = :ID'
    EnableBCD = False
    DataSource = dsOrganization_View
    MasterFields = 'ID'
    ActiveLikeMaster = true
    Sequence = 'REBUILD_ORG'
    KeyFieldName = 'ID'
    IndexFieldNames = 'ID_ORG'
    ForeignKey = 'ID_ORG'
    Parameters =
      <
      item
        Name = 'ID'
        Size = -1
        Value = Null
        DataType = ftInteger
      end
      >
    Left = 224
    Top = 168
    object TIntegerField
      Tag = 1
      DisplayWidth = 5
      FieldName = 'ID'
      Visible = false
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_ORG'
      Visible = False
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_REBUILD'
      Visible = False
    end
    object TStringField
      DisplayLabel = 'Организация'
      DisplayWidth = 32
      FieldKind = fkLookup
      FieldName = 'REBUILD'
      LookupDataSet = cdsOrganization
      LookupKeyFields = 'ID'
      LookupResultField = 'FL_OBJECT_NAME'
      KeyFields = 'ID_REBUILD'
      Size = 256
      Lookup = True
    end
    object TDateTimeField
      DisplayLabel = 'Дата'
      DisplayWidth = 10
      FieldName = 'DT_REBUILD'
    end
    object TStringField
      DisplayLabel = 'Примечания'
      DisplayWidth = 48
      FieldName = 'ADD_INFO'
      Size = 128
    end
    object TDateTimeField
      Tag = 1
      DisplayLabel = 'Дата изм.'
      DisplayWidth = 10
      FieldName = 'DT_CHANGE'
    end
  end

  object dsRebuild_Org: TDataSource
    DataSet = cdsRebuild_Org
    Left = 2
    Top = 2
  end

  object cdsOrg_Docs: TDeloDataSet
    Connection = adcDaic
    CommandText = 'select * from org_docs where ID_ORG = :ID'
    DataSource = dsOrganization_View
    MasterFields = 'ID'
    ActiveLikeMaster = true
    Sequence = 'ORG_DOCS'
    KeyFieldName = 'ID'
    IndexFieldNames = 'ID_ORG'
    ForeignKey = 'ID_ORG'
    EnableBCD = False
    Parameters =
      <
      item
        Name = 'ID'
        Size = -1
        Value = Null
        DataType = ftInteger
      end
      >
    Left = 224
    Top = 168
    
    object TIntegerField
      Tag = 1
      DisplayWidth = 5
      FieldName = 'ID'
      Visible = false
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_ORG'
      Visible = False
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_DOCS'
      Visible = False
    end
    object TStringField
      DisplayLabel = 'Организация'
      DisplayWidth = 35
      FieldKind = fkLookup
      FieldName = 'CHILD_ORG'
      LookupDataSet = cdsOrganization
      LookupKeyFields = 'ID'
      LookupResultField = 'FL_OBJECT_NAME'
      KeyFields = 'ID_CHILD_ORG'
      Size = 256
      Lookup = True
    end
    object TStringField
      DisplayLabel = 'Документы'
      DisplayWidth = 16
      FieldKind = fkLookup
      FieldName = 'KIND_DOCS'
      LookupDataSet = cdsKind_Docs
      LookupKeyFields = 'ID'
      LookupResultField = 'KIND_DOCS'
      KeyFields = 'ID_DOCS'
      Size = 32
      Lookup = True
    end
    object TDateTimeField
      DisplayLabel = 'Дата c'
      DisplayWidth = 10
      FieldName = 'BEGIN_DATE'
    end
    object TDateTimeField
      DisplayLabel = 'Дата по'
      DisplayWidth = 10
      FieldName = 'END_DATE'
    end
    object TStringField
      DisplayLabel = 'Примечания'
      DisplayWidth = 48
      FieldName = 'ADD_INFO'
      Size = 128
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_CHILD_ORG'
      Visible = False
    end
   object TStringField
      DisplayLabel = 'Даты(текст)'
      DisplayWidth = 30
      FieldName = 'CHAR_DATE'
      Size = 64
    end
    object TDateTimeField
      Tag = 1
      DisplayLabel = 'Дата изм.'
      DisplayWidth = 10
      FieldName = 'DT_CHANGE'
    end
  end

  object dsOrg_Docs: TDataSource
    DataSet = cdsOrg_Docs
    Left = 2
    Top = 2
  end

  object cdsOrg_Preview: TDeloDataSet
    Connection = adcDaic
    CommandText = 'select * from get_rebuild_org(:id)'
    DataSource = dsOrganization_View
    MasterFields = 'ID'
    ActiveLikeMaster = true
    KeyFieldName = 'ID'
    EnableBCD = False
    Parameters =
      <
      item
        Name = 'ID'
        DataType = ftInteger
        Size = -1
        Value = Null
      end
      >
    Left = 224
    Top = 168
  end

 
  object dsOrg_Preview: TDataSource
    DataSet = cdsOrg_Preview
    Left = 2
    Top = 2
  end

 
  object dsSource_Archive: TDataSource
    DataSet = cdsSource_Archive
  end   

  object cdsSource_Archive: TDeloDataSet
    Connection = adcDaic
    CommandText = 'select id_arc, name_archive from source_archive'
    
    object TIntegerField
      Tag = 1
      DisplayWidth = 5
      FieldName = 'ID_ARC'
      Visible = true
    end
    
    object TStringField
      DisplayLabel = 'Наименование архива'
      DisplayWidth = 30
      FieldName = 'NAME_ARCHIVE'
      Size = 128
    end
  end
  

  object cdsPeriod_Last_Imp: TDeloRptDataSet
      Connection = adcDaic
      CommandText = 'select * from Period_Last_Imp'
      EnableBCD = False
      LockType = ltOptimistic
      Parameters = <>
      Left = 224
      Top = 168

    object TIntegerField
      Tag = 1
      DisplayWidth = 5
      FieldName = 'ID'
    end
    
    object TDateTimeField
      Tag = 1
      DisplayLabel = 'Дата изм.'
      DisplayWidth = 10
      FieldName = 'BEGIN_DATE'
    end
    
    object TDateTimeField
      Tag = 1
      DisplayLabel = 'Дата изм.'
      DisplayWidth = 10
      FieldName = 'END_DATE'
    end

    object TDateTimeField
      Tag = 1
      DisplayLabel = 'Дата изм.'
      DisplayWidth = 10
      FieldName = 'IMP_DATE'
    end

  end

  object dsPeriod_Last_Imp: TDataSource
      DataSet = cdsPeriod_Last_Imp
      Left = 309
      Top = 42
  end

  object cdsAcc_table_Imp: TDeloRptDataSet
      Connection = adcDaic
      CommandText = 'select * from acc_table'
      EnableBCD = False
      LockType = ltOptimistic
      Parameters = <>
      Left = 224
      Top = 168

    object TIntegerField
      Tag = 1
      DisplayWidth = 5
      FieldName = 'ID_ALL'
    end
    object TIntegerField
      Tag = 1
      DisplayWidth = 5
      FieldName = 'ID_REC'
    end
    object TIntegerField
      Tag = 1
      DisplayWidth = 5
      FieldName = 'ID_ARC'
    end
    object TStringField
      DisplayLabel = 'Операция'
      DisplayWidth = 1
      FieldName = 'OPERATION'
      Size = 1
    end
    object TStringField
      DisplayLabel = 'Наименование таблицы'
      DisplayWidth = 16
      FieldName = 'TABLE_NAME'
      Size = 16
    end

    object TDateTimeField
      Tag = 1
      DisplayLabel = 'Дата изм.'
      DisplayWidth = 10
      FieldName = 'DT_CHANGE'
    end 
  end

  object dsAcc_table_Imp: TDataSource
      DataSet = cdsAcc_table_Imp
      Left = 309
      Top = 42
  end

 object dsDistrict_Imp: TDataSource
      DataSet = cdsDistrict_Imp
      Left = 309
      Top = 42
  end


object cdsDistrict_Imp: TADODataSet
    Connection = adcDaic
    CommandText = 'SELECT * FROM DISTRICT'
    EnableBCD = False
    LockType = ltOptimistic
    Parameters = <>
    Left = 224
    Top = 168

    object TIntegerField
      Tag = 1
      DisplayWidth = 5
      FieldName = 'ID'
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_REGION'
      Visible = False
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_COUNTRY'
      Visible = False
    end
    object TStringField
      DisplayLabel = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
      DisplayWidth = 64
      FieldName = 'DISTRICT'
      Size = 256
    end
    object TStringField
      DisplayLabel = #1050#1088#1072#1090'. '#1085#1072#1080#1084#1077#1085'.'
      DisplayWidth = 32
      FieldName = 'SH_DISTRICT'
      Size = 128
    end
    object TDateTimeField
      Tag = 1
      DisplayLabel = #1044#1072#1090#1072' '#1080#1079#1084'.'
      DisplayWidth = 10
      FieldName = 'DT_CHANGE'
    end
  end
  
  
  object cdsAll_Organization_Imp: TADODataSet
      Connection = adcDaic
      CommandText = 'select * from all_organization'
      EnableBCD = False
      LockType = ltOptimistic
      Parameters = <>
      Left = 224
      Top = 168

    object TIntegerField
      Tag = 1
      DisplayWidth = 5
      FieldName = 'ID_REC'
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_STAT_ORG'
      Visible = False
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_DISTRICT'
      Visible = False
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_PREF_TOWN'
      Visible = False
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_TOWN'
      Visible = False
    end
    object TStringField
      DisplayLabel = 'Наименование'
      DisplayWidth = 64
      FieldName = 'FL_OBJECT_NAME'
      Size = 256
    end
    object TStringField
      DisplayLabel = 'Краткое наименование'
      DisplayWidth = 64
      FieldName = 'SH_OBJECT_NAME'
      Size = 128
    end
    object TStringField
      DisplayLabel = 'Индекс'
      DisplayWidth = 8
      FieldName = 'POSTINDEX'
      Size = 8
    end
    object TStringField
      DisplayLabel = 'Улица'
      DisplayWidth = 32
      FieldName = 'STREET'
      Size = 64
    end
    object TStringField
      DisplayLabel = 'Номер'
      DisplayWidth = 5
      FieldName = 'HS_NUMB'
      Size = 8
    end
    object TStringField
      DisplayLabel = 'Корпус'
      DisplayWidth = 5
      FieldName = 'CORPUS'
      Size = 8
    end
    object TStringField
      DisplayLabel = 'Офис'
      DisplayWidth = 5
      FieldName = 'FLAT'
      Size = 8
    end
    object TStringField
      DisplayLabel = 'Телефон'
      DisplayWidth = 16
      FieldName = 'PHONE'
      Size = 32
    end
    object TStringField
      DisplayLabel = 'Эл. почта'
      DisplayWidth = 16
      FieldName = 'EMAIL'
      Size = 64
    end
    object TStringField
      DisplayLabel = 'Руководитель'
      DisplayWidth = 32
      FieldName = 'LEADER'
      Size = 64
    end
    object TStringField
      DisplayLabel = 'Должность'
      DisplayWidth = 48
      FieldName = 'LEADER_POS'
      Size = 128
    end
    object TStringField
      DisplayLabel = 'Примечание'
      DisplayWidth = 64
      FieldName = 'ORG_NOTE'
      Size = 256
    end
    object TStringField
      DisplayLabel = 'Номер фонда'
      DisplayWidth = 64
      FieldName = 'FOND_NUMBER'
      Size = 64
    end
    object TDateTimeField
      Tag = 1
      DisplayLabel = 'Дата изм.'
      DisplayWidth = 10
      FieldName = 'DT_CHANGE'
    end
    object TIntegerField
      Tag = 1
      DisplayWidth = 5
      FieldName = 'ID_ARC'
    end
   
  end

 object dsAll_Organization_Imp: TDataSource
      DataSet = cdsAll_Organization_Imp
      Left = 309
      Top = 42
 end

 object dsTown_Imp: TDataSource
      DataSet = cdsTown_Imp
      Left = 309
      Top = 42
 end


object cdsTown_Imp: TADODataSet
    Connection = adcDaic
    CommandText = 'SELECT * FROM TOWN'
    EnableBCD = False
    LockType = ltOptimistic
    Parameters = <>
    Left = 224
    Top = 168

    object TIntegerField
      Tag = 1
      DisplayWidth = 5
      FieldName = 'ID'
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_PREF_TOWN'
      Visible = False
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_COUNTRY'
      Visible = False
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_REGION'
      Visible = False
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_DISTRICT'
      Visible = False
    end
    object TStringField
      DisplayLabel = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
      DisplayWidth = 64
      FieldName = 'TOWN'
      Size = 64
    end
    object TDateTimeField
      Tag = 1
      DisplayLabel = #1044#1072#1090#1072' '#1080#1079#1084'.'
      DisplayWidth = 10
      FieldName = 'DT_CHANGE'
    end
    object TStringField
      FieldName = 'CENTER'
      Size = 1
    end
  end

    object cdsAll_Rebuild_Org_Imp: TDeloDataSet
    Connection = adcDaic
    LockType = ltOptimistic
    CommandText = 'select * from all_rebuild_org'
    EnableBCD = False
    Left = 224
    Top = 168
    Parameters =<>
    object TIntegerField
      Tag = 1
      DisplayWidth = 5
      FieldName = 'ID_REC'
      Visible = false
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_ORG'
      Visible = False
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_REBUILD'
      Visible = False
    end
    object TDateTimeField
      DisplayLabel = 'Дата'
      DisplayWidth = 10
      FieldName = 'DT_REBUILD'
    end
    object TStringField
      DisplayLabel = 'Примечания'
      DisplayWidth = 48
      FieldName = 'ADD_INFO'
      Size = 128
    end
    object TDateTimeField
      Tag = 1
      DisplayLabel = 'Дата изм.'
      DisplayWidth = 10
      FieldName = 'DT_CHANGE'
    end
    object TIntegerField
      Tag = 1
      DisplayWidth = 5
      FieldName = 'ID_ARC'
      Visible = false
    end
  end

  object dsAll_Rebuild_Org_Imp: TDataSource
    DataSet = cdsAll_Rebuild_Org_Imp
    Left = 2
    Top = 2
  end

  object cdsAll_Org_Docs_Imp: TDeloDataSet
    Connection = adcDaic
    LockType = ltOptimistic
    CommandText = 'select * from all_org_docs '
    EnableBCD = False
    Parameters = <>
    Left = 224
    Top = 168
    
    object TIntegerField
      Tag = 1
      DisplayWidth = 5
      FieldName = 'ID_REC'
      Visible = false
    end
    object TIntegerField
      Tag = 1
      DisplayWidth = 5
      FieldName = 'ID_ARC'
      Visible = false
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_ORG'
      Visible = False
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_DOCS'
      Visible = False
    end
    object TDateTimeField
      DisplayLabel = 'Дата c'
      DisplayWidth = 10
      FieldName = 'BEGIN_DATE'
    end
    object TDateTimeField
      DisplayLabel = 'Дата по'
      DisplayWidth = 10
      FieldName = 'END_DATE'
    end
    object TStringField
      DisplayLabel = 'Примечания'
      DisplayWidth = 48
      FieldName = 'ADD_INFO'
      Size = 128
    end
    object TIntegerField
      DisplayWidth = 5
      FieldName = 'ID_CHILD_ORG'
      Visible = False
    end
   object TStringField
      DisplayLabel = 'Даты(текст)'
      DisplayWidth = 30
      FieldName = 'CHAR_DATE'
      Size = 64
    end
    object TDateTimeField
      Tag = 1
      DisplayLabel = 'Дата изм.'
      DisplayWidth = 10
      FieldName = 'DT_CHANGE'
    end
  end

  object dsAll_Org_Docs_Imp: TDataSource
    DataSet = cdsAll_Org_Docs_Imp
    Left = 2
    Top = 2
  end




end
