object controlproduccion: Tcontrolproduccion
  Left = 0
  Top = 0
  Caption = 'Control de producci'#243'n en almacen'
  ClientHeight = 661
  ClientWidth = 752
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 752
    Height = 137
    Align = alTop
    TabOrder = 0
    object Panel4: TPanel
      Left = 528
      Top = 1
      Width = 88
      Height = 135
      Align = alLeft
      TabOrder = 0
      object btimprimir: TButton
        Left = 1
        Top = 34
        Width = 86
        Height = 33
        Align = alTop
        Caption = 'Imprimir'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ImageAlignment = iaBottom
        ImageIndex = 10
        Images = BASE.listaiconos
        ParentFont = False
        TabOrder = 0
        OnClick = btimprimirClick
      end
      object btexcel: TButton
        Left = 1
        Top = 67
        Width = 86
        Height = 43
        Align = alTop
        Caption = 'Exportar a excel'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ImageAlignment = iaBottom
        ImageIndex = 11
        Images = BASE.listaiconos
        ParentFont = False
        TabOrder = 1
        WordWrap = True
        OnClick = btexcelClick
      end
      object Button1: TButton
        Left = 1
        Top = 1
        Width = 86
        Height = 33
        Align = alTop
        Caption = 'Aceptar'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ImageAlignment = iaBottom
        ImageIndex = 22
        Images = BASE.listaiconos
        ParentFont = False
        TabOrder = 2
        OnClick = Button1Click
      end
    end
    object Panel3: TPanel
      Left = 1
      Top = 1
      Width = 527
      Height = 135
      Align = alLeft
      TabOrder = 1
      object Label1: TLabel
        Left = 11
        Top = 34
        Width = 45
        Height = 16
        Alignment = taRightJustify
        Caption = 'Desde:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label3: TLabel
        Left = 9
        Top = 5
        Width = 147
        Height = 16
        Caption = 'Selecci'#243'n entre fechas'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label4: TLabel
        Left = 177
        Top = 5
        Width = 138
        Height = 16
        Caption = 'Criterios de selecci'#243'n'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label2: TLabel
        Left = 13
        Top = 61
        Width = 43
        Height = 16
        Alignment = taRightJustify
        Caption = 'Hasta:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object fdesde: TDateTimePicker
        Left = 62
        Top = 33
        Width = 81
        Height = 21
        Date = 43978.445905509260000000
        Time = 43978.445905509260000000
        TabOrder = 0
        OnChange = fdesdeChange
      end
      object comboarticulos: TDBLookupComboBox
        Left = 333
        Top = 33
        Width = 187
        Height = 21
        DropDownRows = 20
        DropDownWidth = 800
        KeyField = 'codigo'
        ListField = 'descripcion;codigo'
        ListSource = dsarticulos
        TabOrder = 1
        Visible = False
      end
      object controlproduccion: TRadioGroup
        Left = 162
        Top = 21
        Width = 165
        Height = 100
        TabOrder = 2
      end
      object chkarticulos: TRadioButton
        Left = 167
        Top = 35
        Width = 156
        Height = 17
        Caption = 'Art'#237'culo/componente'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 3
        OnClick = chkarticulosClick
      end
      object fhasta: TDateTimePicker
        Left = 62
        Top = 60
        Width = 81
        Height = 21
        Date = 43978.445905509260000000
        Time = 43978.445905509260000000
        TabOrder = 4
        OnChange = fdesdeChange
      end
      object RadioButton1: TRadioButton
        Left = 167
        Top = 80
        Width = 156
        Height = 17
        Caption = 'Lotes en produccion'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 5
        OnClick = RadioButton1Click
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 137
    Width = 752
    Height = 524
    Align = alClient
    TabOrder = 1
    object Panel6: TPanel
      Left = 1
      Top = 1
      Width = 750
      Height = 522
      Align = alClient
      Caption = 'Panel6'
      TabOrder = 1
      Visible = False
      ExplicitLeft = 567
      ExplicitTop = 96
      ExplicitWidth = 185
      ExplicitHeight = 41
      object DBGrid1: TDBGrid
        Left = 1
        Top = 1
        Width = 748
        Height = 520
        Align = alClient
        DataSource = dsqentradas
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -8
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Tahoma'
        TitleFont.Style = []
        OnTitleClick = DBGrid1TitleClick
        Columns = <
          item
            Expanded = False
            FieldName = 'fecha'
            Title.Caption = 'Fecha'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'hora'
            Title.Caption = 'Hora'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'mesa'
            Title.Caption = 'Puesto'
            Width = 57
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'bascula'
            Title.Caption = 'Bascula'
            Width = 53
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'embasadora'
            Title.Caption = 'Pesadora'
            Width = 132
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'materia_prima'
            Title.Caption = 'Materia Prima'
            Width = 86
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'producto'
            Title.Caption = 'Id Prod.'
            Width = 42
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'descripcion'
            Width = 139
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'tara'
            Title.Caption = 'Tara'
            Width = 28
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'peso_teorico'
            Title.Caption = 'P. Teo.'
            Width = 36
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'peso_real'
            Title.Caption = 'P. Real'
            Visible = True
          end>
      end
    end
    object Panel5: TPanel
      Left = 1
      Top = 1
      Width = 750
      Height = 522
      Align = alClient
      TabOrder = 0
      Visible = False
      ExplicitWidth = 748
      ExplicitHeight = 221
      object Panel120: TPanel
        Left = 1
        Top = 1
        Width = 748
        Height = 41
        Align = alTop
        Caption = 'Entradas     '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        ExplicitLeft = 2
        ExplicitTop = -5
        object Button43: TButton
          Left = 648
          Top = 1
          Width = 99
          Height = 39
          Align = alRight
          Caption = '--> Excel'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ImageAlignment = iaBottom
          ImageIndex = 0
          ParentFont = False
          TabOrder = 0
          WordWrap = True
          OnClick = Button43Click
          ExplicitLeft = 650
        end
      end
      object Panel121: TPanel
        Left = 1
        Top = 257
        Width = 748
        Height = 41
        Align = alTop
        Caption = 'Envasados'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        ExplicitLeft = -1
        ExplicitTop = 265
        object Button44: TButton
          Left = 648
          Top = 1
          Width = 99
          Height = 39
          Align = alRight
          Caption = '--> Excel'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ImageAlignment = iaBottom
          ImageIndex = 0
          ParentFont = False
          TabOrder = 0
          WordWrap = True
          OnClick = Button44Click
          ExplicitLeft = 650
        end
      end
      object Panel130: TPanel
        Left = 1
        Top = 42
        Width = 748
        Height = 215
        Align = alTop
        TabOrder = 2
        ExplicitLeft = -1
        ExplicitTop = 44
        object DBGrid63: TDBGrid
          Left = 1
          Top = 1
          Width = 746
          Height = 213
          Align = alClient
          DataSource = dsqentradas2
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -9
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'Tahoma'
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = 'DESTINO'
              Title.Caption = 'Almacen'
              Width = 146
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'fechatrabajo'
              Title.Caption = 'Fecha'
              Width = 47
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'origen'
              Title.Caption = 'Origen'
              Width = 148
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'num_palets'
              Title.Caption = 'Plts.'
              Width = 27
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'mprima'
              Title.Caption = 'Variedad'
              Width = 120
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'envases'
              Title.Caption = 'Envas.'
              Width = 33
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'pesoneto'
              Title.Caption = 'P. Neto'
              Width = 41
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'peso_neto_venta'
              Title.Caption = 'P.Neto Teor'
              Width = 64
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'lote'
              Width = 73
              Visible = True
            end>
        end
      end
      object Panel141: TPanel
        Left = 1
        Top = 298
        Width = 748
        Height = 223
        Align = alTop
        Caption = 'Panel141'
        TabOrder = 3
        ExplicitLeft = -1
        ExplicitTop = 506
        object DBGrid62: TDBGrid
          Left = 1
          Top = 1
          Width = 746
          Height = 221
          Align = alClient
          DataSource = dsqsalidas2
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -9
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'Tahoma'
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = 'ORIGEN'
              Title.Caption = 'Almacen'
              Width = 156
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'fecha'
              Title.Caption = 'Fecha E.'
              Width = 47
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'id_envase'
              Title.Caption = 'Envase'
              Width = 200
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'num_palets'
              Title.Caption = 'Palets'
              Width = 44
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'num_envases'
              Title.Caption = 'Env.'
              Width = 45
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'peso_neto'
              Title.Caption = 'P. Neto'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'peso_neto_venta'
              Title.Caption = 'P. Neto Venta'
              Width = 73
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'lote'
              Width = 86
              Visible = True
            end>
        end
      end
    end
  end
  object qarticulos: TFDQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      'select * from productos where codigo in '
      
        ' (select producto from produccion where fecha>=:PDESDE and fecha' +
        '<=:PHASTA)'
      ' order by descripcion')
    Params = <
      item
        DataType = ftUnknown
        Name = 'PDESDE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PHASTA'
        ParamType = ptUnknown
      end>
    Left = 512
    Top = 272
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PDESDE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PHASTA'
        ParamType = ptUnknown
      end>
    object qarticuloscodigo: TWideStringField
      FieldName = 'codigo'
      Required = True
      Size = 40
    end
    object qarticulosdescripcion: TWideStringField
      FieldName = 'descripcion'
      Required = True
      Size = 80
    end
  end
  object dsarticulos: TDataSource
    DataSet = qarticulos
    Left = 512
    Top = 208
  end
  object dsqentradas: TDataSource
    DataSet = qentradas
    Left = 56
    Top = 248
  end
  object qentradas: TFDQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      
        'select p.*,pr.descripcion from produccion p,productos pr where p' +
        '.producto=pr.codigo and fecha>=:PDESDE and fecha<=:PHASTA and pr' +
        'oducto=:PPRODUCTO order by fecha desc, hora desc')
    Params = <
      item
        DataType = ftUnknown
        Name = 'PDESDE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PHASTA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PPRODUCTO'
        ParamType = ptUnknown
      end>
    Left = 64
    Top = 312
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PDESDE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PHASTA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PPRODUCTO'
        ParamType = ptUnknown
      end>
    object qentradasid: TLargeintField
      FieldName = 'id'
      Required = True
    end
    object qentradasfecha: TDateField
      FieldName = 'fecha'
      Required = True
      DisplayFormat = 'dd/mm/yy'
    end
    object qentradashora: TTimeField
      FieldName = 'hora'
      Required = True
      DisplayFormat = 'hh:mm:ss'
    end
    object qentradasmesa: TWideStringField
      FieldName = 'mesa'
      Required = True
      Size = 40
    end
    object qentradasbascula: TWideStringField
      FieldName = 'bascula'
      Required = True
      Size = 40
    end
    object qentradasidt: TIntegerField
      FieldName = 'idt'
      Required = True
    end
    object qentradasembasadora: TWideStringField
      FieldName = 'embasadora'
      Required = True
      Size = 70
    end
    object qentradasmateria_prima: TWideStringField
      FieldName = 'materia_prima'
      Required = True
      Size = 40
    end
    object qentradasproducto: TWideStringField
      FieldName = 'producto'
      Required = True
      Size = 40
    end
    object qentradastara: TFloatField
      FieldName = 'tara'
      Required = True
    end
    object qentradaspeso_teorico: TFloatField
      FieldName = 'peso_teorico'
      Required = True
    end
    object qentradaspeso_real: TFloatField
      FieldName = 'peso_real'
      Required = True
    end
    object qentradasdescripcion: TWideStringField
      FieldName = 'descripcion'
      Required = True
      Size = 80
    end
  end
  object informes: TfrxReport
    Version = '6.9.3'
    DotMatrixReport = False
    IniFile = '\Software\Fast Reports'
    PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
    PreviewOptions.Zoom = 1.000000000000000000
    PrintOptions.Printer = 'Default'
    PrintOptions.PrintOnSheet = 0
    ReportOptions.CreateDate = 42517.713281747710000000
    ReportOptions.LastChange = 44067.760772337960000000
    ScriptLanguage = 'PascalScript'
    ScriptText.Strings = (
      ''
      'begin'
      ''
      'end.')
    Left = 302
    Top = 200
    Datasets = <
      item
        DataSet = informedb
        DataSetName = 'informedb'
      end>
    Variables = <>
    Style = <
      item
        Name = 'Title'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        Frame.Typ = []
        Fill.BackColor = clGray
      end
      item
        Name = 'Header'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clMaroon
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        Frame.Typ = []
      end
      item
        Name = 'Group header'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clMaroon
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        Frame.Typ = []
        Fill.BackColor = 16053492
      end
      item
        Name = 'Data'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = []
        Frame.Typ = []
      end
      item
        Name = 'Group footer'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        Frame.Typ = []
      end
      item
        Name = 'Header line'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = []
        Frame.Typ = [ftBottom]
        Frame.Width = 2.000000000000000000
      end>
    object Data: TfrxDataPage
      Height = 1000.000000000000000000
      Width = 1000.000000000000000000
    end
    object Page1: TfrxReportPage
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -9
      Font.Name = 'Arial'
      Font.Style = []
      PaperWidth = 210.000000000000000000
      PaperHeight = 297.000000000000000000
      PaperSize = 9
      LeftMargin = 10.000000000000000000
      RightMargin = 10.000000000000000000
      TopMargin = 10.000000000000000000
      BottomMargin = 10.000000000000000000
      Frame.Typ = []
      MirrorMode = []
      object ReportTitle1: TfrxReportTitle
        FillType = ftBrush
        Frame.Typ = []
        Height = 105.826840000000000000
        Top = 18.897650000000000000
        Width = 718.110700000000000000
        object Titulo: TfrxMemoView
          AllowVectorExport = True
          Left = 11.661410000000000000
          Top = 27.811070000000000000
          Width = 555.590910000000000000
          Height = 34.015770000000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -19
          Font.Name = 'Arial'
          Font.Style = [fsBold, fsUnderline]
          Frame.Typ = []
          Memo.UTF8W = (
            '[titulo]')
          ParentFont = False
        end
        object Memo49: TfrxMemoView
          Align = baWidth
          AllowVectorExport = True
          Top = 77.574830000000000000
          Width = 718.110700000000000000
          Height = 26.456702680000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWhite
          Font.Height = -9
          Font.Name = 'Arial'
          Font.Style = [fsBold, fsUnderline]
          Frame.Typ = []
          Fill.BackColor = clGray
          HAlign = haCenter
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo2: TfrxMemoView
          AllowVectorExport = True
          Left = 605.504037090000000000
          Top = 85.133882680000000000
          Width = 41.574830000000000000
          Height = 11.338582680000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWhite
          Font.Height = -9
          Font.Name = 'Arial'
          Font.Style = [fsBold, fsUnderline]
          Frame.Typ = []
          HAlign = haCenter
          Memo.UTF8W = (
            'P. Teor.')
          ParentFont = False
        end
        object Memo3: TfrxMemoView
          AllowVectorExport = True
          Left = 416.362400000000000000
          Top = 85.039396930000000000
          Width = 45.354360000000000000
          Height = 11.338582680000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWhite
          Font.Height = -9
          Font.Name = 'Arial'
          Font.Style = [fsBold, fsUnderline]
          Frame.Typ = []
          Memo.UTF8W = (
            'Id. Prod.')
          ParentFont = False
        end
        object FECHA1: TfrxMemoView
          AllowVectorExport = True
          Left = 0.574829999999999000
          Top = 85.133882680000000000
          Width = 36.354360000000000000
          Height = 11.338582680000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWhite
          Font.Height = -9
          Font.Name = 'Arial'
          Font.Style = [fsBold, fsUnderline]
          Frame.Typ = []
          Memo.UTF8W = (
            'Fecha')
          ParentFont = False
        end
        object FECHA2: TfrxMemoView
          AllowVectorExport = True
          Left = 38.149660000000000000
          Top = 85.133882680000000000
          Width = 28.795300000000000000
          Height = 11.338582680000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWhite
          Font.Height = -9
          Font.Name = 'Arial'
          Font.Style = [fsBold, fsUnderline]
          Frame.Typ = []
          Memo.UTF8W = (
            'Hora')
          ParentFont = False
        end
        object Memo10: TfrxMemoView
          AllowVectorExport = True
          Left = 463.157700000000000000
          Top = 85.133890000000000000
          Width = 105.826840000000000000
          Height = 11.338582680000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWhite
          Font.Height = -9
          Font.Name = 'Arial'
          Font.Style = [fsBold, fsUnderline]
          Frame.Typ = []
          Memo.UTF8W = (
            'Descripci'#243'n')
          ParentFont = False
        end
        object Memo24: TfrxMemoView
          AllowVectorExport = True
          Left = 566.937540000000000000
          Top = 85.133890000000000000
          Width = 34.015770000000000000
          Height = 11.338582680000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWhite
          Font.Height = -9
          Font.Name = 'Arial'
          Font.Style = [fsBold, fsUnderline]
          Frame.Typ = []
          HAlign = haCenter
          Memo.UTF8W = (
            'Tara')
          ParentFont = False
        end
        object Memo28: TfrxMemoView
          AllowVectorExport = True
          Left = 297.771800000000000000
          Top = 85.039396930000000000
          Width = 90.708720000000000000
          Height = 11.338582680000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWhite
          Font.Height = -9
          Font.Name = 'Arial'
          Font.Style = [fsBold, fsUnderline]
          Frame.Typ = []
          Memo.UTF8W = (
            'Mat. Prima')
          ParentFont = False
        end
        object Memo29: TfrxMemoView
          AllowVectorExport = True
          Left = 177.960730000000000000
          Top = 85.039396930000000000
          Width = 113.385900000000000000
          Height = 11.338582680000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWhite
          Font.Height = -9
          Font.Name = 'Arial'
          Font.Style = [fsBold, fsUnderline]
          Frame.Typ = []
          Memo.UTF8W = (
            'Pesadora')
          ParentFont = False
        end
        object Memo1: TfrxMemoView
          AllowVectorExport = True
          Left = 68.826840000000000000
          Top = 85.039370080000000000
          Width = 36.354360000000000000
          Height = 11.338582680000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWhite
          Font.Height = -9
          Font.Name = 'Arial'
          Font.Style = [fsBold, fsUnderline]
          Frame.Typ = []
          Memo.UTF8W = (
            'Puesto')
          ParentFont = False
        end
        object Memo6: TfrxMemoView
          AllowVectorExport = True
          Left = 653.520100000000000000
          Top = 85.039370080000000000
          Width = 41.574793390000000000
          Height = 11.338582680000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWhite
          Font.Height = -9
          Font.Name = 'Arial'
          Font.Style = [fsBold, fsUnderline]
          Frame.Typ = []
          HAlign = haCenter
          Memo.UTF8W = (
            'P. Real')
          ParentFont = False
        end
        object Memo8: TfrxMemoView
          AllowVectorExport = True
          Left = 125.606370000000000000
          Top = 85.149660000000000000
          Width = 36.354360000000000000
          Height = 11.338582680000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWhite
          Font.Height = -9
          Font.Name = 'Arial'
          Font.Style = [fsBold, fsUnderline]
          Frame.Typ = []
          Memo.UTF8W = (
            'B'#225'scula')
          ParentFont = False
        end
      end
      object MasterData1: TfrxMasterData
        FillType = ftBrush
        Frame.Typ = []
        Height = 11.338582680000000000
        Top = 185.196970000000000000
        Width = 718.110700000000000000
        DataSet = informedb
        DataSetName = 'informedb'
        RowCount = 0
        object Memo11: TfrxMemoView
          AllowVectorExport = True
          Left = 38.559060000000000000
          Width = 36.252010000000000000
          Height = 11.338582680000000000
          DataSet = informedb
          DataSetName = 'informedb'
          DisplayFormat.FormatStr = 'hh:mm:ss'
          DisplayFormat.Kind = fkDateTime
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -8
          Font.Name = 'Arial'
          Font.Style = []
          Frame.Typ = []
          Memo.UTF8W = (
            '[informedb."hora"]')
          ParentFont = False
        end
        object Memo12: TfrxMemoView
          AllowVectorExport = True
          Left = 73.488250000000000000
          Width = 49.133890000000000000
          Height = 11.338582680000000000
          DataField = 'mesa'
          DataSet = informedb
          DataSetName = 'informedb'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -8
          Font.Name = 'Arial'
          Font.Style = []
          Frame.Typ = []
          HAlign = haRight
          Memo.UTF8W = (
            '[informedb."mesa"]')
          ParentFont = False
        end
        object Memo16: TfrxMemoView
          AllowVectorExport = True
          Left = -1.000000000000000000
          Width = 38.149660000000000000
          Height = 11.338582680000000000
          DataSet = informedb
          DataSetName = 'informedb'
          DisplayFormat.FormatStr = 'dd/mm/yy'
          DisplayFormat.Kind = fkDateTime
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -8
          Font.Name = 'Arial'
          Font.Style = []
          Frame.Typ = []
          HAlign = haRight
          Memo.UTF8W = (
            '[informedb."fecha"]')
          ParentFont = False
        end
        object Memo17: TfrxMemoView
          AllowVectorExport = True
          Left = 570.322820000000000000
          Width = 39.031540000000000000
          Height = 11.338582680000000000
          DataSet = informedb
          DataSetName = 'informedb'
          DisplayFormat.FormatStr = '%2.3f'
          DisplayFormat.Kind = fkNumeric
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -8
          Font.Name = 'Arial'
          Font.Style = []
          Frame.Typ = []
          HAlign = haCenter
          Memo.UTF8W = (
            '[informedb."tara"]')
          ParentFont = False
        end
        object Memo21: TfrxMemoView
          AllowVectorExport = True
          Left = 467.693260000000000000
          Width = 98.921460000000000000
          Height = 11.338582680000000000
          DataField = 'descripcion'
          DataSet = informedb
          DataSetName = 'informedb'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -8
          Font.Name = 'Arial'
          Font.Style = []
          Frame.Typ = []
          Memo.UTF8W = (
            '[informedb."descripcion"]')
          ParentFont = False
        end
        object Memo27: TfrxMemoView
          AllowVectorExport = True
          Left = 417.543600000000000000
          Width = 46.008040000000000000
          Height = 11.338582680000000000
          DataField = 'producto'
          DataSet = informedb
          DataSetName = 'informedb'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -8
          Font.Name = 'Arial'
          Font.Style = []
          Frame.Typ = []
          Memo.UTF8W = (
            '[informedb."producto"]')
          ParentFont = False
        end
        object Memo7: TfrxMemoView
          AllowVectorExport = True
          Left = 297.574830000000000000
          Width = 117.165430000000000000
          Height = 11.338582680000000000
          DataField = 'materia_prima'
          DataSet = informedb
          DataSetName = 'informedb'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -8
          Font.Name = 'Arial'
          Font.Style = []
          Frame.Typ = []
          Memo.UTF8W = (
            '[informedb."materia_prima"]')
          ParentFont = False
        end
        object Memo15: TfrxMemoView
          AllowVectorExport = True
          Left = 176.842610000000000000
          Width = 113.385900000000000000
          Height = 11.338582680000000000
          DataField = 'embasadora'
          DataSet = informedb
          DataSetName = 'informedb'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -8
          Font.Name = 'Arial'
          Font.Style = []
          Frame.Typ = []
          Memo.UTF8W = (
            '[informedb."embasadora"]')
          ParentFont = False
        end
        object Memo18: TfrxMemoView
          AllowVectorExport = True
          Left = 125.606370000000000000
          Width = 45.354360000000000000
          Height = 11.338582680000000000
          DataField = 'bascula'
          DataSet = informedb
          DataSetName = 'informedb'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -8
          Font.Name = 'Arial'
          Font.Style = []
          Frame.Typ = []
          Memo.UTF8W = (
            '[informedb."bascula"]')
          ParentFont = False
        end
        object Memo4: TfrxMemoView
          AllowVectorExport = True
          Left = 612.283860000000000000
          Width = 39.031540000000000000
          Height = 11.338582680000000000
          DataSet = informedb
          DataSetName = 'informedb'
          DisplayFormat.FormatStr = '%2.3f'
          DisplayFormat.Kind = fkNumeric
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -8
          Font.Name = 'Arial'
          Font.Style = []
          Frame.Typ = []
          HAlign = haCenter
          Memo.UTF8W = (
            '[informedb."peso_teorico"]')
          ParentFont = False
        end
        object Memo5: TfrxMemoView
          AllowVectorExport = True
          Left = 658.638220000000000000
          Width = 39.031540000000000000
          Height = 11.338582680000000000
          DataSet = informedb
          DataSetName = 'informedb'
          DisplayFormat.FormatStr = '%2.3f'
          DisplayFormat.Kind = fkNumeric
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -8
          Font.Name = 'Arial'
          Font.Style = []
          Frame.Typ = []
          HAlign = haCenter
          Memo.UTF8W = (
            '[informedb."peso_real"]')
          ParentFont = False
        end
      end
      object Footer1: TfrxFooter
        FillType = ftBrush
        Frame.Typ = []
        Height = 34.015770000000000000
        Top = 219.212740000000000000
        Width = 718.110700000000000000
        object Memo20: TfrxMemoView
          AllowVectorExport = True
          Left = 481.000310000000000000
          Top = 7.559059999999988000
          Width = 57.346630000000000000
          Height = 15.118112680000000000
          DataSet = informedb
          DataSetName = 'informedb'
          DisplayFormat.FormatStr = '%2.0f'
          DisplayFormat.Kind = fkNumeric
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold, fsUnderline]
          Frame.Typ = []
          HAlign = haRight
          Memo.UTF8W = (
            '[COUNT(MasterData1)]')
          ParentFont = False
        end
        object Memo23: TfrxMemoView
          AllowVectorExport = True
          Left = 381.732530000000000000
          Top = 6.779529999999994000
          Width = 94.488250000000000000
          Height = 15.118120000000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold, fsUnderline]
          Frame.Typ = []
          HAlign = haRight
          Memo.UTF8W = (
            'Totales:')
          ParentFont = False
        end
      end
    end
  end
  object informedb: TfrxDBDataset
    UserName = 'informedb'
    CloseDataSource = False
    FieldAliases.Strings = (
      'id=id'
      'fecha=fecha'
      'hora=hora'
      'mesa=mesa'
      'bascula=bascula'
      'idt=idt'
      'embasadora=embasadora'
      'materia_prima=materia_prima'
      'producto=producto'
      'tara=tara'
      'peso_teorico=peso_teorico'
      'peso_real=peso_real'
      'descripcion=descripcion')
    DataSource = dsqentradas
    BCDToCurrency = False
    Left = 358
    Top = 208
  end
  object frxPDFExport1: TfrxPDFExport
    UseFileCache = True
    ShowProgress = True
    OverwritePrompt = False
    DataOnly = False
    InteractiveFormsFontSubset = 'A-Z,a-z,0-9,#43-#47 '
    OpenAfterExport = False
    PrintOptimized = False
    Outline = False
    Background = False
    HTMLTags = True
    Quality = 95
    Transparency = False
    Author = 'FastReport'
    Subject = 'FastReport PDF export'
    ProtectionFlags = [ePrint, eModify, eCopy, eAnnot]
    HideToolbar = False
    HideMenubar = False
    HideWindowUI = False
    FitWindow = False
    CenterWindow = False
    PrintScaling = False
    PdfA = False
    PDFStandard = psNone
    PDFVersion = pv17
    Left = 400
    Top = 200
  end
  object frxCSVExport1: TfrxCSVExport
    UseFileCache = True
    ShowProgress = True
    OverwritePrompt = False
    DataOnly = False
    Separator = ';'
    OEMCodepage = False
    UTF8 = False
    OpenAfterExport = False
    NoSysSymbols = True
    ForcedQuotes = False
    Left = 448
    Top = 200
  end
  object SaveDialog1: TSaveDialog
    Left = 96
    Top = 96
  end
  object qentradas2: TFDQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      
        'SELECT fechatrabajo,lp.lote,origen,DESTINO,lp.mprima,sum(num_pal' +
        'ets) as num_palets,sum(lp.cajas) as envases,sum(lp.pesoneto_real' +
        ') as pesoneto,sum(lp.pesoneto_teorico) as peso_neto_venta,iddest' +
        'ino FROM ea_pesadas ea,lotes_pesadas lp where ea.iddestino in (s' +
        'elect id from almacenes where produccion=1 and activo=1) and ea.' +
        'fechatrabajo>=:PDESDE and ea.fechatrabajo<=:PHASTA and lp.idea2=' +
        'ea.idea  and ea.idempresa=lp.ide and ea.id=lp.idea group by fech' +
        'atrabajo,iddestino,lote,origen,mprima ORDER BY fechatrabajo DESC')
    Params = <
      item
        DataType = ftUnknown
        Name = 'PDESDE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PHASTA'
        ParamType = ptUnknown
      end>
    Left = 376
    Top = 360
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PDESDE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PHASTA'
        ParamType = ptUnknown
      end>
    object qentradas2fechatrabajo: TDateField
      FieldName = 'fechatrabajo'
      Required = True
    end
    object qentradas2lote: TIntegerField
      FieldName = 'lote'
      Required = True
    end
    object qentradas2origen: TWideStringField
      FieldName = 'origen'
      Required = True
      Size = 100
    end
    object qentradas2mprima: TWideStringField
      FieldName = 'mprima'
      Size = 40
    end
    object qentradas2num_palets: TFloatField
      FieldName = 'num_palets'
      ReadOnly = True
    end
    object qentradas2envases: TFloatField
      FieldName = 'envases'
      ReadOnly = True
    end
    object qentradas2pesoneto: TFloatField
      FieldName = 'pesoneto'
      ReadOnly = True
    end
    object qentradas2peso_neto_venta: TFloatField
      FieldName = 'peso_neto_venta'
      ReadOnly = True
    end
    object qentradas2iddestino: TIntegerField
      FieldName = 'iddestino'
      Required = True
    end
    object qentradas2DESTINO: TWideStringField
      FieldName = 'DESTINO'
      Required = True
      Size = 100
    end
  end
  object qsalidas2: TFDQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      
        'select ORIGEN,fecha,lp.lote,ea.id_envase,sum(num_palets) as num_' +
        'palets,sum(lp.cajas) as num_envases,sum(lp.pesoneto_real) as pes' +
        'o_neto,sum(lp.pesoneto_teorico) as peso_neto_venta,idorigen from' +
        ' ea_pesadas ea,lotes_pesadas lp '
      
        ' where ea.iddestino<>0 and ea.idorigen<>ea.iddestino and ea.idor' +
        'igen in (select id from almacenes where produccion=1 and activo=' +
        '1) and (ea.fecha>=:PDESDE and fecha<=:PHASTA) and lp.idea2=ea.id' +
        'ea and ea.idempresa=lp.ide and ea.id=lp.idea and ea.idea=0 group' +
        ' by fecha, idorigen,id_envase,lote order by fecha desc,lote,id_e' +
        'nvase desc')
    Params = <
      item
        DataType = ftUnknown
        Name = 'PDESDE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PHASTA'
        ParamType = ptUnknown
      end>
    Left = 376
    Top = 496
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PDESDE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PHASTA'
        ParamType = ptUnknown
      end>
    object qsalidas2fecha: TDateField
      FieldName = 'fecha'
      Required = True
    end
    object qsalidas2lote: TIntegerField
      FieldName = 'lote'
      Required = True
    end
    object qsalidas2id_envase: TWideStringField
      FieldName = 'id_envase'
      Required = True
      Size = 40
    end
    object qsalidas2num_palets: TFloatField
      FieldName = 'num_palets'
      ReadOnly = True
    end
    object qsalidas2num_envases: TFloatField
      FieldName = 'num_envases'
      ReadOnly = True
    end
    object qsalidas2peso_neto: TFloatField
      FieldName = 'peso_neto'
      ReadOnly = True
    end
    object qsalidas2peso_neto_venta: TFloatField
      FieldName = 'peso_neto_venta'
      ReadOnly = True
    end
    object qsalidas2idorigen: TIntegerField
      FieldName = 'idorigen'
    end
    object qsalidas2ORIGEN: TWideStringField
      FieldName = 'ORIGEN'
      Required = True
      Size = 100
    end
  end
  object dsqentradas2: TDataSource
    DataSet = qentradas2
    Left = 304
    Top = 360
  end
  object dsqsalidas2: TDataSource
    DataSet = qsalidas2
    Left = 304
    Top = 488
  end
end