object cc_basculas: Tcc_basculas
  Left = 0
  Top = 0
  Caption = 'cc_basculas'
  ClientHeight = 499
  ClientWidth = 675
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object gcrpagado: TDBCheckBox
    Left = 843
    Top = 8
    Width = 75
    Height = 17
    Caption = 'gcrpagado'
    TabOrder = 0
    Visible = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 675
    Height = 65
    Align = alTop
    Caption = '                          CONTROL DE BASCULAS'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -21
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    ExplicitLeft = -231
    ExplicitWidth = 1149
    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 = 554
      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
      ExplicitLeft = 1028
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 65
    Width = 675
    Height = 434
    Align = alClient
    TabOrder = 2
    ExplicitLeft = -231
    ExplicitTop = 3
    ExplicitWidth = 1149
    ExplicitHeight = 496
    object DBGrid1: TDBGrid
      Left = 1
      Top = 1
      Width = 673
      Height = 432
      Align = alClient
      DataSource = dsqccbasculas
      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
          Expanded = False
          FieldName = 'fecha'
          Title.Caption = 'Fecha'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'idb'
          Title.Caption = 'Id'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'descripcion'
          Title.Caption = 'Descripci'#243'n'
          Width = 352
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'peso_muestra'
          Title.Caption = 'Peso control'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'peso_real'
          Title.Caption = 'Peso real'
          Width = 72
          Visible = True
        end>
    end
  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 informedb: TfrxDBDataset
    UserName = 'informedbutensilios'
    CloseDataSource = False
    FieldAliases.Strings = (
      'ide=ide'
      'fecha=fecha'
      'idb=idb'
      'peso_muestra=peso_muestra'
      'peso_real=peso_real'
      'descripcion=descripcion')
    DataSource = dsqccbasculas
    BCDToCurrency = False
    Left = 536
    Top = 192
  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
  object informedbencargado: TfrxDBDataset
    UserName = 'informedbencargado'
    CloseDataSource = False
    FieldAliases.Strings = (
      'nombre=nombre'
      'ide=ide'
      'id=id'
      'firma=firma')
    DataSet = qcontroladores
    BCDToCurrency = False
    Left = 536
    Top = 288
  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 = 44649.499742187500000000
    ScriptLanguage = 'PascalScript'
    ScriptText.Strings = (
      'begin'
      ''
      'end.')
    Left = 408
    Top = 144
    Datasets = <
      item
        DataSet = informedbempresa
        DataSetName = 'informedbempresa'
      end
      item
        DataSet = informedb
        DataSetName = 'informedbutensilios'
      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 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 = 540.196239020000000000
          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 = (
            'REGISTRO DE CONTROL DE B'#193'SCULAS(Rev. 00)')
          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 = 541.338899999999900000
          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 GroupHeader1: TfrxGroupHeader
        FillType = ftBrush
        Frame.Typ = []
        Height = 56.692923150000000000
        Top = 158.740260000000000000
        Width = 718.110700000000000000
        Condition = 'informedbutensilios."fecha"'
        ReprintOnNewPage = True
        StartNewPage = True
        object Memo1: TfrxMemoView
          AllowVectorExport = True
          Top = 41.574829999999990000
          Width = 83.527559060000000000
          Height = 15.118093150000000000
          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 = (
            'ID')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo3: TfrxMemoView
          AllowVectorExport = True
          Left = 83.590600000000000000
          Top = 41.574830000000020000
          Width = 286.866141730000000000
          Height = 15.118093149999990000
          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
          Memo.UTF8W = (
            'DESCRIPCI'#211'N')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo7: TfrxMemoView
          AllowVectorExport = True
          Left = 438.645950000000000000
          Top = 41.574830000000020000
          Width = 68.031496060000000000
          Height = 15.118093149999990000
          DataSet = informedb
          DataSetName = 'informedbutensilios'
          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 = (
            'PESO')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo8: TfrxMemoView
          AllowVectorExport = True
          Left = 370.393940000000000000
          Top = 41.574830000000020000
          Width = 68.031496060000000000
          Height = 15.118093149999990000
          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 = (
            'PESO DE CONTROL')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo25: TfrxMemoView
          AllowVectorExport = True
          Top = 0.000000000000028422
          Width = 287.622179060000000000
          Height = 41.574803150000000000
          DisplayFormat.FormatStr = 'dd-mm-yyyy'
          DisplayFormat.Kind = fkDateTime
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -16
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.ShadowWidth = 1.000000000000000000
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          Fill.BackColor = clMenuBar
          Memo.UTF8W = (
            'FECHA:  [informedbutensilios."FECHA"]')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo27: TfrxMemoView
          AllowVectorExport = True
          Left = 287.244280000000000000
          Width = 287.622179060000000000
          Height = 41.574803150000000000
          DisplayFormat.FormatStr = 'mm-dd-yyyy'
          DisplayFormat.Kind = fkDateTime
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          Frame.ShadowWidth = 1.000000000000000000
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          Fill.BackColor = clMenuBar
          Memo.UTF8W = (
            'V'#186' B'#186' RESP. CONTROL'
            '[informedbencargado."nombre"]')
          ParentFont = False
          VAlign = vaCenter
        end
        object Picture4: TfrxPictureView
          AllowVectorExport = True
          Left = 574.488560000000000000
          Width = 143.622140000000000000
          Height = 41.574830000000000000
          DataField = 'firma'
          DataSet = informedbencargado
          DataSetName = 'informedbencargado'
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          HightQuality = True
          Transparent = False
          TransparentColor = clWhite
        end
      end
      object MasterData1: TfrxMasterData
        FillType = ftBrush
        Frame.Typ = []
        Height = 15.118110236220470000
        Top = 238.110390000000000000
        Width = 718.110700000000000000
        DataSet = informedb
        DataSetName = 'informedbutensilios'
        RowCount = 0
        object Memo14: TfrxMemoView
          AllowVectorExport = True
          Width = 83.527559060000000000
          Height = 15.118110240000000000
          DataSet = informedb
          DataSetName = 'informedbutensilios'
          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 = (
            '[informedbutensilios."idb"]')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo15: TfrxMemoView
          AllowVectorExport = True
          Left = 83.527559060000000000
          Width = 286.866141730000000000
          Height = 15.118110240000000000
          DataField = 'descripcion'
          DataSet = informedb
          DataSetName = 'informedbutensilios'
          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]
          Memo.UTF8W = (
            '[informedbutensilios."descripcion"]')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo16: TfrxMemoView
          AllowVectorExport = True
          Left = 370.393700790000000000
          Width = 68.031496060000000000
          Height = 15.118110240000000000
          DataSet = informedb
          DataSetName = 'informedbutensilios'
          DisplayFormat.FormatStr = '%2.3f'
          DisplayFormat.Kind = fkNumeric
          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 = (
            '[informedbutensilios."peso_muestra"]')
          ParentFont = False
          VAlign = vaCenter
        end
        object Memo23: TfrxMemoView
          AllowVectorExport = True
          Left = 438.425480000000000000
          Width = 68.031496060000000000
          Height = 15.118110240000000000
          DataSet = informedb
          DataSetName = 'informedbutensilios'
          DisplayFormat.FormatStr = '%2.3f'
          DisplayFormat.Kind = fkNumeric
          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 = (
            '[informedbutensilios."peso_real"]')
          ParentFont = False
          VAlign = vaCenter
        end
      end
    end
  end
  object qcampanyas: TZReadOnlyQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      'select * from campanyas order by id desc')
    Params = <>
    Left = 120
    Top = 136
    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 qcc_basculas: TZQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      
        'SELECT ccb.* FROM cc_basculas ccb where fecha>=:FECHAINICIO and ' +
        'fecha<=:FECHAFIN order by fecha')
    Params = <
      item
        DataType = ftUnknown
        Name = 'FECHAINICIO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'FECHAFIN'
        ParamType = ptUnknown
      end>
    Left = 392
    Top = 240
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'FECHAINICIO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'FECHAFIN'
        ParamType = ptUnknown
      end>
    object qcc_basculaside: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object qcc_basculasfecha: TDateField
      FieldName = 'fecha'
      Required = True
    end
    object qcc_basculasidb: TIntegerField
      Alignment = taCenter
      FieldName = 'idb'
      Required = True
    end
    object qcc_basculaspeso_muestra: TFloatField
      Alignment = taCenter
      FieldName = 'peso_muestra'
    end
    object qcc_basculaspeso_real: TFloatField
      Alignment = taCenter
      FieldName = 'peso_real'
    end
    object qcc_basculasdescripcion: TWideStringField
      FieldName = 'descripcion'
      Size = 90
    end
  end
  object qcontroladores: TZReadOnlyQuery
    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 qinsertar: TZQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      
        'insert into cc_basculas (ide,fecha,idb,descripcion,peso_muestra)' +
        ' select t.idempresa,t.fecha,b.id,b.descripcion,b.peso_control fr' +
        'om almacenes_partesdiarios t,basculas b where b.ide=t.idempresa ' +
        'and t.fecha>=:FECHAINICIO and t.fecha<=:FECHAFIN'
      
        'and t.almacen in (select id from almacenes where produccion=1 an' +
        'd idempresa=t.idempresa) and (t.idempresa,t.fecha,b.id) not in (' +
        'select ide,fecha,idb from cc_basculas) order by fecha,b.id')
    Params = <
      item
        DataType = ftUnknown
        Name = 'FECHAINICIO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'FECHAFIN'
        ParamType = ptUnknown
      end>
    Left = 256
    Top = 72
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'FECHAINICIO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'FECHAFIN'
        ParamType = ptUnknown
      end>
  end
  object dsqcampanyas: TDataSource
    DataSet = qcampanyas
    OnDataChange = dsqcampanyasDataChange
    Left = 48
    Top = 128
  end
  object dscontroladores: TDataSource
    DataSet = qcontroladores
    Left = 48
    Top = 192
  end
  object dsqccbasculas: TDataSource
    DataSet = qcc_basculas
    Left = 320
    Top = 264
  end
  object qcc_basculasinf: TZQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      
        'SELECT ccb.* FROM cc_basculas ccb where peso_real is not null an' +
        'd fecha>=:FECHAINICIO and fecha<=:FECHAFIN order by fecha')
    Params = <
      item
        DataType = ftUnknown
        Name = 'FECHAINICIO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'FECHAFIN'
        ParamType = ptUnknown
      end>
    Left = 400
    Top = 296
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'FECHAINICIO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'FECHAFIN'
        ParamType = ptUnknown
      end>
    object qcc_basculasinfide: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object qcc_basculasinffecha: TDateField
      FieldName = 'fecha'
      Required = True
    end
    object qcc_basculasinfidb: TIntegerField
      FieldName = 'idb'
      Required = True
    end
    object qcc_basculasinfdescripcion: TWideStringField
      FieldName = 'descripcion'
      Size = 90
    end
    object qcc_basculasinfpeso_muestra: TFloatField
      FieldName = 'peso_muestra'
    end
    object qcc_basculasinfpeso_real: TFloatField
      FieldName = 'peso_real'
    end
  end
  object dsqccbasculasinf: TDataSource
    DataSet = qcc_basculasinf
    Left = 320
    Top = 304
  end
end