inherited frmClientesGruposEditor: TfrmClientesGruposEditor
  Caption = 'Editor de Grupo de Clientes'
  ClientHeight = 500
  ClientWidth = 932
  OnShow = FormShow
  ExplicitWidth = 948
  ExplicitHeight = 539
  PixelsPerInch = 96
  TextHeight = 16
  inherited pnlToolbar: TPanel
    Width = 932
    ExplicitWidth = 886
    inherited btnIA: TBitBtn
      Visible = False
    end
    inherited btnDuplicar: TBitBtn
      Left = 765
      ExplicitLeft = 765
    end
    inherited btnRect: TBitBtn
      Visible = False
    end
    inherited btnAyuda: TBitBtn
      Left = 822
      ExplicitLeft = 776
    end
    inherited btnSalir: TBitBtn
      Left = 877
      ExplicitLeft = 831
    end
  end
  inherited pnlMain: TPanel
    Width = 932
    Height = 335
    ExplicitWidth = 886
    ExplicitHeight = 460
    inherited pgcDetails: TPageControl
      Width = 932
      Height = 335
      ExplicitWidth = 886
      ExplicitHeight = 460
      inherited tsDatosEnvio: TTabSheet
        Caption = 'Datos del Grupo y Precios Espec'#237'ficos'
        ExplicitWidth = 924
        ExplicitHeight = 306
        inherited dbgItems: TDBGrid
          Top = 135
          Width = 796
          Height = 296
          DataSource = dsPreciosGroup
          TabOrder = 1
        end
        inherited pnlSideToolbar: TPanel
          Left = 796
          Top = 135
          Width = 82
          Height = 296
          TabOrder = 0
          ExplicitLeft = 796
          ExplicitTop = 135
          ExplicitWidth = 82
          ExplicitHeight = 296
        end
        inherited pnlHeader: TPanel
          Width = 878
          Height = 135
          ExplicitWidth = 878
          ExplicitHeight = 135
          object lblCodigo: TLabel
            Left = 30
            Top = 20
            Width = 58
            Height = 15
            Caption = 'ID (Grupo):'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'Segoe UI'
            Font.Style = []
            ParentFont = False
          end
          object lblNombre: TLabel
            Left = 30
            Top = 75
            Width = 107
            Height = 15
            Caption = 'Nombre del Grupo:'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'Segoe UI'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object edtCodigo: TEdit
            Left = 30
            Top = 40
            Width = 150
            Height = 24
            Color = clBtnFace
            ReadOnly = True
            TabOrder = 0
          end
          object edtNombre: TEdit
            Left = 30
            Top = 95
            Width = 480
            Height = 24
            TabOrder = 1
          end
          object chkActivo: TCheckBox
            Left = 200
            Top = 42
            Width = 150
            Height = 20
            Caption = 'Grupo Activo'
            Checked = True
            State = cbChecked
            TabOrder = 2
          end
        end
      end
      inherited TsListado: TTabSheet
        ExplicitWidth = 924
        ExplicitHeight = 306
      end
      object tsClientesGroup: TTabSheet
        Caption = 'Clientes Pertenecientes al Grupo'
        object dbgClientesGroup: TDBGrid
          Left = 0
          Top = 0
          Width = 924
          Height = 306
          Align = alClient
          DataSource = dsClientesGroup
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -12
          TitleFont.Name = 'Segoe UI'
          TitleFont.Style = []
          OnDblClick = dbgClientesGroupDblClick
        end
      end
    end
  end
  inherited pnlFooter: TPanel
    Top = 400
    Width = 932
    Visible = False
    ExplicitTop = 525
    ExplicitWidth = 886
  end
  object qryPreciosGroup: 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 = 280
    Top = 180
  end
  object dsPreciosGroup: TDataSource
    DataSet = qryPreciosGroup
    Left = 360
    Top = 180
  end
  object qryClientesGroup: TFDQuery
    Connection = dmgMain.dbConn
    Left = 440
    Top = 180
  end
  object dsClientesGroup: TDataSource
    DataSet = qryClientesGroup
    Left = 520
    Top = 180
  end
end