object DM: TDM
  OldCreateOrder = True
  OnCreate = DataModuleCreate
  OnDestroy = DataModuleDestroy
  Height = 667
  Width = 1057
  object DBagrigest: TZConnection
    ControlsCodePage = cCP_UTF16
    ClientCodepage = 'utf8'
    Catalog = ''
    Properties.Strings = (
      'codepage=utf8'
      'controls_cp=CP_UTF16')
    HostName = '85.215.144.168'
    Port = 3306
    Database = 'agrigest'
    User = 'asesoft'
    Password = 'Pantera1'
    Protocol = 'mysql-5'
    LibraryLocation = '.\libmysql.dll'
    Left = 24
    Top = 24
  end
  object dsqnominasdetalle: TDataSource
    DataSet = qnominasdetalle
    Left = 104
    Top = 16
  end
  object qnominasdetalle: TZReadOnlyQuery
    Connection = DBagrigest
    SQL.Strings = (
      'select * from trabajo_diario')
    Params = <>
    Left = 184
    Top = 8
    object qnominasdetalleid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qnominasdetallefecha: TDateField
      FieldName = 'fecha'
    end
    object qnominasdetalleparcela: TWideStringField
      FieldName = 'parcela'
      Size = 30
    end
    object qnominasdetalleidt: TIntegerField
      FieldName = 'idt'
    end
    object qnominasdetalletrabajador: TWideStringField
      FieldName = 'trabajador'
      Size = 100
    end
    object qnominasdetalletypework: TWideStringField
      FieldName = 'typework'
      Size = 40
    end
    object qnominasdetallearticulo: TWideStringField
      FieldName = 'articulo'
      Size = 100
    end
    object qnominasdetalleqhoras: TFloatField
      FieldName = 'qhoras'
      DisplayFormat = '#0.00'
    end
    object qnominasdetalleprecio: TFloatField
      FieldName = 'precio'
      Required = True
      DisplayFormat = '#0.000'
    end
    object qnominasdetalletotal: TFloatField
      FieldName = 'total'
      Required = True
      DisplayFormat = '#0.000'
    end
    object qnominasdetalleestado: TWideStringField
      FieldName = 'estado'
      Required = True
      Size = 2
    end
    object qnominasdetalleorigen: TWideStringField
      FieldName = 'origen'
      Size = 200
    end
    object qnominasdetalleobservaciones: TWideStringField
      FieldName = 'observaciones'
      Size = 490
    end
    object qnominasdetalleempresa: TIntegerField
      FieldName = 'empresa'
      Required = True
    end
  end
  object dsqanticiposdetalle: TDataSource
    DataSet = qanticiposdetalle
    Left = 104
    Top = 72
  end
  object qanticiposdetalle: TZReadOnlyQuery
    Connection = DBagrigest
    SQL.Strings = (
      'select * from anticipos')
    Params = <>
    Left = 184
    Top = 56
    object qanticiposdetalleid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qanticiposdetalleidt: TIntegerField
      FieldName = 'idt'
      Required = True
    end
    object qanticiposdetalletrabajador: TWideStringField
      FieldName = 'trabajador'
      Required = True
      Size = 240
    end
    object qanticiposdetallefecha: TDateField
      FieldName = 'fecha'
      Required = True
    end
    object qanticiposdetalleimporte: TFloatField
      FieldName = 'importe'
      Required = True
    end
    object qanticiposdetalleestado: TWideStringField
      FieldName = 'estado'
      Required = True
      Size = 2
    end
    object qanticiposdetalleindemnizacion: TFloatField
      FieldName = 'indemnizacion'
    end
    object qanticiposdetallepenalizacion: TFloatField
      FieldName = 'penalizacion'
    end
    object qanticiposdetalleobservaciones: TWideStringField
      FieldName = 'observaciones'
      Size = 160
    end
    object qanticiposdetalleformapago: TWideStringField
      FieldName = 'formapago'
      Size = 56
    end
    object qanticiposdetalleimporteletras: TWideStringField
      FieldName = 'importeletras'
      Size = 500
    end
  end
  object tnotas: TZTable
    Connection = DBagrigest
    TableName = 'notas'
    MasterFields = 'fecha'
    MasterSource = dscalendario
    LinkedFields = 'fecha'
    Left = 640
    Top = 360
  end
  object tcalendario_laboral: TZTable
    Connection = DBagrigest
    TableName = 'calendario_laboral'
    Left = 336
    Top = 8
    object tcalendario_laboralfecha: TDateField
      FieldName = 'fecha'
      Required = True
    end
    object tcalendario_laboralfestivo: TIntegerField
      FieldName = 'festivo'
      Required = True
    end
    object tcalendario_laboralalmuerzo: TIntegerField
      FieldName = 'almuerzo'
      Required = True
    end
    object tcalendario_laboralmerienda: TIntegerField
      FieldName = 'merienda'
      Required = True
    end
    object tcalendario_laboralinicio_almuerzo: TTimeField
      FieldName = 'inicio_almuerzo'
      DisplayFormat = 'hh:mm'
      EditMask = '!90:00;1;_'
    end
    object tcalendario_laboralfin_almuerzo: TTimeField
      FieldName = 'fin_almuerzo'
      DisplayFormat = 'hh:mm'
      EditMask = '!90:00;1;_'
    end
    object tcalendario_laboralinicio_merienda: TTimeField
      FieldName = 'inicio_merienda'
      DisplayFormat = 'hh:mm'
      EditMask = '!90:00;1;_'
    end
    object tcalendario_laboralfin_merienda: TTimeField
      FieldName = 'fin_merienda'
      DisplayFormat = 'hh:mm'
      EditMask = '!90:00;1;_'
    end
  end
  object dscalendario: TDataSource
    DataSet = tcalendario_laboral
    Left = 256
    Top = 8
  end
  object dsnotas: TDataSource
    DataSet = tnotas
    Left = 560
    Top = 360
  end
  object qaux1: TZReadOnlyQuery
    Connection = DBagrigest
    Params = <>
    Left = 576
    Top = 8
  end
  object tempresa: TZTable
    Connection = DBagrigest
    TableName = 'empresa'
    Left = 640
    Top = 240
    object tempresaid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object tempresacif: TWideStringField
      FieldName = 'cif'
      Required = True
      Size = 18
    end
    object tempresanombre: TWideStringField
      FieldName = 'nombre'
      Size = 500
    end
    object tempresadireccion: TWideStringField
      FieldName = 'direccion'
      Required = True
      Size = 80
    end
    object tempresacodpost: TWideStringField
      FieldName = 'codpost'
      Required = True
      Size = 10
    end
    object tempresapoblacion: TWideStringField
      FieldName = 'poblacion'
      Required = True
      Size = 80
    end
    object tempresaprovincia: TWideStringField
      FieldName = 'provincia'
      Required = True
      Size = 80
    end
    object tempresaemail: TWideStringField
      FieldName = 'email'
      Size = 500
    end
    object tempresatelefono1: TWideStringField
      FieldName = 'telefono1'
      Size = 18
    end
    object tempresatelefono2: TWideStringField
      FieldName = 'telefono2'
      Required = True
      Size = 18
    end
    object tempresacontacto: TWideStringField
      FieldName = 'contacto'
      Required = True
      Size = 100
    end
    object tempresacontingenciacomfij: TFloatField
      FieldName = 'contingenciacomfij'
      Required = True
    end
    object tempresasalariobasedia: TFloatField
      FieldName = 'salariobasedia'
      Required = True
    end
    object tempresacontingenciasdia: TFloatField
      FieldName = 'contingenciasdia'
      Required = True
    end
    object tempresairpf: TFloatField
      FieldName = 'irpf'
      Required = True
    end
    object tempresairpf2: TFloatField
      FieldName = 'irpf2'
    end
    object tempresadesempleo: TFloatField
      FieldName = 'desempleo'
      Required = True
    end
    object tempresadesempleo2: TFloatField
      FieldName = 'desempleo2'
    end
    object tempresaformacion: TFloatField
      FieldName = 'formacion'
      Required = True
    end
    object tempresacontingencias: TFloatField
      FieldName = 'contingencias'
      Required = True
    end
    object tempresacc_iban: TWideStringField
      FieldName = 'cc_iban'
      Required = True
      Size = 8
    end
    object tempresaformacion2: TFloatField
      FieldName = 'formacion2'
    end
    object tempresacc_entidad: TWideStringField
      FieldName = 'cc_entidad'
      Required = True
      Size = 8
    end
    object tempresacc_oficina: TWideStringField
      FieldName = 'cc_oficina'
      Required = True
      Size = 8
    end
    object tempresacc_dc: TWideStringField
      FieldName = 'cc_dc'
      Required = True
      Size = 4
    end
    object tempresacc_cc: TWideStringField
      FieldName = 'cc_cc'
      Required = True
    end
    object tempresaactive: TIntegerField
      FieldName = 'active'
    end
    object tempresaajusteentrada: TIntegerField
      FieldName = 'ajusteentrada'
    end
    object tempresaajustesalida: TIntegerField
      FieldName = 'ajustesalida'
    end
    object tempresaporcbloqueo: TIntegerField
      FieldName = 'porcbloqueo'
    end
    object tempresacontingencias2: TFloatField
      FieldName = 'contingencias2'
    end
    object tempresault_envio: TIntegerField
      FieldName = 'ult_envio'
    end
    object tempresaregistro_sanitario: TWideStringField
      FieldName = 'registro_sanitario'
      Size = 40
    end
    object tempresacoste_kg_gen: TFloatField
      FieldName = 'coste_kg_gen'
      Required = True
    end
    object tempresaporc_segsocial: TFloatField
      FieldName = 'porc_segsocial'
    end
    object tempresaprecio_venta_desperdicios: TFloatField
      FieldName = 'precio_venta_desperdicios'
      Required = True
    end
    object tempresavercodtrazabilidad: TIntegerField
      FieldName = 'vercodtrazabilidad'
      Required = True
    end
    object tempresacodcomision: TWideStringField
      FieldName = 'codcomision'
      Size = 40
    end
    object tempresacodtransporte: TWideStringField
      FieldName = 'codtransporte'
      Size = 40
    end
    object tempresacc_bic: TWideStringField
      FieldName = 'cc_bic'
      Size = 22
    end
    object tempresacodotros: TWideStringField
      FieldName = 'codotros'
      Size = 40
    end
    object tempresaavisarstock: TIntegerField
      FieldName = 'avisarstock'
      Required = True
    end
    object tempresahtlunes: TFloatField
      FieldName = 'htlunes'
    end
    object tempresahtmartes: TFloatField
      FieldName = 'htmartes'
    end
    object tempresahtmiercoles: TFloatField
      FieldName = 'htmiercoles'
    end
    object tempresahtjueves: TFloatField
      FieldName = 'htjueves'
    end
    object tempresahtviernes: TFloatField
      FieldName = 'htviernes'
    end
    object tempresahtsabados: TFloatField
      FieldName = 'htsabados'
    end
    object tempresahtdomingos: TFloatField
      FieldName = 'htdomingos'
    end
    object tempresatavisostock: TIntegerField
      FieldName = 'tavisostock'
    end
    object tempresaresponsable: TWideStringField
      FieldName = 'responsable'
      Size = 100
    end
    object tempresanif_responsable: TWideStringField
      FieldName = 'nif_responsable'
      Size = 30
    end
    object tempresalogo: TBlobField
      FieldName = 'logo'
    end
    object tempresafirmaresponsable: TBlobField
      FieldName = 'firmaresponsable'
    end
    object tempresatiempoalmuerzo: TIntegerField
      Alignment = taCenter
      FieldName = 'tiempoalmuerzo'
    end
    object tempresahorasminimas: TIntegerField
      Alignment = taCenter
      FieldName = 'horasminimas'
    end
    object tempresaidfamilia: TIntegerField
      FieldName = 'idfamilia'
    end
    object tempresaajuste15: TIntegerField
      FieldName = 'ajuste15'
    end
    object tempresaajuste30: TIntegerField
      FieldName = 'ajuste30'
    end
    object tempresaseparartraza_e_s: TIntegerField
      FieldName = 'separartraza_e_s'
    end
    object tempresaean: TWideStringField
      FieldName = 'ean'
      Size = 26
    end
  end
  object tcentro_coste: TZTable
    Connection = DBagrigest
    TableName = 'parcelas'
    Left = 424
    Top = 8
  end
  object dsempresa: TDataSource
    DataSet = tempresa
    OnStateChange = dsempresaStateChange
    OnDataChange = dsempresaDataChange
    Left = 592
    Top = 248
  end
  object tprenominas: TZTable
    Connection = DBagrigest
    OnCalcFields = tprenominasCalcFields
    TableName = 'prenominas'
    Left = 640
    Top = 304
    object tprenominasId: TIntegerField
      FieldName = 'Id'
      Required = True
    end
    object tprenominasIDT: TIntegerField
      FieldName = 'IDT'
      Required = True
    end
    object tprenominasANYO: TIntegerField
      FieldName = 'ANYO'
      Required = True
    end
    object tprenominasMES: TWideStringField
      FieldName = 'MES'
      Required = True
      Size = 30
    end
    object tprenominasNIF: TWideStringField
      FieldName = 'NIF'
      Required = True
      Size = 18
    end
    object tprenominasNOMBRE: TWideStringField
      FieldName = 'NOMBRE'
      Required = True
      Size = 80
    end
    object tprenominasDIRECCION: TWideStringField
      FieldName = 'DIRECCION'
      Required = True
      Size = 80
    end
    object tprenominasCP: TWideStringField
      FieldName = 'CP'
      Required = True
      Size = 10
    end
    object tprenominasPOBLACION: TWideStringField
      FieldName = 'POBLACION'
      Required = True
      Size = 40
    end
    object tprenominasHORAS: TFloatField
      FieldName = 'HORAS'
      Required = True
    end
    object tprenominasFECHAALTA: TDateField
      FieldName = 'FECHAALTA'
      Required = True
    end
    object tprenominasFECHABAJA: TDateField
      FieldName = 'FECHABAJA'
    end
    object tprenominasDIASTRABAJADOS: TIntegerField
      FieldName = 'DIASTRABAJADOS'
      Required = True
    end
    object tprenominasDIASMAXIMO: TIntegerField
      FieldName = 'DIASMAXIMO'
      Required = True
    end
    object tprenominasDIASCALCULO: TIntegerField
      FieldName = 'DIASCALCULO'
      Required = True
    end
    object tprenominasTOTALBRUTO: TFloatField
      FieldName = 'TOTALBRUTO'
      Required = True
    end
    object tprenominasIRPF: TFloatField
      FieldName = 'IRPF'
      Required = True
    end
    object tprenominasTOTALIRPF: TFloatField
      FieldName = 'TOTALIRPF'
      Required = True
    end
    object tprenominasDESEMPLEO: TFloatField
      FieldName = 'DESEMPLEO'
      Required = True
    end
    object tprenominasTOTALDESEMPLEO: TFloatField
      FieldName = 'TOTALDESEMPLEO'
      Required = True
    end
    object tprenominasFORMACION: TFloatField
      FieldName = 'FORMACION'
      Required = True
    end
    object tprenominasTOTALFORMACION: TFloatField
      FieldName = 'TOTALFORMACION'
      Required = True
    end
    object tprenominasCONTINGENCIAS: TFloatField
      FieldName = 'CONTINGENCIAS'
      Required = True
    end
    object tprenominasTOTALCONTINGENCIAS: TFloatField
      FieldName = 'TOTALCONTINGENCIAS'
      Required = True
    end
    object tprenominasTOTALNETO: TFloatField
      FieldName = 'TOTALNETO'
      Required = True
    end
    object tprenominasANTICIPOS: TFloatField
      FieldName = 'ANTICIPOS'
      Required = True
    end
    object tprenominasINDEMNIZACION: TFloatField
      FieldName = 'INDEMNIZACION'
      Required = True
    end
    object tprenominasPENALIZACION: TFloatField
      FieldName = 'PENALIZACION'
      Required = True
    end
    object tprenominasTOTALAPAGAR: TFloatField
      FieldName = 'TOTALAPAGAR'
      Required = True
    end
    object tprenominasCUENTAPAGO: TWideStringField
      FieldName = 'CUENTAPAGO'
      Required = True
      Size = 48
    end
    object tprenominasFECHAPAGO: TDateField
      FieldName = 'FECHAPAGO'
      Required = True
    end
    object tprenominasESTADO: TWideStringField
      FieldName = 'ESTADO'
      Required = True
      Size = 2
    end
    object tprenominasSALARIOBASE: TFloatField
      FieldName = 'SALARIOBASE'
      Required = True
    end
    object tprenominasDIASLABORABLES: TIntegerField
      FieldName = 'DIASLABORABLES'
    end
    object tprenominasCORRECTO: TIntegerField
      FieldName = 'CORRECTO'
    end
    object tprenominasFECHAINICIO: TDateField
      FieldName = 'FECHAINICIO'
    end
    object tprenominasFECHAFIN: TDateField
      FieldName = 'FECHAFIN'
    end
    object tprenominasBASEDIA: TFloatField
      FieldKind = fkCalculated
      FieldName = 'BASEDIA'
      Calculated = True
    end
  end
  object dsprenominas: TDataSource
    DataSet = tprenominas
    Left = 560
    Top = 304
  end
  object qaux2: TZReadOnlyQuery
    Connection = DBagrigest
    Params = <>
    Left = 632
    Top = 8
  end
  object qaux3: TZReadOnlyQuery
    Connection = DBagrigest
    Params = <>
    Left = 680
    Top = 8
  end
  object ttrabajadores: TZTable
    Connection = DBagrigest
    TableName = 'trabajadores'
    Left = 504
    Top = 8
    object ttrabajadoresID: TSmallintField
      FieldName = 'ID'
      Required = True
    end
    object ttrabajadoresNIF: TWideStringField
      FieldName = 'NIF'
      Required = True
      Size = 24
    end
    object ttrabajadoresnombre: TWideStringField
      FieldName = 'nombre'
      Required = True
      Size = 80
    end
    object ttrabajadoresactivo: TIntegerField
      FieldName = 'activo'
      Required = True
    end
    object ttrabajadoresNOMBRECORTO: TWideStringField
      FieldName = 'NOMBRECORTO'
      Size = 80
    end
    object ttrabajadoresAPELLIDOS: TWideStringField
      FieldName = 'APELLIDOS'
      Size = 120
    end
    object ttrabajadoresDIRECCION: TWideStringField
      FieldName = 'DIRECCION'
      Size = 80
    end
    object ttrabajadoresCP: TWideStringField
      FieldName = 'CP'
      Required = True
      Size = 10
    end
    object ttrabajadoresPOBLACION: TWideStringField
      FieldName = 'POBLACION'
      Size = 40
    end
    object ttrabajadoresPROVINCIA: TWideStringField
      FieldName = 'PROVINCIA'
      Size = 40
    end
    object ttrabajadoresFECHANACIMIENTO: TDateField
      FieldName = 'FECHANACIMIENTO'
    end
    object ttrabajadoresPAISNAC: TWideStringField
      FieldName = 'PAISNAC'
      Size = 40
    end
    object ttrabajadoresNACIONALIDAD: TWideStringField
      FieldName = 'NACIONALIDAD'
      Size = 40
    end
    object ttrabajadoresSEXO: TWideStringField
      FieldName = 'SEXO'
    end
    object ttrabajadoresCBIBAN: TWideStringField
      FieldName = 'CBIBAN'
      Size = 8
    end
    object ttrabajadoresCBBANCO: TWideStringField
      FieldName = 'CBBANCO'
      Size = 8
    end
    object ttrabajadoresCBOFICINA: TWideStringField
      FieldName = 'CBOFICINA'
      Size = 8
    end
    object ttrabajadoresCBDC: TWideStringField
      FieldName = 'CBDC'
      Size = 4
    end
    object ttrabajadoresCBCC: TWideStringField
      FieldName = 'CBCC'
    end
    object ttrabajadoresPAGARPORBANCO: TIntegerField
      FieldName = 'PAGARPORBANCO'
      Required = True
    end
    object ttrabajadoresTELEFONO1: TWideStringField
      FieldName = 'TELEFONO1'
      Size = 30
    end
    object ttrabajadoresTELEFONO2: TWideStringField
      FieldName = 'TELEFONO2'
      Size = 30
    end
    object ttrabajadoresTELEFONO3: TWideStringField
      FieldName = 'TELEFONO3'
      Size = 30
    end
    object ttrabajadoresTELEFONO4: TWideStringField
      FieldName = 'TELEFONO4'
      Size = 30
    end
    object ttrabajadoresREGIMEN_COT: TWideStringField
      FieldName = 'REGIMEN_COT'
      Size = 40
    end
    object ttrabajadoresNUMSEGSOCIAL: TWideStringField
      FieldName = 'NUMSEGSOCIAL'
      Size = 30
    end
    object ttrabajadoresIRPF: TFloatField
      FieldName = 'IRPF'
    end
    object ttrabajadoresDESEMPLEO: TFloatField
      FieldName = 'DESEMPLEO'
    end
    object ttrabajadoresFORMACION: TFloatField
      FieldName = 'FORMACION'
    end
    object ttrabajadoresOBSERVACIONES: TWideStringField
      FieldName = 'OBSERVACIONES'
      Size = 400
    end
    object ttrabajadoresFECHAALTA: TDateField
      FieldName = 'FECHAALTA'
    end
    object ttrabajadoresFECHABAJA: TDateField
      FieldName = 'FECHABAJA'
    end
    object ttrabajadoresCONTINGENCIAS: TFloatField
      FieldName = 'CONTINGENCIAS'
    end
    object ttrabajadoresempresa: TIntegerField
      FieldName = 'empresa'
      Required = True
    end
    object ttrabajadoreside: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object ttrabajadoresIRPF2: TFloatField
      FieldName = 'IRPF2'
    end
    object ttrabajadoresDESEMPLEO2: TFloatField
      FieldName = 'DESEMPLEO2'
    end
    object ttrabajadoresFORMACION2: TFloatField
      FieldName = 'FORMACION2'
    end
    object ttrabajadoresIMAGEN: TIntegerField
      FieldName = 'IMAGEN'
    end
    object ttrabajadoresseleccionado: TIntegerField
      FieldName = 'seleccionado'
      Required = True
    end
    object ttrabajadorescodart: TWideStringField
      FieldName = 'codart'
      Size = 30
    end
    object ttrabajadoresmostrar: TIntegerField
      FieldName = 'mostrar'
      Required = True
    end
    object ttrabajadoresFIJO: TIntegerField
      FieldName = 'FIJO'
    end
    object ttrabajadoresFIJODISCONTINUO: TIntegerField
      FieldName = 'FIJODISCONTINUO'
    end
    object ttrabajadoresTEMPORAL: TIntegerField
      FieldName = 'TEMPORAL'
    end
  end
  object tproductos: TZTable
    Connection = DBagrigest
    TableName = 'productos'
    Left = 336
    Top = 152
    object tproductoscodigo: TWideStringField
      FieldName = 'codigo'
      Required = True
      Size = 40
    end
    object tproductosdescripcion: TWideStringField
      FieldName = 'descripcion'
      Required = True
      Size = 80
    end
    object tproductosimagen: TBlobField
      FieldName = 'imagen'
    end
    object tproductosalto: TIntegerField
      FieldName = 'alto'
    end
    object tproductosancho: TIntegerField
      FieldName = 'ancho'
    end
    object tproductoslargo: TIntegerField
      FieldName = 'largo'
    end
    object tproductostara: TFloatField
      FieldName = 'tara'
      Required = True
    end
    object tproductospeso: TFloatField
      FieldName = 'peso'
      Required = True
    end
    object tproductoserrorpeso: TFloatField
      FieldName = 'errorpeso'
      Required = True
    end
    object tproductospesadomanual: TIntegerField
      FieldName = 'pesadomanual'
      Required = True
    end
    object tproductoscoste: TFloatField
      FieldName = 'coste'
    end
    object tproductosactivo: TIntegerField
      FieldName = 'activo'
      Required = True
    end
    object tproductosEANUPC: TLargeintField
      FieldName = 'EANUPC'
    end
    object tproductosunidades_caja: TIntegerField
      FieldName = 'unidades_caja'
      Required = True
    end
    object tproductosobservaciones: TWideMemoField
      FieldName = 'observaciones'
      BlobType = ftWideMemo
    end
    object tproductosmostrar_boton: TIntegerField
      FieldName = 'mostrar_boton'
      Required = True
    end
    object tproductosdeshidratacion: TFloatField
      FieldName = 'deshidratacion'
    end
    object tproductostara_envase: TFloatField
      FieldName = 'tara_envase'
      Required = True
    end
    object tproductoside: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object tproductosid: TIntegerField
      FieldName = 'id'
      Required = True
    end
  end
  object qproductos: TZReadOnlyQuery
    Connection = DBagrigest
    SQL.Strings = (
      'select * from productos where activo=1 order by  descripcion')
    Params = <>
    Left = 168
    Top = 152
    object qproductoscodigo: TWideStringField
      FieldName = 'codigo'
      Required = True
      Size = 40
    end
    object qproductosdescripcion: TWideStringField
      FieldName = 'descripcion'
      Required = True
      Size = 80
    end
    object qproductosimagen: TBlobField
      FieldName = 'imagen'
    end
    object qproductosalto: TIntegerField
      FieldName = 'alto'
    end
    object qproductosancho: TIntegerField
      FieldName = 'ancho'
    end
    object qproductoslargo: TIntegerField
      FieldName = 'largo'
    end
    object qproductostara: TFloatField
      FieldName = 'tara'
      Required = True
    end
    object qproductospeso: TFloatField
      FieldName = 'peso'
      Required = True
    end
    object qproductoserrorpeso: TFloatField
      FieldName = 'errorpeso'
      Required = True
    end
    object qproductospesadomanual: TIntegerField
      FieldName = 'pesadomanual'
      Required = True
    end
    object qproductoscoste: TFloatField
      FieldName = 'coste'
    end
    object qproductosactivo: TIntegerField
      FieldName = 'activo'
      Required = True
    end
    object qproductosEANUPC: TLargeintField
      FieldName = 'EANUPC'
    end
    object qproductosunidades_caja: TIntegerField
      FieldName = 'unidades_caja'
      Required = True
    end
    object qproductosobservaciones: TWideMemoField
      FieldName = 'observaciones'
      BlobType = ftWideMemo
    end
  end
  object dsqproductos: TDataSource
    DataSet = qproductos
    OnDataChange = dsqproductosDataChange
    Left = 104
    Top = 152
  end
  object dsproductos: TDataSource
    DataSet = tproductos
    Left = 256
    Top = 152
  end
  object qmateriasprimas: TZReadOnlyQuery
    Connection = DBagrigest
    SQL.Strings = (
      'select * from materias_primas where activo=1 order by id'
      '')
    Params = <>
    Left = 176
    Top = 208
    object qmateriasprimasid: TWideStringField
      FieldName = 'id'
      Required = True
      Size = 40
    end
    object qmateriasprimasdescripcion: TWideStringField
      FieldName = 'descripcion'
      Required = True
      Size = 100
    end
    object qmateriasprimasobservaciones: TWideStringField
      FieldName = 'observaciones'
      Size = 510
    end
    object qmateriasprimasimagen: TBlobField
      FieldName = 'imagen'
    end
    object qmateriasprimasEAN: TWideStringField
      FieldName = 'EAN'
      Required = True
      Size = 26
    end
    object qmateriasprimasactivo: TIntegerField
      FieldName = 'activo'
      Required = True
    end
    object qmateriasprimasidempresa: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object qmateriasprimasvariedad: TWideStringField
      FieldName = 'variedad'
      Required = True
      Size = 100
    end
    object qmateriasprimasbasculas: TIntegerField
      FieldName = 'basculas'
      Required = True
    end
    object qmateriasprimasusar_precio_parcela: TIntegerField
      FieldName = 'usar_precio_parcela'
      Required = True
    end
    object qmateriasprimasdesechos: TIntegerField
      FieldName = 'desechos'
      Required = True
    end
    object qmateriasprimascompuesto: TIntegerField
      FieldName = 'compuesto'
      Required = True
    end
    object qmateriasprimasmesas: TIntegerField
      FieldName = 'mesas'
      Required = True
    end
    object qmateriasprimasidgenerico: TIntegerField
      FieldName = 'idgenerico'
    end
    object qmateriasprimasgenerico: TWideStringField
      FieldName = 'generico'
      Size = 60
    end
    object qmateriasprimasobtentor: TWideStringField
      FieldName = 'obtentor'
      Size = 100
    end
    object qmateriasprimaspesopieza: TFloatField
      FieldName = 'pesopieza'
    end
  end
  object dsqmateriasprimas: TDataSource
    DataSet = qmateriasprimas
    OnDataChange = dsqmateriasprimasDataChange
    Left = 112
    Top = 208
  end
  object dsmateriasprimas: TDataSource
    DataSet = tmateriasprimas
    Left = 256
    Top = 208
  end
  object tmateriasprimas: TZTable
    Connection = DBagrigest
    TableName = 'materias_primas'
    Left = 336
    Top = 208
    object tmateriasprimasidempresa: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object tmateriasprimasid: TWideStringField
      FieldName = 'id'
      Required = True
      Size = 40
    end
    object tmateriasprimasdescripcion: TWideStringField
      FieldName = 'descripcion'
      Required = True
      Size = 100
    end
    object tmateriasprimasobservaciones: TWideStringField
      FieldName = 'observaciones'
      Size = 510
    end
    object tmateriasprimasimagen: TBlobField
      FieldName = 'imagen'
    end
    object tmateriasprimasEAN: TWideStringField
      FieldName = 'EAN'
      Required = True
      Size = 26
    end
    object tmateriasprimasactivo: TIntegerField
      FieldName = 'activo'
      Required = True
    end
    object tmateriasprimasbasculas: TIntegerField
      FieldName = 'basculas'
      Required = True
    end
    object tmateriasprimasvariedad: TWideStringField
      FieldName = 'variedad'
      Required = True
      Size = 100
    end
    object tmateriasprimasusar_precio_parcela: TIntegerField
      FieldName = 'usar_precio_parcela'
      Required = True
    end
    object tmateriasprimasdesechos: TIntegerField
      FieldName = 'desechos'
      Required = True
    end
    object tmateriasprimascompuesto: TIntegerField
      FieldName = 'compuesto'
      Required = True
    end
    object tmateriasprimasmesas: TIntegerField
      FieldName = 'mesas'
      Required = True
    end
    object tmateriasprimasidgenerico: TIntegerField
      FieldName = 'idgenerico'
    end
    object tmateriasprimasgenerico: TWideStringField
      FieldName = 'generico'
      Size = 60
    end
    object tmateriasprimasobtentor: TWideStringField
      FieldName = 'obtentor'
      Size = 100
    end
    object tmateriasprimaspesopieza: TFloatField
      FieldName = 'pesopieza'
    end
  end
  object qtipohoras: TZReadOnlyQuery
    Connection = DBagrigest
    SQL.Strings = (
      'select * from articulos where activo=1 order by codart'
      '')
    Params = <>
    Left = 176
    Top = 264
    object qtipohorascodart: TWideStringField
      FieldName = 'codart'
      Required = True
      Size = 30
    end
    object qtipohorasdescrip: TWideStringField
      FieldName = 'descrip'
      Size = 100
    end
    object qtipohorasprecio: TFloatField
      FieldName = 'precio'
    end
    object qtipohorasequivalenciahoras: TFloatField
      FieldName = 'equivalenciahoras'
      Required = True
    end
    object qtipohorasactivo: TIntegerField
      FieldName = 'activo'
      Required = True
    end
    object qtipohorasempresa: TIntegerField
      FieldName = 'empresa'
      Required = True
    end
    object qtipohorasfacturar: TIntegerField
      FieldName = 'facturar'
      Required = True
    end
  end
  object dsqtipohoras: TDataSource
    DataSet = qtipohoras
    OnDataChange = dsqtipohorasDataChange
    Left = 112
    Top = 264
  end
  object dstipohoras: TDataSource
    DataSet = ttipohoras
    Left = 256
    Top = 264
  end
  object ttipohoras: TZTable
    Connection = DBagrigest
    TableName = 'articulos'
    MasterFields = 'codart'
    MasterSource = dsqtipohoras
    Left = 336
    Top = 264
    object ttipohorascodart: TWideStringField
      FieldName = 'codart'
      Required = True
      Size = 30
    end
    object ttipohorasdescrip: TWideStringField
      FieldName = 'descrip'
      Size = 100
    end
    object ttipohorasprecio: TFloatField
      FieldName = 'precio'
    end
    object ttipohorasequivalenciahoras: TFloatField
      FieldName = 'equivalenciahoras'
      Required = True
    end
    object ttipohorasactivo: TIntegerField
      FieldName = 'activo'
      Required = True
    end
    object ttipohorasempresa: TIntegerField
      FieldName = 'empresa'
      Required = True
    end
    object ttipohorasfacturar: TIntegerField
      FieldName = 'facturar'
      Required = True
    end
  end
  object qinftrabajadores: TZReadOnlyQuery
    Connection = DBagrigest
    SQL.Strings = (
      'select * from trabajadores')
    Params = <>
    Left = 920
    Top = 16
    object qinftrabajadoresID: TSmallintField
      FieldName = 'ID'
      Required = True
    end
    object qinftrabajadoresNIF: TWideStringField
      FieldName = 'NIF'
      Required = True
      Size = 24
    end
    object qinftrabajadoresnombre: TWideStringField
      FieldName = 'nombre'
      Required = True
      Size = 80
    end
    object qinftrabajadoresactivo: TIntegerField
      FieldName = 'activo'
      Required = True
    end
    object qinftrabajadoresNOMBRECORTO: TWideStringField
      FieldName = 'NOMBRECORTO'
      Size = 80
    end
    object qinftrabajadoresAPELLIDOS: TWideStringField
      FieldName = 'APELLIDOS'
      Size = 120
    end
    object qinftrabajadoresDIRECCION: TWideStringField
      FieldName = 'DIRECCION'
      Size = 80
    end
    object qinftrabajadoresCP: TWideStringField
      FieldName = 'CP'
      Required = True
      Size = 10
    end
    object qinftrabajadoresPOBLACION: TWideStringField
      FieldName = 'POBLACION'
      Size = 40
    end
    object qinftrabajadoresPROVINCIA: TWideStringField
      FieldName = 'PROVINCIA'
      Size = 40
    end
    object qinftrabajadoresFECHANACIMIENTO: TDateField
      FieldName = 'FECHANACIMIENTO'
    end
    object qinftrabajadoresPAISNAC: TWideStringField
      FieldName = 'PAISNAC'
      Size = 40
    end
    object qinftrabajadoresNACIONALIDAD: TWideStringField
      FieldName = 'NACIONALIDAD'
      Size = 40
    end
    object qinftrabajadoresSEXO: TWideStringField
      FieldName = 'SEXO'
    end
    object qinftrabajadoresCBIBAN: TWideStringField
      FieldName = 'CBIBAN'
      Size = 8
    end
    object qinftrabajadoresCBBANCO: TWideStringField
      FieldName = 'CBBANCO'
      Size = 8
    end
    object qinftrabajadoresCBOFICINA: TWideStringField
      FieldName = 'CBOFICINA'
      Size = 8
    end
    object qinftrabajadoresCBDC: TWideStringField
      FieldName = 'CBDC'
      Size = 4
    end
    object qinftrabajadoresCBCC: TWideStringField
      FieldName = 'CBCC'
    end
    object qinftrabajadoresPAGARPORBANCO: TIntegerField
      FieldName = 'PAGARPORBANCO'
      Required = True
    end
    object qinftrabajadoresTELEFONO1: TWideStringField
      FieldName = 'TELEFONO1'
      Size = 30
    end
    object qinftrabajadoresTELEFONO2: TWideStringField
      FieldName = 'TELEFONO2'
      Size = 30
    end
    object qinftrabajadoresTELEFONO3: TWideStringField
      FieldName = 'TELEFONO3'
      Size = 30
    end
    object qinftrabajadoresTELEFONO4: TWideStringField
      FieldName = 'TELEFONO4'
      Size = 30
    end
    object qinftrabajadoresREGIMEN_COT: TWideStringField
      FieldName = 'REGIMEN_COT'
      Size = 40
    end
    object qinftrabajadoresNUMSEGSOCIAL: TWideStringField
      FieldName = 'NUMSEGSOCIAL'
      Size = 30
    end
    object qinftrabajadoresIRPF: TFloatField
      FieldName = 'IRPF'
    end
    object qinftrabajadoresDESEMPLEO: TFloatField
      FieldName = 'DESEMPLEO'
    end
    object qinftrabajadoresFORMACION: TFloatField
      FieldName = 'FORMACION'
    end
    object qinftrabajadoresOBSERVACIONES: TWideStringField
      FieldName = 'OBSERVACIONES'
      Size = 400
    end
    object qinftrabajadoresFECHAALTA: TDateField
      FieldName = 'FECHAALTA'
    end
    object qinftrabajadoresFECHABAJA: TDateField
      FieldName = 'FECHABAJA'
    end
    object qinftrabajadoresFIJO: TSmallintField
      FieldName = 'FIJO'
    end
    object qinftrabajadoresFIJODISCONTINUO: TSmallintField
      FieldName = 'FIJODISCONTINUO'
    end
    object qinftrabajadoresTEMPORAL: TSmallintField
      FieldName = 'TEMPORAL'
    end
    object qinftrabajadoresCONTINGENCIAS: TFloatField
      FieldName = 'CONTINGENCIAS'
    end
    object qinftrabajadoresempresa: TIntegerField
      FieldName = 'empresa'
      Required = True
    end
  end
  object dsqinftrabajadores: TDataSource
    DataSet = qinftrabajadores
    OnDataChange = dsqtipohorasDataChange
    Left = 856
    Top = 16
  end
  object qinfjornales: TZReadOnlyQuery
    Connection = DBagrigest
    SQL.Strings = (
      'select * from trabajo_diario order by id desc')
    Params = <>
    Left = 920
    Top = 72
    object qinfjornalesid: TIntegerField
      DisplayWidth = 6
      FieldName = 'id'
      Required = True
    end
    object qinfjornalesfecha: TDateField
      FieldName = 'fecha'
    end
    object qinfjornalesparcela: TWideStringField
      DisplayWidth = 15
      FieldName = 'parcela'
      Size = 30
    end
    object qinfjornalesidt: TIntegerField
      DisplayWidth = 4
      FieldName = 'idt'
    end
    object qinfjornalestrabajador: TWideStringField
      DisplayWidth = 42
      FieldName = 'trabajador'
      Size = 100
    end
    object qinfjornalestypework: TWideStringField
      DisplayWidth = 15
      FieldName = 'typework'
      Size = 40
    end
    object qinfjornalesarticulo: TWideStringField
      DisplayWidth = 15
      FieldName = 'articulo'
      Size = 100
    end
    object qinfjornalesqhoras: TFloatField
      DisplayWidth = 4
      FieldName = 'qhoras'
    end
    object qinfjornalesestado: TWideStringField
      FieldName = 'estado'
      Required = True
      Size = 2
    end
    object qinfjornalesprecio: TFloatField
      FieldName = 'precio'
      Required = True
    end
    object qinfjornalestotal: TFloatField
      FieldName = 'total'
      Required = True
    end
    object qinfjornalesorigen: TWideStringField
      FieldName = 'origen'
      Size = 200
    end
  end
  object dsqinfjornales: TDataSource
    DataSet = qinfjornales
    Left = 856
    Top = 72
  end
  object dsqinfnominasdetalle: TDataSource
    DataSet = qinfnominasdetalle
    Left = 856
    Top = 120
  end
  object qinfnominasdetalle: TZReadOnlyQuery
    Connection = DBagrigest
    SQL.Strings = (
      'select * from trabajo_diario')
    Params = <>
    Left = 920
    Top = 120
    object IntegerField1: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object DateField1: TDateField
      FieldName = 'fecha'
    end
    object WideStringField1: TWideStringField
      FieldName = 'parcela'
      Size = 30
    end
    object IntegerField2: TIntegerField
      FieldName = 'idt'
    end
    object WideStringField2: TWideStringField
      FieldName = 'trabajador'
      Size = 100
    end
    object WideStringField3: TWideStringField
      FieldName = 'typework'
      Size = 40
    end
    object WideStringField4: TWideStringField
      FieldName = 'articulo'
      Size = 100
    end
    object FloatField1: TFloatField
      FieldName = 'qhoras'
    end
    object FloatField2: TFloatField
      FieldName = 'precio'
      Required = True
    end
    object FloatField3: TFloatField
      FieldName = 'total'
      Required = True
    end
    object WideStringField5: TWideStringField
      FieldName = 'estado'
      Required = True
      Size = 2
    end
    object WideStringField6: TWideStringField
      FieldName = 'origen'
      Size = 200
    end
  end
  object dsqtrabajo: TDataSource
    DataSet = qtrabajos
    OnDataChange = nomlhhastaChange
    Left = 104
    Top = 328
  end
  object dsqparcela: TDataSource
    DataSet = qparcelas
    OnStateChange = dsqparcelaStateChange
    OnDataChange = dsqparcelaDataChange
    Left = 424
    Top = 384
  end
  object qtrabajos: TZReadOnlyQuery
    Connection = DBagrigest
    SQL.Strings = (
      'select * from tipo_trabajo where activo=1 order by id')
    Params = <>
    Left = 168
    Top = 328
    object qtrabajosid: TWideStringField
      FieldName = 'id'
      Required = True
      Size = 30
    end
    object qtrabajosnombre: TWideStringField
      FieldName = 'nombre'
      Size = 100
    end
    object qtrabajosactivo: TIntegerField
      FieldName = 'activo'
      Required = True
    end
    object qtrabajosempresa: TIntegerField
      FieldName = 'empresa'
      Required = True
    end
  end
  object dstipotrabajo: TDataSource
    DataSet = ttipotrabajo
    Left = 256
    Top = 328
  end
  object ttipotrabajo: TZTable
    Connection = DBagrigest
    TableName = 'tipo_trabajo'
    Left = 336
    Top = 328
    object ttipotrabajoid: TWideStringField
      FieldName = 'id'
      Required = True
      Size = 30
    end
    object ttipotrabajonombre: TWideStringField
      FieldName = 'nombre'
      Size = 100
    end
    object ttipotrabajoactivo: TIntegerField
      FieldName = 'activo'
      Required = True
    end
    object ttipotrabajoempresa: TIntegerField
      FieldName = 'empresa'
    end
    object ttipotrabajoseleccionado: TIntegerField
      FieldName = 'seleccionado'
      Required = True
    end
    object ttipotrabajocoste_elavoracion_campo: TIntegerField
      FieldName = 'coste_elavoracion_campo'
      Required = True
    end
    object ttipotrabajocoste_elavoracion_almacen: TIntegerField
      FieldName = 'coste_elavoracion_almacen'
      Required = True
    end
    object ttipotrabajoelavoracion_produccion: TIntegerField
      FieldName = 'elavoracion_produccion'
      Required = True
    end
    object ttipotrabajoenvasado_produccion: TIntegerField
      FieldName = 'envasado_produccion'
      Required = True
    end
    object ttipotrabajologistica_produccion: TIntegerField
      FieldName = 'logistica_produccion'
      Required = True
    end
    object ttipotrabajoalmacen_trabajo: TIntegerField
      FieldName = 'almacen_trabajo'
    end
  end
  object dsqtrabajosalmacen: TDataSource
    DataSet = qtrabajosalmacen
    OnDataChange = dsqtrabajosalmacenDataChange
    Left = 104
    Top = 392
  end
  object qtrabajosalmacen: TZReadOnlyQuery
    Connection = DBagrigest
    SQL.Strings = (
      'select * from trabajos_almacen where activo=1 order by id')
    Params = <>
    Left = 168
    Top = 392
    object qtrabajosalmacenid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qtrabajosalmacenpuesto: TWideStringField
      FieldName = 'puesto'
      Required = True
      Size = 40
    end
    object qtrabajosalmacentipo_trabajo: TWideStringField
      FieldName = 'tipo_trabajo'
      Required = True
      Size = 30
    end
    object qtrabajosalmacenarticulo: TWideStringField
      FieldName = 'articulo'
      Required = True
      Size = 30
    end
    object qtrabajosalmacenparcela: TWideStringField
      FieldName = 'parcela'
      Required = True
      Size = 40
    end
    object qtrabajosalmacenactivo: TIntegerField
      FieldName = 'activo'
      Required = True
    end
  end
  object dstrabajosalmacen: TDataSource
    DataSet = ttrabajosalmacen
    Left = 256
    Top = 392
  end
  object ttrabajosalmacen: TZTable
    Connection = DBagrigest
    TableName = 'trabajos_almacen'
    Left = 336
    Top = 392
    object ttrabajosalmacenid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object ttrabajosalmacenpuesto: TWideStringField
      FieldName = 'puesto'
      Required = True
      Size = 40
    end
    object ttrabajosalmacentipo_trabajo: TWideStringField
      FieldName = 'tipo_trabajo'
      Required = True
      Size = 30
    end
    object ttrabajosalmacenarticulo: TWideStringField
      FieldName = 'articulo'
      Required = True
      Size = 30
    end
    object ttrabajosalmacenparcela: TWideStringField
      FieldName = 'parcela'
      Required = True
      Size = 40
    end
    object ttrabajosalmacenmesas: TWideStringField
      FieldName = 'mesas'
      Required = True
      Size = 510
    end
    object ttrabajosalmacenactivo: TIntegerField
      FieldName = 'activo'
      Required = True
    end
  end
  object dsqmovimientomesas: TDataSource
    DataSet = qmovimientomesas
    Left = 856
    Top = 168
  end
  object qmesas: TZReadOnlyQuery
    Connection = DBagrigest
    SQL.Strings = (
      'select distinct(mesa) from movimiento_mesas')
    Params = <>
    Left = 920
    Top = 216
    object qmesasmesa: TWideStringField
      FieldName = 'mesa'
      Required = True
      Size = 30
    end
  end
  object qproduccion: TZReadOnlyQuery
    Connection = DBagrigest
    SQL.Strings = (
      'select * from v_produccion where fecha=:fecha order by producto')
    Params = <
      item
        DataType = ftUnknown
        Name = 'fecha'
        ParamType = ptUnknown
      end>
    Left = 920
    Top = 272
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'fecha'
        ParamType = ptUnknown
      end>
    object qproduccionid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qproduccionidempresa: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object qproduccionfecha: TDateField
      FieldName = 'fecha'
      Required = True
    end
    object qproduccionmateria_prima: TWideStringField
      FieldName = 'materia_prima'
      Required = True
      Size = 40
    end
    object qproduccionproducto: TWideStringField
      FieldName = 'producto'
      Required = True
      Size = 40
    end
    object qproduccionpesadas: TIntegerField
      FieldName = 'pesadas'
    end
    object qproduccionneto: TFloatField
      FieldName = 'neto'
    end
    object qproduccionpeso_teorico: TFloatField
      FieldName = 'peso_teorico'
    end
    object qproduccionpeso_real: TFloatField
      FieldName = 'peso_real'
    end
    object qproducciondiferencia: TFloatField
      FieldName = 'diferencia'
    end
    object qproduccionerror: TFloatField
      FieldName = 'error'
    end
  end
  object dsqproduccion: TDataSource
    DataSet = qproduccion
    Left = 824
    Top = 272
  end
  object qproduccionmesa: TZReadOnlyQuery
    Connection = DBagrigest
    SQL.Strings = (
      '(SELECT '
      '        `produccion`.`fecha` AS `fecha`,'
      '        `produccion`.`mesa` AS `mesa`,'
      '        `produccion`.`bascula` AS `bascula`,'
      '        `produccion`.`materia_prima` AS `materia_prima`,'
      '        `produccion`.`producto` AS `producto`,'
      '        COUNT(0) AS `pesadas`,'
      
        '        SUM((`produccion`.`peso_real` - `produccion`.`tara`)) AS' +
        ' `cantidad`,'
      '        `produccion`.`idt` AS `idt`,'
      '        `produccion`.`embasadora` AS `embasadora`'
      '    FROM'
      
        '        `produccion` where fecha=:FECHA and hour(hora)>=:HDESDE ' +
        'and hour(hora)<:HHASTA and mesa like(:MESA) and materia_prima li' +
        'ke(:MPRIMA) and producto like(:PRODUCTO)'
      
        '    GROUP BY `produccion`.`fecha` , `produccion`.`mesa` , `produ' +
        'ccion`.`bascula` , `produccion`.`producto` , `produccion`.`mater' +
        'ia_prima`'
      
        '    ORDER BY `produccion`.`fecha` DESC , `produccion`.`mesa` , `' +
        'produccion`.`bascula` , `produccion`.`producto` , `produccion`.`' +
        'materia_prima` , SUM((`produccion`.`peso_real` - `produccion`.`t' +
        'ara`)))')
    Params = <
      item
        DataType = ftUnknown
        Name = 'FECHA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'HDESDE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'HHASTA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'MESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'MPRIMA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PRODUCTO'
        ParamType = ptUnknown
      end>
    Left = 920
    Top = 320
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'FECHA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'HDESDE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'HHASTA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'MESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'MPRIMA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PRODUCTO'
        ParamType = ptUnknown
      end>
    object qproduccionmesafecha: TDateField
      FieldName = 'fecha'
      Required = True
    end
    object qproduccionmesamesa: TWideStringField
      FieldName = 'mesa'
      Required = True
      Size = 40
    end
    object qproduccionmesabascula: TWideStringField
      FieldName = 'bascula'
      Required = True
      Size = 40
    end
    object qproduccionmesamateria_prima: TWideStringField
      FieldName = 'materia_prima'
      Required = True
      Size = 40
    end
    object qproduccionmesaproducto: TWideStringField
      FieldName = 'producto'
      Required = True
      Size = 40
    end
    object qproduccionmesapesadas: TLargeintField
      FieldName = 'pesadas'
      Required = True
    end
    object qproduccionmesacantidad: TFloatField
      FieldName = 'cantidad'
      DisplayFormat = '#0.000'
    end
  end
  object dsqproduccionmesa: TDataSource
    DataSet = qproduccionmesa
    Left = 824
    Top = 320
  end
  object dsqproduccionembasadora: TDataSource
    DataSet = qproduccionembasadora
    Left = 824
    Top = 376
  end
  object qproduccionembasadora: TZReadOnlyQuery
    Connection = DBagrigest
    SQL.Strings = (
      
        'SELECT fecha,mesa,bascula,producto,count(*) as pesadas,sum(peso_' +
        'real-tara) as cantidad,idt,embasadora FROM produccion fecha>=cur' +
        'date() and fecha<=curdate() group by fecha,mesa,bascula,producto' +
        ',idt order by fecha DESC')
    Params = <>
    Left = 920
    Top = 376
    object WideStringField7: TWideStringField
      FieldName = 'mesa'
      Required = True
      Size = 40
    end
    object WideStringField8: TWideStringField
      FieldName = 'bascula'
      Required = True
      Size = 40
    end
    object LargeintField1: TLargeintField
      FieldName = 'pesadas'
      ReadOnly = True
    end
    object WideStringField9: TWideStringField
      FieldName = 'producto'
      Required = True
      Size = 40
    end
    object FloatField4: TFloatField
      FieldName = 'cantidad'
      ReadOnly = True
      DisplayFormat = '#0.000'
    end
    object IntegerField3: TIntegerField
      FieldName = 'idt'
      Required = True
    end
    object WideStringField10: TWideStringField
      FieldName = 'embasadora'
      Required = True
      Size = 70
    end
  end
  object dsqproduccionmesa2: TDataSource
    DataSet = qproduccionmesa2
    Left = 824
    Top = 424
  end
  object qproduccionmesa2: TZReadOnlyQuery
    Connection = DBagrigest
    SQL.Strings = (
      
        'SELECT * FROM agrigest.vista_produccionmesahora where fecha=:FEC' +
        'HA')
    Params = <
      item
        DataType = ftUnknown
        Name = 'FECHA'
        ParamType = ptUnknown
      end>
    Left = 920
    Top = 424
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'FECHA'
        ParamType = ptUnknown
      end>
    object qproduccionmesa2mesa: TWideStringField
      FieldName = 'mesa'
      ReadOnly = True
      Size = 40
    end
    object qproduccionmesa2cantidad: TFloatField
      FieldName = 'cantidad'
      ReadOnly = True
      DisplayFormat = '0#.000'
    end
    object qproduccionmesa2horasmesa: TFloatField
      FieldName = 'horasmesa'
      ReadOnly = True
      DisplayFormat = '0#.000'
    end
    object qproduccionmesa2cantidadhora: TFloatField
      FieldName = 'cantidadhora'
      ReadOnly = True
      DisplayFormat = '0#.000'
    end
  end
  object dsqproduccionhora: TDataSource
    DataSet = qproduccionhora
    Left = 824
    Top = 472
  end
  object qproduccionhora: TZReadOnlyQuery
    Connection = DBagrigest
    SQL.Strings = (
      
        'select hour(hora) as desde,hour(hora)+1 as hasta,sum(peso_real-t' +
        'ara) as cantidad from produccion where fecha>=:DESDE and fecha<=' +
        ':HASTA group by hour(hora)')
    Params = <
      item
        DataType = ftUnknown
        Name = 'DESDE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'HASTA'
        ParamType = ptUnknown
      end>
    Left = 920
    Top = 472
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'DESDE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'HASTA'
        ParamType = ptUnknown
      end>
    object qproduccionhoradesde: TIntegerField
      FieldName = 'desde'
      ReadOnly = True
    end
    object qproduccionhorahasta: TIntegerField
      FieldName = 'hasta'
      ReadOnly = True
    end
    object qproduccionhoracantidad: TFloatField
      FieldName = 'cantidad'
      ReadOnly = True
      DisplayFormat = '0#.000'
    end
  end
  object dsqnominasproduccion: TDataSource
    DataSet = qnominasproduccion
    Left = 832
    Top = 528
  end
  object qnominasproduccion: TZQuery
    Connection = DBagrigest
    SQL.Strings = (
      
        'select td.idt,td.fecha,td.id,td.trabajador,td.typework,td.articu' +
        'lo,qhoras,estado,origen from trabajo_diario td where td.fecha>='#39 +
        '2019-8-20'#39' and td.empresa=1   order by td.trabajador')
    Params = <>
    UpdateMode = umUpdateAll
    Left = 920
    Top = 528
    object qnominasproduccionidt: TIntegerField
      FieldName = 'idt'
    end
    object qnominasproduccionfecha: TDateField
      FieldName = 'fecha'
    end
    object qnominasproduccionid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qnominasproducciontrabajador: TWideStringField
      FieldName = 'trabajador'
      Size = 100
    end
    object qnominasproducciontypework: TWideStringField
      FieldName = 'typework'
      Size = 40
    end
    object qnominasproduccionarticulo: TWideStringField
      FieldName = 'articulo'
      Size = 100
    end
    object qnominasproduccionqhoras: TFloatField
      FieldName = 'qhoras'
    end
    object qnominasproduccionestado: TWideStringField
      FieldName = 'estado'
      Required = True
      Size = 2
    end
    object qnominasproduccionorigen: TWideStringField
      FieldName = 'origen'
      Size = 200
    end
  end
  object qmovimientomesas: TZQuery
    Connection = DBagrigest
    SortedFields = 'trabajador'
    SQL.Strings = (
      
        'select * from movimiento_mesas where fecha in (select fecha from' +
        ' calendario_laboral where festivo=0) and fecha=:FECHA order by t' +
        'rabajador,fecha,entrada_real')
    Params = <
      item
        DataType = ftUnknown
        Name = 'FECHA'
        ParamType = ptUnknown
      end>
    MasterFields = 'mesa'
    MasterSource = BASE.dsqmesas
    LinkedFields = 'mesa'
    IndexFieldNames = 'trabajador Asc'
    UpdateMode = umUpdateAll
    Left = 920
    Top = 168
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'FECHA'
        ParamType = ptUnknown
      end>
    object qmovimientomesasid: TLargeintField
      FieldName = 'id'
      ReadOnly = True
      Required = True
    end
    object qmovimientomesasfecha: TDateField
      FieldName = 'fecha'
      ReadOnly = True
      Required = True
    end
    object qmovimientomesasmesa: TWideStringField
      FieldName = 'mesa'
      ReadOnly = True
      Required = True
      Size = 30
    end
    object qmovimientomesasidt: TIntegerField
      FieldName = 'idt'
      ReadOnly = True
      Required = True
    end
    object qmovimientomesasTRABAJADOR: TWideStringField
      FieldName = 'TRABAJADOR'
      ReadOnly = True
      Required = True
      Size = 100
    end
    object qmovimientomesasENTRADA_REAL: TTimeField
      FieldName = 'ENTRADA_REAL'
      DisplayFormat = 'hh:mm'
      EditMask = '!90:00;1;_'
    end
    object qmovimientomesasSALIDA_REAL: TTimeField
      FieldName = 'SALIDA_REAL'
      ReadOnly = True
      DisplayFormat = 'hh:mm'
    end
    object qmovimientomesasENTRADA_AJUSTADA: TTimeField
      FieldName = 'ENTRADA_AJUSTADA'
      DisplayFormat = 'hh:mm'
      EditMask = '!90:00;1;_'
    end
    object qmovimientomesasSALIDA_AJUSTADA: TTimeField
      FieldName = 'SALIDA_AJUSTADA'
      ReadOnly = True
      DisplayFormat = 'hh:mm'
    end
    object qmovimientomesasHORASREALES: TTimeField
      FieldName = 'HORASREALES'
      ReadOnly = True
      DisplayFormat = 'hh:mm'
    end
    object qmovimientomesasHORASAJUSTADAS: TTimeField
      FieldName = 'HORASAJUSTADAS'
      ReadOnly = True
      DisplayFormat = 'hh:mm'
    end
    object qmovimientomesasPUESTO: TWideStringField
      FieldName = 'PUESTO'
      ReadOnly = True
      Required = True
      Size = 40
    end
    object qmovimientomesasTIPOTRABAJO: TWideStringField
      FieldName = 'TIPOTRABAJO'
      ReadOnly = True
      Required = True
      Size = 30
    end
    object qmovimientomesasARTICULO: TWideStringField
      FieldName = 'ARTICULO'
      ReadOnly = True
      Required = True
      Size = 30
    end
    object qmovimientomesasPARCELA: TWideStringField
      FieldName = 'PARCELA'
      ReadOnly = True
      Required = True
      Size = 40
    end
  end
  object tnominasdetalle: TZTable
    Connection = DBagrigest
    TableName = 'nominasdetalle'
    MasterFields = 'ID'
    MasterSource = dstnominas
    LinkedFields = 'IDNOMINA'
    Left = 680
    Top = 496
    object tnominasdetalleId: TIntegerField
      FieldName = 'Id'
      Required = True
    end
    object tnominasdetalleIDNOMINA: TIntegerField
      FieldName = 'IDNOMINA'
      Required = True
    end
    object tnominasdetalleIDEMPRESA: TIntegerField
      FieldName = 'IDEMPRESA'
      Required = True
    end
    object tnominasdetalleIDT: TIntegerField
      FieldName = 'IDT'
      Required = True
    end
    object tnominasdetalleANYO: TIntegerField
      FieldName = 'ANYO'
      Required = True
    end
    object tnominasdetalleMES: TWideStringField
      FieldName = 'MES'
      Required = True
      Size = 30
    end
    object tnominasdetalleNIF: TWideStringField
      FieldName = 'NIF'
      Required = True
      Size = 18
    end
    object tnominasdetalleNOMBRE: TWideStringField
      FieldName = 'NOMBRE'
      Required = True
      Size = 80
    end
    object tnominasdetalleDIRECCION: TWideStringField
      FieldName = 'DIRECCION'
      Required = True
      Size = 80
    end
    object tnominasdetalleCP: TWideStringField
      FieldName = 'CP'
      Required = True
      Size = 10
    end
    object tnominasdetallePOBLACION: TWideStringField
      FieldName = 'POBLACION'
      Required = True
      Size = 40
    end
    object tnominasdetalleHORAS: TFloatField
      FieldName = 'HORAS'
      Required = True
    end
    object tnominasdetalleFECHAALTA: TDateField
      FieldName = 'FECHAALTA'
      Required = True
    end
    object tnominasdetalleFECHABAJA: TDateField
      FieldName = 'FECHABAJA'
    end
    object tnominasdetalleDIASTRABAJADOS: TIntegerField
      FieldName = 'DIASTRABAJADOS'
      Required = True
    end
    object tnominasdetalleDIASMAXIMO: TIntegerField
      FieldName = 'DIASMAXIMO'
      Required = True
    end
    object tnominasdetalleDIASCALCULO: TIntegerField
      FieldName = 'DIASCALCULO'
      Required = True
    end
    object tnominasdetalleTOTALBRUTO: TFloatField
      FieldName = 'TOTALBRUTO'
      Required = True
    end
    object tnominasdetalleIRPF: TFloatField
      FieldName = 'IRPF'
      Required = True
    end
    object tnominasdetalleTOTALIRPF: TFloatField
      FieldName = 'TOTALIRPF'
      Required = True
    end
    object tnominasdetalleDESEMPLEO: TFloatField
      FieldName = 'DESEMPLEO'
      Required = True
    end
    object tnominasdetalleTOTALDESEMPLEO: TFloatField
      FieldName = 'TOTALDESEMPLEO'
      Required = True
    end
    object tnominasdetalleFORMACION: TFloatField
      FieldName = 'FORMACION'
      Required = True
    end
    object tnominasdetalleTOTALFORMACION: TFloatField
      FieldName = 'TOTALFORMACION'
      Required = True
    end
    object tnominasdetalleCONTINGENCIAS: TFloatField
      FieldName = 'CONTINGENCIAS'
      Required = True
    end
    object tnominasdetalleTOTALCONTINGENCIAS: TFloatField
      FieldName = 'TOTALCONTINGENCIAS'
      Required = True
    end
    object tnominasdetalleTOTALNETO: TFloatField
      FieldName = 'TOTALNETO'
      Required = True
    end
    object tnominasdetalleANTICIPOS: TFloatField
      FieldName = 'ANTICIPOS'
      Required = True
    end
    object tnominasdetalleINDEMNIZACION: TFloatField
      FieldName = 'INDEMNIZACION'
      Required = True
    end
    object tnominasdetallePENALIZACION: TFloatField
      FieldName = 'PENALIZACION'
      Required = True
    end
    object tnominasdetalleTOTALAPAGAR: TFloatField
      FieldName = 'TOTALAPAGAR'
      Required = True
    end
    object tnominasdetalleCUENTAPAGO: TWideStringField
      FieldName = 'CUENTAPAGO'
      Required = True
      Size = 48
    end
    object tnominasdetalleFECHAPAGO: TDateField
      FieldName = 'FECHAPAGO'
      Required = True
    end
    object tnominasdetalleESTADO: TWideStringField
      FieldName = 'ESTADO'
      Required = True
      Size = 2
    end
    object tnominasdetalleSALARIOBASE: TFloatField
      FieldName = 'SALARIOBASE'
      Required = True
    end
    object tnominasdetalleDIASLABORABLES: TIntegerField
      FieldName = 'DIASLABORABLES'
    end
    object tnominasdetalleFECHAINICIO: TDateField
      FieldName = 'FECHAINICIO'
    end
    object tnominasdetalleFECHAFIN: TDateField
      FieldName = 'FECHAFIN'
    end
    object tnominasdetalleCORRECTO: TIntegerField
      FieldName = 'CORRECTO'
    end
  end
  object qanticipos: TZReadOnlyQuery
    Connection = DBagrigest
    SQL.Strings = (
      'select * from anticipos order by fecha desc'
      '')
    Params = <>
    Left = 168
    Top = 456
    object qanticiposid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qanticiposidt: TIntegerField
      FieldName = 'idt'
      Required = True
    end
    object qanticiposfecha: TDateField
      FieldName = 'fecha'
      Required = True
    end
    object qanticiposimporte: TFloatField
      FieldName = 'importe'
      Required = True
    end
    object qanticiposestado: TWideStringField
      FieldName = 'estado'
      Required = True
      Size = 2
    end
    object qanticiposobservaciones: TWideStringField
      FieldName = 'observaciones'
      Required = True
      Size = 160
    end
    object qanticipospenalizacion: TFloatField
      FieldName = 'penalizacion'
    end
    object qanticiposindemnizacion: TFloatField
      FieldName = 'indemnizacion'
    end
  end
  object dsqanticipos: TDataSource
    DataSet = qanticipos
    Left = 88
    Top = 456
  end
  object tanticipos: TZTable
    Connection = DBagrigest
    TableName = 'anticipos'
    Left = 336
    Top = 448
    object tanticiposid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object tanticiposidt: TIntegerField
      FieldName = 'idt'
      Required = True
    end
    object tanticipostrabajador: TWideStringField
      FieldName = 'trabajador'
      Size = 240
    end
    object tanticiposfecha: TDateField
      FieldName = 'fecha'
      Required = True
    end
    object tanticiposimporte: TFloatField
      FieldName = 'importe'
      Required = True
    end
    object tanticiposestado: TWideStringField
      FieldName = 'estado'
      Required = True
      Size = 2
    end
    object tanticiposobservaciones: TWideStringField
      FieldName = 'observaciones'
      Required = True
      Size = 160
    end
    object tanticipospenalizacion: TFloatField
      FieldName = 'penalizacion'
    end
    object tanticiposindemnizacion: TFloatField
      FieldName = 'indemnizacion'
    end
    object tanticiposformapago: TWideStringField
      FieldName = 'formapago'
      Size = 56
    end
    object tanticiposimporteletras: TWideStringField
      FieldName = 'importeletras'
      Size = 500
    end
  end
  object dsanticipos: TDataSource
    DataSet = tanticipos
    Left = 256
    Top = 448
  end
  object qparcelas: TZQuery
    Connection = DBagrigest
    BeforeOpen = qparcelasBeforeOpen
    SQL.Strings = (
      'select * from parcelas where activo=1 order by nombre'
      '')
    Params = <>
    UpdateMode = umUpdateAll
    Left = 504
    Top = 384
    object qparcelascodpar: TWideStringField
      FieldName = 'codpar'
      Required = True
      Size = 30
    end
    object qparcelasempresa: TIntegerField
      FieldName = 'empresa'
      Required = True
    end
    object qparcelasnombre: TWideStringField
      FieldName = 'nombre'
      Size = 100
    end
    object qparcelasvariedad: TWideStringField
      FieldName = 'variedad'
      Size = 100
    end
    object qparcelasnum_plantas: TIntegerField
      FieldName = 'num_plantas'
    end
    object qparcelasfecha_plantacion: TDateField
      FieldName = 'fecha_plantacion'
    end
    object qparcelasmarco_plantacion: TWideStringField
      FieldName = 'marco_plantacion'
      Size = 40
    end
    object qparcelasnum_goteros: TFloatField
      FieldName = 'num_goteros'
    end
    object qparcelasgastosgenerales: TIntegerField
      FieldName = 'gastosgenerales'
    end
    object qparcelasref_catastro: TWideStringField
      FieldName = 'ref_catastro'
      Size = 40
    end
    object qparcelassigpac_prov: TIntegerField
      FieldName = 'sigpac_prov'
    end
    object qparcelassigpac_muni: TIntegerField
      FieldName = 'sigpac_muni'
    end
    object qparcelassigpac_agre: TIntegerField
      FieldName = 'sigpac_agre'
    end
    object qparcelassigpac_zona: TIntegerField
      FieldName = 'sigpac_zona'
    end
    object qparcelassigpac_poli: TIntegerField
      FieldName = 'sigpac_poli'
    end
    object qparcelassigpac_pacr: TIntegerField
      FieldName = 'sigpac_pacr'
    end
    object qparcelasx: TWideStringField
      FieldName = 'x'
      Size = 40
    end
    object qparcelasy: TWideStringField
      FieldName = 'y'
      Size = 40
    end
    object qparcelasdatum: TWideStringField
      FieldName = 'datum'
    end
    object qparcelashuso: TIntegerField
      FieldName = 'huso'
    end
    object qparcelaspropiedad: TWideStringField
      FieldName = 'propiedad'
      Size = 40
    end
    object qparcelasactivo: TIntegerField
      FieldName = 'activo'
    end
    object qparcelasseleccionado: TIntegerField
      FieldName = 'seleccionado'
    end
    object qparcelassuperficie: TFloatField
      FieldName = 'superficie'
    end
    object qparcelasest_meteo: TWideStringField
      FieldName = 'est_meteo'
      Size = 40
    end
    object qparcelascoste_kg_ref: TFloatField
      FieldName = 'coste_kg_ref'
    end
    object qparcelasactivo_almacen: TIntegerField
      FieldName = 'activo_almacen'
    end
    object qparcelasporc_desperdicio: TFloatField
      FieldName = 'porc_desperdicio'
    end
    object qparcelasporc_merma: TFloatField
      FieldName = 'porc_merma'
    end
    object qparcelases_centrotrabajo: TIntegerField
      FieldName = 'es_centrotrabajo'
    end
    object qparcelassigpac_recinto: TIntegerField
      FieldName = 'sigpac_recinto'
    end
    object qparcelaspie_planta: TWideStringField
      FieldName = 'pie_planta'
      Size = 80
    end
    object qparcelasnumero: TWideStringField
      FieldName = 'numero'
      Size = 8
    end
    object qparcelastiene_gg: TIntegerField
      FieldName = 'tiene_gg'
    end
    object qparcelastiene_dop: TIntegerField
      FieldName = 'tiene_dop'
    end
    object qparcelasc_calidad: TIntegerField
      FieldName = 'c_calidad'
    end
    object qparcelasc_espcliente: TIntegerField
      FieldName = 'c_espcliente'
    end
    object qparcelasc_etiquetado: TIntegerField
      FieldName = 'c_etiquetado'
    end
    object qparcelassello_gg: TWideStringField
      FieldName = 'sello_gg'
      Size = 40
    end
    object qparcelassello_dop: TWideStringField
      FieldName = 'sello_dop'
      Size = 40
    end
    object qparcelassello_igp: TWideStringField
      FieldName = 'sello_igp'
      Size = 40
    end
    object qparcelastiene_igp: TIntegerField
      FieldName = 'tiene_igp'
    end
    object qparcelastiene_ifs: TIntegerField
      FieldName = 'tiene_ifs'
    end
    object qparcelassello_ifs: TWideStringField
      FieldName = 'sello_ifs'
      Size = 100
    end
    object qparcelaspropietario: TIntegerField
      FieldName = 'propietario'
      Required = True
    end
    object qparcelastiene_brc: TIntegerField
      FieldName = 'tiene_brc'
    end
    object qparcelassello_brc: TWideStringField
      FieldName = 'sello_brc'
      Size = 100
    end
    object qparcelasancho_calle: TFloatField
      FieldName = 'ancho_calle'
    end
  end
  object dscontrolproduccion: TDataSource
    DataSet = qcontrolproduccion
    OnStateChange = dscontrolproduccionStateChange
    Left = 832
    Top = 576
  end
  object qcontrolproduccion: TZQuery
    Connection = DBagrigest
    SortedFields = 'fecha'
    SortType = stDescending
    SQL.Strings = (
      'select * from control_produccion where fecha=:fecha')
    Params = <
      item
        DataType = ftUnknown
        Name = 'fecha'
        ParamType = ptUnknown
      end>
    IndexFieldNames = 'fecha Desc'
    UpdateMode = umUpdateAll
    Left = 920
    Top = 576
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'fecha'
        ParamType = ptUnknown
      end>
    object qcontrolproduccionid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qcontrolproduccionfecha: TDateField
      FieldName = 'fecha'
      Required = True
    end
    object qcontrolproduccionmateria_prima: TWideStringField
      FieldName = 'materia_prima'
      Required = True
      Size = 40
    end
    object qcontrolproduccionproducto: TWideStringField
      FieldName = 'producto'
      Required = True
      Size = 40
    end
    object qcontrolproduccioncantidad_teorica: TIntegerField
      FieldName = 'cantidad_teorica'
      Required = True
    end
    object qcontrolproduccioncantidad_real: TIntegerField
      FieldName = 'cantidad_real'
    end
    object qcontrolproduccionobservaciones: TWideStringField
      FieldName = 'observaciones'
      Size = 510
    end
  end
  object qcampanyas: TZQuery
    Connection = DBagrigest
    SortedFields = 'fechafin'
    SortType = stDescending
    SQL.Strings = (
      'select * from campanyas order by fechafin desc')
    Params = <>
    IndexFieldNames = 'fechafin Desc'
    UpdateMode = umUpdateAll
    Left = 504
    Top = 432
    object qcampanyasidempresa: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object qcampanyasid: TIntegerField
      FieldName = 'id'
      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
      DisplayFormat = 'dd/mm/yy'
      EditMask = '!99/99/00;1;_'
    end
    object qcampanyasfechafin: TDateField
      FieldName = 'fechafin'
      Required = True
      DisplayFormat = 'dd/mm/yy'
      EditMask = '!99/99/00;1;_'
    end
    object qcampanyasult_pesada: TIntegerField
      FieldName = 'ult_pesada'
    end
  end
  object dsqcampanyas: TDataSource
    DataSet = qcampanyas
    OnStateChange = dsqcampanyasStateChange
    Left = 424
    Top = 432
  end
  object qlincampanyas: TZQuery
    Connection = DBagrigest
    SortedFields = 'idp'
    SQL.Strings = (
      'select * from lineacampanya'
      '')
    Params = <>
    MasterFields = 'idc;ide;idp'
    MasterSource = dsqcampanyasparcela
    LinkedFields = 'idc;ide;idp'
    IndexFieldNames = 'idp Asc'
    UpdateMode = umUpdateAll
    Left = 512
    Top = 528
    object qlincampanyaside: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object qlincampanyasidc: TIntegerField
      FieldName = 'idc'
      Required = True
    end
    object qlincampanyasidp: TWideStringField
      FieldName = 'idp'
      Required = True
      Size = 30
    end
    object qlincampanyasmateria_prima: TWideStringField
      FieldName = 'materia_prima'
      Required = True
      Size = 40
    end
    object qlincampanyaskgestimados: TFloatField
      FieldName = 'kgestimados'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qlincampanyaskgproducidos: TFloatField
      FieldName = 'kgproducidos'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qlincampanyaskgenvasados: TFloatField
      FieldName = 'kgenvasados'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qlincampanyaskgfacturados: TFloatField
      FieldName = 'kgfacturados'
      Required = True
      DisplayFormat = '#0.00'
    end
  end
  object dsqlincampanyas: TDataSource
    DataSet = qlincampanyas
    OnStateChange = dsqparcelaStateChange
    Left = 440
    Top = 528
  end
  object dsqtipohoras2: TDataSource
    DataSet = qtipohoras2
    OnDataChange = dsqtipohoras2DataChange
    Left = 424
    Top = 112
  end
  object qtipohoras2: TZQuery
    Connection = DBagrigest
    SQL.Strings = (
      
        'select codart,seleccionado from articulos where codart in (selec' +
        't distinct(articulo) from trabajo_diario) order by codart')
    Params = <>
    Left = 496
    Top = 112
    object qtipohoras2codart: TWideStringField
      FieldName = 'codart'
      Required = True
      Size = 30
    end
    object qtipohoras2seleccionado: TIntegerField
      FieldName = 'seleccionado'
    end
  end
  object dsqtrabajadores2: TDataSource
    DataSet = qtrabajadores2
    OnDataChange = dsqtrabajadores2DataChange
    Left = 424
    Top = 160
  end
  object qtrabajadores2: TZQuery
    Connection = DBagrigest
    SQL.Strings = (
      
        'select id,nombre,seleccionado from trabajadores where id in (sel' +
        'ect distinct(idt) from trabajo_diario) order by nombre')
    Params = <>
    Left = 512
    Top = 160
    object qtrabajadores2id: TSmallintField
      FieldName = 'id'
      Required = True
    end
    object qtrabajadores2nombre: TWideStringField
      FieldName = 'nombre'
      Required = True
      Size = 80
    end
    object qtrabajadores2seleccionado: TIntegerField
      FieldName = 'seleccionado'
      Required = True
    end
  end
  object dsqlistadohoras: TDataSource
    DataSet = qlistadohoras
    Left = 424
    Top = 216
  end
  object qlistadohoras: TZReadOnlyQuery
    Connection = DBagrigest
    SQL.Strings = (
      
        'select idt,trabajador,articulo,sum(qhoras) as horas,sum(qhoras*a' +
        '.equivalenciahoras) as horas2,sum(qhoras*td.precio) as total,sum' +
        '(qhoras*a.equivalenciahoras*td.precio) as total2 from trabajo_di' +
        'ario td,articulos a,trabajadores t '
      
        'where td.idt=t.id and td.articulo=a.codart and a.seleccionado=1 ' +
        'and t.seleccionado=1 and fecha>='#39'2016-01-01'#39' and fecha<='#39'2016-12' +
        '-31'#39
      ''
      'group by idt,trabajador,articulo order by articulo,trabajador')
    Params = <>
    Left = 504
    Top = 216
    object qlistadohorasidt: TIntegerField
      FieldName = 'idt'
    end
    object qlistadohorastrabajador: TWideStringField
      FieldName = 'trabajador'
      Size = 100
    end
    object qlistadohorasarticulo: TWideStringField
      FieldName = 'articulo'
      Size = 100
    end
    object qlistadohorashoras: TFloatField
      FieldName = 'horas'
      ReadOnly = True
      DisplayFormat = '#0.00'
    end
    object qlistadohorashoras2: TFloatField
      FieldName = 'horas2'
      ReadOnly = True
      DisplayFormat = '#0.00'
    end
    object qlistadohorastotal: TFloatField
      FieldName = 'total'
      ReadOnly = True
      DisplayFormat = '#0.00'
    end
    object qlistadohorastotal2: TFloatField
      FieldName = 'total2'
      ReadOnly = True
      DisplayFormat = '#0.00'
    end
  end
  object qtipotrabajo2: TZQuery
    Connection = DBagrigest
    SQL.Strings = (
      
        'select id,seleccionado from tipo_trabajo where id in (select dis' +
        'tinct(typework) from trabajo_diario) order by id')
    Params = <>
    Left = 496
    Top = 272
    object qtipotrabajo2id: TWideStringField
      FieldName = 'id'
      Required = True
      Size = 30
    end
    object qtipotrabajo2seleccionado: TIntegerField
      FieldName = 'seleccionado'
      Required = True
    end
  end
  object dsqtipotrabajo2: TDataSource
    DataSet = qtipotrabajo2
    OnDataChange = dsqtipotrabajo2DataChange
    Left = 424
    Top = 272
  end
  object qlistadotrabajos: TZReadOnlyQuery
    Connection = DBagrigest
    SQL.Strings = (
      
        'select idt,trabajador,typework,sum(qhoras) as horas,sum(qhoras*t' +
        'd.precio) as total from trabajo_diario td,tipo_trabajo tt,trabaj' +
        'adores t '
      
        'where td.idt=t.id and td.typework=tt.id and tt.seleccionado=1 an' +
        'd t.seleccionado=1 and fecha>='#39'2016-01-01'#39' and fecha<='#39'2016-12-3' +
        '1'#39
      ''
      'group by idt,trabajador,typework order by typework,trabajador')
    Params = <>
    Left = 496
    Top = 336
    object qlistadotrabajosidt: TIntegerField
      FieldName = 'idt'
    end
    object qlistadotrabajostrabajador: TWideStringField
      FieldName = 'trabajador'
      Size = 100
    end
    object qlistadotrabajostypework: TWideStringField
      FieldName = 'typework'
      Size = 40
    end
    object qlistadotrabajoshoras: TFloatField
      FieldName = 'horas'
      ReadOnly = True
      DisplayFormat = '#0.00'
    end
    object qlistadotrabajostotal: TFloatField
      FieldName = 'total'
      ReadOnly = True
      DisplayFormat = '#0.00'
    end
  end
  object dsqlistadotrabajos: TDataSource
    DataSet = qlistadotrabajos
    Left = 424
    Top = 328
  end
  object dstnominas: TDataSource
    DataSet = qnominas
    Left = 608
    Top = 432
  end
  object dstnominasdetalle: TDataSource
    DataSet = tnominasdetalle
    Left = 608
    Top = 480
  end
  object qnominas: TZQuery
    Connection = DBagrigest
    SQL.Strings = (
      'select * from nominas order by fecha desc')
    Params = <>
    Left = 680
    Top = 432
    object qnominasID: TIntegerField
      FieldName = 'ID'
      Required = True
    end
    object qnominasIDEMPRESA: TIntegerField
      FieldName = 'IDEMPRESA'
      Required = True
    end
    object qnominasNOMEMPRESA: TWideStringField
      FieldName = 'NOMEMPRESA'
      Required = True
      Size = 120
    end
    object qnominasFECHA: TDateField
      FieldName = 'FECHA'
      Required = True
    end
    object qnominasFECHAINICIO: TDateField
      FieldName = 'FECHAINICIO'
      Required = True
    end
    object qnominasFECHAFIN: TDateField
      FieldName = 'FECHAFIN'
      Required = True
    end
    object qnominasPERIODO: TIntegerField
      FieldName = 'PERIODO'
      Required = True
    end
    object qnominasNOMPERIODO: TWideStringField
      FieldName = 'NOMPERIODO'
      Required = True
      Size = 120
    end
    object qnominasANYO: TIntegerField
      FieldName = 'ANYO'
      Required = True
    end
    object qnominasFORMAPAGO: TWideStringField
      FieldName = 'FORMAPAGO'
      Required = True
      Size = 60
    end
    object qnominasACTIVO: TIntegerField
      FieldName = 'ACTIVO'
      Required = True
    end
    object qnominasCANT_LINEAS: TIntegerField
      FieldName = 'CANT_LINEAS'
      Required = True
    end
    object qnominasIMPORTETOTAL: TFloatField
      FieldName = 'IMPORTETOTAL'
      Required = True
    end
  end
  object qtrabajadores3: TZQuery
    Connection = DBagrigest
    SQL.Strings = (
      
        'select id,nombre,seleccionado from trabajadores where id in (sel' +
        'ect distinct(idt) from trabajo_diario) order by nombre')
    Params = <>
    Left = 728
    Top = 168
    object qtrabajadores3id: TSmallintField
      FieldName = 'id'
      Required = True
    end
    object qtrabajadores3nombre: TWideStringField
      FieldName = 'nombre'
      Required = True
      Size = 80
    end
    object qtrabajadores3seleccionado: TIntegerField
      FieldName = 'seleccionado'
      Required = True
    end
  end
  object dsqtrabajadores3: TDataSource
    DataSet = qtrabajadores3
    OnDataChange = dsqtrabajadores3DataChange
    Left = 616
    Top = 160
  end
  object qparcela2: TZQuery
    Connection = DBagrigest
    SQL.Strings = (
      'select * from parcelas')
    Params = <>
    Left = 496
    Top = 64
    object qparcela2codpar: TWideStringField
      FieldName = 'codpar'
      Required = True
      Size = 30
    end
    object qparcela2empresa: TIntegerField
      FieldName = 'empresa'
      Required = True
    end
    object qparcela2nombre: TWideStringField
      FieldName = 'nombre'
      Size = 100
    end
    object qparcela2variedad: TWideStringField
      FieldName = 'variedad'
      Size = 100
    end
    object qparcela2num_plantas: TIntegerField
      FieldName = 'num_plantas'
    end
    object qparcela2fecha_plantacion: TDateField
      FieldName = 'fecha_plantacion'
    end
    object qparcela2marco_plantacion: TWideStringField
      FieldName = 'marco_plantacion'
      Size = 40
    end
    object qparcela2gastosgenerales: TIntegerField
      FieldName = 'gastosgenerales'
      Required = True
    end
    object qparcela2ref_catastro: TWideStringField
      FieldName = 'ref_catastro'
      Size = 40
    end
    object qparcela2sigpac_prov: TIntegerField
      FieldName = 'sigpac_prov'
    end
    object qparcela2sigpac_muni: TIntegerField
      FieldName = 'sigpac_muni'
    end
    object qparcela2sigpac_agre: TIntegerField
      FieldName = 'sigpac_agre'
    end
    object qparcela2sigpac_zona: TIntegerField
      FieldName = 'sigpac_zona'
    end
    object qparcela2sigpac_poli: TIntegerField
      FieldName = 'sigpac_poli'
    end
    object qparcela2sigpac_pacr: TIntegerField
      FieldName = 'sigpac_pacr'
    end
    object qparcela2x: TWideStringField
      FieldName = 'x'
      Size = 40
    end
    object qparcela2y: TWideStringField
      FieldName = 'y'
      Size = 40
    end
    object qparcela2datum: TWideStringField
      FieldName = 'datum'
    end
    object qparcela2huso: TIntegerField
      FieldName = 'huso'
    end
    object qparcela2propiedad: TWideStringField
      FieldName = 'propiedad'
      Size = 40
    end
    object qparcela2activo: TIntegerField
      FieldName = 'activo'
      Required = True
    end
    object qparcela2seleccionado: TIntegerField
      FieldName = 'seleccionado'
      Required = True
    end
    object qparcela2num_goteros: TFloatField
      FieldName = 'num_goteros'
    end
    object qparcela2superficie: TFloatField
      FieldName = 'superficie'
      Required = True
    end
    object qparcela2est_meteo: TWideStringField
      FieldName = 'est_meteo'
      Size = 40
    end
    object qparcela2coste_kg_ref: TFloatField
      FieldName = 'coste_kg_ref'
    end
    object qparcela2activo_almacen: TIntegerField
      FieldName = 'activo_almacen'
      Required = True
    end
    object qparcela2porc_desperdicio: TFloatField
      FieldName = 'porc_desperdicio'
      Required = True
    end
    object qparcela2porc_merma: TFloatField
      FieldName = 'porc_merma'
      Required = True
    end
    object qparcela2es_centrotrabajo: TIntegerField
      FieldName = 'es_centrotrabajo'
      Required = True
    end
    object qparcela2sigpac_recinto: TIntegerField
      FieldName = 'sigpac_recinto'
    end
    object qparcela2pie_planta: TWideStringField
      FieldName = 'pie_planta'
      Size = 80
    end
    object qparcela2numero: TWideStringField
      FieldName = 'numero'
      Size = 8
    end
    object qparcela2tiene_gg: TIntegerField
      FieldName = 'tiene_gg'
    end
    object qparcela2tiene_dop: TIntegerField
      FieldName = 'tiene_dop'
    end
    object qparcela2c_calidad: TIntegerField
      FieldName = 'c_calidad'
    end
    object qparcela2c_espcliente: TIntegerField
      FieldName = 'c_espcliente'
    end
    object qparcela2c_etiquetado: TIntegerField
      FieldName = 'c_etiquetado'
    end
    object qparcela2sello_gg: TWideStringField
      FieldName = 'sello_gg'
      Size = 40
    end
    object qparcela2sello_dop: TWideStringField
      FieldName = 'sello_dop'
      Size = 40
    end
    object qparcela2sello_igp: TWideStringField
      FieldName = 'sello_igp'
      Size = 40
    end
    object qparcela2tiene_igp: TIntegerField
      FieldName = 'tiene_igp'
    end
    object qparcela2tiene_ifs: TIntegerField
      FieldName = 'tiene_ifs'
      Required = True
    end
    object qparcela2sello_ifs: TWideStringField
      FieldName = 'sello_ifs'
      Size = 100
    end
  end
  object dsqparcela2: TDataSource
    DataSet = qparcela2
    OnDataChange = dsqparcela2DataChange
    Left = 424
    Top = 64
  end
  object qparcela3: TZQuery
    Connection = DBagrigest
    SQL.Strings = (
      'select * from parcelas')
    Params = <>
    Left = 632
    Top = 72
    object qparcela3codpar: TWideStringField
      FieldName = 'codpar'
      Required = True
      Size = 30
    end
    object qparcela3empresa: TIntegerField
      FieldName = 'empresa'
      Required = True
    end
    object qparcela3nombre: TWideStringField
      FieldName = 'nombre'
      Size = 100
    end
    object qparcela3variedad: TWideStringField
      FieldName = 'variedad'
      Size = 100
    end
    object qparcela3num_plantas: TIntegerField
      FieldName = 'num_plantas'
    end
    object qparcela3fecha_plantacion: TDateField
      FieldName = 'fecha_plantacion'
    end
    object qparcela3marco_plantacion: TWideStringField
      FieldName = 'marco_plantacion'
      Size = 40
    end
    object qparcela3gastosgenerales: TIntegerField
      FieldName = 'gastosgenerales'
      Required = True
    end
    object qparcela3ref_catastro: TWideStringField
      FieldName = 'ref_catastro'
      Size = 40
    end
    object qparcela3sigpac_prov: TIntegerField
      FieldName = 'sigpac_prov'
    end
    object qparcela3sigpac_muni: TIntegerField
      FieldName = 'sigpac_muni'
    end
    object qparcela3sigpac_agre: TIntegerField
      FieldName = 'sigpac_agre'
    end
    object qparcela3sigpac_zona: TIntegerField
      FieldName = 'sigpac_zona'
    end
    object qparcela3sigpac_poli: TIntegerField
      FieldName = 'sigpac_poli'
    end
    object qparcela3sigpac_pacr: TIntegerField
      FieldName = 'sigpac_pacr'
    end
    object qparcela3x: TWideStringField
      FieldName = 'x'
      Size = 40
    end
    object qparcela3y: TWideStringField
      FieldName = 'y'
      Size = 40
    end
    object qparcela3datum: TWideStringField
      FieldName = 'datum'
    end
    object qparcela3huso: TIntegerField
      FieldName = 'huso'
    end
    object qparcela3propiedad: TWideStringField
      FieldName = 'propiedad'
      Size = 40
    end
    object qparcela3activo: TIntegerField
      FieldName = 'activo'
      Required = True
    end
    object qparcela3num_goteros: TFloatField
      FieldName = 'num_goteros'
    end
    object qparcela3seleccionado: TIntegerField
      FieldName = 'seleccionado'
      Required = True
    end
    object qparcela3superficie: TFloatField
      FieldName = 'superficie'
      Required = True
    end
    object qparcela3est_meteo: TWideStringField
      FieldName = 'est_meteo'
      Size = 40
    end
    object qparcela3coste_kg_ref: TFloatField
      FieldName = 'coste_kg_ref'
    end
    object qparcela3activo_almacen: TIntegerField
      FieldName = 'activo_almacen'
      Required = True
    end
    object qparcela3porc_desperdicio: TFloatField
      FieldName = 'porc_desperdicio'
      Required = True
    end
    object qparcela3porc_merma: TFloatField
      FieldName = 'porc_merma'
      Required = True
    end
    object qparcela3es_centrotrabajo: TIntegerField
      FieldName = 'es_centrotrabajo'
      Required = True
    end
    object qparcela3sigpac_recinto: TIntegerField
      FieldName = 'sigpac_recinto'
    end
    object qparcela3pie_planta: TWideStringField
      FieldName = 'pie_planta'
      Size = 80
    end
    object qparcela3numero: TWideStringField
      FieldName = 'numero'
      Size = 8
    end
    object qparcela3tiene_gg: TIntegerField
      FieldName = 'tiene_gg'
    end
    object qparcela3tiene_dop: TIntegerField
      FieldName = 'tiene_dop'
    end
    object qparcela3c_calidad: TIntegerField
      FieldName = 'c_calidad'
    end
    object qparcela3c_espcliente: TIntegerField
      FieldName = 'c_espcliente'
    end
    object qparcela3c_etiquetado: TIntegerField
      FieldName = 'c_etiquetado'
    end
    object qparcela3sello_gg: TWideStringField
      FieldName = 'sello_gg'
      Size = 40
    end
    object qparcela3sello_dop: TWideStringField
      FieldName = 'sello_dop'
      Size = 40
    end
    object qparcela3sello_igp: TWideStringField
      FieldName = 'sello_igp'
      Size = 40
    end
    object qparcela3tiene_igp: TIntegerField
      FieldName = 'tiene_igp'
    end
    object qparcela3tiene_ifs: TIntegerField
      FieldName = 'tiene_ifs'
      Required = True
    end
    object qparcela3sello_ifs: TWideStringField
      FieldName = 'sello_ifs'
      Size = 100
    end
  end
  object dsqparcela3: TDataSource
    DataSet = qparcela3
    OnDataChange = dsqparcela2DataChange
    Left = 560
    Top = 72
  end
  object TFirmas: TZTable
    Connection = DBagrigest
    TableName = 'firmas'
    FetchRow = 1
    Left = 736
    Top = 16
    object TFirmasid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object TFirmaside: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object TFirmasidt: TIntegerField
      FieldName = 'idt'
      Required = True
    end
    object TFirmasfirma: TBlobField
      FieldName = 'firma'
      Required = True
    end
  end
  object dsfirmas: TDataSource
    AutoEdit = False
    DataSet = TFirmas
    Left = 736
  end
  object dspartes_diarios: TDataSource
    DataSet = qpartes_diarios
    OnDataChange = dspartes_diariosDataChange
    Left = 728
    Top = 64
  end
  object qpartes_diarios: TZQuery
    Connection = DBagrigest
    SortType = stIgnored
    SQL.Strings = (
      
        'select * from partes_diarios order by trabajador,fecha desc,id d' +
        'esc')
    Params = <>
    MasterFields = 'idt'
    MasterSource = dsqtrabajadores
    LinkedFields = 'idt'
    Left = 728
    Top = 112
    object qpartes_diariosid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qpartes_diarioside: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object qpartes_diariosidt: TIntegerField
      FieldName = 'idt'
      Required = True
    end
    object qpartes_diariostrabajador: TWideStringField
      FieldName = 'trabajador'
      Required = True
      Size = 80
    end
    object qpartes_diariosfecha: TDateField
      FieldName = 'fecha'
      Required = True
    end
    object qpartes_diarioshoras: TFloatField
      FieldName = 'horas'
      Required = True
      DisplayFormat = '0.#0'
    end
    object qpartes_diariosfirma: TIntegerField
      FieldName = 'firma'
    end
    object qpartes_diariosvalidado: TIntegerField
      FieldName = 'validado'
      Required = True
    end
    object qpartes_diariosfestivo: TIntegerField
      FieldName = 'festivo'
      Required = True
    end
  end
  object qfirmas: TZReadOnlyQuery
    Connection = DBagrigest
    SQL.Strings = (
      'select * from firmas order by id')
    Params = <>
    Left = 792
    Top = 48
    object qfirmasid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qfirmaside: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object qfirmasidt: TIntegerField
      FieldName = 'idt'
      Required = True
    end
    object qfirmasfirma: TBlobField
      FieldName = 'firma'
      Required = True
    end
  end
  object dsqfirmas: TDataSource
    AutoEdit = False
    DataSet = qfirmas2
    Left = 792
  end
  object dsqalmacenes: TDataSource
    DataSet = qalmacenes
    Left = 88
    Top = 504
  end
  object qalmacenes: TZReadOnlyQuery
    Connection = DBagrigest
    SQL.Strings = (
      'select * from almacenes where activo=1 order by nombre'
      ''
      '')
    Params = <>
    Left = 168
    Top = 504
    object qalmacenesid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qalmacenesidempresa: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object qalmacenesnombre: TWideStringField
      FieldName = 'nombre'
      Required = True
      Size = 40
    end
    object qalmacenescapacidad: TIntegerField
      FieldName = 'capacidad'
      Required = True
    end
    object qalmacenesstock_kg: TFloatField
      FieldName = 'stock_kg'
      Required = True
    end
    object qalmacenesstock_cajas: TIntegerField
      FieldName = 'stock_cajas'
      Required = True
    end
    object qalmacenesstock_palets: TIntegerField
      FieldName = 'stock_palets'
      Required = True
    end
    object qalmacenesfinal: TIntegerField
      FieldName = 'final'
      Required = True
    end
    object qalmacenesactivo: TIntegerField
      FieldName = 'activo'
      Required = True
    end
    object qalmacenescoste_kg_dia: TFloatField
      FieldName = 'coste_kg_dia'
      Required = True
    end
  end
  object dstalmacenes: TDataSource
    DataSet = talmacenes
    OnStateChange = dstalmacenesStateChange
    Left = 256
    Top = 504
  end
  object talmacenes: TZTable
    Connection = DBagrigest
    TableName = 'almacenes'
    MasterFields = 'id'
    MasterSource = BASE.dsqalmacenes
    LinkedFields = 'id'
    Left = 336
    Top = 496
    object talmacenesid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object talmacenesidempresa: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object talmacenesnombre: TWideStringField
      FieldName = 'nombre'
      Required = True
      Size = 40
    end
    object talmacenescapacidad: TIntegerField
      FieldName = 'capacidad'
      Required = True
    end
    object talmacenesstock_kg: TFloatField
      FieldName = 'stock_kg'
      Required = True
    end
    object talmacenesstock_cajas: TIntegerField
      FieldName = 'stock_cajas'
      Required = True
    end
    object talmacenesstock_palets: TIntegerField
      FieldName = 'stock_palets'
      Required = True
    end
    object talmacenesfinal: TIntegerField
      FieldName = 'final'
      Required = True
    end
    object talmacenesactivo: TIntegerField
      FieldName = 'activo'
      Required = True
    end
    object talmacenescoste_kg_dia: TFloatField
      FieldName = 'coste_kg_dia'
      Required = True
      DisplayFormat = '#0.00000'
    end
    object talmacenespreguntar_generador: TIntegerField
      FieldName = 'preguntar_generador'
      Required = True
    end
    object talmacenesmermas: TIntegerField
      FieldName = 'mermas'
      Required = True
    end
    object talmacenesproduccion: TIntegerField
      FieldName = 'produccion'
      Required = True
    end
    object talmacenestipo_trabajo: TWideStringField
      FieldName = 'tipo_trabajo'
      Size = 60
    end
    object talmacenescamara: TIntegerField
      FieldName = 'camara'
      Required = True
    end
    object talmacenesalmacen_asociado: TIntegerField
      FieldName = 'almacen_asociado'
    end
    object talmacenescentrocoste_asociado: TWideStringField
      FieldName = 'centrocoste_asociado'
      Size = 30
    end
  end
  object dstarticulosalmacen: TDataSource
    DataSet = dtarticulosalmacen
    OnStateChange = dstarticulosalmacenStateChange
    Left = 256
    Top = 552
  end
  object tarticulosalmacen: TZTable
    Connection = DBagrigest
    TableName = 'articulos_almacen'
    MasterFields = 'id'
    MasterSource = dsqarticulosalmacen
    LinkedFields = 'id'
    Left = 376
    Top = 544
    object tarticulosalmacenid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object tarticulosalmacenide: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object tarticulosalmacencodigo: TWideStringField
      FieldName = 'codigo'
      Required = True
      Size = 30
    end
    object tarticulosalmacencod_logi: TIntegerField
      FieldName = 'cod_logi'
    end
    object tarticulosalmacendescripcion: TWideStringField
      FieldName = 'descripcion'
      Required = True
      Size = 300
    end
    object tarticulosalmacenlargo: TFloatField
      FieldName = 'largo'
      Required = True
      DisplayFormat = '#0.000'
    end
    object tarticulosalmacenalto: TFloatField
      FieldName = 'alto'
      Required = True
      DisplayFormat = '#0.000'
    end
    object tarticulosalmacenancho: TFloatField
      FieldName = 'ancho'
      Required = True
      DisplayFormat = '#0.000'
    end
    object tarticulosalmacentara: TFloatField
      FieldName = 'tara'
      Required = True
      DisplayFormat = '#0.000'
    end
    object tarticulosalmacentipo: TWideStringField
      FieldName = 'tipo'
      Required = True
      Size = 40
    end
    object tarticulosalmacenpalet: TIntegerField
      FieldName = 'palet'
      Required = True
    end
    object tarticulosalmacenenvase_trabajo: TIntegerField
      FieldName = 'envase_trabajo'
      Required = True
    end
    object tarticulosalmacenenvase_venta: TIntegerField
      FieldName = 'envase_venta'
      Required = True
    end
    object tarticulosalmacenactivo: TIntegerField
      FieldName = 'activo'
      Required = True
    end
    object tarticulosalmacencosto: TFloatField
      FieldName = 'costo'
      Required = True
    end
    object tarticulosalmacenobservaciones: TWideStringField
      FieldName = 'observaciones'
      Size = 510
    end
    object tarticulosalmacenpeso_venta: TFloatField
      FieldName = 'peso_venta'
      DisplayFormat = '#0.000'
    end
    object tarticulosalmacenfacturar_pesofijo: TIntegerField
      FieldName = 'facturar_pesofijo'
      Required = True
    end
    object tarticulosalmacenpreguntar_gen: TIntegerField
      FieldName = 'preguntar_gen'
    end
    object tarticulosalmacenunidades_venta: TIntegerField
      FieldName = 'unidades_venta'
      Required = True
    end
    object tarticulosalmacendescripcion2: TWideStringField
      FieldName = 'descripcion2'
      Required = True
      Size = 300
    end
  end
  object dsqarticulosalmacen: TDataSource
    DataSet = qarticulosalmacen
    Left = 88
    Top = 552
  end
  object qarticulosalmacen: TZReadOnlyQuery
    Connection = DBagrigest
    BeforeOpen = qarticulosalmacenBeforeOpen
    AfterOpen = qarticulosalmacenAfterOpen
    SQL.Strings = (
      'select * from articulos_almacen where activo=1 order by codigo'
      ''
      ''
      '')
    Params = <>
    Left = 168
    Top = 552
    object qarticulosalmacenid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qarticulosalmacenide: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object qarticulosalmacencodigo: TWideStringField
      FieldName = 'codigo'
      Required = True
      Size = 40
    end
    object qarticulosalmacendescripcion: TWideStringField
      FieldName = 'descripcion'
      Required = True
      Size = 300
    end
    object qarticulosalmacenactivo: TIntegerField
      FieldName = 'activo'
      Required = True
    end
  end
  object dsqtrabajadores: TDataSource
    DataSet = qempleados
    Left = 32
    Top = 90
  end
  object qempleados: TZReadOnlyQuery
    Connection = DBagrigest
    AutoCalcFields = False
    SQL.Strings = (
      
        'select distinct(idt),trabajador from trabajo_diario order by tra' +
        'bajador asc')
    Params = <>
    Left = 32
    Top = 138
    object qempleadosidt: TIntegerField
      FieldName = 'idt'
    end
    object qempleadostrabajador: TWideStringField
      FieldName = 'trabajador'
      Size = 100
    end
  end
  object qtrabajo_diario: TZQuery
    Connection = DBagrigest
    SQL.Strings = (
      
        'select * from trabajo_diario where idparte1 is NULL or idparte2 ' +
        'is NULL order by trabajador asc,fecha')
    Params = <>
    MasterFields = 'idt'
    MasterSource = dsqtrabajadores
    LinkedFields = 'idt'
    Left = 728
    Top = 224
    object qtrabajo_diarioid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qtrabajo_diarioempresa: TIntegerField
      FieldName = 'empresa'
      Required = True
    end
    object qtrabajo_diariofecha: TDateField
      FieldName = 'fecha'
    end
    object qtrabajo_diarioparcela: TWideStringField
      FieldName = 'parcela'
      Size = 30
    end
    object qtrabajo_diarioidt: TIntegerField
      FieldName = 'idt'
    end
    object qtrabajo_diariotrabajador: TWideStringField
      FieldName = 'trabajador'
      Size = 100
    end
    object qtrabajo_diariotypework: TWideStringField
      FieldName = 'typework'
      Size = 40
    end
    object qtrabajo_diarioarticulo: TWideStringField
      FieldName = 'articulo'
      Size = 100
    end
    object qtrabajo_diarioqhoras: TFloatField
      FieldName = 'qhoras'
    end
    object qtrabajo_diarioprecio: TFloatField
      FieldName = 'precio'
      Required = True
    end
    object qtrabajo_diariototal: TFloatField
      FieldName = 'total'
      Required = True
    end
    object qtrabajo_diarioestado: TWideStringField
      FieldName = 'estado'
      Required = True
      Size = 2
    end
    object qtrabajo_diarioorigen: TWideStringField
      FieldName = 'origen'
      Size = 200
    end
    object qtrabajo_diariofechainsmod: TDateTimeField
      FieldName = 'fechainsmod'
    end
    object qtrabajo_diariousuario: TIntegerField
      FieldName = 'usuario'
    end
    object qtrabajo_diariocontrol: TIntegerField
      FieldName = 'control'
    end
    object qtrabajo_diariohoras_nomina: TFloatField
      FieldName = 'horas_nomina'
    end
    object qtrabajo_diariohoras_acumuladas: TFloatField
      FieldName = 'horas_acumuladas'
    end
    object qtrabajo_diarioidparte1: TIntegerField
      FieldName = 'idparte1'
    end
    object qtrabajo_diarioidparte2: TIntegerField
      FieldName = 'idparte2'
    end
  end
  object qalmacenesaux: TZReadOnlyQuery
    Connection = DBagrigest
    SQL.Strings = (
      'select * from almacenes order by nombre'
      ''
      '')
    Params = <>
    Left = 184
    Top = 504
    object IntegerField4: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object IntegerField5: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object WideStringField11: TWideStringField
      FieldName = 'nombre'
      Required = True
      Size = 40
    end
    object IntegerField6: TIntegerField
      FieldName = 'capacidad'
      Required = True
    end
    object FloatField5: TFloatField
      FieldName = 'stock_kg'
      Required = True
    end
    object IntegerField7: TIntegerField
      FieldName = 'stock_cajas'
      Required = True
    end
    object IntegerField8: TIntegerField
      FieldName = 'stock_palets'
      Required = True
    end
    object IntegerField9: TIntegerField
      FieldName = 'final'
      Required = True
    end
    object IntegerField10: TIntegerField
      FieldName = 'activo'
      Required = True
    end
    object FloatField6: TFloatField
      FieldName = 'coste_kg_dia'
      Required = True
    end
  end
  object dsqalmacenesaux: TDataSource
    DataSet = qalmacenesaux
    Left = 128
    Top = 504
  end
  object qmprimascompuestas: TZQuery
    Connection = DBagrigest
    SQL.Strings = (
      'select * from mp_compuestas order by idmp')
    Params = <>
    MasterFields = 'idempresa;id'
    MasterSource = dsmateriasprimas
    LinkedFields = 'idempresa;idmp'
    Left = 360
    Top = 208
    object qmprimascompuestasidempresa: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object qmprimascompuestasidmp: TWideStringField
      FieldName = 'idmp'
      Required = True
      Size = 40
    end
    object qmprimascompuestasidmpc: TWideStringField
      FieldName = 'idmpc'
      Required = True
      Size = 40
    end
    object qmprimascompuestasvariedad: TWideStringField
      FieldName = 'variedad'
      Required = True
      Size = 100
    end
    object qmprimascompuestasdescripcion: TWideStringField
      FieldName = 'descripcion'
      Required = True
      Size = 100
    end
    object qmprimascompuestasporcentaje: TFloatField
      FieldName = 'porcentaje'
    end
  end
  object dsmprimascompuestas: TDataSource
    DataSet = qmprimascompuestas
    Left = 280
    Top = 200
  end
  object qpartes_diarios2: TZQuery
    Connection = DBagrigest
    SortType = stIgnored
    SQL.Strings = (
      
        'select * from partes_diarios order by trabajador,fecha desc,id d' +
        'esc')
    Params = <>
    MasterFields = 'idt'
    MasterSource = dsqpersonasmesas
    LinkedFields = 'idt'
    Left = 752
    Top = 544
    object qpartes_diarios2id: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qpartes_diarios2ide: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object qpartes_diarios2idt: TIntegerField
      FieldName = 'idt'
      Required = True
    end
    object qpartes_diarios2trabajador: TWideStringField
      FieldName = 'trabajador'
      Required = True
      Size = 100
    end
    object qpartes_diarios2fecha: TDateField
      FieldName = 'fecha'
      Required = True
    end
    object qpartes_diarios2horas: TFloatField
      FieldName = 'horas'
      Required = True
    end
    object qpartes_diarios2firma: TIntegerField
      FieldName = 'firma'
    end
    object qpartes_diarios2validado: TIntegerField
      FieldName = 'validado'
      Required = True
    end
    object qpartes_diarios2festivo: TIntegerField
      FieldName = 'festivo'
      Required = True
    end
  end
  object qpersonasmesas: TZQuery
    Connection = DBagrigest
    SortedFields = 'trabajador'
    SQL.Strings = (
      
        'select distinct(idt),trabajador,mesa from movimiento_mesas where' +
        ' FECHA='#39'2017-11-21'#39)
    Params = <>
    MasterFields = 'mesa'
    MasterSource = BASE.dsqmesas
    LinkedFields = 'mesa'
    IndexFieldNames = 'trabajador Asc'
    UpdateMode = umUpdateAll
    Left = 680
    Top = 552
    object qpersonasmesasidt: TIntegerField
      FieldName = 'idt'
      Required = True
    end
    object qpersonasmesastrabajador: TWideStringField
      FieldName = 'trabajador'
      Required = True
      Size = 100
    end
    object qpersonasmesasmesa: TWideStringField
      FieldName = 'mesa'
      Required = True
      Size = 30
    end
  end
  object dsqpersonasmesas: TDataSource
    DataSet = qpersonasmesas
    Left = 608
    Top = 536
  end
  object dsqpartesdiarios2: TDataSource
    DataSet = qpartes_diarios2
    OnDataChange = dsqpartesdiarios2DataChange
    Left = 752
    Top = 512
  end
  object qmateriasprimas2: TZReadOnlyQuery
    Connection = DBagrigest
    SQL.Strings = (
      'select * from materias_primas order by id')
    Params = <>
    MasterFields = 'idempresa'
    MasterSource = dsqmateriasprimas
    LinkedFields = 'idempresa'
    Left = 208
    Top = 192
    object qmateriasprimas2idempresa: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object qmateriasprimas2id: TWideStringField
      FieldName = 'id'
      Required = True
      Size = 40
    end
    object qmateriasprimas2variedad: TWideStringField
      FieldName = 'variedad'
      Required = True
      Size = 100
    end
    object qmateriasprimas2descripcion: TWideStringField
      FieldName = 'descripcion'
      Required = True
      Size = 100
    end
    object qmateriasprimas2observaciones: TWideStringField
      FieldName = 'observaciones'
      Size = 510
    end
    object qmateriasprimas2imagen: TBlobField
      FieldName = 'imagen'
    end
    object qmateriasprimas2EAN: TWideStringField
      FieldName = 'EAN'
      Size = 26
    end
    object qmateriasprimas2basculas: TIntegerField
      FieldName = 'basculas'
      Required = True
    end
    object qmateriasprimas2activo: TIntegerField
      FieldName = 'activo'
      Required = True
    end
    object qmateriasprimas2usar_precio_parcela: TIntegerField
      FieldName = 'usar_precio_parcela'
      Required = True
    end
    object qmateriasprimas2desechos: TIntegerField
      FieldName = 'desechos'
      Required = True
    end
    object qmateriasprimas2compuesto: TIntegerField
      FieldName = 'compuesto'
      Required = True
    end
    object qmateriasprimas2mesas: TIntegerField
      FieldName = 'mesas'
      Required = True
    end
    object qmateriasprimas2idgenerico: TIntegerField
      FieldName = 'idgenerico'
    end
    object qmateriasprimas2generico: TWideStringField
      FieldName = 'generico'
      Size = 60
    end
    object qmateriasprimas2obtentor: TWideStringField
      FieldName = 'obtentor'
      Size = 100
    end
    object qmateriasprimas2pesopieza: TFloatField
      FieldName = 'pesopieza'
    end
  end
  object dsqmateriasprimas2: TDataSource
    DataSet = qmateriasprimas2
    OnDataChange = dsqmateriasprimasDataChange
    Left = 120
    Top = 216
  end
  object dtarticulosalmacen: TZQuery
    Connection = DBagrigest
    SQL.Strings = (
      'select * from articulos_almacen')
    Params = <>
    MasterFields = 'id;ide'
    MasterSource = dsqarticulosalmacen
    LinkedFields = 'id;ide'
    Left = 320
    Top = 544
    object dtarticulosalmacenid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object dtarticulosalmacenide: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object dtarticulosalmacencodigo: TWideStringField
      FieldName = 'codigo'
      Required = True
      Size = 40
    end
    object dtarticulosalmacencod_logi: TIntegerField
      FieldName = 'cod_logi'
    end
    object dtarticulosalmacendescripcion: TWideStringField
      FieldName = 'descripcion'
      Required = True
      Size = 300
    end
    object dtarticulosalmacenlargo: TFloatField
      FieldName = 'largo'
      Required = True
    end
    object dtarticulosalmacenalto: TFloatField
      FieldName = 'alto'
      Required = True
    end
    object dtarticulosalmacenancho: TFloatField
      FieldName = 'ancho'
      Required = True
    end
    object dtarticulosalmacentara: TFloatField
      FieldName = 'tara'
      Required = True
    end
    object dtarticulosalmacenpeso_venta: TFloatField
      FieldName = 'peso_venta'
      Required = True
    end
    object dtarticulosalmacentipo: TWideStringField
      FieldName = 'tipo'
      Required = True
      Size = 40
    end
    object dtarticulosalmacenpalet: TIntegerField
      FieldName = 'palet'
      Required = True
    end
    object dtarticulosalmacenenvase_trabajo: TIntegerField
      FieldName = 'envase_trabajo'
      Required = True
    end
    object dtarticulosalmacenenvase_venta: TIntegerField
      FieldName = 'envase_venta'
      Required = True
    end
    object dtarticulosalmacencosto: TFloatField
      FieldName = 'costo'
      Required = True
    end
    object dtarticulosalmacenactivo: TIntegerField
      FieldName = 'activo'
      Required = True
    end
    object dtarticulosalmacenobservaciones: TWideStringField
      FieldName = 'observaciones'
      Size = 1000
    end
    object dtarticulosalmacenfacturar_pesofijo: TIntegerField
      FieldName = 'facturar_pesofijo'
      Required = True
    end
    object dtarticulosalmacenpreguntar_gen: TIntegerField
      FieldName = 'preguntar_gen'
    end
    object dtarticulosalmacenunidades_venta: TIntegerField
      FieldName = 'unidades_venta'
      Required = True
    end
    object dtarticulosalmacendescripcion2: TWideStringField
      FieldName = 'descripcion2'
      Required = True
      Size = 300
    end
  end
  object dtarticulos_componentes: TZQuery
    Connection = DBagrigest
    BeforePost = dtarticulos_componentesBeforePost
    AfterPost = dtarticulos_componentesAfterPost
    SQL.Strings = (
      'select * from articulos_componentes')
    Params = <>
    MasterFields = 'id;ide'
    MasterSource = dsqarticulosalmacen
    LinkedFields = 'idarticuloalmacen;idempresa'
    Left = 344
    Top = 56
    object dtarticulos_componentesidempresa: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object dtarticulos_componentesidarticuloalmacen: TIntegerField
      FieldName = 'idarticuloalmacen'
      Required = True
    end
    object dtarticulos_componentesidarticulof: TIntegerField
      FieldName = 'idarticulof'
      Required = True
    end
    object dtarticulos_componentespreciocoste: TFloatField
      FieldName = 'preciocoste'
      Required = True
    end
    object dtarticulos_componentesdescripcion: TWideStringField
      FieldName = 'descripcion'
      Size = 40
    end
    object dtarticulos_componentescoste: TFloatField
      FieldName = 'coste'
      Required = True
    end
    object dtarticulos_componentescantidad: TFloatField
      FieldName = 'cantidad'
      Required = True
    end
    object dtarticulos_componentespeso: TFloatField
      FieldName = 'peso'
      Required = True
    end
  end
  object dsarticuloscomponentes: TDataSource
    DataSet = dtarticulos_componentes
    OnStateChange = dstarticulosalmacenStateChange
    Left = 256
    Top = 72
  end
  object qfirmas2: TZQuery
    Connection = DBagrigest
    SortType = stIgnored
    SQL.Strings = (
      'select * from firmas order by id')
    Params = <>
    MasterFields = 'idt'
    MasterSource = dsqtrabajadores
    LinkedFields = 'idt'
    Left = 792
    Top = 104
    object qfirmas2id: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qfirmas2ide: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object qfirmas2idt: TIntegerField
      FieldName = 'idt'
      Required = True
    end
    object qfirmas2firma: TBlobField
      FieldName = 'firma'
      Required = True
    end
  end
  object qseries: TZQuery
    Connection = DBagrigest
    AfterPost = qseriesAfterPost
    SQL.Strings = (
      'select * from series_numericas order by fechainicio desc')
    Params = <>
    MasterFields = 'id'
    MasterSource = dsempresa
    LinkedFields = 'ide'
    Left = 744
    Top = 312
    object qserieside: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object qseriesid: TWideStringField
      FieldName = 'id'
      Required = True
      Size = 10
    end
    object qseriesfechainicio: TDateField
      FieldName = 'fechainicio'
      Required = True
      DisplayFormat = 'dd/mm/yyyy'
      EditMask = '!99/99/0000;1;_'
    end
    object qseriesfechafin: TDateField
      FieldName = 'fechafin'
      Required = True
      DisplayFormat = 'dd/mm/yyyy'
      EditMask = '!99/99/0000;1;_'
    end
    object qseriesnum_pedcliente: TIntegerField
      FieldName = 'num_pedcliente'
      Required = True
    end
    object qseriesnum_albaran: TIntegerField
      FieldName = 'num_albaran'
      Required = True
    end
    object qseriesnum_factura: TIntegerField
      FieldName = 'num_factura'
      Required = True
    end
    object qseriesnum_expedicion: TIntegerField
      FieldName = 'num_expedicion'
      Required = True
    end
    object qseriesnum_pedproveedor: TIntegerField
      FieldName = 'num_pedproveedor'
      Required = True
    end
    object qseriesimp_albaran: TWideStringField
      FieldName = 'imp_albaran'
      Size = 500
    end
    object qseriesimp_factura: TWideStringField
      FieldName = 'imp_factura'
      Size = 500
    end
    object qseriesactivo: TIntegerField
      FieldName = 'activo'
      Required = True
    end
    object qseriesnum_presupuesto: TIntegerField
      FieldName = 'num_presupuesto'
      Required = True
    end
    object qseriesseriecontable: TWideStringField
      FieldName = 'seriecontable'
      Size = 10
    end
  end
  object dsqseries: TDataSource
    DataSet = qseries
    OnStateChange = dsqseriesStateChange
    Left = 720
    Top = 312
  end
  object qaux: TZReadOnlyQuery
    Connection = DBagrigest
    Params = <>
    Left = 32
    Top = 192
  end
  object qcampanyas_aux: TZQuery
    Connection = DBagrigest
    SortedFields = 'fechainicio'
    SQL.Strings = (
      'select * from campanyas')
    Params = <>
    IndexFieldNames = 'fechainicio Asc'
    UpdateMode = umUpdateAll
    Left = 504
    Top = 448
    object IntegerField11: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object IntegerField12: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object IntegerField13: TIntegerField
      FieldName = 'id_anterior'
    end
    object WideStringField12: TWideStringField
      FieldName = 'descripcion'
      Required = True
      Size = 80
    end
    object DateField2: TDateField
      FieldName = 'fechainicio'
      Required = True
      DisplayFormat = 'dd/mm/yy'
      EditMask = '!99/99/00;1;_'
    end
    object DateField3: TDateField
      FieldName = 'fechafin'
      Required = True
      DisplayFormat = 'dd/mm/yy'
      EditMask = '!99/99/00;1;_'
    end
    object IntegerField14: TIntegerField
      FieldName = 'ult_pesada'
    end
  end
  object dsqcampanyaaux: TDataSource
    DataSet = qcampanyas_aux
    OnStateChange = dsqcampanyasStateChange
    Left = 424
    Top = 440
  end
  object qcampanyasparcela: TZQuery
    Connection = DBagrigest
    BeforeOpen = qparcelasBeforeOpen
    SQL.Strings = (
      'select * from campanyaparcelas'
      '')
    Params = <>
    MasterFields = 'id;idempresa'
    MasterSource = dsqcampanyas
    LinkedFields = 'idc;ide'
    UpdateMode = umUpdateAll
    Left = 512
    Top = 488
    object qcampanyasparcelaide: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object qcampanyasparcelaidc: TIntegerField
      FieldName = 'idc'
      Required = True
    end
    object qcampanyasparcelaidp: TWideStringField
      FieldName = 'idp'
      Required = True
      Size = 30
    end
    object qcampanyasparcelaparcela: TWideStringField
      FieldName = 'parcela'
      Required = True
      Size = 100
    end
  end
  object dsqcampanyasparcela: TDataSource
    DataSet = qcampanyasparcela
    OnStateChange = dsqparcelaStateChange
    Left = 416
    Top = 488
  end
  object qgenericas: TZReadOnlyQuery
    Connection = DBagrigest
    SQL.Strings = (
      'select * from mp_genericas order by descripcion')
    Params = <>
    Left = 720
    Top = 368
    object qgenericaside: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object qgenericasid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qgenericasdescripcion: TWideStringField
      FieldName = 'descripcion'
      Required = True
      Size = 50
    end
  end
  object dsgenericas: TDataSource
    DataSet = qgenericas
    Left = 736
    Top = 408
  end
end