inherited frmArticulosEditor: TfrmArticulosEditor
  Caption = 'Editor de Art'#237'culo'
  ClientHeight = 725
  ClientWidth = 913
  OnClose = FormClose
  OnDestroy = FormDestroy
  OnShow = FormShow
  ExplicitWidth = 929
  ExplicitHeight = 764
  PixelsPerInch = 96
  TextHeight = 17
  inherited pnlToolbar: TPanel
    Width = 913
    ExplicitWidth = 913
    inherited btnAnterior: TBitBtn
      Left = 395
      ExplicitLeft = 395
    end
    inherited btnSiguiente: TBitBtn
      Left = 450
      ExplicitLeft = 450
    end
    inherited btnUltimo: TBitBtn
      Left = 505
      ExplicitLeft = 505
    end
    inherited btnModificar: TBitBtn
      TabOrder = 16
    end
    inherited btnBuscar: TBitBtn
      Left = 560
      ExplicitLeft = 560
    end
    inherited btnImprimir: TBitBtn
      Left = 725
      ExplicitLeft = 725
    end
    inherited btnIA: TBitBtn
      Left = 670
      ExplicitLeft = 670
    end
    inherited btnDuplicar: TBitBtn
      Left = 615
      Visible = False
      ExplicitLeft = 615
    end
    inherited btnRect: TBitBtn
      Left = 780
      ExplicitLeft = 780
    end
    inherited btnAyuda: TBitBtn
      Left = 803
      ExplicitLeft = 803
    end
    inherited btnSalir: TBitBtn
      Left = 858
      ExplicitLeft = 858
    end
    object btnHistoricoTarifas: TBitBtn
      Tag = 999
      Left = 330
      Top = 0
      Width = 65
      Height = 65
      Align = alLeft
      Caption = 'Hist'#243'rico Precios'
      ImageIndex = 143
      ImageName = 'icon_historial'
      Images = dmgMain.imgListRibbon
      Layout = blGlyphTop
      TabOrder = 8
      WordWrap = True
      OnClick = btnHistoricoPvpClick
    end
  end
  inherited pnlMain: TPanel
    Width = 913
    Height = 560
    ExplicitWidth = 913
    ExplicitHeight = 560
    inherited pgcDetails: TPageControl
      Width = 913
      Height = 560
      Visible = False
      ExplicitWidth = 913
      ExplicitHeight = 560
      inherited tsDatosEnvio: TTabSheet
        Caption = 'Alergenos'
        ExplicitWidth = 905
        ExplicitHeight = 530
        inherited dbgItems: TDBGrid
          Top = 368
          Width = 830
          Height = 162
        end
        inherited pnlSideToolbar: TPanel
          Left = 830
          Top = 368
          Height = 162
          ExplicitLeft = 830
          ExplicitTop = 368
          ExplicitHeight = 162
        end
        inherited pnlHeader: TPanel
          Width = 905
          Height = 368
          ExplicitWidth = 905
          ExplicitHeight = 368
          object lblCodigo: TLabel
            Left = 20
            Top = 15
            Width = 41
            Height = 15
            Caption = 'C'#243'digo:'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'Segoe UI'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object lblDescripcion: TLabel
            Left = 87
            Top = 15
            Width = 68
            Height = 15
            Caption = 'Descripci'#243'n:'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'Segoe UI'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object lblDescripcionEtiqueta: TLabel
            Left = 87
            Top = 66
            Width = 97
            Height = 15
            Caption = 'Descrip. Etiqueta:'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'Segoe UI'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object btnBold: TSpeedButton
            Tag = 999
            Left = 240
            Top = 63
            Width = 24
            Height = 22
            Hint = 'Negrita'
            AllowAllUp = True
            GroupIndex = 1
            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 = btnBoldClick
          end
          object btnUnderline: TSpeedButton
            Tag = 999
            Left = 266
            Top = 63
            Width = 24
            Height = 22
            Hint = 'Subrayado'
            AllowAllUp = True
            GroupIndex = 2
            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 = btnUnderlineClick
          end
          object btnSourceDesc: TSpeedButton
            Tag = 999
            Left = 292
            Top = 63
            Width = 28
            Height = 22
            Hint = 'Ver c'#243'digo HTML y caracteres ocultos'
            AllowAllUp = True
            GroupIndex = 11
            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 lblTamano: TLabel
            Tag = 999
            Left = 328
            Top = 66
            Width = 45
            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 lblFamilia: TLabel
            Left = 15
            Top = 145
            Width = 41
            Height = 15
            Caption = 'Familia:'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'Segoe UI'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object lblTipoIva: TLabel
            Left = 237
            Top = 145
            Width = 22
            Height = 15
            Caption = 'IVA:'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'Segoe UI'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object lblArticuloMaestro: TLabel
            Left = 390
            Top = 145
            Width = 73
            Height = 15
            Caption = 'Art. Maestro:'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'Segoe UI'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object lblPvp1: TLabel
            Left = 20
            Top = 191
            Width = 35
            Height = 15
            Caption = 'PVP 1:'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'Segoe UI'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object lblPvp2: TLabel
            Left = 20
            Top = 214
            Width = 35
            Height = 15
            Caption = 'PVP 2:'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'Segoe UI'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object lblPvp3: TLabel
            Left = 20
            Top = 237
            Width = 35
            Height = 15
            Caption = 'PVP 3:'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'Segoe UI'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object lblPvp4: TLabel
            Left = 21
            Top = 260
            Width = 35
            Height = 15
            Caption = 'PVP 4:'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'Segoe UI'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object lblDiasVida: TLabel
            Left = 294
            Top = 191
            Width = 53
            Height = 15
            Caption = 'D'#237'as Vida:'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'Segoe UI'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object lblPeso: TLabel
            Left = 208
            Top = 191
            Width = 29
            Height = 15
            Caption = 'Peso:'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'Segoe UI'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object lblEan: TLabel
            Left = 208
            Top = 242
            Width = 26
            Height = 15
            Caption = 'EAN:'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'Segoe UI'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object lblCodigoWeb: TLabel
            Left = 353
            Top = 221
            Width = 56
            Height = 15
            Caption = 'C'#243'd. Web:'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'Segoe UI'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object Label1: TLabel
            Left = 133
            Top = 170
            Width = 42
            Height = 15
            Caption = 'SIN IVA'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'Segoe UI'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object Label2: TLabel
            Left = 71
            Top = 170
            Width = 48
            Height = 15
            Caption = 'IVA INCL'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'Segoe UI'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object lblIngredientes: TLabel
            Left = 15
            Top = 287
            Width = 74
            Height = 15
            Caption = 'Ingredientes:'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'Segoe UI'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object btnBoldIngredientes: TSpeedButton
            Tag = 999
            Left = 95
            Top = 284
            Width = 24
            Height = 22
            Hint = 'Negrita'
            AllowAllUp = True
            GroupIndex = 3
            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 = 121
            Top = 284
            Width = 24
            Height = 22
            Hint = 'Subrayado'
            AllowAllUp = True
            GroupIndex = 4
            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 = 147
            Top = 284
            Width = 28
            Height = 22
            Hint = 'Ver c'#243'digo HTML y caracteres ocultos'
            AllowAllUp = True
            GroupIndex = 12
            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 btnHistoricoPvp: TSpeedButton
            Tag = 999
            Left = 180
            Top = 187
            Width = 24
            Height = 24
            Hint = 'Ver hist'#243'rico de precios de este art'#237'culo'
            ImageIndex = 143
            ImageName = 'icon_historial'
            Images = dmgMain.imgListRibbon
            ParentShowHint = False
            ShowHint = True
            OnClick = btnHistoricoPvpClick
          end
          object edtCodigo: TEdit
            Left = 20
            Top = 35
            Width = 61
            Height = 25
            MaxLength = 50
            TabOrder = 0
          end
          object edtDescripcion: TEdit
            Left = 87
            Top = 35
            Width = 420
            Height = 25
            MaxLength = 50
            TabOrder = 1
          end
          object cbFontSize: TComboBox
            Tag = 999
            Left = 378
            Top = 63
            Width = 55
            Height = 25
            Style = csDropDownList
            TabOrder = 24
            OnChange = cbFontSizeChange
          end
          object redtDescripcionEtiqueta: TRichEdit
            Left = 87
            Top = 88
            Width = 420
            Height = 48
            Font.Charset = 254
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'Segoe UI'
            Font.Style = []
            HideSelection = False
            ParentFont = False
            ScrollBars = ssVertical
            TabOrder = 2
            OnSelectionChange = redtDescripcionEtiquetaSelectionChange
          end
          object cbFamilia: TComboBox
            Left = 87
            Top = 141
            Width = 140
            Height = 25
            Style = csDropDownList
            TabOrder = 3
          end
          object cbTipoIva: TComboBox
            Left = 270
            Top = 141
            Width = 110
            Height = 25
            Style = csDropDownList
            TabOrder = 4
          end
          object cbArticuloMaestro: TComboBox
            Left = 475
            Top = 141
            Width = 270
            Height = 25
            Style = csDropDownList
            TabOrder = 22
          end
          object edtPvp1: TEdit
            Left = 125
            Top = 187
            Width = 51
            Height = 25
            Alignment = taRightJustify
            TabOrder = 6
            Text = '0,00'
          end
          object edtPvp2: TEdit
            Left = 125
            Top = 210
            Width = 51
            Height = 25
            Alignment = taRightJustify
            TabOrder = 8
            Text = '0,00'
          end
          object edtPvp3: TEdit
            Left = 125
            Top = 233
            Width = 51
            Height = 25
            Alignment = taRightJustify
            TabOrder = 10
            Text = '0,00'
          end
          object edtPvp4: TEdit
            Left = 125
            Top = 256
            Width = 51
            Height = 25
            Alignment = taRightJustify
            TabOrder = 12
            Text = '0,00'
          end
          object edtDiasVida: TEdit
            Left = 353
            Top = 187
            Width = 60
            Height = 25
            Alignment = taRightJustify
            TabOrder = 14
          end
          object edtPeso: TEdit
            Left = 243
            Top = 187
            Width = 50
            Height = 25
            Alignment = taRightJustify
            TabOrder = 13
          end
          object chkActivo: TCheckBox
            Left = 530
            Top = 15
            Width = 110
            Height = 23
            Caption = 'Activo'
            Checked = True
            State = cbChecked
            TabOrder = 17
          end
          object chkIngrediente: TCheckBox
            Left = 534
            Top = 36
            Width = 120
            Height = 23
            Caption = 'Es Ingrediente'
            TabOrder = 18
          end
          object btnEans: TButton
            Left = 546
            Top = 168
            Width = 79
            Height = 55
            Caption = 'EAN Envases'
            ImageAlignment = iaTop
            ImageIndex = 40
            ImageName = 'Escaneo de C'#243'digo de Barras'
            Images = dmgMain.imgListRibbon
            TabOrder = 19
            OnClick = btnEansClick
          end
          object btnEansDistribuidores: TButton
            Left = 631
            Top = 168
            Width = 85
            Height = 55
            Caption = 'EAN Clientes'
            ImageAlignment = iaTop
            ImageIndex = 40
            ImageName = 'Escaneo de C'#243'digo de Barras'
            Images = dmgMain.imgListRibbon
            TabOrder = 23
            WordWrap = True
            OnClick = btnEansDistribuidoresClick
          end
          object btnFichaTecnica: TButton
            Left = 546
            Top = 229
            Width = 79
            Height = 55
            Caption = 'F. T'#233'cnica'
            ImageAlignment = iaTop
            ImageIndex = 61
            ImageName = 'Integraci'#243'n'
            Images = dmgMain.imgListRibbon
            TabOrder = 20
            WordWrap = True
            OnClick = btnFichaTecnicaClick
          end
          object edtEan: TEdit
            Left = 243
            Top = 238
            Width = 100
            Height = 25
            MaxLength = 20
            TabOrder = 15
          end
          object edtCodigoWeb: TEdit
            Left = 353
            Top = 238
            Width = 60
            Height = 25
            MaxLength = 50
            TabOrder = 16
          end
          object pnlImagen: TPanel
            Left = 755
            Top = 15
            Width = 130
            Height = 165
            BevelOuter = bvNone
            ParentBackground = False
            TabOrder = 25
            object imgProducto: TImage
              Left = 0
              Top = 0
              Width = 130
              Height = 135
              Center = True
              Proportional = True
              Stretch = True
            end
            object btnSubirImagen: TSpeedButton
              Left = 0
              Top = 140
              Width = 62
              Height = 22
              Caption = 'Subir'
              OnClick = btnSubirImagenClick
            end
            object btnEliminarImagen: TSpeedButton
              Left = 68
              Top = 140
              Width = 62
              Height = 22
              Caption = 'Borrar'
              OnClick = btnEliminarImagenClick
            end
          end
          object edtPvp1Iva: TEdit
            Left = 68
            Top = 187
            Width = 51
            Height = 25
            Alignment = taRightJustify
            TabOrder = 5
            Text = '0,00'
          end
          object edtPvp2Iva: TEdit
            Left = 68
            Top = 210
            Width = 51
            Height = 25
            Alignment = taRightJustify
            TabOrder = 7
            Text = '0,00'
          end
          object edtPvp3Iva: TEdit
            Left = 68
            Top = 233
            Width = 51
            Height = 25
            Alignment = taRightJustify
            TabOrder = 9
            Text = '0,00'
          end
          object edtPvp4Iva: TEdit
            Left = 68
            Top = 256
            Width = 51
            Height = 25
            Alignment = taRightJustify
            TabOrder = 11
            Text = '0,00'
          end
          object redtIngredientes: TRichEdit
            Left = 15
            Top = 308
            Width = 705
            Height = 56
            Font.Charset = 254
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'Segoe UI'
            Font.Style = []
            HideSelection = False
            ParentFont = False
            ScrollBars = ssVertical
            TabOrder = 21
            OnSelectionChange = redtIngredientesSelectionChange
          end
        end
      end
      inherited TsListado: TTabSheet
        ExplicitWidth = 905
        ExplicitHeight = 530
      end
      object tsDocumentos: TTabSheet
        Caption = 'Documentaci'#243'n'
        ImageIndex = 2
        object dbgDocumentos: TDBGrid
          Left = 0
          Top = 0
          Width = 830
          Height = 530
          Align = alClient
          DataSource = dsDocumentos
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -13
          TitleFont.Name = 'Segoe UI'
          TitleFont.Style = []
        end
        object pnlDocActions: TPanel
          Left = 830
          Top = 0
          Width = 75
          Height = 530
          Align = alRight
          BevelOuter = bvNone
          TabOrder = 1
          object btnSubirDoc: TBitBtn
            Left = 5
            Top = 10
            Width = 65
            Height = 40
            Caption = 'Subir'
            TabOrder = 0
            OnClick = btnSubirDocClick
          end
          object btnVerDoc: TBitBtn
            Left = 5
            Top = 60
            Width = 65
            Height = 40
            Caption = 'Ver'
            TabOrder = 1
            OnClick = btnVerDocClick
          end
          object btnEliminarDoc: TBitBtn
            Left = 5
            Top = 110
            Width = 65
            Height = 40
            Caption = 'Eliminar'
            TabOrder = 2
            OnClick = btnEliminarDocClick
          end
        end
      end
    end
  end
  inherited pnlFooter: TPanel
    Top = 625
    Width = 913
    ExplicitTop = 625
    ExplicitWidth = 913
  end
  object dsAlergenos: TDataSource
    DataSet = qryAlergenos
    Left = 720
    Top = 320
  end
  object qryAlergenos: TFDQuery
    Connection = dmgMain.dbConn
    SQL.Strings = (
      
        'SELECT aa.id, aa.id_articulo, aa.id_alergeno, aa.presencia, aa.c' +
        'alculado_receta, a.nombre, a.nombre_tecnico'
      'FROM ge_articulos_alergenos aa'
      'INNER JOIN ge_alergenos a ON aa.id_alergeno = a.id'
      'WHERE aa.id_articulo = :id_articulo')
    Left = 800
    Top = 320
  end
  object dsDocumentos: TDataSource
    DataSet = qryDocumentos
    Left = 720
    Top = 260
  end
  object qryDocumentos: TFDQuery
    Connection = dmgMain.dbConn
    SQL.Strings = (
      'SELECT id, fecha, descripcion, nombre_archivo, extension '
      'FROM ge_documentos '
      'WHERE id_articulo = :id_articulo')
    Left = 800
    Top = 260
  end
  object odDocumento: TOpenDialog
    Filter = 
      'Todos los archivos (*.*)|*.*|Documentos PDF (*.pdf)|*.pdf|Im'#225'gen' +
      'es (*.png;*.jpg;*.jpeg)|*.png;*.jpg;*.jpeg'
    Left = 640
    Top = 260
  end
end