object dmproduccion: Tdmproduccion
  OldCreateOrder = False
  Height = 587
  Width = 718
  object dsqcampanyas: TDataSource
    DataSet = qcampanyas
    OnDataChange = dsqcampanyasDataChange
    Left = 64
    Top = 16
  end
  object qcampanyas: TZReadOnlyQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      'select * from campanyas order by descripcion desc')
    Params = <>
    Left = 64
    Top = 64
    object qcampanyasid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qcampanyasidempresa: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object qcampanyasdescripcion: TWideStringField
      FieldName = 'descripcion'
      Required = True
      Size = 80
    end
    object qcampanyasfechainicio: TDateField
      FieldName = 'fechainicio'
      Required = True
    end
    object qcampanyasfechafin: TDateField
      FieldName = 'fechafin'
      Required = True
    end
  end
  object qclientes: TZReadOnlyQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      'select nombre_corto from clientes order by nombre_corto'
      '')
    Params = <>
    Left = 64
    Top = 128
    object qclientesnombre_corto: TWideStringField
      FieldName = 'nombre_corto'
      Required = True
    end
  end
  object tclientes: TZTable
    Connection = DM.DBagrigest
    TableName = 'clientes'
    Left = 128
    Top = 128
    object tclientesid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object tclientesIdempresa: TIntegerField
      FieldName = 'Idempresa'
      Required = True
    end
    object tclientesnif: TWideStringField
      FieldName = 'nif'
      Required = True
      Size = 18
    end
    object tclientesnombre: TWideStringField
      FieldName = 'nombre'
      Required = True
      Size = 80
    end
    object tclientesnombre_corto: TWideStringField
      FieldName = 'nombre_corto'
      Required = True
    end
    object tclientesdireccion: TWideStringField
      FieldName = 'direccion'
      Size = 80
    end
    object tclientespoblacion: TWideStringField
      FieldName = 'poblacion'
      Size = 80
    end
    object tclientescodpost: TWideStringField
      FieldName = 'codpost'
      Size = 10
    end
    object tclientesprovincia: TWideStringField
      FieldName = 'provincia'
      Size = 60
    end
    object tclientestelefono: TWideStringField
      FieldName = 'telefono'
      Size = 24
    end
    object tclientesemail: TWideStringField
      FieldName = 'email'
      Size = 80
    end
    object tclientespersonacontacto: TWideStringField
      FieldName = 'personacontacto'
      Size = 80
    end
    object tclientescodigomercado: TIntegerField
      FieldName = 'codigomercado'
      Required = True
    end
    object tclientesactivo: TIntegerField
      FieldName = 'activo'
      Required = True
    end
  end
  object dsqclientes: TDataSource
    DataSet = qclientes
    Left = 64
    Top = 112
  end
  object dstclientes: TDataSource
    DataSet = tclientes
    Left = 128
    Top = 112
  end
  object dspartesdiarios: TDataSource
    DataSet = qpartesdiarios
    OnDataChange = dspartesdiariosDataChange
    Left = 168
    Top = 8
  end
  object dsqsalidas: TDataSource
    DataSet = qsalidas
    Left = 432
    Top = 280
  end
  object DataSource5: TDataSource
    DataSet = qcampanyas
    Left = 488
    Top = 48
  end
  object dsqentradas: TDataSource
    DataSet = qentradas
    Left = 248
    Top = 64
  end
  object qsalidas2: TZReadOnlyQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      
        'select fecha,ea.lote,ea.id_envase,sum(num_palets) as num_palets,' +
        'sum(ea.num_envases) as num_envases,sum(ea.peso_neto) as peso_net' +
        'o,sum(ea.peso_neto_teorico) as peso_neto_venta,idorigen from v_e' +
        'a_pesadaslotes ea where ea.iddestino<>0 and ea.idorigen=:ALMACEN' +
        ' and (ea.fecha=:FECHA or ea.fechatrabajo=:FECHA) and ea.idea<=0 '
      
        'and (idempresa,id,idea) not in (select idempresa,id,idea from v_' +
        'ea_pesadaslotes ea where ea.iddestino=:ALMACEN and ea.fechatraba' +
        'jo=:FECHA) group by fecha, idorigen,id_envase,lote order by fech' +
        'a desc,lote,id_envase desc')
    Params = <
      item
        DataType = ftUnknown
        Name = 'ALMACEN'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'FECHA'
        ParamType = ptUnknown
      end>
    Left = 320
    Top = 104
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ALMACEN'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'FECHA'
        ParamType = ptUnknown
      end>
    object qsalidas2fecha: TDateField
      FieldName = 'fecha'
      Required = True
    end
    object qsalidas2lote: TIntegerField
      FieldName = 'lote'
      Required = True
    end
    object qsalidas2id_envase: TWideStringField
      FieldName = 'id_envase'
      Required = True
      Size = 40
    end
    object qsalidas2num_palets: TLargeintField
      FieldName = 'num_palets'
      ReadOnly = True
    end
    object qsalidas2num_envases: TLargeintField
      FieldName = 'num_envases'
      ReadOnly = True
    end
    object qsalidas2peso_neto: TFloatField
      FieldName = 'peso_neto'
      ReadOnly = True
    end
    object qsalidas2peso_neto_venta: TFloatField
      FieldName = 'peso_neto_venta'
      ReadOnly = True
    end
    object qsalidas2idorigen: TIntegerField
      FieldName = 'idorigen'
    end
  end
  object qpartesdiarios: TZQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      
        'select * from almacenes_partesdiarios where almacen in (select i' +
        'd from almacenes where produccion=1)  order by fecha desc, id de' +
        'sc')
    Params = <>
    Left = 168
    Top = 56
    object qpartesdiariosid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qpartesdiariosidempresa: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object qpartesdiariosfecha: TDateField
      FieldName = 'fecha'
      Required = True
      DisplayFormat = 'dd/mm/yy'
    end
    object qpartesdiariosalmacen: TIntegerField
      FieldName = 'almacen'
      Required = True
    end
    object qpartesdiariosnombre_almacen: TWideStringField
      FieldName = 'nombre_almacen'
      Required = True
      Size = 40
    end
    object qpartesdiariosentran_cajas: TIntegerField
      FieldName = 'entran_cajas'
      Required = True
    end
    object qpartesdiariosentran_kg: TFloatField
      FieldName = 'entran_kg'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qpartesdiariosentran_pesomedio: TFloatField
      FieldName = 'entran_pesomedio'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qpartesdiariossalen_cajas: TIntegerField
      FieldName = 'salen_cajas'
      Required = True
      DisplayFormat = '#0'
    end
    object qpartesdiariossalen_kg: TFloatField
      FieldName = 'salen_kg'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qpartesdiariosstock_cajas: TIntegerField
      FieldName = 'stock_cajas'
      Required = True
    end
    object qpartesdiariosstock_kg: TFloatField
      FieldName = 'stock_kg'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qpartesdiarioshoras_jornales: TFloatField
      FieldName = 'horas_jornales'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qpartesdiarioscosto_jornales: TFloatField
      FieldName = 'costo_jornales'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qpartesdiarioshoras_jornales_campo: TFloatField
      FieldName = 'horas_jornales_campo'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qpartesdiarioscosto_jornales_campo: TFloatField
      FieldName = 'costo_jornales_campo'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qpartesdiarioscosto_materiales: TFloatField
      FieldName = 'costo_materiales'
      Required = True
      DisplayFormat = '#0.000'
    end
    object qpartesdiarioscoste_kg: TFloatField
      FieldName = 'coste_kg'
      Required = True
      DisplayFormat = '#0.000'
    end
    object qpartesdiarioscosto_kg_mprima: TFloatField
      FieldName = 'costo_kg_mprima'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qpartesdiarioscosto_gen_camara: TFloatField
      FieldName = 'costo_gen_camara'
      Required = True
      DisplayFormat = '#0.000'
    end
    object qpartesdiarioscosto_acumulado: TFloatField
      FieldName = 'costo_acumulado'
      Required = True
      DisplayFormat = '#0.000'
    end
    object qpartesdiariosmermas: TFloatField
      FieldName = 'mermas'
      Required = True
      DisplayFormat = '#0.000'
    end
    object qpartesdiarioskg_desperdicios: TFloatField
      FieldName = 'kg_desperdicios'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qpartesdiarioscajas_cierre: TIntegerField
      FieldName = 'cajas_cierre'
      Required = True
      DisplayFormat = '#0'
    end
    object qpartesdiariospeso_cierre: TFloatField
      FieldName = 'peso_cierre'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qpartesdiariosestado: TIntegerField
      FieldName = 'estado'
      Required = True
    end
    object qpartesdiarioskg_producidos: TFloatField
      FieldName = 'kg_producidos'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qpartesdiarioscoste_acum_manipulacion: TFloatField
      FieldName = 'coste_acum_manipulacion'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qpartesdiarioskilos_remanipulacion: TFloatField
      FieldName = 'kilos_remanipulacion'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qpartesdiariosobservaciones: TWideStringField
      FieldName = 'observaciones'
      Size = 510
    end
    object qpartesdiariossalen_cajas_venta: TIntegerField
      FieldName = 'salen_cajas_venta'
      Required = True
      DisplayFormat = '#0'
    end
    object qpartesdiarioskg_producidos_venta: TFloatField
      FieldName = 'kg_producidos_venta'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qpartesdiariostotal_horas_jornales: TFloatField
      FieldName = 'total_horas_jornales'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qpartesdiarioscoste_ss: TFloatField
      FieldName = 'coste_ss'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qpartesdiariosfecha_traspaso: TDateField
      FieldName = 'fecha_traspaso'
    end
    object qpartesdiarioscostes_totales: TFloatField
      FieldName = 'costes_totales'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qpartesdiariosrendimiento: TFloatField
      FieldName = 'rendimiento'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qpartesdiarioscostekg_final: TFloatField
      FieldName = 'costekg_final'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qpartesdiariosentran_cajas_remani: TIntegerField
      FieldName = 'entran_cajas_remani'
      Required = True
      DisplayFormat = '#0'
    end
    object qpartesdiariossalen_envases_desp: TIntegerField
      FieldName = 'salen_envases_desp'
      Required = True
      DisplayFormat = '#0'
    end
    object qpartesdiariosentran_peso_medio_remani: TFloatField
      FieldName = 'entran_peso_medio_remani'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qpartesdiariossalen_peso_medio: TFloatField
      FieldName = 'salen_peso_medio'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qpartesdiariossalen_peso_medio_fact: TFloatField
      FieldName = 'salen_peso_medio_fact'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qpartesdiariossalen_pesomedio_desp: TFloatField
      FieldName = 'salen_pesomedio_desp'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qpartesdiarioscosto_kg_mprima_remanip: TFloatField
      FieldName = 'costo_kg_mprima_remanip'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qpartesdiarioshoras_remanipulacion: TFloatField
      FieldName = 'horas_remanipulacion'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qpartesdiarioscoste_corte_remanipu: TFloatField
      FieldName = 'coste_corte_remanipu'
      Required = True
      DisplayFormat = '#0.000'
    end
    object qpartesdiariostotal_costes_jornales: TFloatField
      FieldName = 'total_costes_jornales'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qpartesdiariospeso_apertura: TFloatField
      FieldName = 'peso_apertura'
      DisplayFormat = '#0.00'
    end
    object qpartesdiarioscajas_apertura: TIntegerField
      FieldName = 'cajas_apertura'
      Required = True
    end
    object qpartesdiarioscoste_apertura: TFloatField
      FieldName = 'coste_apertura'
      DisplayFormat = '#0.00'
    end
    object qpartesdiarioscoste_cierre: TFloatField
      FieldName = 'coste_cierre'
      DisplayFormat = '#0.00'
    end
    object qpartesdiariosporc_mermas: TFloatField
      FieldName = 'porc_mermas'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qpartesdiarioscoste_limpieza: TFloatField
      FieldName = 'coste_limpieza'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qpartesdiarioscoste_envasado: TFloatField
      FieldName = 'coste_envasado'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qpartesdiarioscoste_apoyo: TFloatField
      FieldName = 'coste_apoyo'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qpartesdiariosventa_desperdicios: TFloatField
      FieldName = 'venta_desperdicios'
      Required = True
      DisplayFormat = '#0.000'
    end
    object qpartesdiarioscosto_medio_mprima: TFloatField
      FieldName = 'costo_medio_mprima'
      Required = True
      DisplayFormat = '#0.000'
    end
    object qpartesdiarioskg_utilizados: TFloatField
      FieldName = 'kg_utilizados'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qpartesdiarioscostekgfinal_sinmt: TFloatField
      FieldName = 'costekgfinal_sinmt'
      Required = True
      DisplayFormat = '#0.000'
    end
    object qpartesdiarioscoste_env_rec: TFloatField
      FieldName = 'coste_env_rec'
      Required = True
    end
  end
  object qentradas: TZQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      
        'select * from v_ea_pesadaslotes ea where ea.iddestino=:ALMACEN a' +
        'nd ea.fechatrabajo=:FECHA order by id desc')
    Params = <
      item
        DataType = ftUnknown
        Name = 'ALMACEN'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'FECHA'
        ParamType = ptUnknown
      end>
    Left = 320
    Top = 56
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ALMACEN'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'FECHA'
        ParamType = ptUnknown
      end>
    object qentradasid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qentradasidempresa: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object qentradasidea: TIntegerField
      FieldName = 'idea'
      Required = True
    end
    object qentradasid_palet: TWideStringField
      FieldName = 'id_palet'
      Required = True
      Size = 30
    end
    object qentradasnum_palets: TIntegerField
      FieldName = 'num_palets'
      Required = True
    end
    object qentradasid_palet2: TWideStringField
      FieldName = 'id_palet2'
      Size = 30
    end
    object qentradasnum_palets2: TIntegerField
      FieldName = 'num_palets2'
    end
    object qentradasid_envase: TWideStringField
      FieldName = 'id_envase'
      Required = True
      Size = 40
    end
    object qentradasnum_envases: TIntegerField
      FieldName = 'num_envases'
    end
    object qentradasiddestino: TIntegerField
      FieldName = 'iddestino'
      Required = True
    end
    object qentradasdestino: TWideStringField
      FieldName = 'destino'
      Required = True
      Size = 100
    end
    object qentradaspeso_bruto: TFloatField
      FieldName = 'peso_bruto'
      Required = True
    end
    object qentradastara: TFloatField
      FieldName = 'tara'
      Required = True
    end
    object qentradaspeso_neto: TFloatField
      FieldName = 'peso_neto'
      Required = True
    end
    object qentradaspeso_neto_teorico: TFloatField
      FieldName = 'peso_neto_teorico'
      Required = True
    end
    object qentradaspeso_medio: TFloatField
      FieldName = 'peso_medio'
      Required = True
    end
    object qentradastemperatura: TFloatField
      FieldName = 'temperatura'
    end
    object qentradasfecha: TDateField
      FieldName = 'fecha'
      Required = True
    end
    object qentradasfechatrabajo: TDateField
      FieldName = 'fechatrabajo'
      Required = True
    end
    object qentradashora: TTimeField
      FieldName = 'hora'
      Required = True
    end
    object qentradasCEA: TWideStringField
      FieldName = 'CEA'
      Size = 42
    end
    object qentradasresto_cajas: TFloatField
      FieldName = 'resto_cajas'
      Required = True
    end
    object qentradasresto_pesoneto: TFloatField
      FieldName = 'resto_pesoneto'
      Required = True
    end
    object qentradaslote: TIntegerField
      FieldName = 'lote'
      Required = True
    end
    object qentradasorigen: TWideStringField
      FieldName = 'origen'
      Required = True
      Size = 100
    end
    object qentradasidorigen: TIntegerField
      FieldName = 'idorigen'
    end
    object qentradasmprima: TWideStringField
      FieldName = 'mprima'
      Size = 40
    end
    object qentradasmprima_p: TWideStringField
      FieldName = 'mprima_p'
      Size = 40
    end
    object qentradasgen_caja: TIntegerField
      FieldName = 'gen_caja'
      Required = True
    end
    object qentradascosto: TFloatField
      FieldName = 'costo'
      Required = True
    end
    object qentradascoste_manipulacion: TFloatField
      FieldName = 'coste_manipulacion'
      Required = True
    end
    object qentradasdias_camara: TIntegerField
      FieldName = 'dias_camara'
      Required = True
    end
    object qentradascosto_camara: TFloatField
      FieldName = 'costo_camara'
      Required = True
    end
    object qentradascodigoR: TWideStringField
      FieldName = 'codigoR'
      Required = True
    end
    object qentradasparcela: TWideStringField
      FieldName = 'parcela'
      Size = 100
    end
    object qentradasfecha_cierre: TDateField
      FieldName = 'fecha_cierre'
    end
    object qentradascosto_materiales: TFloatField
      FieldName = 'costo_materiales'
      Required = True
    end
    object qentradascosto_cosechar: TFloatField
      FieldName = 'costo_cosechar'
      Required = True
    end
    object qentradasborrado: TIntegerField
      FieldName = 'borrado'
      Required = True
    end
    object qentradasseleccionado: TIntegerField
      FieldName = 'seleccionado'
      Required = True
    end
    object qentradasobservaciones: TWideStringField
      FieldName = 'observaciones'
      Size = 500
    end
    object qentradastipo_trabajo: TWideStringField
      FieldName = 'tipo_trabajo'
      Size = 60
    end
    object qentradastipo_generador: TWideStringField
      FieldName = 'tipo_generador'
      Size = 60
    end
    object qentradasremanipulado: TIntegerField
      FieldName = 'remanipulado'
      Required = True
    end
    object qentradasfecha_envasado: TDateField
      FieldName = 'fecha_envasado'
    end
    object qentradascodean: TWideStringField
      FieldName = 'codean'
      Size = 100
    end
    object qentradascodssc: TWideStringField
      FieldName = 'codssc'
      Size = 100
    end
    object qentradaspedidocliente: TIntegerField
      FieldName = 'pedidocliente'
    end
    object qentradascosto_sinmt: TFloatField
      FieldName = 'costo_sinmt'
    end
    object qentradasrecuperar_envases: TIntegerField
      FieldName = 'recuperar_envases'
      Required = True
    end
    object qentradasidalbaran: TWideStringField
      FieldName = 'idalbaran'
      Size = 22
    end
    object qentradases_entrada: TIntegerField
      FieldName = 'es_entrada'
      Required = True
    end
    object qentradasdesc_calibre: TWideStringField
      FieldName = 'desc_calibre'
      Size = 40
    end
    object qentradasdesc_formato: TWideStringField
      FieldName = 'desc_formato'
      Size = 100
    end
    object qentradasdesc_envase: TWideStringField
      FieldName = 'desc_envase'
      Size = 100
    end
    object qentradasidfactura: TWideStringField
      FieldName = 'idfactura'
      Size = 40
    end
  end
  object qactualizar: TZReadOnlyQuery
    Connection = DM.DBagrigest
    Params = <>
    Left = 488
    Top = 8
  end
  object dscontrolalmacen: TDataSource
    DataSet = qcontrolalmacen
    Left = 488
    Top = 128
  end
  object qcontrolalmacen: TZQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      'select * from control_produccion2 order by id')
    Params = <>
    Left = 488
    Top = 152
    object qcontrolalmacenid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qcontrolalmacenempresa: TIntegerField
      FieldName = 'empresa'
      Required = True
    end
    object qcontrolalmacenfecha: TDateField
      FieldName = 'fecha'
      Required = True
    end
    object qcontrolalmacenorigen: TWideStringField
      FieldName = 'origen'
      Required = True
      Size = 100
    end
    object qcontrolalmacenlote: TWideStringField
      FieldName = 'lote'
      Required = True
      Size = 100
    end
    object qcontrolalmacenproducto: TWideStringField
      FieldName = 'producto'
      Required = True
      Size = 40
    end
    object qcontrolalmacencantidad_teorica: TIntegerField
      FieldName = 'cantidad_teorica'
      Required = True
    end
    object qcontrolalmacencantidad_real: TIntegerField
      FieldName = 'cantidad_real'
    end
    object qcontrolalmacenobservaciones: TWideStringField
      FieldName = 'observaciones'
      Size = 510
    end
  end
  object qsalidas: TZQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      'select * from ea_pesadas where idea<=0 order by id desc')
    Params = <>
    Left = 488
    Top = 280
    object qsalidasid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qsalidasidempresa: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object qsalidasidEA: TIntegerField
      FieldName = 'idEA'
      Required = True
    end
    object qsalidasid_palet: TWideStringField
      FieldName = 'id_palet'
      Required = True
      Size = 30
    end
    object qsalidasnum_palets: TIntegerField
      FieldName = 'num_palets'
      Required = True
    end
    object qsalidasid_palet2: TWideStringField
      FieldName = 'id_palet2'
      Size = 30
    end
    object qsalidasnum_palets2: TIntegerField
      FieldName = 'num_palets2'
    end
    object qsalidasid_envase: TWideStringField
      FieldName = 'id_envase'
      Required = True
      Size = 40
    end
    object qsalidasnum_envases: TIntegerField
      FieldName = 'num_envases'
      Required = True
    end
    object qsalidasiddestino: TIntegerField
      FieldName = 'iddestino'
      Required = True
    end
    object qsalidasdestino: TWideStringField
      FieldName = 'destino'
      Required = True
      Size = 100
    end
    object qsalidaspeso_bruto: TFloatField
      FieldName = 'peso_bruto'
      Required = True
    end
    object qsalidastara: TFloatField
      FieldName = 'tara'
      Required = True
    end
    object qsalidaspeso_neto: TFloatField
      FieldName = 'peso_neto'
      Required = True
    end
    object qsalidaspeso_neto_teorico: TFloatField
      FieldName = 'peso_neto_teorico'
      Required = True
    end
    object qsalidaspeso_medio: TFloatField
      FieldName = 'peso_medio'
      Required = True
    end
    object qsalidastemperatura: TFloatField
      FieldName = 'temperatura'
    end
    object qsalidasfecha: TDateField
      FieldName = 'fecha'
      Required = True
    end
    object qsalidasfechatrabajo: TDateField
      FieldName = 'fechatrabajo'
      Required = True
    end
    object qsalidashora: TTimeField
      FieldName = 'hora'
      Required = True
    end
    object qsalidasCEA: TWideStringField
      FieldName = 'CEA'
      Size = 42
    end
    object qsalidasresto_cajas: TFloatField
      FieldName = 'resto_cajas'
      Required = True
    end
    object qsalidasresto_pesoneto: TFloatField
      FieldName = 'resto_pesoneto'
      Required = True
    end
    object qsalidaslote: TIntegerField
      FieldName = 'lote'
    end
    object qsalidasORIGEN: TWideStringField
      FieldName = 'ORIGEN'
      Required = True
      Size = 100
    end
    object qsalidasidorigen: TIntegerField
      FieldName = 'idorigen'
    end
    object qsalidasmprima: TWideStringField
      FieldName = 'mprima'
      Size = 40
    end
    object qsalidasgen_caja: TIntegerField
      FieldName = 'gen_caja'
      Required = True
    end
    object qsalidascosto: TFloatField
      FieldName = 'costo'
      Required = True
    end
    object qsalidascoste_manipulacion: TFloatField
      FieldName = 'coste_manipulacion'
      Required = True
    end
    object qsalidasdias_camara: TIntegerField
      FieldName = 'dias_camara'
      Required = True
    end
    object qsalidascosto_camara: TFloatField
      FieldName = 'costo_camara'
      Required = True
    end
    object qsalidascodigoR: TWideStringField
      FieldName = 'codigoR'
      Required = True
    end
    object qsalidasparcela: TWideStringField
      FieldName = 'parcela'
      Size = 100
    end
    object qsalidasfecha_cierre: TDateField
      FieldName = 'fecha_cierre'
    end
    object qsalidascosto_materiales: TFloatField
      FieldName = 'costo_materiales'
      Required = True
    end
    object qsalidascosto_cosechar: TFloatField
      FieldName = 'costo_cosechar'
      Required = True
    end
    object qsalidasborrado: TIntegerField
      FieldName = 'borrado'
      Required = True
    end
    object qsalidasseleccionado: TIntegerField
      FieldName = 'seleccionado'
      Required = True
    end
    object qsalidasOBSERVACIONES: TWideStringField
      FieldName = 'OBSERVACIONES'
      Size = 500
    end
    object qsalidastipo_trabajo: TWideStringField
      FieldName = 'tipo_trabajo'
      Size = 60
    end
    object qsalidastipo_generador: TWideStringField
      FieldName = 'tipo_generador'
      Size = 60
    end
    object qsalidasremanipulado: TIntegerField
      FieldName = 'remanipulado'
      Required = True
    end
    object qsalidasfecha_envasado: TDateField
      FieldName = 'fecha_envasado'
    end
    object qsalidascodean: TWideStringField
      FieldName = 'codean'
      Size = 100
    end
    object qsalidascodssc: TWideStringField
      FieldName = 'codssc'
      Size = 100
    end
    object qsalidaspedidocliente: TIntegerField
      FieldName = 'pedidocliente'
    end
    object qsalidascosto_sinmt: TFloatField
      FieldName = 'costo_sinmt'
    end
    object qsalidastara0: TFloatField
      FieldName = 'tara0'
    end
    object qsalidaslotes_detalle: TWideStringField
      FieldName = 'lotes_detalle'
      Size = 60
    end
    object qsalidasidpedido: TIntegerField
      FieldName = 'idpedido'
    end
    object qsalidasidalbaran: TWideStringField
      FieldName = 'idalbaran'
      Size = 22
    end
    object qsalidasrecuperar_envases: TIntegerField
      FieldName = 'recuperar_envases'
      Required = True
    end
    object qsalidascalibre: TFloatField
      FieldName = 'calibre'
    end
    object qsalidasprov_albaran: TWideStringField
      FieldName = 'prov_albaran'
      Size = 40
    end
    object qsalidasprov_fecha: TDateField
      FieldName = 'prov_fecha'
    end
    object qsalidasprov_ggn: TWideStringField
      FieldName = 'prov_ggn'
      Size = 40
    end
    object qsalidasprov_lote: TWideStringField
      FieldName = 'prov_lote'
      Size = 40
    end
    object qsalidasprov_grower: TWideStringField
      FieldName = 'prov_grower'
      Size = 40
    end
    object qsalidasprov_puk: TWideStringField
      FieldName = 'prov_puk'
      Size = 40
    end
    object qsalidasprov_otros: TWideStringField
      FieldName = 'prov_otros'
      Size = 40
    end
    object qsalidasidfactura: TWideStringField
      FieldName = 'idfactura'
      Size = 40
    end
  end
  object dsqsalidas2: TDataSource
    DataSet = qsalidas2
    Left = 248
    Top = 112
  end
  object qentradas2: TZReadOnlyQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      
        'SELECT fechatrabajo,ea.lote,origen,ea.mprima,sum(num_palets) as ' +
        'num_palets,sum(ea.num_envases) as envases,sum(ea.peso_neto) as p' +
        'esoneto,sum(ea.peso_neto_teorico) as peso_neto_venta,iddestino F' +
        'ROM v_ea_pesadaslotes ea where ea.iddestino=:ALMACEN and ea.fech' +
        'atrabajo=:FECHA group by fechatrabajo,iddestino,lote,origen,mpri' +
        'ma ORDER BY fechatrabajo DESC;')
    Params = <
      item
        DataType = ftUnknown
        Name = 'ALMACEN'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'FECHA'
        ParamType = ptUnknown
      end>
    Left = 320
    Top = 8
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ALMACEN'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'FECHA'
        ParamType = ptUnknown
      end>
    object qentradas2fechatrabajo: TDateField
      FieldName = 'fechatrabajo'
      Required = True
    end
    object qentradas2lote: TIntegerField
      FieldName = 'lote'
      Required = True
    end
    object qentradas2origen: TWideStringField
      FieldName = 'origen'
      Required = True
      Size = 100
    end
    object qentradas2mprima: TWideStringField
      FieldName = 'mprima'
      Size = 40
    end
    object qentradas2num_palets: TLargeintField
      FieldName = 'num_palets'
      ReadOnly = True
    end
    object qentradas2envases: TLargeintField
      FieldName = 'envases'
      ReadOnly = True
    end
    object qentradas2pesoneto: TFloatField
      FieldName = 'pesoneto'
      ReadOnly = True
    end
    object qentradas2peso_neto_venta: TFloatField
      FieldName = 'peso_neto_venta'
      ReadOnly = True
    end
    object qentradas2iddestino: TIntegerField
      FieldName = 'iddestino'
      Required = True
    end
  end
  object dsqentradas2: TDataSource
    DataSet = qentradas2
    Left = 248
    Top = 8
  end
  object tdestinos: TZTable
    Connection = DM.DBagrigest
    TableName = 'clientes_destinos'
    MasterFields = 'id'
    MasterSource = dstclientes
    LinkedFields = 'idcliente'
    Left = 24
    Top = 216
    object tdestinosidcliente: TIntegerField
      FieldName = 'idcliente'
      Required = True
    end
    object tdestinosidempresa: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object tdestinoscodigo: TWideStringField
      FieldName = 'codigo'
      Required = True
      Size = 40
    end
    object tdestinosdescripcion: TWideStringField
      FieldName = 'descripcion'
      Required = True
      Size = 80
    end
    object tdestinosseleccionado: TIntegerField
      FieldName = 'seleccionado'
      Required = True
    end
    object tdestinosactivo: TIntegerField
      FieldName = 'activo'
      Required = True
    end
  end
  object dstdestinos: TDataSource
    DataSet = tdestinos
    Left = 32
    Top = 176
  end
  object tarticulos_clientes: TZTable
    Connection = DM.DBagrigest
    TableName = 'clientes_articulos'
    MasterFields = 'id'
    MasterSource = dstclientes
    LinkedFields = 'idcliente'
    Left = 112
    Top = 200
    object tarticulos_clientesidempresa: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object tarticulos_clientesidcliente: TIntegerField
      FieldName = 'idcliente'
      Required = True
    end
    object tarticulos_clientesid: TWideStringField
      FieldName = 'id'
      Required = True
      Size = 30
    end
    object tarticulos_clientesean: TWideStringField
      FieldName = 'ean'
      Required = True
      Size = 26
    end
    object tarticulos_clientesdesc_cliente: TWideStringField
      FieldName = 'desc_cliente'
      Required = True
      Size = 50
    end
    object tarticulos_clientescod_propio: TWideStringField
      FieldName = 'cod_propio'
      Required = True
      Size = 40
    end
    object tarticulos_clientesactivo: TIntegerField
      FieldName = 'activo'
      Required = True
    end
  end
  object dstarticulos_clientes: TDataSource
    DataSet = tarticulos_clientes
    Left = 112
    Top = 184
  end
  object tpedidosclientes: TZTable
    Connection = DM.DBagrigest
    TableName = 'clientes_articulos'
    Left = 32
    Top = 280
    object IntegerField1: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object IntegerField2: TIntegerField
      FieldName = 'idcliente'
      Required = True
    end
    object WideStringField1: TWideStringField
      FieldName = 'id'
      Required = True
      Size = 30
    end
    object WideStringField2: TWideStringField
      FieldName = 'ean'
      Required = True
      Size = 26
    end
    object WideStringField3: TWideStringField
      FieldName = 'desc_cliente'
      Required = True
      Size = 50
    end
    object WideStringField4: TWideStringField
      FieldName = 'cod_propio'
      Required = True
      Size = 40
    end
    object IntegerField3: TIntegerField
      FieldName = 'activo'
      Required = True
    end
  end
  object DataSource1: TDataSource
    DataSet = tpedidosclientes
    Left = 32
    Top = 264
  end
  object qrestos_dia: TZQuery
    Connection = DM.DBagrigest
    AfterPost = qrestos_diaAfterPost
    SQL.Strings = (
      
        'select * from restos_dia where ide=:EMPRESA and fecha=:FECHA and' +
        ' idalmacen=:ALMACEN order by lote')
    Params = <
      item
        DataType = ftUnknown
        Name = 'EMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'FECHA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ALMACEN'
        ParamType = ptUnknown
      end>
    Left = 536
    Top = 208
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'EMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'FECHA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ALMACEN'
        ParamType = ptUnknown
      end>
    object qrestos_diaid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qrestos_diaide: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object qrestos_diaidalmacen: TIntegerField
      FieldName = 'idalmacen'
      Required = True
    end
    object qrestos_dialote: TIntegerField
      FieldName = 'lote'
      Required = True
    end
    object qrestos_diaparcela: TWideStringField
      FieldName = 'parcela'
      Size = 100
    end
    object qrestos_diamprima: TWideStringField
      FieldName = 'mprima'
      Size = 30
    end
    object qrestos_diafecha: TDateField
      FieldName = 'fecha'
      Required = True
    end
    object qrestos_diacant_inicial: TFloatField
      FieldName = 'cant_inicial'
      Required = True
    end
    object qrestos_diacant_final: TFloatField
      FieldName = 'cant_final'
      Required = True
    end
  end
  object dsrestos_dia: TDataSource
    DataSet = qrestos_dia
    Left = 552
    Top = 96
  end
  object dsqsalidaslotes: TDataSource
    DataSet = qsalidaslotes
    Left = 248
    Top = 160
  end
  object qsalidaslotes: TZQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      
        'select ea.idorigen,ea.idempresa,ea.hora,ea.id,ea.idea,ea.id_enva' +
        'se,ea.mprima,ea.num_envases as num_envases,ea.peso_neto as peso_' +
        'neto,ea.peso_neto_teorico as peso_neto_teorico,ea.peso_medio,ea.' +
        'fecha,ea.destino,ea.lote,ea.codigoR from v_ea_pesadaslotes ea'
      
        'where ea.iddestino<>0 and ea.idorigen=:ALMACEN and (ea.fecha=:FE' +
        'CHA or ea.fechatrabajo=:FECHA)  and  ea.idea<=0'
      
        'and (idempresa,id,idea) not in (select idempresa,id,idea from v_' +
        'ea_pesadaslotes ea where ea.iddestino=:ALMACEN and ea.fechatraba' +
        'jo=:FECHA)'
      ' order by id desc')
    Params = <
      item
        DataType = ftUnknown
        Name = 'ALMACEN'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'FECHA'
        ParamType = ptUnknown
      end>
    Left = 320
    Top = 160
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ALMACEN'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'FECHA'
        ParamType = ptUnknown
      end>
    object qsalidaslotesidorigen: TIntegerField
      FieldName = 'idorigen'
    end
    object qsalidaslotesidempresa: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object qsalidasloteshora: TTimeField
      FieldName = 'hora'
      Required = True
    end
    object qsalidaslotesid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qsalidaslotesidea: TIntegerField
      FieldName = 'idea'
      Required = True
    end
    object qsalidaslotesid_envase: TWideStringField
      FieldName = 'id_envase'
      Required = True
      Size = 40
    end
    object qsalidaslotesmprima: TWideStringField
      FieldName = 'mprima'
      Size = 40
    end
    object qsalidaslotesnum_envases: TIntegerField
      FieldName = 'num_envases'
    end
    object qsalidaslotespeso_neto: TFloatField
      FieldName = 'peso_neto'
      Required = True
    end
    object qsalidaslotespeso_neto_teorico: TFloatField
      FieldName = 'peso_neto_teorico'
      Required = True
    end
    object qsalidaslotespeso_medio: TFloatField
      FieldName = 'peso_medio'
      Required = True
    end
    object qsalidaslotesfecha: TDateField
      FieldName = 'fecha'
      Required = True
    end
    object qsalidaslotesdestino: TWideStringField
      FieldName = 'destino'
      Required = True
      Size = 100
    end
    object qsalidasloteslote: TIntegerField
      FieldName = 'lote'
      Required = True
    end
    object qsalidaslotescodigoR: TWideStringField
      FieldName = 'codigoR'
      Required = True
    end
  end
  object qcalendario_laboral: TZQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      'select * from calendario_laboral where fecha=:FECHA')
    Params = <
      item
        DataType = ftUnknown
        Name = 'FECHA'
        ParamType = ptUnknown
      end>
    Left = 640
    Top = 40
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'FECHA'
        ParamType = ptUnknown
      end>
    object qcalendario_laboralfecha: TDateField
      FieldName = 'fecha'
      Required = True
    end
    object qcalendario_laboralfestivo: TIntegerField
      FieldName = 'festivo'
      Required = True
    end
    object qcalendario_laboralalmuerzo: TIntegerField
      FieldName = 'almuerzo'
      Required = True
    end
    object qcalendario_laboralmerienda: TIntegerField
      FieldName = 'merienda'
      Required = True
    end
    object qcalendario_laboralinicio_almuerzo: TTimeField
      FieldName = 'inicio_almuerzo'
      DisplayFormat = 'hh:mm'
      EditMask = '!90:00;1;_'
    end
    object qcalendario_laboralfin_almuerzo: TTimeField
      FieldName = 'fin_almuerzo'
      DisplayFormat = 'hh:mm'
      EditMask = '!90:00;1;_'
    end
    object qcalendario_laboralinicio_merienda: TTimeField
      FieldName = 'inicio_merienda'
      DisplayFormat = 'hh:mm'
      EditMask = '!90:00;1;_'
    end
    object qcalendario_laboralfin_merienda: TTimeField
      FieldName = 'fin_merienda'
      DisplayFormat = 'hh:mm'
      EditMask = '!90:00;1;_'
    end
  end
  object dscalendario_laboral: TDataSource
    DataSet = qcalendario_laboral
    Left = 640
    Top = 16
  end
  object qsalen: TZReadOnlyQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      
        'select sum(ea.num_envases) as num_envases,sum(ea.peso_neto) as p' +
        'eso_neto,sum(ea.peso_neto_teorico) as peso_neto_venta from v_ea_' +
        'pesadaslotes ea where ea.iddestino<>0 and ea.idorigen=:ALMACEN a' +
        'nd (ea.fecha=:FECHA or ea.fechatrabajo=:FECHA) and ea.idea<=0  a' +
        'nd ea.mprima_p in (select id from materias_primas where desechos' +
        '=0) and (ea.idempresa,ea.id,ea.idea) not in (select idempresa,id' +
        ',idea from v_ea_pesadaslotes ea2 where ea.iddestino=:ALMACEN2 an' +
        'd ea.fechatrabajo=:FECHA2)')
    Params = <
      item
        DataType = ftUnknown
        Name = 'ALMACEN'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'FECHA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ALMACEN2'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'FECHA2'
        ParamType = ptUnknown
      end>
    Left = 224
    Top = 272
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ALMACEN'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'FECHA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ALMACEN2'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'FECHA2'
        ParamType = ptUnknown
      end>
    object qsalennum_envases: TLargeintField
      FieldName = 'num_envases'
      ReadOnly = True
    end
    object qsalenpeso_neto: TFloatField
      FieldName = 'peso_neto'
      ReadOnly = True
    end
    object qsalenpeso_neto_venta: TFloatField
      FieldName = 'peso_neto_venta'
      ReadOnly = True
    end
  end
  object qdesperdicios: TZReadOnlyQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      
        'select sum(ea.num_envases) as num_envases,sum(ea.peso_neto) as p' +
        'eso_neto,sum(ea.peso_neto_teorico) as peso_neto_venta from v_ea_' +
        'pesadaslotes ea where ea.iddestino<>0 and ea.idorigen<>ea.iddest' +
        'ino and ea.idorigen=:ALMACEN and (ea.fecha=:FECHA or ea.fechatra' +
        'bajo=:FECHA) and ea.idea<=0  and ea.mprima_p in (select id from ' +
        'materias_primas where desechos=1)')
    Params = <
      item
        DataType = ftUnknown
        Name = 'ALMACEN'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'FECHA'
        ParamType = ptUnknown
      end>
    Left = 224
    Top = 320
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ALMACEN'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'FECHA'
        ParamType = ptUnknown
      end>
    object qdesperdiciosnum_envases: TLargeintField
      FieldName = 'num_envases'
      ReadOnly = True
    end
    object qdesperdiciospeso_neto: TFloatField
      FieldName = 'peso_neto'
      ReadOnly = True
    end
    object qdesperdiciospeso_neto_venta: TFloatField
      FieldName = 'peso_neto_venta'
      ReadOnly = True
    end
  end
  object qentran: TZReadOnlyQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      
        'select sum(ea.num_envases) as num_envases,sum(ea.peso_neto) as p' +
        'eso_neto,sum(ea.peso_neto_teorico) as peso_neto_venta from v_ea_' +
        'pesadaslotes ea where ea.iddestino<>0 and ea.idorigen<>ea.iddest' +
        'ino and ea.idorigen=:ALMACEN and (ea.fecha=:FECHA or ea.fechatra' +
        'bajo=:FECHA) and ea.idea<=0  and ea.mprima_p in (select id from ' +
        'materias_primas where desechos=0)')
    Params = <
      item
        DataType = ftUnknown
        Name = 'ALMACEN'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'FECHA'
        ParamType = ptUnknown
      end>
    Left = 224
    Top = 376
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ALMACEN'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'FECHA'
        ParamType = ptUnknown
      end>
    object qentrannum_envases: TLargeintField
      FieldName = 'num_envases'
      ReadOnly = True
    end
    object qentranpeso_neto: TFloatField
      FieldName = 'peso_neto'
      ReadOnly = True
    end
    object qentranpeso_neto_venta: TFloatField
      FieldName = 'peso_neto_venta'
      ReadOnly = True
    end
  end
  object qproduccion_detalles: TZReadOnlyQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      
        'SELECT * FROM v_ea_pesadaslotes where idea>0 and fecha>=:FINICIO' +
        ' and fecha<=:FFIN and parcela=:PARCELA  order by mprima,id_envas' +
        'e,id desc')
    Params = <
      item
        DataType = ftUnknown
        Name = 'FINICIO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'FFIN'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PARCELA'
        ParamType = ptUnknown
      end>
    Left = 336
    Top = 344
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'FINICIO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'FFIN'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PARCELA'
        ParamType = ptUnknown
      end>
    object qproduccion_detallesid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qproduccion_detallesidempresa: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object qproduccion_detallesidea: TIntegerField
      FieldName = 'idea'
      Required = True
    end
    object qproduccion_detallesid_palet: TWideStringField
      FieldName = 'id_palet'
      Required = True
      Size = 30
    end
    object qproduccion_detallesnum_palets: TIntegerField
      FieldName = 'num_palets'
      Required = True
    end
    object qproduccion_detallesid_palet2: TWideStringField
      FieldName = 'id_palet2'
      Size = 30
    end
    object qproduccion_detallesnum_palets2: TIntegerField
      FieldName = 'num_palets2'
    end
    object qproduccion_detallesid_envase: TWideStringField
      FieldName = 'id_envase'
      Required = True
      Size = 40
    end
    object qproduccion_detallesnum_envases: TIntegerField
      FieldName = 'num_envases'
    end
    object qproduccion_detallesiddestino: TIntegerField
      FieldName = 'iddestino'
      Required = True
    end
    object qproduccion_detallesdestino: TWideStringField
      FieldName = 'destino'
      Required = True
      Size = 100
    end
    object qproduccion_detallespeso_bruto: TFloatField
      FieldName = 'peso_bruto'
      Required = True
    end
    object qproduccion_detallestara: TFloatField
      FieldName = 'tara'
      Required = True
    end
    object qproduccion_detallespeso_neto: TFloatField
      FieldName = 'peso_neto'
      Required = True
    end
    object qproduccion_detallespeso_neto_teorico: TFloatField
      FieldName = 'peso_neto_teorico'
      Required = True
    end
    object qproduccion_detallespeso_medio: TFloatField
      FieldName = 'peso_medio'
      Required = True
    end
    object qproduccion_detallestemperatura: TFloatField
      FieldName = 'temperatura'
    end
    object qproduccion_detallesfecha: TDateField
      FieldName = 'fecha'
      Required = True
    end
    object qproduccion_detallesfechatrabajo: TDateField
      FieldName = 'fechatrabajo'
      Required = True
    end
    object qproduccion_detalleshora: TTimeField
      FieldName = 'hora'
      Required = True
    end
    object qproduccion_detallesCEA: TWideStringField
      FieldName = 'CEA'
      Size = 42
    end
    object qproduccion_detallesresto_cajas: TFloatField
      FieldName = 'resto_cajas'
      Required = True
    end
    object qproduccion_detallesresto_pesoneto: TFloatField
      FieldName = 'resto_pesoneto'
      Required = True
    end
    object qproduccion_detalleslote: TIntegerField
      FieldName = 'lote'
      Required = True
    end
    object qproduccion_detallesorigen: TWideStringField
      FieldName = 'origen'
      Required = True
      Size = 100
    end
    object qproduccion_detallesidorigen: TIntegerField
      FieldName = 'idorigen'
    end
    object qproduccion_detallesmprima: TWideStringField
      FieldName = 'mprima'
      Size = 40
    end
    object qproduccion_detallesmprima_p: TWideStringField
      FieldName = 'mprima_p'
      Size = 40
    end
    object qproduccion_detallesgen_caja: TIntegerField
      FieldName = 'gen_caja'
      Required = True
    end
    object qproduccion_detallescosto: TFloatField
      FieldName = 'costo'
      Required = True
    end
    object qproduccion_detallescoste_manipulacion: TFloatField
      FieldName = 'coste_manipulacion'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qproduccion_detallesdias_camara: TIntegerField
      FieldName = 'dias_camara'
      Required = True
    end
    object qproduccion_detallescosto_camara: TFloatField
      FieldName = 'costo_camara'
      Required = True
    end
    object qproduccion_detallescodigoR: TWideStringField
      FieldName = 'codigoR'
      Required = True
    end
    object qproduccion_detallesparcela: TWideStringField
      FieldName = 'parcela'
      Size = 100
    end
    object qproduccion_detallesfecha_cierre: TDateField
      FieldName = 'fecha_cierre'
    end
    object qproduccion_detallescosto_materiales: TFloatField
      FieldName = 'costo_materiales'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qproduccion_detallescosto_cosechar: TFloatField
      FieldName = 'costo_cosechar'
      Required = True
    end
    object qproduccion_detallesborrado: TIntegerField
      FieldName = 'borrado'
      Required = True
    end
    object qproduccion_detallesseleccionado: TIntegerField
      FieldName = 'seleccionado'
      Required = True
    end
    object qproduccion_detallesobservaciones: TWideStringField
      FieldName = 'observaciones'
      Size = 500
    end
    object qproduccion_detallestipo_trabajo: TWideStringField
      FieldName = 'tipo_trabajo'
      Size = 60
    end
    object qproduccion_detallestipo_generador: TWideStringField
      FieldName = 'tipo_generador'
      Size = 60
    end
    object qproduccion_detallesremanipulado: TIntegerField
      FieldName = 'remanipulado'
      Required = True
    end
    object qproduccion_detallesfecha_envasado: TDateField
      FieldName = 'fecha_envasado'
    end
    object qproduccion_detallescodean: TWideStringField
      FieldName = 'codean'
      Size = 100
    end
    object qproduccion_detallescodssc: TWideStringField
      FieldName = 'codssc'
      Size = 100
    end
    object qproduccion_detallespedidocliente: TIntegerField
      FieldName = 'pedidocliente'
    end
    object qproduccion_detallescosto_sinmt: TFloatField
      FieldName = 'costo_sinmt'
    end
    object qproduccion_detallesrecuperar_envases: TIntegerField
      FieldName = 'recuperar_envases'
      Required = True
    end
    object qproduccion_detallesidalbaran: TWideStringField
      FieldName = 'idalbaran'
      Size = 22
    end
    object qproduccion_detalleses_entrada: TIntegerField
      FieldName = 'es_entrada'
      Required = True
    end
    object qproduccion_detallesdesc_calibre: TWideStringField
      FieldName = 'desc_calibre'
      Size = 40
    end
    object qproduccion_detallesdesc_formato: TWideStringField
      FieldName = 'desc_formato'
      Size = 100
    end
    object qproduccion_detallesdesc_envase: TWideStringField
      FieldName = 'desc_envase'
      Size = 100
    end
    object qproduccion_detallesidfactura: TWideStringField
      FieldName = 'idfactura'
      Size = 40
    end
  end
  object dsqproducciondetalle: TDataSource
    DataSet = qproduccion_detalles
    Left = 336
    Top = 296
  end
end