D6HECHUAN/费用模块/u_ch_fee_invoicecr_view.dfm

object frm_ch_fee_invoicecr_view: Tfrm_ch_fee_invoicecr_view
  Left = 192
  Top = 107
  BorderIcons = []
  BorderStyle = bsDialog
  Caption = '费用发票申请信息'
  ClientHeight = 325
  ClientWidth = 618
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 12
  object dxDBGrid1: TdxDBGrid
    Left = 0
    Top = 0
    Width = 618
    Height = 176
    Bands = <
      item
      end>
    DefaultLayout = True
    HeaderPanelRowCount = 1
    KeyField = 'CH_ID'
    SummaryGroups = <>
    SummarySeparator = ', '
    Align = alTop
    TabOrder = 0
    DataSource = t_ch_fee1
    Filter.Criteria = {00000000}
    OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
    OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
    object dxDBGrid1Column1: TdxDBGridColumn
      ReadOnly = True
      Width = 30
      BandIndex = 0
      RowIndex = 0
      FieldName = '类型'
    end
    object dxDBGrid1Column2: TdxDBGridColumn
      ReadOnly = True
      Width = 54
      BandIndex = 0
      RowIndex = 0
      FieldName = '费用状态'
    end
    object dxDBGrid1Column3: TdxDBGridColumn
      ReadOnly = True
      Width = 85
      BandIndex = 0
      RowIndex = 0
      FieldName = '费用名称'
    end
    object dxDBGrid1Column4: TdxDBGridColumn
      ReadOnly = True
      Width = 54
      BandIndex = 0
      RowIndex = 0
      FieldName = '结算单位'
    end
    object dxDBGrid1Column5: TdxDBGridColumn
      ReadOnly = True
      Width = 86
      BandIndex = 0
      RowIndex = 0
      FieldName = '客户名称'
    end
    object dxDBGrid1Column6: TdxDBGridColumn
      ReadOnly = True
      Width = 38
      BandIndex = 0
      RowIndex = 0
      FieldName = '标准'
    end
    object dxDBGrid1Column7: TdxDBGridColumn
      ReadOnly = True
      Width = 53
      BandIndex = 0
      RowIndex = 0
      FieldName = '单价'
    end
    object dxDBGrid1Column8: TdxDBGridColumn
      ReadOnly = True
      Width = 44
      BandIndex = 0
      RowIndex = 0
      FieldName = '数量'
    end
    object dxDBGrid1Column9: TdxDBGridColumn
      ReadOnly = True
      Width = 67
      BandIndex = 0
      RowIndex = 0
      FieldName = '金额'
    end
    object dxDBGrid1Column10: TdxDBGridColumn
      ReadOnly = True
      Width = 30
      BandIndex = 0
      RowIndex = 0
      FieldName = '币别'
    end
    object dxDBGrid1Column11: TdxDBGridColumn
      ReadOnly = True
      Width = 35
      BandIndex = 0
      RowIndex = 0
      FieldName = '汇率'
    end
  end
  object dxDBGrid2: TdxDBGrid
    Left = 0
    Top = 176
    Width = 618
    Height = 149
    Bands = <
      item
      end>
    DefaultLayout = True
    HeaderPanelRowCount = 1
    KeyField = 'CH_ID'
    SummaryGroups = <>
    SummarySeparator = ', '
    Align = alClient
    TabOrder = 1
    DataSource = t_ch_fee_balance1
    Filter.Criteria = {00000000}
    OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
    OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
    object dxDBGrid2Column1: TdxDBGridColumn
      Width = 69
      BandIndex = 0
      RowIndex = 0
      FieldName = '费用名称'
    end
    object dxDBGrid2Column2: TdxDBGridColumn
      Width = 81
      BandIndex = 0
      RowIndex = 0
      FieldName = '客户名称'
    end
    object dxDBGrid2Column3: TdxDBGridColumn
      Width = 54
      BandIndex = 0
      RowIndex = 0
      FieldName = '开票币别'
    end
    object dxDBGrid2Column4: TdxDBGridColumn
      Width = 56
      BandIndex = 0
      RowIndex = 0
      FieldName = '开票金额'
    end
    object dxDBGrid2Column5: TdxDBGridColumn
      Width = 59
      BandIndex = 0
      RowIndex = 0
      FieldName = '原始金额'
    end
    object dxDBGrid2Column6: TdxDBGridColumn
      Width = 80
      BandIndex = 0
      RowIndex = 0
      FieldName = '核销编号'
    end
    object dxDBGrid2Column8: TdxDBGridColumn
      Width = 76
      BandIndex = 0
      RowIndex = 0
      FieldName = '发票号码'
    end
    object dxDBGrid2Column7: TdxDBGridColumn
      Width = 70
      BandIndex = 0
      RowIndex = 0
      FieldName = '开出日期'
    end
    object dxDBGrid2Column9: TdxDBGridColumn
      Width = 46
      BandIndex = 0
      RowIndex = 0
      FieldName = '开出人'
    end
  end
  object bsBusinessSkinForm1: TbsBusinessSkinForm
    UseSkinFontInMenu = True
    ShowIcon = False
    MaximizeOnFullScreen = False
    AlphaBlend = False
    AlphaBlendAnimation = False
    AlphaBlendValue = 100
    ShowObjectHint = False
    MenusAlphaBlend = False
    MenusAlphaBlendAnimation = False
    MenusAlphaBlendValue = 0
    DefCaptionFont.Charset = GB2312_CHARSET
    DefCaptionFont.Color = clBtnText
    DefCaptionFont.Height = -12
    DefCaptionFont.Name = '宋体'
    DefCaptionFont.Style = []
    DefInActiveCaptionFont.Charset = GB2312_CHARSET
    DefInActiveCaptionFont.Color = clBtnShadow
    DefInActiveCaptionFont.Height = -12
    DefInActiveCaptionFont.Name = '宋体'
    DefInActiveCaptionFont.Style = []
    DefMenuItemHeight = 20
    DefMenuItemFont.Charset = GB2312_CHARSET
    DefMenuItemFont.Color = clWindowText
    DefMenuItemFont.Height = -12
    DefMenuItemFont.Name = '宋体'
    DefMenuItemFont.Style = []
    UseDefaultSysMenu = True
    SkinData = frm_main.bsSkinData1
    MinHeight = 0
    MinWidth = 0
    Magnetic = False
    MagneticSize = 10
    BorderIcons = [biMinimize]
    Left = 208
    Top = 220
  end
  object t_ch_fee_balance1: TDataSource
    DataSet = t_ch_fee_balance
    Left = 384
    Top = 276
  end
  object t_ch_fee1: TDataSource
    Left = 208
    Top = 256
  end
  object t_ch_fee_balance: TADOQuery
    Connection = frm_main.db
    CursorType = ctStatic
    DataSource = t_ch_fee1
    Parameters = <
      item
        Name = 'CH_ID'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = 1073
      end>
    SQL.Strings = (
      'select * from v_fee_invoicecr_view'
      'where CH_ID=:CH_ID'
      'order by 开出日期')
    Left = 432
    Top = 228
  end
end