object presentaciones: Tpresentaciones
  Left = 0
  Top = 0
  Caption = 'Formatos/Presentaciones'
  ClientHeight = 729
  ClientWidth = 1264
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poMainFormCenter
  WindowState = wsMaximized
  OnKeyDown = FormKeyDown
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 361
    Height = 729
    Align = alLeft
    TabOrder = 0
    object Panel5: TPanel
      Left = 1
      Top = 1
      Width = 359
      Height = 64
      Align = alTop
      TabOrder = 0
      object Label1: TLabel
        Left = 3
        Top = 18
        Width = 38
        Height = 16
        Caption = 'Filtrar'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object todosarticulos: TCheckBox
        Left = 110
        Top = 19
        Width = 84
        Height = 17
        Alignment = taLeftJustify
        BiDiMode = bdRightToLeftNoAlign
        Caption = 'Ver Todos'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentBiDiMode = False
        ParentFont = False
        TabOrder = 0
        OnClick = todosarticulosClick
      end
      object tbuscar: TEdit
        Left = 3
        Top = 37
        Width = 192
        Height = 21
        CharCase = ecUpperCase
        TabOrder = 1
        OnChange = tbuscarChange
      end
    end
    object DBGrid1: TDBGrid
      Left = 1
      Top = 65
      Width = 359
      Height = 663
      Align = alClient
      DataSource = dsqpresentaciones
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -9
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -9
      TitleFont.Name = 'Tahoma'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'descripcion'
          Width = 322
          Visible = True
        end>
    end
  end
  object Panel1: TPanel
    Left = 361
    Top = 0
    Width = 903
    Height = 729
    Align = alClient
    TabOrder = 1
    object Panel4: TPanel
      Left = 1
      Top = 1
      Width = 901
      Height = 727
      Align = alClient
      TabOrder = 0
      object Panel3: TPanel
        Left = 1
        Top = 27
        Width = 899
        Height = 70
        Align = alTop
        TabOrder = 0
        object Label2: TLabel
          Left = 14
          Top = 10
          Width = 15
          Height = 13
          Caption = 'Id:'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label5: TLabel
          Left = 13
          Top = 29
          Width = 68
          Height = 13
          Caption = 'Descripci'#243'n:'
          FocusControl = DBEdit4
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object DBText1: TDBText
          Left = 35
          Top = 10
          Width = 65
          Height = 17
          DataField = 'id'
          DataSource = dspresentaciones
        end
        object Label3: TLabel
          Left = 13
          Top = 49
          Width = 137
          Height = 13
          Caption = 'Descripci'#243'n en Informes'
          FocusControl = DBEdit1
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label4: TLabel
          Left = 450
          Top = 29
          Width = 35
          Height = 13
          Caption = 'Coste:'
          FocusControl = DBEdit2
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label6: TLabel
          Left = 455
          Top = 48
          Width = 30
          Height = 13
          Caption = 'Peso:'
          FocusControl = DBEdit3
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object DBEdit4: TDBEdit
          Left = 161
          Top = 26
          Width = 280
          Height = 21
          CharCase = ecUpperCase
          DataField = 'descripcion2'
          DataSource = dspresentaciones
          TabOrder = 1
          OnExit = DBEdit4Exit
        end
        object DBCheckBox1: TDBCheckBox
          Left = 385
          Top = 6
          Width = 56
          Height = 17
          Alignment = taLeftJustify
          Caption = 'Activo'
          DataField = 'activo'
          DataSource = dspresentaciones
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 0
          ValueChecked = '1'
          ValueUnchecked = '0'
        end
        object DBEdit1: TDBEdit
          Left = 161
          Top = 46
          Width = 280
          Height = 21
          CharCase = ecUpperCase
          DataField = 'descripcion'
          DataSource = dspresentaciones
          TabOrder = 2
        end
        object DBEdit2: TDBEdit
          Left = 488
          Top = 26
          Width = 58
          Height = 21
          CharCase = ecUpperCase
          DataField = 'coste'
          DataSource = dspresentaciones
          TabOrder = 3
        end
        object DBEdit3: TDBEdit
          Left = 488
          Top = 46
          Width = 58
          Height = 21
          CharCase = ecUpperCase
          DataField = 'peso'
          DataSource = dspresentaciones
          TabOrder = 4
        end
      end
      object Panel12: TPanel
        Left = 1
        Top = 97
        Width = 899
        Height = 629
        Align = alClient
        TabOrder = 1
        Visible = False
        object Panel13: TPanel
          Left = 437
          Top = 467
          Width = 461
          Height = 161
          Align = alClient
          TabOrder = 0
          object DBGrid4: TDBGrid
            Left = 1
            Top = 1
            Width = 459
            Height = 159
            Align = alClient
            DataSource = dspresentaciones_envases
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -9
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -9
            TitleFont.Name = 'Tahoma'
            TitleFont.Style = []
            Columns = <
              item
                Expanded = False
                FieldName = 'codigo'
                Title.Caption = 'Envase'
                Width = 128
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'descripcion'
                Width = 295
                Visible = True
              end>
          end
        end
        object Panel14: TPanel
          Left = 411
          Top = 467
          Width = 26
          Height = 161
          Align = alLeft
          TabOrder = 1
          object Button3: TButton
            Left = 1
            Top = 25
            Width = 24
            Height = 24
            Align = alTop
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = [fsBold]
            ImageAlignment = iaBottom
            ImageIndex = 1
            Images = BASE.listaiconos
            ParentFont = False
            TabOrder = 0
            OnClick = Button3Click
          end
          object Button4: TButton
            Left = 1
            Top = 1
            Width = 24
            Height = 24
            Align = alTop
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = [fsBold]
            ImageAlignment = iaBottom
            ImageIndex = 0
            Images = BASE.listaiconos
            ParentFont = False
            TabOrder = 1
            OnClick = Button4Click
          end
        end
        object Panel15: TPanel
          Left = 1
          Top = 467
          Width = 410
          Height = 161
          Align = alLeft
          TabOrder = 2
          object DBGrid5: TDBGrid
            Left = 1
            Top = 1
            Width = 408
            Height = 159
            Align = alClient
            DataSource = dsqenvases
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -9
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -9
            TitleFont.Name = 'Tahoma'
            TitleFont.Style = []
            Columns = <
              item
                Expanded = False
                FieldName = 'codigo'
                Title.Caption = 'Envase'
                Width = 128
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'descripcion'
                Width = 244
                Visible = True
              end>
          end
        end
        object Panel8: TPanel
          Left = 1
          Top = 1
          Width = 897
          Height = 424
          Align = alTop
          TabOrder = 3
          Visible = False
          object Panel9: TPanel
            Left = 437
            Top = 43
            Width = 459
            Height = 380
            Align = alClient
            TabOrder = 0
            object DBGrid3: TDBGrid
              Left = 1
              Top = 1
              Width = 457
              Height = 378
              Align = alClient
              DataSource = dspresentacionescomponentes
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -9
              Font.Name = 'Tahoma'
              Font.Style = []
              ParentFont = False
              TabOrder = 0
              TitleFont.Charset = DEFAULT_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -9
              TitleFont.Name = 'Tahoma'
              TitleFont.Style = []
              Columns = <
                item
                  Expanded = False
                  FieldName = 'idaf'
                  Title.Caption = 'Id'
                  Width = 29
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'codigo'
                  Title.Caption = 'C'#243'digo'
                  Width = 62
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'descripcion'
                  Title.Caption = 'Descripci'#243'n'
                  Width = 235
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'cantidad'
                  Title.Caption = 'Ctd.'
                  Width = 23
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'coste'
                  Title.Caption = 'Coste'
                  Width = 35
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'peso'
                  Title.Caption = 'Peso'
                  Width = 35
                  Visible = True
                end>
            end
          end
          object Panel10: TPanel
            Left = 411
            Top = 43
            Width = 26
            Height = 380
            Align = alLeft
            TabOrder = 1
            object Button1: TButton
              Left = 1
              Top = 25
              Width = 24
              Height = 24
              Align = alTop
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = [fsBold]
              ImageAlignment = iaBottom
              ImageIndex = 1
              Images = BASE.listaiconos
              ParentFont = False
              TabOrder = 0
              OnClick = Button1Click
            end
            object Button2: TButton
              Left = 1
              Top = 1
              Width = 24
              Height = 24
              Align = alTop
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = [fsBold]
              ImageAlignment = iaBottom
              ImageIndex = 0
              Images = BASE.listaiconos
              ParentFont = False
              TabOrder = 1
              OnClick = Button2Click
            end
          end
          object Panel11: TPanel
            Left = 1
            Top = 43
            Width = 410
            Height = 380
            Align = alLeft
            TabOrder = 2
            object DBGrid2: TDBGrid
              Left = 1
              Top = 1
              Width = 408
              Height = 378
              Align = alClient
              DataSource = dsqarticulosfinal
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -9
              Font.Name = 'Tahoma'
              Font.Style = []
              ParentFont = False
              TabOrder = 0
              TitleFont.Charset = DEFAULT_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -9
              TitleFont.Name = 'Tahoma'
              TitleFont.Style = []
              Columns = <
                item
                  Expanded = False
                  FieldName = 'id'
                  Title.Caption = 'Id'
                  Width = 27
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'codigo'
                  Title.Caption = 'C'#243'digo'
                  Width = 104
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'descripcion'
                  Title.Caption = 'Descripci'#243'n'
                  Width = 239
                  Visible = True
                end>
            end
          end
          object Panel16: TPanel
            Left = 1
            Top = 1
            Width = 895
            Height = 42
            Align = alTop
            TabOrder = 3
            object Label7: TLabel
              Left = 3
              Top = 20
              Width = 34
              Height = 13
              Caption = 'Filtrar'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = [fsBold]
              ParentFont = False
            end
            object Label9: TLabel
              Left = 462
              Top = 18
              Width = 297
              Height = 19
              Alignment = taCenter
              Caption = 'MATERIALES AUXILIARES  USADOS '
              FocusControl = DBEdit1
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -16
              Font.Name = 'Tahoma'
              Font.Style = [fsBold]
              ParentFont = False
            end
            object Label10: TLabel
              Left = 255
              Top = 17
              Width = 154
              Height = 19
              Alignment = taCenter
              Caption = 'MAT.  AUXILIARES'
              FocusControl = DBEdit1
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -16
              Font.Name = 'Tahoma'
              Font.Style = [fsBold]
              ParentFont = False
            end
            object tbuscarcomponentes: TEdit
              Left = 47
              Top = 17
              Width = 202
              Height = 21
              CharCase = ecUpperCase
              TabOrder = 0
              OnChange = tbuscarcomponentesChange
            end
          end
        end
        object Panel7: TPanel
          Left = 1
          Top = 425
          Width = 897
          Height = 42
          Align = alTop
          TabOrder = 4
          object Label8: TLabel
            Left = 3
            Top = 20
            Width = 34
            Height = 13
            Caption = 'Filtrar'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object Label11: TLabel
            Left = 223
            Top = 18
            Width = 187
            Height = 19
            Alignment = taCenter
            Caption = 'ENVASES DE ALMACEN'
            FocusControl = DBEdit1
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -16
            Font.Name = 'Tahoma'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object Label12: TLabel
            Left = 473
            Top = 18
            Width = 326
            Height = 19
            Alignment = taCenter
            Caption = 'ENVASES QUE USAN LA PRESENTACION'
            FocusControl = DBEdit1
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -16
            Font.Name = 'Tahoma'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object tbuscarenvases: TEdit
            Left = 47
            Top = 17
            Width = 170
            Height = 21
            CharCase = ecUpperCase
            TabOrder = 0
            OnChange = tbuscarenvasesChange
          end
        end
      end
      object Panel6: TPanel
        Left = 1
        Top = 1
        Width = 899
        Height = 26
        Align = alTop
        TabOrder = 2
        object btfcancelar: TButton
          Left = 129
          Top = 1
          Width = 32
          Height = 24
          Align = alLeft
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ImageAlignment = iaBottom
          ImageIndex = 3
          Images = BASE.listaiconos
          ParentFont = False
          TabOrder = 1
          OnClick = btfcancelarClick
        end
        object btFmodificar: TButton
          Left = 65
          Top = 1
          Width = 32
          Height = 24
          Align = alLeft
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ImageAlignment = iaBottom
          ImageIndex = 2
          Images = BASE.listaiconos
          ParentFont = False
          TabOrder = 2
          OnClick = btFmodificarClick
        end
        object btFborrar: TButton
          Left = 33
          Top = 1
          Width = 32
          Height = 24
          Align = alLeft
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ImageAlignment = iaBottom
          ImageIndex = 1
          Images = BASE.listaiconos
          ParentFont = False
          TabOrder = 3
          OnClick = btFborrarClick
        end
        object btFnuevo: TButton
          Left = 1
          Top = 1
          Width = 32
          Height = 24
          Align = alLeft
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ImageAlignment = iaBottom
          ImageIndex = 0
          Images = BASE.listaiconos
          ParentFont = False
          TabOrder = 4
          OnClick = btFnuevoClick
        end
        object btFguardar: TButton
          Left = 97
          Top = 1
          Width = 32
          Height = 24
          Align = alLeft
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ImageAlignment = iaBottom
          ImageIndex = 140
          Images = BASE.listaiconos
          ParentFont = False
          TabOrder = 0
          OnClick = btFguardarClick
        end
        object btfduplicar: TButton
          Left = 161
          Top = 1
          Width = 32
          Height = 24
          Align = alLeft
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ImageAlignment = iaBottom
          ImageIndex = 216
          Images = BASE.listaiconos
          ParentFont = False
          TabOrder = 5
          Visible = False
        end
      end
    end
  end
  object presentaciones: TFDQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      'select * from configuraciones')
    Params = <>
    MasterFields = 'ide;id'
    MasterSource = dsqpresentaciones
    IndexFieldNames = 'ide;id'
    Left = 192
    Top = 96
    object presentacionesid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object presentacioneside: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object presentacionesdescripcion: TWideStringField
      FieldName = 'descripcion'
      Required = True
      Size = 100
    end
    object presentacionesactivo: TIntegerField
      FieldName = 'activo'
      Required = True
    end
    object presentacionesdescripcion2: TWideStringField
      FieldName = 'descripcion2'
      Required = True
      Size = 100
    end
    object presentacionescoste: TFloatField
      FieldName = 'coste'
    end
    object presentacionespeso: TFloatField
      FieldName = 'peso'
    end
  end
  object qpresentaciones: TFDQuery
    Connection = DM.DBagrigest
    BeforeOpen = qpresentacionesBeforeOpen
    SQL.Strings = (
      'select * from configuraciones order by descripcion')
    Params = <>
    MasterFields = 'id'
    MasterSource = DM.dsempresa
    IndexFieldNames = 'ide'
    Left = 136
    Top = 160
    object qpresentacionesid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qpresentacioneside: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object qpresentacionesdescripcion: TWideStringField
      FieldName = 'descripcion'
      Required = True
      Size = 100
    end
    object qpresentacionesactivo: TIntegerField
      FieldName = 'activo'
      Required = True
    end
    object qpresentacionesdescripcion2: TWideStringField
      FieldName = 'descripcion2'
      Required = True
      Size = 100
    end
  end
  object qarticulosfinal: TFDQuery
    Connection = DM.DBagrigest
    BeforeOpen = qarticulosfinalBeforeOpen
    SQL.Strings = (
      'select * from articulosf where activo=1 order by descripcion asc')
    Params = <>
    MasterFields = 'id'
    MasterSource = DM.dsempresa
    IndexFieldNames = 'idempresa'
    Left = 480
    Top = 280
    object qarticulosfinalidempresa: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object qarticulosfinalid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qarticulosfinalcodigo: TWideStringField
      FieldName = 'codigo'
      Required = True
      Size = 40
    end
    object qarticulosfinaldescripcion: TWideStringField
      FieldName = 'descripcion'
      Required = True
      Size = 100
    end
    object qarticulosfinalult_preciocompra: TFloatField
      FieldName = 'ult_preciocompra'
      Required = True
    end
    object qarticulosfinalpeso: TFloatField
      FieldName = 'peso'
    end
  end
  object dsqarticulosfinal: TDataSource
    DataSet = qarticulosfinal
    Left = 480
    Top = 224
  end
  object dsqpresentaciones: TDataSource
    DataSet = qpresentaciones
    OnDataChange = dsqpresentacionesDataChange
    Left = 56
    Top = 168
  end
  object dspresentaciones: TDataSource
    DataSet = presentaciones
    OnStateChange = dspresentacionesStateChange
    Left = 304
    Top = 88
  end
  object presentaciones_componentes: TFDQuery
    Connection = DM.DBagrigest
    BeforePost = presentaciones_componentesBeforePost
    AfterPost = presentaciones_componentesAfterPost
    SQL.Strings = (
      'select * from configuraciones_detalle')
    Params = <>
    MasterFields = 'ide;id'
    MasterSource = dsqpresentaciones
    IndexFieldNames = 'ide;idcfg'
    Left = 232
    Top = 344
    object presentaciones_componenteside: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object presentaciones_componentesidaf: TIntegerField
      FieldName = 'idaf'
      Required = True
    end
    object presentaciones_componentesidcfg: TIntegerField
      FieldName = 'idcfg'
      Required = True
    end
    object presentaciones_componentescantidad: TFloatField
      FieldName = 'cantidad'
      Required = True
    end
    object presentaciones_componentescodigo: TWideStringField
      FieldName = 'codigo'
      Size = 40
    end
    object presentaciones_componentesdescripcion: TWideStringField
      FieldName = 'descripcion'
      Size = 100
    end
    object presentaciones_componentescoste: TFloatField
      FieldName = 'coste'
      Required = True
    end
    object presentaciones_componentespeso: TFloatField
      FieldName = 'peso'
      Required = True
    end
  end
  object dspresentacionescomponentes: TDataSource
    DataSet = presentaciones_componentes
    Left = 200
    Top = 296
  end
  object qaux: TFDQuery
    Connection = DM.DBagrigest
    Params = <>
    Left = 200
    Top = 224
  end
  object qenvases: TFDQuery
    Connection = DM.DBagrigest
    BeforeOpen = qenvasesBeforeOpen
    SQL.Strings = (
      
        'select ide,id,codigo,descripcion from articulos_almacen where ac' +
        'tivo=1 and palet=0 order by descripcion asc')
    Params = <>
    MasterFields = 'id'
    MasterSource = DM.dsempresa
    IndexFieldNames = 'ide'
    Left = 688
    Top = 616
    object qenvaseside: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object qenvasesid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qenvasescodigo: TWideStringField
      FieldName = 'codigo'
      Required = True
      Size = 40
    end
    object qenvasesdescripcion: TWideStringField
      FieldName = 'descripcion'
      Required = True
      Size = 300
    end
  end
  object dsqenvases: TDataSource
    DataSet = qenvases
    Left = 688
    Top = 576
  end
  object dspresentaciones_envases: TDataSource
    DataSet = presentaciones_envases
    OnDataChange = dspresentaciones_envasesDataChange
    Left = 248
    Top = 144
  end
  object presentaciones_envases: TFDQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      'select * from configuraciones_envases')
    Params = <>
    MasterFields = 'ide;id'
    MasterSource = dsqpresentaciones
    IndexFieldNames = 'ide;idcfg'
    Left = 256
    Top = 152
    object presentaciones_envaseside: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object presentaciones_envasesidcfg: TIntegerField
      FieldName = 'idcfg'
      Required = True
    end
    object presentaciones_envasesidenv: TIntegerField
      FieldName = 'idenv'
      Required = True
    end
    object presentaciones_envasescodigo: TWideStringField
      FieldName = 'codigo'
      Size = 40
    end
    object presentaciones_envasesdescripcion: TWideStringField
      FieldName = 'descripcion'
      Size = 300
    end
    object presentaciones_envasesimagen: TBlobField
      FieldName = 'imagen'
    end
    object presentaciones_envasesnomimagen: TWideStringField
      FieldName = 'nomimagen'
      Size = 200
    end
    object presentaciones_envasesextension: TWideStringField
      FieldName = 'extension'
      Size = 8
    end
  end
  object OpenDialog1: TOpenDialog
    Left = 48
    Top = 24
  end
  object SaveDialog1: TSaveDialog
    Left = 88
    Top = 32
  end
end