object cc_materiasprimas: Tcc_materiasprimas
  Left = 0
  Top = 0
  Caption = 'Control de calidad de almacen'
  ClientHeight = 551
  ClientWidth = 1150
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 1150
    Height = 65
    Align = alTop
    Caption = 'CONTROL DE CALIDAD RECEPCION MATERIA PRIMA'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -21
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    object Label1: TLabel
      Left = 59
      Top = 18
      Width = 56
      Height = 13
      Caption = 'Campa'#241'a:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label3: TLabel
      Left = 10
      Top = 40
      Width = 105
      Height = 13
      Caption = 'Encargado calidad:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object combocampanyas: TDBLookupComboBox
      Left = 121
      Top = 13
      Width = 160
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      KeyField = 'id'
      ListField = 'descripcion'
      ListSource = dsqcampanyas
      ParentFont = False
      TabOrder = 0
    end
    object comboencargado: TDBLookupComboBox
      Left = 121
      Top = 36
      Width = 160
      Height = 21
      DropDownWidth = 200
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      KeyField = 'nombre'
      ListField = 'nombre'
      ListSource = dscontroladores
      ParentFont = False
      TabOrder = 1
    end
    object bteimprimir: TButton
      Left = 1029
      Top = 1
      Width = 120
      Height = 63
      Align = alRight
      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 = 2
      OnClick = bteimprimirClick
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 65
    Width = 1150
    Height = 486
    Align = alClient
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 1
      Top = 1
      Width = 1148
      Height = 484
      Align = alClient
      DataSource = dsqccmateriasprimas
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'Tahoma'
      TitleFont.Style = []
      OnDrawColumnCell = DBGrid1DrawColumnCell
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'lote'
          Title.Alignment = taCenter
          Title.Caption = 'Lote'
          Width = 55
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'fecha'
          Title.Alignment = taCenter
          Title.Caption = 'Fecha recepci'#243'n'
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'tamanyo'
          Title.Alignment = taCenter
          Title.Caption = 'Tama'#241'o y Aspecto'
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'aspecto'
          Title.Alignment = taCenter
          Title.Caption = 'Forma del fruto'
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'color'
          Title.Alignment = taCenter
          Title.Caption = 'Color'
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'ausencia_golpes'
          Title.Alignment = taCenter
          Title.Caption = 'Aus. de golpes'
          Width = 82
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'limpieza'
          Title.Alignment = taCenter
          Title.Caption = 'Limpieza'
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'ausencia_plagas'
          Title.Alignment = taCenter
          Title.Caption = 'Aus. de plagas'
          Width = 83
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'ausencia_insectos'
          Title.Alignment = taCenter
          Title.Caption = 'Aus. insectos'
          Width = 101
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'ausencia_cuerpos'
          Title.Alignment = taCenter
          Title.Caption = 'Aus. cuerpos'
          Width = 103
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'sabotaje'
          Title.Alignment = taCenter
          Title.Caption = 'Aus. sabotaje'
          Width = 97
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'brix'
          Title.Alignment = taCenter
          Title.Caption = #186' Brix'
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'resultado'
          Title.Alignment = taCenter
          Title.Caption = 'Resultado'
          Width = 68
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'observaciones'
          Title.Alignment = taCenter
          Title.Caption = 'Observaciones'
          Width = 121
          Visible = True
        end>
    end
  end
  object qcampanyas: TFDQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      'select * from campanyas order by id desc')
    Params = <>
    Left = 352
    Top = 128
    object qcampanyasid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qcampanyasidempresa: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object qcampanyasid_anterior: TIntegerField
      FieldName = 'id_anterior'
    end
    object qcampanyasdescripcion: TWideStringField
      FieldName = 'descripcion'
      Required = True
      Size = 80
    end
    object qcampanyasfechainicio: TDateField
      FieldName = 'fechainicio'
      Required = True
    end
    object qcampanyasfechafin: TDateField
      FieldName = 'fechafin'
      Required = True
    end
    object qcampanyasult_pesada: TIntegerField
      FieldName = 'ult_pesada'
    end
  end
  object qlotes: TFDQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      
        'select idempresa,codigo,fecha,mprima from lotes order by idempre' +
        'sa,codigo desc')
    Params = <>
    Left = 496
    Top = 32
    object qlotesidempresa: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object qlotescodigo: TIntegerField
      FieldName = 'codigo'
    end
    object qlotesfecha: TDateField
      FieldName = 'fecha'
    end
    object qlotesmprima: TWideStringField
      FieldName = 'mprima'
      Size = 40
    end
  end
  object dsqcampanyas: TDataSource
    DataSet = qcampanyas
    OnDataChange = dsqcampanyasDataChange
    Left = 296
    Top = 24
  end
  object qcc_materiasprimas: TFDQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      'select * from cc_materiasprimas order by lote')
    Params = <>
    Left = 392
    Top = 240
    object qcc_materiasprimaside: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object qcc_materiasprimaslote: TIntegerField
      FieldName = 'lote'
      Required = True
    end
    object qcc_materiasprimasfecha: TDateField
      FieldName = 'fecha'
    end
    object qcc_materiasprimastamanyo: TWideStringField
      FieldName = 'tamanyo'
      Size = 2
    end
    object qcc_materiasprimasaspecto: TWideStringField
      FieldName = 'aspecto'
      Size = 2
    end
    object qcc_materiasprimascolor: TWideStringField
      FieldName = 'color'
      Size = 2
    end
    object qcc_materiasprimasausencia_golpes: TWideStringField
      FieldName = 'ausencia_golpes'
      Size = 2
    end
    object qcc_materiasprimaslimpieza: TWideStringField
      FieldName = 'limpieza'
      Size = 2
    end
    object qcc_materiasprimasausencia_plagas: TWideStringField
      FieldName = 'ausencia_plagas'
      Size = 2
    end
    object qcc_materiasprimasausencia_insectos: TWideStringField
      FieldName = 'ausencia_insectos'
      Size = 2
    end
    object qcc_materiasprimasausencia_cuerpos: TWideStringField
      FieldName = 'ausencia_cuerpos'
      Size = 2
    end
    object qcc_materiasprimassabotaje: TWideStringField
      FieldName = 'sabotaje'
      Size = 2
    end
    object qcc_materiasprimasresultado: TWideStringField
      FieldName = 'resultado'
      Size = 2
    end
    object qcc_materiasprimasobservaciones: TWideStringField
      FieldName = 'observaciones'
      Size = 100
    end
    object qcc_materiasprimasbrix: TIntegerField
      FieldName = 'brix'
    end
  end
  object dsqccmateriasprimas: TDataSource
    DataSet = qcc_materiasprimas
    Left = 320
    Top = 264
  end
  object dsqccmateriasprimasinf: TDataSource
    DataSet = qcc_materiasprimasinf
    Left = 320
    Top = 320
  end
  object qcc_materiasprimasinf: TFDQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      'select * from cc_materiasprimas order by lote')
    Params = <>
    Left = 416
    Top = 360
    object qcc_materiasprimasinfide: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object qcc_materiasprimasinflote: TIntegerField
      FieldName = 'lote'
      Required = True
    end
    object qcc_materiasprimasinffecha: TDateField
      FieldName = 'fecha'
    end
    object qcc_materiasprimasinftamanyo: TWideStringField
      FieldName = 'tamanyo'
      Size = 2
    end
    object qcc_materiasprimasinfaspecto: TWideStringField
      FieldName = 'aspecto'
      Size = 2
    end
    object qcc_materiasprimasinfcolor: TWideStringField
      FieldName = 'color'
      Size = 2
    end
    object qcc_materiasprimasinfausencia_golpes: TWideStringField
      FieldName = 'ausencia_golpes'
      Size = 2
    end
    object qcc_materiasprimasinflimpieza: TWideStringField
      FieldName = 'limpieza'
      Size = 2
    end
    object qcc_materiasprimasinfausencia_plagas: TWideStringField
      FieldName = 'ausencia_plagas'
      Size = 2
    end
    object qcc_materiasprimasinfausencia_insectos: TWideStringField
      FieldName = 'ausencia_insectos'
      Size = 2
    end
    object qcc_materiasprimasinfausencia_cuerpos: TWideStringField
      FieldName = 'ausencia_cuerpos'
      Size = 2
    end
    object qcc_materiasprimasinfsabotaje: TWideStringField
      FieldName = 'sabotaje'
      Size = 2
    end
    object qcc_materiasprimasinfresultado: TWideStringField
      FieldName = 'resultado'
      Size = 2
    end
    object qcc_materiasprimasinfobservaciones: TWideStringField
      FieldName = 'observaciones'
      Size = 100
    end
    object qcc_materiasprimasinfbrix: TIntegerField
      FieldName = 'brix'
    end
  end
  object qcontroladores: TFDQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      
        'select t.ide,t.id,t.nombre,f.firma from trabajadores t left join' +
        ' firmas f on t.ide=f.ide and t.id=f.idt where controlcalidad=1 o' +
        'rder by nombre')
    Params = <>
    Left = 120
    Top = 192
    object qcontroladoresnombre: TWideStringField
      FieldName = 'nombre'
      Required = True
      Size = 80
    end
    object qcontroladoreside: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object qcontroladoresid: TSmallintField
      FieldName = 'id'
      Required = True
    end
    object qcontroladoresfirma: TBlobField
      FieldName = 'firma'
      Required = True
    end
  end
  object dscontroladores: TDataSource
    DataSet = qcontroladores
    Left = 48
    Top = 192
  end
  object informedb: TfrxDBDataset
    UserName = 'informedbmateriasprimas'
    CloseDataSource = False
    FieldAliases.Strings = (
      'ide=ide'
      'lote=lote'
      'fecha=fecha'
      'tamanyo=tamanyo'
      'aspecto=aspecto'
      'color=color'
      'ausencia_golpes=ausencia_golpes'
      'limpieza=limpieza'
      'ausencia_plagas=ausencia_plagas'
      'ausencia_insectos=ausencia_insectos'
      'ausencia_cuerpos=ausencia_cuerpos'
      'sabotaje=sabotaje'
      'resultado=resultado'
      'observaciones=observaciones'
      'brix=brix')
    DataSource = dsqccmateriasprimasinf
    BCDToCurrency = False
    Left = 536
    Top = 192
  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 = 536
    Top = 128
  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 = 43969.737119097200000000
    ReportOptions.LastChange = 44589.431201608790000000
    ScriptLanguage = 'PascalScript'
    ScriptText.Strings = (
      'begin'
      ''
      'end.')
    Left = 656
    Top = 192
    Datasets = <
      item
        DataSet = informedbempresa
        DataSetName = 'informedbempresa'
      end
      item
        DataSet = informedb
        DataSetName = 'informedbmateriasprimas'
      end
      item
        DataSet = informedbencargado
        DataSetName = 'informedbencargado'
      end>
    Variables = <>
    Style = <>
    object Data: TfrxDataPage
      Height = 1000.000000000000000000
      Width = 1000.000000000000000000
    end
    object Page1: TfrxReportPage
      PaperWidth = 210.000000000000000000
      PaperHeight = 297.000000000000000000
      PaperSize = 9
      LeftMargin = 10.000000000000000000
      RightMargin = 10.000000000000000000
      TopMargin = 10.000000000000000000
      BottomMargin = 10.000000000000000000
      Frame.Typ = []
      MirrorMode = []
      object MasterData1: TfrxMasterData
        FillType = ftBrush
        Frame.Typ = []
        Height = 41.574830000000000000
        Top = 158.740260000000000000
        Width = 718.110700000000000000
        DataSet = informedb
        DataSetName = 'informedbmateriasprimas'
        RowCount = 0
        object Memo1: TfrxMemoView
          AllowVectorExport = True
          Width = 51.023622047244100000
          Height = 41.574803150000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -7
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.ShadowWidth = 1.000000000000000000
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          Fill.BackColor = clMenuBar
          HAlign = haCenter
          Memo.UTF8W = (
            'FECHA DE RECEPCI'#211'N')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo3: TfrxMemoView
          AllowVectorExport = True
          Left = 50.692950000000000000
          Width = 51.023622050000000000
          Height = 41.574803150000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -7
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.ShadowWidth = 1.000000000000000000
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          Fill.BackColor = clMenuBar
          HAlign = haCenter
          Memo.UTF8W = (
            'LOTE')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo4: TfrxMemoView
          AllowVectorExport = True
          Left = 101.385900000000000000
          Width = 51.023622050000000000
          Height = 41.574803150000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -7
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.ShadowWidth = 1.000000000000000000
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          Fill.BackColor = clMenuBar
          HAlign = haCenter
          Memo.UTF8W = (
            'TAMA'#209'O/ ASPECTO')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo5: TfrxMemoView
          AllowVectorExport = True
          Left = 151.858380000000000000
          Width = 51.023622050000000000
          Height = 41.574803150000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -7
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.ShadowWidth = 1.000000000000000000
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          Fill.BackColor = clMenuBar
          HAlign = haCenter
          Memo.UTF8W = (
            'GRANOS DE UVA ENTEROS Y BIEN FORMADOS')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo6: TfrxMemoView
          AllowVectorExport = True
          Left = 203.330860000000000000
          Width = 51.023622050000000000
          Height = 41.574803150000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -7
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.ShadowWidth = 1.000000000000000000
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          Fill.BackColor = clMenuBar
          HAlign = haCenter
          Memo.UTF8W = (
            'COLOR CORRECTO')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo7: TfrxMemoView
          AllowVectorExport = True
          Left = 253.803340000000000000
          Width = 51.023622050000000000
          Height = 41.574803150000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -7
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.ShadowWidth = 1.000000000000000000
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          Fill.BackColor = clMenuBar
          HAlign = haCenter
          Memo.UTF8W = (
            'AUSENCIA DE GOLPES')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo8: TfrxMemoView
          AllowVectorExport = True
          Left = 304.275820000000000000
          Width = 51.023622050000000000
          Height = 41.574803150000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -7
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.ShadowWidth = 1.000000000000000000
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          Fill.BackColor = clMenuBar
          HAlign = haCenter
          Memo.UTF8W = (
            'LIMPIEZA')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo9: TfrxMemoView
          AllowVectorExport = True
          Left = 405.220780000000000000
          Width = 51.023622050000000000
          Height = 41.574803150000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -7
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.ShadowWidth = 1.000000000000000000
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          Fill.BackColor = clMenuBar
          HAlign = haCenter
          Memo.UTF8W = (
            'AUSENCIA DE INSECTOS Y ROEDORES')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo10: TfrxMemoView
          AllowVectorExport = True
          Left = 634.433520000000000000
          Width = 81.259859610000000000
          Height = 41.574803150000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -7
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.ShadowWidth = 1.000000000000000000
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          Fill.BackColor = clMenuBar
          HAlign = haCenter
          Memo.UTF8W = (
            'OBSERVACIONES')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo11: TfrxMemoView
          AllowVectorExport = True
          Left = 354.748300000000000000
          Width = 51.023622050000000000
          Height = 41.574803150000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -7
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.ShadowWidth = 1.000000000000000000
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          Fill.BackColor = clMenuBar
          HAlign = haCenter
          Memo.UTF8W = (
            'AUSENCIA DE PLAGAS Y ENFERMEDADES')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo12: TfrxMemoView
          AllowVectorExport = True
          Left = 455.693260000000000000
          Width = 51.023622050000000000
          Height = 41.574803150000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -7
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.ShadowWidth = 1.000000000000000000
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          Fill.BackColor = clMenuBar
          HAlign = haCenter
          Memo.UTF8W = (
            'AUSENCIA DE CUERPOS EXTRA'#209'OS')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo13: TfrxMemoView
          AllowVectorExport = True
          Left = 559.165740000000000000
          Width = 30.236220470000000000
          Height = 41.574803150000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -7
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.ShadowWidth = 1.000000000000000000
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          Fill.BackColor = clMenuBar
          HAlign = haCenter
          Memo.UTF8W = (
            #186' BRIX')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo27: TfrxMemoView
          AllowVectorExport = True
          Left = 506.795610000000000000
          Width = 52.913385830000000000
          Height = 41.574803150000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -7
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.ShadowWidth = 1.000000000000000000
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          Fill.BackColor = clMenuBar
          HAlign = haCenter
          Memo.UTF8W = (
            'AUSENCIA DE INDICIOS DE SABOTAJE Y/O ADULTERACI'#211'N')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo29: TfrxMemoView
          AllowVectorExport = True
          Left = 589.165740000000000000
          Width = 45.354330710000000000
          Height = 41.574803150000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -7
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.ShadowWidth = 1.000000000000000000
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          Fill.BackColor = clMenuBar
          HAlign = haCenter
          Memo.UTF8W = (
            'RESULTADO DEL CONTROL')
          ParentFont = False
          VAlign = vaCenter
        end
      end
      object PageHeader1: TfrxPageHeader
        FillType = ftBrush
        Frame.Typ = []
        Height = 79.370027480000000000
        Top = 18.897650000000000000
        Width = 718.110700000000000000
        object Memo26: TfrxMemoView
          AllowVectorExport = True
          Width = 718.110700000000000000
          Height = 75.590600000000000000
          Frame.ShadowWidth = 1.000000000000000000
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
        end
        object Memo2: TfrxMemoView
          AllowVectorExport = True
          Top = 46.368380239999990000
          Width = 566.652949020000100000
          Height = 25.258322440000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -19
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.Typ = []
          HAlign = haCenter
          Memo.UTF8W = (
            'CONTROL DE CALIDAD RECEPCI'#211'N MATERIA PRIMA (Rev. 01)')
          ParentFont = False
        end
        object Picture1: TfrxPictureView
          AllowVectorExport = True
          Left = 1.000000000000000000
          Top = 1.000000000000000000
          Width = 184.755410000000000000
          Height = 43.039270000000000000
          DataField = 'logo'
          DataSet = informedbempresa
          DataSetName = 'informedbempresa'
          Frame.Typ = []
          HightQuality = False
          Transparent = False
          TransparentColor = clWhite
        end
        object CAMPANYA: TfrxMemoView
          AllowVectorExport = True
          Left = 560.236549999999900000
          Top = 46.354360000000000000
          Width = 150.904649020000000000
          Height = 25.258322440000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -19
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.Typ = []
          Memo.UTF8W = (
            '[CAMPANYA]')
          ParentFont = False
        end
      end
      object DetailData1: TfrxDetailData
        FillType = ftBrush
        Frame.Typ = []
        Height = 15.118110240000000000
        Top = 222.992270000000000000
        Width = 718.110700000000000000
        DataSet = informedb
        DataSetName = 'informedbmateriasprimas'
        RowCount = 0
        object Memo14: TfrxMemoView
          AllowVectorExport = True
          Width = 51.023622050000000000
          Height = 15.118110240000000000
          DataField = 'fecha'
          DataSet = informedb
          DataSetName = 'informedbmateriasprimas'
          DisplayFormat.FormatStr = 'dd-mmm'
          DisplayFormat.Kind = fkDateTime
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -7
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.ShadowWidth = 1.000000000000000000
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          HAlign = haCenter
          Memo.UTF8W = (
            '[informedbmateriasprimas."fecha"]')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo15: TfrxMemoView
          AllowVectorExport = True
          Left = 50.692950000000000000
          Width = 51.023622050000000000
          Height = 15.118110240000000000
          DataField = 'lote'
          DataSet = informedb
          DataSetName = 'informedbmateriasprimas'
          DisplayFormat.FormatStr = 'dd-mmm'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -7
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.ShadowWidth = 1.000000000000000000
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          HAlign = haCenter
          Memo.UTF8W = (
            '[informedbmateriasprimas."lote"]')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo16: TfrxMemoView
          AllowVectorExport = True
          Left = 101.385900000000000000
          Width = 51.023622050000000000
          Height = 15.118110240000000000
          DataField = 'tamanyo'
          DataSet = informedb
          DataSetName = 'informedbmateriasprimas'
          DisplayFormat.FormatStr = 'dd-mmm'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -7
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.ShadowWidth = 1.000000000000000000
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          HAlign = haCenter
          Memo.UTF8W = (
            '[informedbmateriasprimas."tamanyo"]')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo17: TfrxMemoView
          AllowVectorExport = True
          Left = 151.858380000000000000
          Width = 51.023622050000000000
          Height = 15.118110240000000000
          DataField = 'aspecto'
          DataSet = informedb
          DataSetName = 'informedbmateriasprimas'
          DisplayFormat.FormatStr = 'dd-mmm'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -7
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.ShadowWidth = 1.000000000000000000
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          HAlign = haCenter
          Memo.UTF8W = (
            '[informedbmateriasprimas."aspecto"]')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo18: TfrxMemoView
          AllowVectorExport = True
          Left = 203.330860000000000000
          Width = 51.023622050000000000
          Height = 15.118110240000000000
          DataField = 'color'
          DataSet = informedb
          DataSetName = 'informedbmateriasprimas'
          DisplayFormat.FormatStr = 'dd-mmm'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -7
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.ShadowWidth = 1.000000000000000000
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          HAlign = haCenter
          Memo.UTF8W = (
            '[informedbmateriasprimas."color"]')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo19: TfrxMemoView
          AllowVectorExport = True
          Left = 253.803340000000000000
          Width = 51.023622050000000000
          Height = 15.118110240000000000
          DataField = 'ausencia_golpes'
          DataSet = informedb
          DataSetName = 'informedbmateriasprimas'
          DisplayFormat.FormatStr = 'dd-mmm'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -7
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.ShadowWidth = 1.000000000000000000
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          HAlign = haCenter
          Memo.UTF8W = (
            '[informedbmateriasprimas."ausencia_golpes"]')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo20: TfrxMemoView
          AllowVectorExport = True
          Left = 304.275820000000000000
          Width = 51.023622050000000000
          Height = 15.118110240000000000
          DataField = 'limpieza'
          DataSet = informedb
          DataSetName = 'informedbmateriasprimas'
          DisplayFormat.FormatStr = 'dd-mmm'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -7
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.ShadowWidth = 1.000000000000000000
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          HAlign = haCenter
          Memo.UTF8W = (
            '[informedbmateriasprimas."limpieza"]')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo21: TfrxMemoView
          AllowVectorExport = True
          Left = 405.220780000000000000
          Width = 51.023622050000000000
          Height = 15.118110240000000000
          DataField = 'ausencia_insectos'
          DataSet = informedb
          DataSetName = 'informedbmateriasprimas'
          DisplayFormat.FormatStr = 'dd-mmm'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -7
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.ShadowWidth = 1.000000000000000000
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          HAlign = haCenter
          Memo.UTF8W = (
            '[informedbmateriasprimas."ausencia_insectos"]')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo22: TfrxMemoView
          AllowVectorExport = True
          Left = 634.307086610000000000
          Width = 81.259830310000000000
          Height = 15.118093150000000000
          DataField = 'observaciones'
          DataSet = informedb
          DataSetName = 'informedbmateriasprimas'
          DisplayFormat.FormatStr = 'dd-mmm'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -7
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.ShadowWidth = 1.000000000000000000
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          HAlign = haCenter
          Memo.UTF8W = (
            '[informedbmateriasprimas."observaciones"]')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo23: TfrxMemoView
          AllowVectorExport = True
          Left = 354.748300000000000000
          Width = 51.023622050000000000
          Height = 15.118110240000000000
          DataField = 'ausencia_plagas'
          DataSet = informedb
          DataSetName = 'informedbmateriasprimas'
          DisplayFormat.FormatStr = 'dd-mmm'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -7
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.ShadowWidth = 1.000000000000000000
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          HAlign = haCenter
          Memo.UTF8W = (
            '[informedbmateriasprimas."ausencia_plagas"]')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo24: TfrxMemoView
          AllowVectorExport = True
          Left = 455.693260000000000000
          Width = 51.023622050000000000
          Height = 15.118110240000000000
          DataField = 'ausencia_cuerpos'
          DataSet = informedb
          DataSetName = 'informedbmateriasprimas'
          DisplayFormat.FormatStr = 'dd-mmm'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -7
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.ShadowWidth = 1.000000000000000000
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          HAlign = haCenter
          Memo.UTF8W = (
            '[informedbmateriasprimas."ausencia_cuerpos"]')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo25: TfrxMemoView
          AllowVectorExport = True
          Left = 559.267716540000000000
          Width = 30.236220472440900000
          Height = 15.118110240000000000
          DataField = 'brix'
          DataSet = informedb
          DataSetName = 'informedbmateriasprimas'
          DisplayFormat.FormatStr = 'dd-mmm'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -7
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.ShadowWidth = 1.000000000000000000
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          HAlign = haCenter
          Memo.UTF8W = (
            '[informedbmateriasprimas."brix"]')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo28: TfrxMemoView
          AllowVectorExport = True
          Left = 506.748031500000000000
          Width = 52.913385830000000000
          Height = 15.118110240000000000
          DataField = 'sabotaje'
          DataSet = informedb
          DataSetName = 'informedbmateriasprimas'
          DisplayFormat.FormatStr = 'dd-mmm'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -7
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.ShadowWidth = 1.000000000000000000
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          HAlign = haCenter
          Memo.UTF8W = (
            '[informedbmateriasprimas."sabotaje"]')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo30: TfrxMemoView
          AllowVectorExport = True
          Left = 589.165740000000000000
          Width = 45.354330710000000000
          Height = 15.118110240000000000
          DataField = 'resultado'
          DataSet = informedb
          DataSetName = 'informedbmateriasprimas'
          DisplayFormat.FormatStr = 'dd-mmm'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -7
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.ShadowWidth = 1.000000000000000000
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          HAlign = haCenter
          Memo.UTF8W = (
            '[informedbmateriasprimas."resultado"]')
          ParentFont = False
          VAlign = vaCenter
        end
      end
      object ReportSummary1: TfrxReportSummary
        FillType = ftBrush
        Frame.Typ = []
        Height = 71.811070000000000000
        Top = 298.582870000000000000
        Width = 718.110700000000000000
        object informedbencargadonombre: TfrxMemoView
          AllowVectorExport = True
          Left = 49.133890000000000000
          Top = 56.354359999999990000
          Width = 287.244280000000000000
          Height = 11.338590000000000000
          DataSet = informedbencargado
          DataSetName = 'informedbencargado'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -9
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.Typ = []
          Memo.UTF8W = (
            'V'#186' B'#186' :[informedbencargado."nombre"]')
          ParentFont = False
        end
        object Picture2: TfrxPictureView
          AllowVectorExport = True
          Left = 79.370130000000000000
          Top = 1.133858267716562000
          Width = 162.078230000000000000
          Height = 50.598330000000000000
          DataField = 'firma'
          DataSet = informedbencargado
          DataSetName = 'informedbencargado'
          Frame.Typ = []
          HightQuality = True
          Transparent = False
          TransparentColor = clWhite
        end
        object Memo31: TfrxMemoView
          AllowVectorExport = True
          Left = 415.748300000000000000
          Top = 56.314960629999970000
          Width = 287.244280000000000000
          Height = 11.338582677165400000
          DataSet = informedbencargado
          DataSetName = 'informedbencargado'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -9
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.Typ = []
          Memo.UTF8W = (
            'POR LA EMPRESA :[informedbempresa."responsable"]')
          ParentFont = False
        end
        object Picture3: TfrxPictureView
          AllowVectorExport = True
          Left = 442.645950000000000000
          Top = 1.000000000000000000
          Width = 162.078230000000000000
          Height = 50.645669290000000000
          DataField = 'firmaresponsable'
          DataSet = informedbempresa
          DataSetName = 'informedbempresa'
          Frame.Typ = []
          HightQuality = True
          Transparent = False
          TransparentColor = clWhite
        end
      end
    end
  end
  object informedbencargado: TfrxDBDataset
    UserName = 'informedbencargado'
    CloseDataSource = False
    FieldAliases.Strings = (
      'nombre=nombre'
      'ide=ide'
      'id=id'
      'firma=firma')
    DataSource = dscontroladores
    BCDToCurrency = False
    Left = 536
    Top = 288
  end
  object informedbempresa: TfrxDBDataset
    UserName = 'informedbempresa'
    CloseDataSource = False
    FieldAliases.Strings = (
      '-id=id'
      'cif=cif'
      'nombre=nombre'
      'direccion=direccion'
      'codpost=codpost'
      'poblacion=poblacion'
      'provincia=provincia'
      '-email=email'
      '-telefono1=telefono1'
      '-telefono2=telefono2'
      '-contacto=contacto'
      '-contingenciacomfij=contingenciacomfij'
      '-salariobasedia=salariobasedia'
      '-contingenciasdia=contingenciasdia'
      '-irpf=irpf'
      '-irpf2=irpf2'
      '-desempleo=desempleo'
      '-desempleo2=desempleo2'
      '-formacion=formacion'
      '-contingencias=contingencias'
      '-cc_iban=cc_iban'
      '-formacion2=formacion2'
      '-cc_entidad=cc_entidad'
      '-cc_oficina=cc_oficina'
      '-cc_dc=cc_dc'
      '-cc_cc=cc_cc'
      '-active=active'
      '-ajusteentrada=ajusteentrada'
      '-ajustesalida=ajustesalida'
      '-porcbloqueo=porcbloqueo'
      '-contingencias2=contingencias2'
      '-ult_envio=ult_envio'
      '-registro_sanitario=registro_sanitario'
      '-coste_kg_gen=coste_kg_gen'
      '-porc_segsocial=porc_segsocial'
      '-precio_venta_desperdicios=precio_venta_desperdicios'
      '-vercodtrazabilidad=vercodtrazabilidad'
      '-codcomision=codcomision'
      '-codtransporte=codtransporte'
      '-cc_bic=cc_bic'
      '-codotros=codotros'
      '-avisarstock=avisarstock'
      '-htlunes=htlunes'
      '-htmartes=htmartes'
      '-htmiercoles=htmiercoles'
      '-htjueves=htjueves'
      '-htviernes=htviernes'
      '-htsabados=htsabados'
      '-htdomingos=htdomingos'
      '-tavisostock=tavisostock'
      'responsable=responsable'
      'nif_responsable=nif_responsable'
      'logo=logo'
      'firmaresponsable=firmaresponsable'
      '-tiempoalmuerzo=tiempoalmuerzo'
      '-horasminimas=horasminimas')
    DataSet = DM.tempresa
    BCDToCurrency = False
    Left = 536
    Top = 240
  end
end