object frmClientesGruposPrecios: TfrmClientesGruposPrecios
  Left = 0
  Top = 0
  BorderIcons = [biSystemMenu]
  Caption = 'Precios Espec'#237'ficos del Grupo / Distribuidor'
  ClientHeight = 373
  ClientWidth = 810
  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 = 323
    Width = 810
    Height = 50
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 0
    ExplicitTop = 300
    object btnCerrar: TBitBtn
      Left = 490
      Top = 10
      Width = 100
      Height = 30
      Caption = 'Cerrar'
      TabOrder = 0
      OnClick = btnCerrarClick
    end
    object btnAyuda: TBitBtn
      Left = 15
      Top = 10
      Width = 100
      Height = 30
      Caption = 'Ayuda'
      TabOrder = 1
      OnClick = btnAyudaClick
    end
  end
  object pnlTop: TPanel
    Left = 0
    Top = 0
    Width = 810
    Height = 50
    Align = alTop
    BevelOuter = bvNone
    Color = clWhite
    ParentBackground = False
    TabOrder = 1
    object lblGrupo: TLabel
      Left = 15
      Top = 15
      Width = 43
      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 = 75
      Top = 15
      Width = 510
      Height = 17
      AutoSize = False
      Caption = 'GrupoNombre'
    end
  end
  object pnlMain: TPanel
    Left = 0
    Top = 50
    Width = 810
    Height = 273
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
    ExplicitHeight = 250
    object dbgPrecios: TDBGrid
      Left = 0
      Top = 0
      Width = 730
      Height = 273
      Align = alClient
      DataSource = dsPrecios
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = 'Segoe UI'
      TitleFont.Style = []
    end
    object pnlRight: TPanel
      Left = 730
      Top = 0
      Width = 80
      Height = 273
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 1
      ExplicitHeight = 250
      object btnAnadir: TSpeedButton
        Left = 10
        Top = 15
        Width = 60
        Height = 45
        Caption = 'A'#241'adir'
        OnClick = btnAnadirClick
      end
      object btnEliminar: TSpeedButton
        Left = 10
        Top = 75
        Width = 60
        Height = 45
        Caption = 'Eliminar'
        OnClick = btnEliminarClick
      end
      object btnAyudaRight: TSpeedButton
        Left = 10
        Top = 135
        Width = 60
        Height = 45
        Caption = 'Ayuda'
        OnClick = btnAyudaClick
      end
    end
  end
  object dsPrecios: TDataSource
    DataSet = qryPrecios
    Left = 320
    Top = 110
  end
  object qryPrecios: TFDQuery
    Connection = dmgMain.dbConn
    SQL.Strings = (
      
        'SELECT cgp.id, cgp.id_cliente_grupo, cgp.id_articulo, cgp.precio' +
        ', cgp.valido_desde, cgp.valido_hasta, a.id as codigo, a.descripc' +
        'ion as articulo_desc '
      'FROM ge_clientes_grupos_precios cgp '
      'INNER JOIN ge_articulos a ON cgp.id_articulo = a.id '
      'WHERE cgp.id_cliente_grupo = :id_grupo')
    Left = 390
    Top = 110
  end
end