object frmArticulosClientesEan: TfrmArticulosClientesEan
  Left = 0
  Top = 0
  BorderIcons = [biSystemMenu]
  Caption = 'C'#243'digos EAN y Referencias por Cliente / Distribuidor'
  ClientHeight = 620
  ClientWidth = 880
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'Segoe UI'
  Font.Style = []
  Position = poOwnerFormCenter
  OnShow = FormShow
  TextHeight = 17
  object pnlTop: TPanel
    Left = 0
    Top = 0
    Width = 880
    Height = 44
    Align = alTop
    BevelOuter = bvNone
    Color = clWhite
    ParentBackground = False
    TabOrder = 0
    object lblArticulo: TLabel
      Left = 15
      Top = 12
      Width = 58
      Height = 17
      Caption = 'Art'#237'culo:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Segoe UI'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lblArticuloNombre: TLabel
      Left = 85
      Top = 12
      Width = 780
      Height = 17
      AutoSize = False
      Caption = 'ArticuloNombre'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Segoe UI'
      Font.Style = []
      ParentFont = False
    end
  end
  object pnlListContainer: TPanel
    Left = 0
    Top = 44
    Width = 880
    Height = 155
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
    object dbgClientesEan: TDBGrid
      Left = 0
      Top = 0
      Width = 770
      Height = 155
      Align = alClient
      DataSource = dsClientesEan
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = 'Segoe UI'
      TitleFont.Style = []
    end
    object pnlListActions: TPanel
      Left = 770
      Top = 0
      Width = 110
      Height = 155
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 1
      object btnAnadir: TSpeedButton
        Left = 10
        Top = 10
        Width = 90
        Height = 40
        Caption = 'A'#241'adir Cliente'
        OnClick = btnAnadirClick
      end
      object btnEliminar: TSpeedButton
        Left = 10
        Top = 58
        Width = 90
        Height = 40
        Caption = 'Eliminar'
        OnClick = btnEliminarClick
      end
    end
  end
  object pnlFicha: TPanel
    Left = 0
    Top = 199
    Width = 880
    Height = 377
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
    object lblFichaTitulo: TLabel
      Left = 15
      Top = 10
      Width = 199
      Height = 17
      Caption = 'Ficha del Cliente / Distribuidor:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Segoe UI'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lblFichaCliente: TLabel
      Left = 220
      Top = 10
      Width = 530
      Height = 17
      AutoSize = False
      Caption = '-'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clHotLight
      Font.Height = -13
      Font.Name = 'Segoe UI'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object chkFichaActivo: TCheckBox
      Left = 785
      Top = 8
      Width = 80
      Height = 20
      Caption = 'Activo'
      Checked = True
      State = cbChecked
      TabOrder = 0
    end
    object lblFichaEan13: TLabel
      Left = 15
      Top = 38
      Width = 105
      Height = 17
      Caption = 'EAN-13 (Unidad):'
    end
    object edtFichaEan13: TEdit
      Left = 125
      Top = 34
      Width = 145
      Height = 25
      MaxLength = 20
      TabOrder = 1
    end
    object lblFichaDun14: TLabel
      Left = 285
      Top = 38
      Width = 91
      Height = 17
      Caption = 'DUN-14 (Caja):'
    end
    object edtFichaDun14: TEdit
      Left = 385
      Top = 34
      Width = 145
      Height = 25
      MaxLength = 20
      TabOrder = 2
    end
    object lblFichaRefCli: TLabel
      Left = 545
      Top = 38
      Width = 101
      Height = 17
      Caption = 'Ref./C'#243'd. Cliente:'
    end
    object edtFichaRefCli: TEdit
      Left = 655
      Top = 34
      Width = 155
      Height = 25
      MaxLength = 50
      TabOrder = 3
    end
    object lblFichaDescEtiqueta: TLabel
      Left = 15
      Top = 68
      Width = 153
      Height = 17
      Caption = 'Descripci'#243'n en Etiqueta:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Segoe UI'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object btnBoldDesc: TSpeedButton
      Tag = 999
      Left = 175
      Top = 65
      Width = 24
      Height = 22
      Hint = 'Negrita'
      AllowAllUp = True
      GroupIndex = 5
      Caption = 'N'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Segoe UI'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = btnBoldDescClick
    end
    object btnUnderlineDesc: TSpeedButton
      Tag = 999
      Left = 202
      Top = 65
      Width = 24
      Height = 22
      Hint = 'Subrayado'
      AllowAllUp = True
      GroupIndex = 6
      Caption = 'S'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Segoe UI'
      Font.Style = [fsUnderline]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = btnUnderlineDescClick
    end
    object btnSourceDesc: TSpeedButton
      Tag = 999
      Left = 229
      Top = 65
      Width = 28
      Height = 22
      Hint = 'Ver c'#243'digo HTML y caracteres ocultos'
      AllowAllUp = True
      GroupIndex = 13
      Caption = '</>'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Segoe UI'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = btnSourceDescClick
    end
    object lblTamanoDesc: TLabel
      Tag = 999
      Left = 265
      Top = 68
      Width = 47
      Height = 15
      Caption = 'Tama'#241'o:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Segoe UI'
      Font.Style = []
      ParentFont = False
    end
    object cbFontSizeDesc: TComboBox
      Tag = 999
      Left = 315
      Top = 64
      Width = 55
      Height = 25
      Style = csDropDownList
      TabOrder = 10
      OnChange = cbFontSizeDescChange
    end
    object btnCopiarDescArticulo: TBitBtn
      Tag = 999
      Left = 715
      Top = 65
      Width = 150
      Height = 22
      Caption = 'Copiar de Art'#237'culo'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Segoe UI'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnClick = btnCopiarDescArticuloClick
    end
    object redtFichaDescripcion: TRichEdit
      Left = 15
      Top = 90
      Width = 850
      Height = 48
      Font.Charset = 254
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Segoe UI'
      Font.Style = []
      HideSelection = False
      ParentFont = False
      ScrollBars = ssVertical
      TabOrder = 5
      OnSelectionChange = redtFichaDescripcionSelectionChange
    end
    object lblFichaIngredientes: TLabel
      Left = 15
      Top = 146
      Width = 83
      Height = 17
      Caption = 'Ingredientes:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Segoe UI'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object btnBoldIngredientes: TSpeedButton
      Tag = 999
      Left = 105
      Top = 143
      Width = 24
      Height = 22
      Hint = 'Negrita'
      AllowAllUp = True
      GroupIndex = 7
      Caption = 'N'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Segoe UI'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = btnBoldIngredientesClick
    end
    object btnUnderlineIngredientes: TSpeedButton
      Tag = 999
      Left = 132
      Top = 143
      Width = 24
      Height = 22
      Hint = 'Subrayado'
      AllowAllUp = True
      GroupIndex = 8
      Caption = 'S'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Segoe UI'
      Font.Style = [fsUnderline]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = btnUnderlineIngredientesClick
    end
    object btnSourceIngredientes: TSpeedButton
      Tag = 999
      Left = 159
      Top = 143
      Width = 28
      Height = 22
      Hint = 'Ver c'#243'digo HTML y caracteres ocultos'
      AllowAllUp = True
      GroupIndex = 14
      Caption = '</>'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Segoe UI'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = btnSourceIngredientesClick
    end
    object btnCopiarIngrArticulo: TBitBtn
      Tag = 999
      Left = 715
      Top = 143
      Width = 150
      Height = 22
      Caption = 'Copiar de Art'#237'culo'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Segoe UI'
      Font.Style = []
      ParentFont = False
      TabOrder = 6
      OnClick = btnCopiarIngrArticuloClick
    end
    object redtFichaIngredientes: TRichEdit
      Left = 15
      Top = 168
      Width = 850
      Height = 85
      Font.Charset = 254
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Segoe UI'
      Font.Style = []
      HideSelection = False
      ParentFont = False
      ScrollBars = ssVertical
      TabOrder = 7
      OnSelectionChange = redtFichaIngredientesSelectionChange
    end
    object btnGuardarFicha: TBitBtn
      Left = 15
      Top = 262
      Width = 145
      Height = 32
      Caption = 'Guardar Cambios'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Segoe UI'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 8
      OnClick = btnGuardarFichaClick
    end
    object btnCancelarFicha: TBitBtn
      Left = 170
      Top = 262
      Width = 145
      Height = 32
      Caption = 'Deshacer Cambios'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Segoe UI'
      Font.Style = []
      ParentFont = False
      TabOrder = 9
      OnClick = btnCancelarFichaClick
    end
  end
  object pnlBottom: TPanel
    Left = 0
    Top = 576
    Width = 880
    Height = 44
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 3
    object btnCerrar: TBitBtn
      Left = 765
      Top = 7
      Width = 100
      Height = 30
      Caption = 'Cerrar'
      TabOrder = 0
      OnClick = btnCerrarClick
    end
  end
  object dsClientesEan: TDataSource
    DataSet = qryClientesEan
    OnDataChange = dsClientesEanDataChange
    Left = 320
    Top = 100
  end
  object qryClientesEan: TFDQuery
    CachedUpdates = True
    Connection = dmgMain.dbConn
    SQL.Strings = (
      'SELECT ca.id, ca.ide, ca.id_cliente, ca.id_articulo,'
      
        '       COALESCE(NULLIF(c.nombre_comercial, '#39#39'), c.nombre_fiscal) ' +
        'as cliente_nombre,'
      
        '       ca.ean13, ca.dun14, ca.codigo_articulo_cliente, ca.descrip' +
        'cion_cliente, ca.ingredientes, ca.activo'
      'FROM ge_clientes_articulos ca'
      'LEFT JOIN ge_clientes c ON ca.id_cliente = c.id'
      'WHERE ca.id_articulo = :articulo_id'
      'ORDER BY cliente_nombre ASC')
    Left = 400
    Top = 100
  end
end