object F_ProjectRev: TF_ProjectRev
  Left = 326
  Top = 196
  Width = 716
  Height = 472
  AutoScroll = True
  Caption = #1042#1077#1088#1089#1080#1080' '#1087#1088#1086#1077#1082#1090#1072
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object RzGroupBox1: TRzGroupBox
    Left = 0
    Top = 0
    Width = 700
    Height = 389
    Align = alClient
    TabOrder = 0
    ExplicitHeight = 390
    object RzPanel1: TRzPanel
      Left = 1
      Top = 357
      Width = 698
      Height = 31
      Align = alBottom
      BorderOuter = fsNone
      TabOrder = 1
      ExplicitTop = 358
      object btSetAsBaseline: TRzButton
        Left = 8
        Top = 2
        Width = 137
        Action = aSetAsBaseLine
        HotTrack = True
        TabOrder = 0
      end
      object btApplyRevision: TRzButton
        Left = 152
        Top = 2
        Width = 145
        Action = aApplyRev
        HotTrack = True
        TabOrder = 1
      end
    end
    object gridRevs: TcxGrid
      Left = 1
      Top = 14
      Width = 698
      Height = 343
      Align = alClient
      PopupMenu = PopupMenu
      TabOrder = 0
      ExplicitHeight = 344
      object GT_Revs: TcxGridDBTableView
        Navigator.Buttons.CustomButtons = <>
        OnCustomDrawCell = GT_RevsCustomDrawCell
        DataController.DataSource = dsrcProjRevs
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <>
        DataController.Summary.SummaryGroups = <>
        OptionsData.Deleting = False
        OptionsData.Inserting = False
        OptionsSelection.MultiSelect = True
        OptionsView.CellAutoHeight = True
        OptionsView.GroupByBox = False
        OptionsView.HeaderAutoHeight = True
        OptionsView.Indicator = True
        OptionsView.IndicatorWidth = 8
        object GT_RevsID: TcxGridDBColumn
          DataBinding.FieldName = 'ID'
          Visible = False
          Options.Editing = False
        end
        object GT_RevsRevision: TcxGridDBColumn
          Caption = 'Rev.'
          DataBinding.FieldName = 'REVISION'
          PropertiesClassName = 'TcxSpinEditProperties'
          Options.Editing = False
          Options.Filtering = False
          Options.Moving = False
          Width = 78
        end
        object GT_RevsDate: TcxGridDBColumn
          Caption = 'Date'
          DataBinding.FieldName = 'DATE_IN'
          PropertiesClassName = 'TcxDateEditProperties'
          Properties.ShowTime = False
          Options.Editing = False
          Options.Filtering = False
          Options.Moving = False
          Options.Sorting = False
          Width = 60
        end
        object GT_RevsMaterialCost: TcxGridDBColumn
          Caption = 'Materials'
          DataBinding.FieldName = 'MATERIAL_COST'
          PropertiesClassName = 'TcxCurrencyEditProperties'
          Options.Editing = False
          Options.Filtering = False
          Options.Moving = False
          Width = 92
        end
        object GT_RevsNormCost: TcxGridDBColumn
          Caption = 'Labor'
          DataBinding.FieldName = 'NORM_COST'
          PropertiesClassName = 'TcxCurrencyEditProperties'
          Properties.DisplayFormat = ',0.00'#1088#39'.'#39';-,0.00'#1088#39'.'#39
          Options.Editing = False
          Options.Filtering = False
          Options.Moving = False
          Width = 80
        end
        object GT_RevsTotalCost: TcxGridDBColumn
          Caption = 'Total'
          DataBinding.FieldName = 'TOTAL_COST'
          PropertiesClassName = 'TcxCurrencyEditProperties'
          Options.Editing = False
          Options.Filtering = False
          Options.Moving = False
          Width = 69
        end
        object GT_RevsDiff: TcxGridDBColumn
          Caption = 'Difference'
          DataBinding.FieldName = 'DIFF'
          PropertiesClassName = 'TcxCurrencyEditProperties'
          Options.Editing = False
          Options.Filtering = False
          Options.Moving = False
          Width = 70
        end
        object GT_RevsComment: TcxGridDBColumn
          Caption = 'Note'
          DataBinding.FieldName = 'COMMENT'
          PropertiesClassName = 'TcxMemoProperties'
          Options.Editing = False
          Options.Filtering = False
          Options.Moving = False
          Width = 170
        end
        object GT_RevsBaseLine: TcxGridDBColumn
          Caption = 'Baseline'
          DataBinding.FieldName = 'BASELINE'
          PropertiesClassName = 'TcxCheckBoxProperties'
          Properties.DisplayChecked = '1'
          Properties.DisplayUnchecked = '0'
          Properties.NullStyle = nssUnchecked
          Properties.ReadOnly = False
          Properties.ValueChecked = 1
          Properties.ValueUnchecked = 0
          Options.Editing = False
          Options.Filtering = False
          Options.Moving = False
          Width = 59
        end
      end
      object GL_Revs: TcxGridLevel
        GridView = GT_Revs
      end
    end
  end
  object gbOkCancel: TRzGroupBox
    Left = 0
    Top = 389
    Width = 700
    Height = 44
    Align = alBottom
    TabOrder = 1
    Visible = False
    OnResize = gbOkCancelResize
    ExplicitTop = 390
    object btOK: TRzBitBtn
      Left = 144
      Top = 15
      Width = 85
      Default = True
      ModalResult = 1
      Caption = 'OK'
      HotTrack = True
      TabOrder = 0
    end
    object btApply: TRzBitBtn
      Left = 240
      Top = 15
      Width = 96
      Caption = #1055#1088#1080#1084#1077#1085#1080#1090#1100
      HotTrack = True
      TabOrder = 2
    end
    object btCancel: TRzBitBtn
      Left = 352
      Top = 15
      Width = 85
      Cancel = True
      ModalResult = 2
      Caption = #1054#1090#1084#1077#1085#1072
      HotTrack = True
      TabOrder = 1
    end
  end
  object ActionManager: TActionManager
    Images = DMCommon.ImageList_Tree
    Left = 40
    Top = 104
    StyleName = 'Platform Default'
    object aSetAsBaseLine: TAction
      Caption = #1059#1089#1090#1072#1085#1086#1074#1080#1090#1100' '#1082#1072#1082' '#1073#1072#1079#1086#1074#1091#1102
      OnExecute = aSetAsBaseLineExecute
    end
    object aApplyRev: TAction
      Caption = #1042#1086#1089#1089#1090#1072#1085#1086#1074#1080#1090#1100' '#1074#1077#1088#1089#1080#1102
      OnExecute = aApplyRevExecute
    end
  end
  object PopupMenu: TPopupMenu
    Images = DMCommon.ImageList_Tree
    OwnerDraw = True
    Left = 112
    Top = 152
    object N2: TMenuItem
      Action = aSetAsBaseLine
    end
    object Setasbaseline1: TMenuItem
      Action = aApplyRev
    end
  end
  object XPMenu1: TXPMenu
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMenuText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Color = clBtnFace
    IconBackColor = clBtnFace
    MenuBarColor = clBtnFace
    SelectColor = clHighlight
    SelectBorderColor = clHighlight
    SelectFontColor = clMenuText
    DisabledColor = clInactiveCaption
    SeparatorColor = clBtnFace
    CheckedColor = clHighlight
    IconWidth = 24
    DrawSelect = True
    UseSystemColors = True
    OverrideOwnerDraw = False
    Gradient = True
    FlatMenu = False
    Active = True
    Left = 144
    Top = 152
  end
  object lng_Forms: TsiLangLinked
    Version = '6.5.2'
    StringsTypes.Strings = (
      'TIB_STRINGLIST'
      'TSTRINGLIST')
    SmartExcludeProps.Strings = (
      'Label1.Font'
      'edtAnswer2.Font'
      'lblProgID.Font'
      'btnOk.Font'
      'btnCancel.Font'
      'TF_Registration.Font'
      'edtAnswer1.Font')
    UseDefaultLanguage = True
    NumOfLanguages = 7
    LangDispatcher = F_LNG.siLangDisp
    LangDelim = 1
    LangNames.Strings = (
      'RUS'
      'UKR'
      'ENG'
      'GER'
      'FRA'
      'SPA'
      'RUS_ARH')
    Language = 'RUS'
    ExcludedProperties.Strings = (
      'Category'
      'SecondaryShortCuts'
      'HelpKeyword'
      'InitialDir'
      'HelpKeyword'
      'ActivePage'
      'ImeName'
      'DefaultExt'
      'FileName'
      'FieldName'
      'PickList'
      'DisplayFormat'
      'EditMask'
      'KeyList'
      'LookupDisplayFields'
      'DropDownSpecRow'
      'TableName'
      'DatabaseName'
      'IndexName'
      'MasterFields')
    Left = 78
    Top = 82
    TranslationData = {
[encoded data, 13632 characters]
      54005F00430048004100520053004500540001000D000A00}
  end
  object dsProjRevs: TpFIBDataSet
    AutoUpdateOptions.UpdateTableName = 'PROJECT_REV'
    AutoUpdateOptions.KeyFields = 'ID'
    AutoUpdateOptions.AutoReWriteSqls = True
    AutoUpdateOptions.GeneratorName = 'GEN_PROJECT_REV_ID'
    AutoUpdateOptions.WhenGetGenID = wgOnNewRecord
    AutoUpdateOptions.AutoParamsToFields = True
    Transaction = transactProjRevs
    AutoCommit = True
    Left = 152
    Top = 88
    poSQLINT64ToBCD = True
  end
  object transactProjRevs: TpFIBTransaction
    TimeoutAction = TARollback
    Left = 192
    Top = 88
  end
  object dsrcProjRevs: TDataSource
    DataSet = dsProjRevs
    Left = 232
    Top = 88
  end
end
