object fmImpExp: TfmUniDelo
  Left = 285
  Top = 245
  Width = 373
  Height = 112
  Caption = 'Выгрузка данных'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  FormStyle = fsNormal
  OldCreateOrder = False
  Position = poScreenCenter
  Visible = True
  PixelsPerInch = 96
  TextHeight = 13
  AutoBtn = sbAdd

  object sbAdd: TDeloImportBtn
    Left = 0
    Top = 56
    Width = 150
    Height = 50
    Alignment = taLeftJustify
    Caption = #1044#1086#1073#1072#1074#1080#1090#1100
    Flat = True
    Visible = false
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    FunctionName = 'GetExport'
    FunctionParameters =
    <
      item
        ParamType = 4
        ParamValue = 'fmImpExp'
      end
      item
        ParamType = 4
        ParamValue = 'c:\program files\winrar\rar.exe  a -df '
      end
      item
        ParamType = 4
        ParamValue = 'hhmmss'
      end
      item
        ParamType = 0
        ParamValue = '1'
      end
    >
  end

  object RxGIFAnimator1: TRxGIFAnimator
    Left = 64
    Top = 8
    Width = 230
    Height = 60
    Animate = True
    FrameIndex = 7
    Image.Data = {
      [encoded data, 89856 characters]
      39900459900679900899900AB9900CD9900EF99010F9100101003B}
  end

  object PRF: TDeloRptDataSet
    Connection = dmDaic.adcDaic
    CommandText = ''
    EnableBCD = False
    BaseSQL.Strings=(
     ' select dt_change, id_arc, id as id_rec, pref_town '
     ' from pref_town '
     ' where changed=''T'' or changed is NULL '
    )
    DSCaption = 'Виды населенных пунктов'
  end

  object TWN: TDeloRptDataSet
    Connection = dmDaic.adcDaic
    CommandText = ''
    EnableBCD = False
    BaseSQL.Strings=(
     ' select dt_change, id_arc, id as id_rec, town, '
     ' 1 as id_country, id_district, id_pref_town, 1 as id_region '
     ' from town '
     ' where changed=''T'' or changed is NULL '
    )
    DSCaption = 'Населенные пункты '
  end

  object ORG: TDeloRptDataSet
    Connection = dmDaic.adcDaic
    CommandText = ''
    EnableBCD = False
    BaseSQL.Strings=(
      ' select id as id_rec, id_stat_org, id_town, '
      ' id_pref_town,fl_object_name, sh_object_name, postindex,'
      ' street, hs_numb, corpus, flat, phone, email,'
      ' leader, leader_pos, dt_change, org_note, fond_number, id_arc from organization, source_archive'
      ' where changed=''T'' or changed is NULL '
    )
    DSCaption = 'Перечень организаций'
  end

  object ORGD: TDeloRptDataSet
    Connection = dmDaic.adcDaic
    CommandText = ''
    EnableBCD = False
    BaseSQL.Strings=(
      ' select id as id_rec, id_stat_org, id_town, '
      ' id_pref_town,fl_object_name, sh_object_name, postindex,'
      ' street, hs_numb, corpus, flat, phone, email,'
      ' leader, leader_pos, dt_change, org_note, fond_number, id_arc from organization_del, source_archive'
      ' where changed=''T'' or changed is NULL '
    )
    DSCaption = 'Перечень организаций удал'
  end

  object DOC: TDeloRptDataSet
    Connection = dmDaic.adcDaic
    CommandText = ''
    EnableBCD = False
    BaseSQL.Strings=(
      ' select add_info, begin_date, char_date, '
      ' dt_change, end_date, id as id_rec, '
      ' id_child_org, id_docs, id_org, id_arc from Org_docs, source_archive '
      ' where changed=''T'' or changed is NULL '
    )
    DSCaption = 'Документы организаций'
  end

  object DOCD: TDeloRptDataSet
    Connection = dmDaic.adcDaic
    CommandText = ''
    EnableBCD = False
    BaseSQL.Strings=(
      ' select add_info, begin_date, char_date, '
      ' dt_change, end_date, id as id_rec, '
      ' id_child_org, id_docs, id_org, id_arc from Org_docs_del, source_archive '
      ' where changed=''T'' or changed is NULL '

    )
    DSCaption = 'Документы организаций удал'
  end

  object REB: TDeloRptDataSet
    Connection = dmDaic.adcDaic
    CommandText = ''
    EnableBCD = False
    BaseSQL.Strings=(
      ' select add_info, dt_change, dt_rebuild, id as id_rec, '
      ' id_org, id_rebuild, id_arc from Rebuild_org, source_archive '
      ' where changed=''T'' or changed is NULL '
    )
    DSCaption = 'Переименования организаций'
  end

  object REBD: TDeloRptDataSet
    Connection = dmDaic.adcDaic
    CommandText = ''
    EnableBCD = False
    BaseSQL.Strings=(
      ' select add_info, dt_change, dt_rebuild, id as id_rec, '
      ' id_org, id_rebuild, id_arc from Rebuild_org_del, source_archive '
      ' where changed=''T'' or changed is NULL '
    )
    DSCaption = 'Переименования организаций удал'
  end

end
