object frmClientesPrecios: TfrmClientesPrecios
  Left = 0
  Top = 0
  BorderIcons = [biSystemMenu]
  Caption = 'Precios del Cliente y Grupo'
  ClientHeight = 460
  ClientWidth = 1040
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'Segoe UI'
  Font.Style = []
  Position = poOwnerFormCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 17
  object pnlBottom: TPanel
    Left = 0
    Top = 0
    Width = 1040
    Height = 65
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object btnAnadir: TSpeedButton
      Left = 0
      Top = 0
      Width = 55
      Height = 65
      Align = alLeft
      Caption = 'A'#241'adir'
      ImageIndex = 128
      ImageName = 'icon_anadir'
      Images = dmgMain.imgListRibbon
      Layout = blGlyphTop
      OnClick = btnAnadirClick
    end
    object btnEliminar: TSpeedButton
      Left = 55
      Top = 0
      Width = 55
      Height = 65
      Align = alLeft
      Caption = 'Eliminar'
      ImageIndex = 150
      ImageName = 'icon_eliminar_linea'
      Images = dmgMain.imgListRibbon
      Layout = blGlyphTop
      OnClick = btnEliminarClick
    end
    object btnImprimir: TSpeedButton
      Left = 110
      Top = 0
      Width = 65
      Height = 65
      Align = alLeft
      Caption = 'Imprimir'
      ImageIndex = 146
      ImageName = 'icon_imprimir'
      Images = dmgMain.imgListRibbon
      Layout = blGlyphTop
      OnClick = btnImprimirClick
    end
    object btnHistorico: TSpeedButton
      Left = 175
      Top = 0
      Width = 65
      Height = 65
      Align = alLeft
      Caption = 'Hist'#243'rico'
      ImageIndex = 143
      ImageName = 'icon_historial'
      Images = dmgMain.imgListRibbon
      Layout = blGlyphTop
      OnClick = btnHistoricoClick
    end
    object btnCerrar: TBitBtn
      Left = 985
      Top = 0
      Width = 55
      Height = 65
      Align = alRight
      Caption = 'Cerrar'
      ImageIndex = 154
      ImageName = 'icon_salir'
      Images = dmgMain.imgListRibbon
      Layout = blGlyphTop
      TabOrder = 0
      OnClick = btnCerrarClick
      ExplicitLeft = 1002
      ExplicitTop = 9
    end
    object btnAyuda: TBitBtn
      Left = 930
      Top = 0
      Width = 55
      Height = 65
      Align = alRight
      Caption = 'Ayuda'
      ImageIndex = 129
      ImageName = 'icon_ayuda'
      Images = dmgMain.imgListRibbon
      Layout = blGlyphTop
      TabOrder = 1
      OnClick = btnAyudaClick
      ExplicitLeft = 985
    end
  end
  object pnlTop: TPanel
    Left = 0
    Top = 65
    Width = 1040
    Height = 62
    Align = alTop
    BevelOuter = bvNone
    Color = clWhite
    ParentBackground = False
    TabOrder = 1
    DesignSize = (
      1040
      62)
    object lblCliente: TLabel
      Left = 15
      Top = 8
      Width = 47
      Height = 17
      Caption = 'Cliente:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Segoe UI'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lblClienteNombre: TLabel
      Left = 70
      Top = 8
      Width = 320
      Height = 17
      AutoSize = False
      Caption = 'ClienteNombre'
    end
    object lblGrupo: TLabel
      Left = 15
      Top = 34
      Width = 42
      Height = 17
      Caption = 'Grupo:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Segoe UI'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lblGrupoNombre: TLabel
      Left = 70
      Top = 34
      Width = 320
      Height = 17
      AutoSize = False
      Caption = '[Sin grupo asignado]'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -13
      Font.Name = 'Segoe UI'
      Font.Style = []
      ParentFont = False
    end
    object lblFiltroAno: TLabel
      Tag = 999
      Left = 405
      Top = 8
      Width = 85
      Height = 17
      Anchors = [akTop, akRight]
      Caption = 'Ejercicio / A'#241'o:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Segoe UI'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object cbbFiltroAno: TComboBox
      Tag = 999
      Left = 495
      Top = 5
      Width = 140
      Height = 25
      Style = csDropDownList
      Anchors = [akTop, akRight]
      TabOrder = 0
      OnChange = cbbFiltroAnoChange
    end
    object lblFiltroOrigen: TLabel
      Tag = 999
      Left = 650
      Top = 8
      Width = 50
      Height = 17
      Anchors = [akTop, akRight]
      Caption = 'Mostrar:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Segoe UI'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object cbbFiltroOrigen: TComboBox
      Tag = 999
      Left = 705
      Top = 5
      Width = 320
      Height = 25
      Style = csDropDownList
      Anchors = [akTop, akRight]
      TabOrder = 1
      OnChange = cbbFiltroOrigenChange
    end
    object lblFiltroFamilia: TLabel
      Tag = 999
      Left = 405
      Top = 34
      Width = 85
      Height = 17
      Anchors = [akTop, akRight]
      Caption = 'Familia:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Segoe UI'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object cbbFiltroFamilia: TComboBox
      Tag = 999
      Left = 495
      Top = 31
      Width = 530
      Height = 25
      Style = csDropDownList
      Anchors = [akTop, akRight]
      TabOrder = 2
      OnChange = cbbFiltroFamiliaChange
    end
  end
  object pnlMain: TPanel
    Left = 0
    Top = 127
    Width = 1040
    Height = 333
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
    object dbgPrecios: TDBGrid
      Left = 0
      Top = 0
      Width = 1040
      Height = 333
      Align = alClient
      DataSource = dsPrecios
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = 'Segoe UI'
      TitleFont.Style = []
      OnDrawColumnCell = dbgPreciosDrawColumnCell
    end
  end
  object dsPrecios: TDataSource
    DataSet = qryPrecios
    Left = 320
    Top = 110
  end
  object qryPrecios: TFDQuery
    Connection = dmgMain.dbConn
    SQL.Strings = (
      
        'SELECT cp.id, cp.id_cliente, cp.id_articulo, cp.precio, cp.valid' +
        'o_desde, cp.valido_hasta, a.id as codigo, a.descripcion as artic' +
        'ulo_desc '
      'FROM ge_clientes_precios cp '
      'INNER JOIN ge_articulos a ON cp.id_articulo = a.id '
      'WHERE cp.id_cliente = :id_cliente')
    Left = 390
    Top = 110
  end
end