object dm: Tdm
  OldCreateOrder = False
  Height = 571
  Width = 510
  object tpesadas: TZTable
    Connection = dbagrigest2
    TableName = 'ea_pesadas'
    Left = 40
    Top = 72
    object tpesadasid: TIntegerField
      DisplayWidth = 6
      FieldName = 'id'
      Required = True
    end
    object tpesadasidempresa: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object tpesadasidEA: TIntegerField
      DisplayWidth = 5
      FieldName = 'idEA'
      Required = True
    end
    object tpesadasid_palet: TWideStringField
      FieldName = 'id_palet'
      Required = True
      Size = 30
    end
    object tpesadasnum_palets: TIntegerField
      FieldName = 'num_palets'
      Required = True
    end
    object tpesadasid_palet2: TWideStringField
      FieldName = 'id_palet2'
      Size = 30
    end
    object tpesadasnum_palets2: TIntegerField
      FieldName = 'num_palets2'
    end
    object tpesadasid_envase: TWideStringField
      FieldName = 'id_envase'
      Required = True
      Size = 30
    end
    object tpesadasnum_envases: TIntegerField
      FieldName = 'num_envases'
      Required = True
    end
    object tpesadasiddestino: TIntegerField
      FieldName = 'iddestino'
      Required = True
    end
    object tpesadasdestino: TWideStringField
      DisplayWidth = 20
      FieldName = 'destino'
      Required = True
      Size = 40
    end
    object tpesadaspeso_bruto: TFloatField
      DefaultExpression = '#0.00'
      FieldName = 'peso_bruto'
      Required = True
    end
    object tpesadastara: TFloatField
      FieldName = 'tara'
      Required = True
      DisplayFormat = '#0.00'
    end
    object tpesadaspeso_neto: TFloatField
      FieldName = 'peso_neto'
      Required = True
      DisplayFormat = '#0.00'
    end
    object tpesadaspeso_medio: TFloatField
      FieldName = 'peso_medio'
      Required = True
      DisplayFormat = '#0.00'
    end
    object tpesadastemperatura: TFloatField
      FieldName = 'temperatura'
    end
    object tpesadasfecha: TDateField
      FieldName = 'fecha'
      Required = True
      DisplayFormat = 'dd/mm/yy'
    end
    object tpesadasfechatrabajo: TDateField
      FieldName = 'fechatrabajo'
      Required = True
    end
    object tpesadashora: TTimeField
      FieldName = 'hora'
      Required = True
      DisplayFormat = 'hh:mm'
    end
    object tpesadasCEA: TWideStringField
      FieldName = 'CEA'
      Size = 42
    end
    object tpesadasresto_cajas: TFloatField
      FieldName = 'resto_cajas'
      Required = True
    end
    object tpesadasresto_pesoneto: TFloatField
      FieldName = 'resto_pesoneto'
      Required = True
      DisplayFormat = '#0.00'
    end
    object tpesadasidorigen: TIntegerField
      FieldName = 'idorigen'
    end
    object tpesadasmprima: TWideStringField
      FieldName = 'mprima'
      Size = 30
    end
    object tpesadasgen_caja: TIntegerField
      FieldName = 'gen_caja'
      Required = True
    end
    object tpesadaspeso_neto_teorico: TFloatField
      FieldName = 'peso_neto_teorico'
      Required = True
    end
    object tpesadasORIGEN: TWideStringField
      FieldName = 'ORIGEN'
      Required = True
      Size = 100
    end
    object tpesadascoste_manipulacion: TFloatField
      FieldName = 'coste_manipulacion'
      Required = True
    end
    object tpesadascodigoR: TWideStringField
      FieldName = 'codigoR'
      Required = True
    end
    object tpesadascosto_camara: TFloatField
      FieldName = 'costo_camara'
      Required = True
    end
    object tpesadascosto: TFloatField
      FieldName = 'costo'
      Required = True
    end
    object tpesadasdias_camara: TIntegerField
      FieldName = 'dias_camara'
      Required = True
    end
    object tpesadasparcela: TWideStringField
      FieldName = 'parcela'
      Size = 100
    end
    object tpesadaslote: TIntegerField
      FieldName = 'lote'
    end
    object tpesadasfecha_cierre: TDateField
      FieldName = 'fecha_cierre'
    end
    object tpesadascosto_materiales: TFloatField
      FieldName = 'costo_materiales'
      Required = True
    end
    object tpesadascosto_cosechar: TFloatField
      FieldName = 'costo_cosechar'
      Required = True
    end
    object tpesadasborrado: TIntegerField
      FieldName = 'borrado'
      Required = True
    end
    object tpesadasseleccionado: TIntegerField
      FieldName = 'seleccionado'
      Required = True
    end
    object tpesadasOBSERVACIONES: TWideStringField
      FieldName = 'OBSERVACIONES'
      Size = 500
    end
    object tpesadastipo_trabajo: TWideStringField
      FieldName = 'tipo_trabajo'
      Size = 60
    end
    object tpesadastipo_generador: TWideStringField
      FieldName = 'tipo_generador'
      Size = 60
    end
    object tpesadasremanipulado: TIntegerField
      FieldName = 'remanipulado'
      Required = True
    end
    object tpesadasfecha_envasado: TDateField
      FieldName = 'fecha_envasado'
    end
    object tpesadascodean: TWideStringField
      FieldName = 'codean'
      Size = 100
    end
    object tpesadascodssc: TWideStringField
      FieldName = 'codssc'
      Size = 100
    end
    object tpesadaspedidocliente: TIntegerField
      FieldName = 'pedidocliente'
    end
    object tpesadascosto_sinmt: TFloatField
      FieldName = 'costo_sinmt'
    end
    object tpesadastara0: TFloatField
      FieldName = 'tara0'
    end
    object tpesadaslotes_detalle: TWideStringField
      FieldName = 'lotes_detalle'
      Size = 60
    end
    object tpesadasidpedido: TIntegerField
      FieldName = 'idpedido'
    end
    object tpesadasrecuperar_envases: TIntegerField
      FieldName = 'recuperar_envases'
      Required = True
    end
    object tpesadascalibre: TFloatField
      FieldName = 'calibre'
    end
    object tpesadasidalbaran: TWideStringField
      FieldName = 'idalbaran'
      Size = 22
    end
    object tpesadasprov_albaran: TWideStringField
      FieldName = 'prov_albaran'
      Size = 40
    end
    object tpesadasprov_fecha: TDateField
      FieldName = 'prov_fecha'
    end
    object tpesadasprov_ggn: TWideStringField
      FieldName = 'prov_ggn'
      Size = 40
    end
    object tpesadasprov_lote: TWideStringField
      FieldName = 'prov_lote'
      Size = 40
    end
    object tpesadasprov_grower: TWideStringField
      FieldName = 'prov_grower'
      Size = 40
    end
    object tpesadasprov_puk: TWideStringField
      FieldName = 'prov_puk'
      Size = 40
    end
    object tpesadasprov_otros: TWideStringField
      FieldName = 'prov_otros'
      Size = 40
    end
  end
  object dbagrigest2: TZConnection
    ControlsCodePage = cCP_UTF16
    ClientCodepage = 'utf8'
    Catalog = ''
    Properties.Strings = (
      'codepage=utf8')
    HostName = '85.215.144.168'
    Port = 3306
    Database = 'agrigest'
    User = 'asesoft'
    Password = 'Pantera1'
    Protocol = 'mysql-5'
    LibraryLocation = 'C:\AGRIGEST\libmysql.dll'
    Left = 48
    Top = 24
  end
  object qetiquetas: TZReadOnlyQuery
    Connection = dbagrigest2
    SQL.Strings = (
      'select * from ea_pesadas')
    Params = <>
    Properties.Strings = (
      '')
    Left = 224
    Top = 80
    object qetiquetasid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qetiquetasidempresa: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object qetiquetasidEA: TIntegerField
      FieldName = 'idEA'
      Required = True
    end
    object qetiquetasid_palet: TWideStringField
      FieldName = 'id_palet'
      Required = True
      Size = 30
    end
    object qetiquetasnum_palets: TIntegerField
      FieldName = 'num_palets'
      Required = True
    end
    object qetiquetasid_palet2: TWideStringField
      FieldName = 'id_palet2'
      Size = 30
    end
    object qetiquetasnum_palets2: TIntegerField
      FieldName = 'num_palets2'
    end
    object qetiquetasid_envase: TWideStringField
      FieldName = 'id_envase'
      Required = True
      Size = 30
    end
    object qetiquetasnum_envases: TIntegerField
      FieldName = 'num_envases'
      Required = True
    end
    object qetiquetasdestino: TWideStringField
      FieldName = 'destino'
      Required = True
      Size = 40
    end
    object qetiquetaspeso_bruto: TFloatField
      FieldName = 'peso_bruto'
      Required = True
    end
    object qetiquetastara: TFloatField
      FieldName = 'tara'
      Required = True
    end
    object qetiquetaspeso_neto: TFloatField
      FieldName = 'peso_neto'
      Required = True
    end
    object qetiquetaspeso_neto_teorico: TFloatField
      FieldName = 'peso_neto_teorico'
      Required = True
    end
    object qetiquetaspeso_medio: TFloatField
      FieldName = 'peso_medio'
      Required = True
    end
    object qetiquetastemperatura: TFloatField
      FieldName = 'temperatura'
    end
    object qetiquetasfecha: TDateField
      FieldName = 'fecha'
      Required = True
    end
    object qetiquetasfechatrabajo: TDateField
      FieldName = 'fechatrabajo'
      Required = True
    end
    object qetiquetashora: TTimeField
      FieldName = 'hora'
      Required = True
    end
    object qetiquetasCEA: TWideStringField
      FieldName = 'CEA'
      Size = 42
    end
    object qetiquetasresto_cajas: TFloatField
      FieldName = 'resto_cajas'
      Required = True
    end
    object qetiquetasresto_pesoneto: TFloatField
      FieldName = 'resto_pesoneto'
      Required = True
    end
    object qetiquetaslote: TIntegerField
      FieldName = 'lote'
    end
    object qetiquetasORIGEN: TWideStringField
      FieldName = 'ORIGEN'
      Required = True
      Size = 100
    end
    object qetiquetasidorigen: TIntegerField
      FieldName = 'idorigen'
    end
    object qetiquetasmprima: TWideStringField
      FieldName = 'mprima'
      Size = 40
    end
    object qetiquetasgen_caja: TIntegerField
      FieldName = 'gen_caja'
      Required = True
    end
    object qetiquetascosto: TFloatField
      FieldName = 'costo'
      Required = True
    end
    object qetiquetascoste_manipulacion: TFloatField
      FieldName = 'coste_manipulacion'
      Required = True
    end
    object qetiquetasdias_camara: TIntegerField
      FieldName = 'dias_camara'
      Required = True
    end
    object qetiquetascosto_camara: TFloatField
      FieldName = 'costo_camara'
      Required = True
    end
    object qetiquetascodigoR: TWideStringField
      FieldName = 'codigoR'
      Required = True
    end
    object qetiquetasparcela: TWideStringField
      FieldName = 'parcela'
      Size = 100
    end
    object qetiquetasfecha_cierre: TDateField
      FieldName = 'fecha_cierre'
    end
    object qetiquetascosto_materiales: TFloatField
      FieldName = 'costo_materiales'
      Required = True
    end
    object qetiquetascosto_cosechar: TFloatField
      FieldName = 'costo_cosechar'
      Required = True
    end
    object qetiquetasborrado: TIntegerField
      FieldName = 'borrado'
      Required = True
    end
    object qetiquetasseleccionado: TIntegerField
      FieldName = 'seleccionado'
      Required = True
    end
    object qetiquetasOBSERVACIONES: TWideStringField
      FieldName = 'OBSERVACIONES'
      Size = 500
    end
    object qetiquetastipo_trabajo: TWideStringField
      FieldName = 'tipo_trabajo'
      Size = 60
    end
    object qetiquetastipo_generador: TWideStringField
      FieldName = 'tipo_generador'
      Size = 60
    end
    object qetiquetasremanipulado: TIntegerField
      FieldName = 'remanipulado'
      Required = True
    end
    object qetiquetasfecha_envasado: TDateField
      FieldName = 'fecha_envasado'
    end
    object qetiquetascodean: TWideStringField
      FieldName = 'codean'
      Size = 100
    end
    object qetiquetascodssc: TWideStringField
      FieldName = 'codssc'
      Size = 100
    end
    object qetiquetaspedidocliente: TIntegerField
      FieldName = 'pedidocliente'
    end
    object qetiquetascosto_sinmt: TFloatField
      FieldName = 'costo_sinmt'
    end
    object qetiquetastara0: TFloatField
      FieldName = 'tara0'
    end
    object qetiquetasiddestino: TIntegerField
      FieldName = 'iddestino'
      Required = True
    end
    object qetiquetaslotes_detalle: TWideStringField
      FieldName = 'lotes_detalle'
      Size = 60
    end
    object qetiquetasidpedido: TIntegerField
      FieldName = 'idpedido'
    end
    object qetiquetasidalbaran: TWideStringField
      FieldName = 'idalbaran'
      Size = 22
    end
    object qetiquetasrecuperar_envases: TIntegerField
      FieldName = 'recuperar_envases'
      Required = True
    end
    object qetiquetascalibre: TFloatField
      FieldName = 'calibre'
    end
    object qetiquetasprov_albaran: TWideStringField
      FieldName = 'prov_albaran'
      Size = 40
    end
    object qetiquetasprov_fecha: TDateField
      FieldName = 'prov_fecha'
    end
    object qetiquetasprov_ggn: TWideStringField
      FieldName = 'prov_ggn'
      Size = 40
    end
    object qetiquetasprov_lote: TWideStringField
      FieldName = 'prov_lote'
      Size = 40
    end
    object qetiquetasprov_grower: TWideStringField
      FieldName = 'prov_grower'
      Size = 40
    end
    object qetiquetasprov_puk: TWideStringField
      FieldName = 'prov_puk'
      Size = 40
    end
    object qetiquetasprov_otros: TWideStringField
      FieldName = 'prov_otros'
      Size = 40
    end
  end
  object dsqetiquetas: TDataSource
    DataSet = qetiquetas
    Left = 168
    Top = 80
  end
  object qlotes: TZReadOnlyQuery
    Connection = dbagrigest2
    SQL.Strings = (
      'select * from lotes where fecha=:pfecha order by fecha desc'
      '')
    Params = <
      item
        DataType = ftUnknown
        Name = 'pfecha'
        ParamType = ptUnknown
      end>
    Properties.Strings = (
      '')
    Left = 224
    Top = 16
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'pfecha'
        ParamType = ptUnknown
      end>
    object qlotesid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qlotesidempresa: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object qlotesfechaini_trabajo: TDateField
      FieldName = 'fechaini_trabajo'
    end
    object qlotesfechafin_trabajo: TDateField
      FieldName = 'fechafin_trabajo'
    end
    object qlotesfecha: TDateField
      FieldName = 'fecha'
    end
    object qlotesfecha_caducidad: TDateField
      FieldName = 'fecha_caducidad'
      Required = True
    end
    object qlotescodigo: TIntegerField
      DisplayWidth = 6
      FieldName = 'codigo'
      Required = True
    end
    object qlotesPRODUCTOR: TWideStringField
      FieldName = 'PRODUCTOR'
      Size = 100
    end
    object qlotesPAISORIGEN: TWideStringField
      FieldName = 'PAISORIGEN'
      Size = 100
    end
    object qlotesMPRIMA: TWideStringField
      DisplayWidth = 15
      FieldName = 'MPRIMA'
      Size = 40
    end
    object qlotesnum_generadores: TIntegerField
      FieldName = 'num_generadores'
    end
    object qlotestipo_generador: TWideStringField
      FieldName = 'tipo_generador'
      Size = 40
    end
    object qlotesdesc_generador: TWideStringField
      FieldName = 'desc_generador'
      Size = 500
    end
    object qloteslote_proveedor: TWideStringField
      FieldName = 'lote_proveedor'
      Size = 40
    end
    object qlotesentran_teoricos: TFloatField
      FieldName = 'entran_teoricos'
      Required = True
    end
    object qlotesentran_reales: TFloatField
      FieldName = 'entran_reales'
      Required = True
    end
    object qlotessalen_teoricos: TFloatField
      FieldName = 'salen_teoricos'
      Required = True
    end
    object qlotessalen_reales: TFloatField
      FieldName = 'salen_reales'
      Required = True
    end
    object qlotesmerma: TFloatField
      FieldName = 'merma'
      Required = True
    end
    object qlotesporc_merma: TFloatField
      FieldName = 'porc_merma'
      Required = True
    end
    object qlotesdesperdicios: TFloatField
      FieldName = 'desperdicios'
      Required = True
    end
    object qlotestrazabilidad: TWideStringField
      FieldName = 'trazabilidad'
      Required = True
      Size = 30
    end
    object qlotesobservaciones: TWideStringField
      FieldName = 'observaciones'
      Size = 500
    end
    object qlotespropietario: TIntegerField
      FieldName = 'propietario'
    end
    object qlotesresultado: TFloatField
      FieldName = 'resultado'
      Required = True
    end
    object qlotesPARCELA: TWideStringField
      FieldName = 'PARCELA'
      Size = 30
    end
    object qlotessgg: TWideStringField
      FieldName = 'sgg'
      Size = 100
    end
    object qlotessdop: TWideStringField
      FieldName = 'sdop'
      Size = 100
    end
    object qlotessigp: TWideStringField
      FieldName = 'sigp'
      Size = 100
    end
    object qlotessifs: TWideStringField
      FieldName = 'sifs'
      Size = 100
    end
    object qlotessbrc: TWideStringField
      FieldName = 'sbrc'
      Size = 100
    end
  end
  object dsqlotes: TDataSource
    DataSet = qlotes
    Left = 168
    Top = 16
  end
  object qlotessalidas: TZReadOnlyQuery
    Connection = dbagrigest2
    SQL.Strings = (
      
        'select concat(codigo,'#39#39') as lote,fecha,parcela as origen,mprima,' +
        'idempresa,porc_merma,merma from lotes where codigo in (select di' +
        'stinct(lote) from restos_dia where fecha=:PFECHA and idalmacen=:' +
        'PALMACEN) order by codigo desc,fecha desc')
    Params = <
      item
        DataType = ftUnknown
        Name = 'PFECHA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PALMACEN'
        ParamType = ptUnknown
      end>
    Properties.Strings = (
      '')
    Left = 136
    Top = 304
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PFECHA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PALMACEN'
        ParamType = ptUnknown
      end>
    object qlotessalidasfecha: TDateField
      DisplayWidth = 5
      FieldName = 'fecha'
      Required = True
      DisplayFormat = 'dd/mm'
    end
    object qlotessalidasorigen: TWideStringField
      DisplayWidth = 25
      FieldName = 'origen'
      Size = 100
    end
    object qlotessalidasmprima: TWideStringField
      DisplayWidth = 15
      FieldName = 'mprima'
      Size = 40
    end
    object qlotessalidasidempresa: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object qlotessalidasporc_merma: TFloatField
      FieldName = 'porc_merma'
      Required = True
    end
    object qlotessalidasmerma: TFloatField
      DisplayWidth = 40
      FieldName = 'merma'
      Required = True
      DisplayFormat = '#000'
    end
    object qlotessalidaslote: TWideStringField
      DisplayWidth = 8
      FieldName = 'lote'
      ReadOnly = True
      Size = 22
    end
  end
  object dsqlotessalidas: TDataSource
    DataSet = qlotessalidas
    Left = 40
    Top = 312
  end
  object qrestarpesadas: TZQuery
    Connection = dbagrigest2
    SQL.Strings = (
      
        'select * from ea_pesadas where idea<>0 and  resto_pesoneto>0 and' +
        ' lote='#39'17052'#39)
    Params = <>
    Left = 128
    Top = 464
    object qrestarpesadasid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qrestarpesadasidempresa: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object qrestarpesadasidEA: TIntegerField
      FieldName = 'idEA'
      Required = True
    end
    object qrestarpesadasid_palet: TWideStringField
      FieldName = 'id_palet'
      Required = True
      Size = 30
    end
    object qrestarpesadasnum_palets: TIntegerField
      FieldName = 'num_palets'
      Required = True
    end
    object qrestarpesadasid_palet2: TWideStringField
      FieldName = 'id_palet2'
      Size = 30
    end
    object qrestarpesadasnum_palets2: TIntegerField
      FieldName = 'num_palets2'
    end
    object qrestarpesadasid_envase: TWideStringField
      FieldName = 'id_envase'
      Required = True
      Size = 30
    end
    object qrestarpesadasnum_envases: TIntegerField
      FieldName = 'num_envases'
      Required = True
    end
    object qrestarpesadasiddestino: TIntegerField
      FieldName = 'iddestino'
      Required = True
    end
    object qrestarpesadasdestino: TWideStringField
      FieldName = 'destino'
      Required = True
      Size = 40
    end
    object qrestarpesadaspeso_bruto: TFloatField
      FieldName = 'peso_bruto'
      Required = True
    end
    object qrestarpesadastara: TFloatField
      FieldName = 'tara'
      Required = True
    end
    object qrestarpesadaspeso_neto: TFloatField
      FieldName = 'peso_neto'
      Required = True
    end
    object qrestarpesadaspeso_neto_teorico: TFloatField
      FieldName = 'peso_neto_teorico'
      Required = True
    end
    object qrestarpesadaspeso_medio: TFloatField
      FieldName = 'peso_medio'
      Required = True
    end
    object qrestarpesadastemperatura: TFloatField
      FieldName = 'temperatura'
    end
    object qrestarpesadasfecha: TDateField
      FieldName = 'fecha'
      Required = True
    end
    object qrestarpesadasfechatrabajo: TDateField
      FieldName = 'fechatrabajo'
      Required = True
    end
    object qrestarpesadashora: TTimeField
      FieldName = 'hora'
      Required = True
    end
    object qrestarpesadasCEA: TWideStringField
      FieldName = 'CEA'
      Size = 42
    end
    object qrestarpesadasresto_cajas: TFloatField
      FieldName = 'resto_cajas'
      Required = True
    end
    object qrestarpesadasresto_pesoneto: TFloatField
      FieldName = 'resto_pesoneto'
      Required = True
    end
    object qrestarpesadasidorigen: TIntegerField
      FieldName = 'idorigen'
    end
    object qrestarpesadasmprima: TWideStringField
      FieldName = 'mprima'
      Size = 30
    end
    object qrestarpesadasgen_caja: TIntegerField
      FieldName = 'gen_caja'
      Required = True
    end
    object qrestarpesadascosto: TFloatField
      FieldName = 'costo'
      Required = True
    end
    object qrestarpesadascoste_manipulacion: TFloatField
      FieldName = 'coste_manipulacion'
      Required = True
    end
    object qrestarpesadasdias_camara: TIntegerField
      FieldName = 'dias_camara'
      Required = True
    end
    object qrestarpesadascosto_camara: TFloatField
      FieldName = 'costo_camara'
      Required = True
    end
    object qrestarpesadascodigoR: TWideStringField
      FieldName = 'codigoR'
      Required = True
    end
    object qrestarpesadasparcela: TWideStringField
      FieldName = 'parcela'
      Size = 100
    end
    object qrestarpesadasfecha_cierre: TDateField
      FieldName = 'fecha_cierre'
    end
    object qrestarpesadascosto_materiales: TFloatField
      FieldName = 'costo_materiales'
      Required = True
    end
    object qrestarpesadascosto_cosechar: TFloatField
      FieldName = 'costo_cosechar'
      Required = True
    end
    object qrestarpesadasborrado: TIntegerField
      FieldName = 'borrado'
      Required = True
    end
    object qrestarpesadasseleccionado: TIntegerField
      FieldName = 'seleccionado'
      Required = True
    end
  end
  object qempresas: TZReadOnlyQuery
    Connection = dbagrigest2
    SQL.Strings = (
      'select * from empresa')
    Params = <>
    Left = 40
    Top = 128
    object qempresasid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qempresascif: TWideStringField
      FieldName = 'cif'
      Required = True
      Size = 18
    end
    object qempresasnombre: TWideStringField
      FieldName = 'nombre'
      Required = True
      Size = 120
    end
    object qempresasdireccion: TWideStringField
      FieldName = 'direccion'
      Required = True
      Size = 80
    end
    object qempresascodpost: TWideStringField
      FieldName = 'codpost'
      Required = True
      Size = 10
    end
    object qempresaspoblacion: TWideStringField
      FieldName = 'poblacion'
      Required = True
      Size = 80
    end
    object qempresasprovincia: TWideStringField
      FieldName = 'provincia'
      Required = True
      Size = 80
    end
    object qempresasemail: TWideStringField
      FieldName = 'email'
      Size = 500
    end
    object qempresastelefono1: TWideStringField
      FieldName = 'telefono1'
      Size = 18
    end
    object qempresastelefono2: TWideStringField
      FieldName = 'telefono2'
      Required = True
      Size = 18
    end
    object qempresascontacto: TWideStringField
      FieldName = 'contacto'
      Required = True
      Size = 100
    end
    object qempresascontingenciacomfij: TFloatField
      FieldName = 'contingenciacomfij'
      Required = True
    end
    object qempresassalariobasedia: TFloatField
      FieldName = 'salariobasedia'
      Required = True
    end
    object qempresascontingenciasdia: TFloatField
      FieldName = 'contingenciasdia'
      Required = True
    end
    object qempresasirpf: TFloatField
      FieldName = 'irpf'
      Required = True
    end
    object qempresasdesempleo: TFloatField
      FieldName = 'desempleo'
      Required = True
    end
    object qempresasformacion: TFloatField
      FieldName = 'formacion'
      Required = True
    end
    object qempresascontingencias: TFloatField
      FieldName = 'contingencias'
      Required = True
    end
    object qempresasirpf2: TFloatField
      FieldName = 'irpf2'
    end
    object qempresasdesempleo2: TFloatField
      FieldName = 'desempleo2'
    end
    object qempresasformacion2: TFloatField
      FieldName = 'formacion2'
    end
    object qempresascontingencias2: TFloatField
      FieldName = 'contingencias2'
    end
    object qempresascc_iban: TWideStringField
      FieldName = 'cc_iban'
      Required = True
      Size = 8
    end
    object qempresascc_entidad: TWideStringField
      FieldName = 'cc_entidad'
      Required = True
      Size = 8
    end
    object qempresascc_oficina: TWideStringField
      FieldName = 'cc_oficina'
      Required = True
      Size = 8
    end
    object qempresascc_dc: TWideStringField
      FieldName = 'cc_dc'
      Required = True
      Size = 4
    end
    object qempresascc_cc: TWideStringField
      FieldName = 'cc_cc'
      Required = True
    end
    object qempresasajusteentrada: TIntegerField
      FieldName = 'ajusteentrada'
    end
    object qempresasajustesalida: TIntegerField
      FieldName = 'ajustesalida'
    end
    object qempresasporcbloqueo: TIntegerField
      FieldName = 'porcbloqueo'
    end
    object qempresasactive: TIntegerField
      FieldName = 'active'
    end
    object qempresasult_envio: TIntegerField
      FieldName = 'ult_envio'
    end
    object qempresasregistro_sanitario: TWideStringField
      FieldName = 'registro_sanitario'
      Size = 40
    end
    object qempresascoste_kg_gen: TFloatField
      FieldName = 'coste_kg_gen'
      Required = True
    end
    object qempresasporc_segsocial: TFloatField
      FieldName = 'porc_segsocial'
    end
    object qempresasprecio_venta_desperdicios: TFloatField
      FieldName = 'precio_venta_desperdicios'
      Required = True
    end
    object qempresasvercodtrazabilidad: TIntegerField
      FieldName = 'vercodtrazabilidad'
      Required = True
    end
    object qempresascodcomision: TWideStringField
      FieldName = 'codcomision'
      Size = 40
    end
    object qempresascodtransporte: TWideStringField
      FieldName = 'codtransporte'
      Size = 40
    end
    object qempresascc_bic: TWideStringField
      FieldName = 'cc_bic'
      Size = 22
    end
    object qempresascodotros: TWideStringField
      FieldName = 'codotros'
      Size = 40
    end
    object qempresasavisarstock: TIntegerField
      FieldName = 'avisarstock'
      Required = True
    end
    object qempresashtlunes: TFloatField
      FieldName = 'htlunes'
    end
    object qempresashtmartes: TFloatField
      FieldName = 'htmartes'
    end
    object qempresashtmiercoles: TFloatField
      FieldName = 'htmiercoles'
    end
    object qempresashtjueves: TFloatField
      FieldName = 'htjueves'
    end
    object qempresashtviernes: TFloatField
      FieldName = 'htviernes'
    end
    object qempresashtsabados: TFloatField
      FieldName = 'htsabados'
    end
    object qempresashtdomingos: TFloatField
      FieldName = 'htdomingos'
    end
    object qempresastavisostock: TIntegerField
      FieldName = 'tavisostock'
    end
    object qempresasresponsable: TWideStringField
      FieldName = 'responsable'
      Size = 100
    end
    object qempresasnif_responsable: TWideStringField
      FieldName = 'nif_responsable'
      Size = 30
    end
    object qempresaslogo: TBlobField
      FieldName = 'logo'
    end
    object qempresasfirmaresponsable: TBlobField
      FieldName = 'firmaresponsable'
    end
    object qempresastiempoalmuerzo: TIntegerField
      FieldName = 'tiempoalmuerzo'
    end
    object qempresashorasminimas: TIntegerField
      FieldName = 'horasminimas'
    end
    object qempresasidfamilia: TIntegerField
      FieldName = 'idfamilia'
    end
    object qempresasajuste15: TIntegerField
      FieldName = 'ajuste15'
    end
    object qempresasajuste30: TIntegerField
      FieldName = 'ajuste30'
    end
    object qempresasseparartraza_e_s: TIntegerField
      FieldName = 'separartraza_e_s'
    end
  end
  object qaux: TZReadOnlyQuery
    Connection = dbagrigest2
    SortType = stDescending
    Params = <>
    Properties.Strings = (
      '')
    Left = 64
    Top = 464
  end
  object esclavo: TZQuery
    SQL.Strings = (
      'show slave status')
    Params = <>
    Left = 200
    Top = 464
    object esclavoSlave_IO_State: TWideStringField
      FieldName = 'Slave_IO_State'
      ReadOnly = True
      Size = 60
    end
    object esclavoMaster_Host: TWideStringField
      FieldName = 'Master_Host'
      ReadOnly = True
      Size = 362
    end
    object esclavoMaster_User: TWideStringField
      FieldName = 'Master_User'
      ReadOnly = True
      Size = 770
    end
    object esclavoMaster_Port: TLargeintField
      FieldName = 'Master_Port'
      ReadOnly = True
    end
    object esclavoConnect_Retry: TLargeintField
      FieldName = 'Connect_Retry'
      ReadOnly = True
    end
    object esclavoMaster_Log_File: TWideStringField
      FieldName = 'Master_Log_File'
      ReadOnly = True
      Size = 1024
    end
    object esclavoRead_Master_Log_Pos: TFloatField
      FieldName = 'Read_Master_Log_Pos'
      ReadOnly = True
    end
    object esclavoRelay_Log_File: TWideStringField
      FieldName = 'Relay_Log_File'
      ReadOnly = True
      Size = 1024
    end
    object esclavoRelay_Log_Pos: TFloatField
      FieldName = 'Relay_Log_Pos'
      ReadOnly = True
    end
    object esclavoRelay_Master_Log_File: TWideStringField
      FieldName = 'Relay_Master_Log_File'
      ReadOnly = True
      Size = 1024
    end
    object esclavoSlave_IO_Running: TWideStringField
      FieldName = 'Slave_IO_Running'
      ReadOnly = True
      Size = 6
    end
    object esclavoSlave_SQL_Running: TWideStringField
      FieldName = 'Slave_SQL_Running'
      ReadOnly = True
      Size = 6
    end
    object esclavoReplicate_Do_DB: TWideStringField
      FieldName = 'Replicate_Do_DB'
      ReadOnly = True
      Size = 40
    end
    object esclavoReplicate_Ignore_DB: TWideStringField
      FieldName = 'Replicate_Ignore_DB'
      ReadOnly = True
      Size = 40
    end
    object esclavoReplicate_Do_Table: TWideStringField
      FieldName = 'Replicate_Do_Table'
      ReadOnly = True
      Size = 40
    end
    object esclavoReplicate_Ignore_Table: TWideStringField
      FieldName = 'Replicate_Ignore_Table'
      ReadOnly = True
      Size = 46
    end
    object esclavoReplicate_Wild_Do_Table: TWideStringField
      FieldName = 'Replicate_Wild_Do_Table'
      ReadOnly = True
      Size = 48
    end
    object esclavoReplicate_Wild_Ignore_Table: TWideStringField
      FieldName = 'Replicate_Wild_Ignore_Table'
      ReadOnly = True
      Size = 56
    end
    object esclavoLast_Errno: TLargeintField
      FieldName = 'Last_Errno'
      ReadOnly = True
    end
    object esclavoLast_Error: TWideStringField
      FieldName = 'Last_Error'
      ReadOnly = True
      Size = 40
    end
    object esclavoSkip_Counter: TLargeintField
      FieldName = 'Skip_Counter'
      ReadOnly = True
    end
    object esclavoExec_Master_Log_Pos: TFloatField
      FieldName = 'Exec_Master_Log_Pos'
      ReadOnly = True
    end
    object esclavoRelay_Log_Space: TFloatField
      FieldName = 'Relay_Log_Space'
      ReadOnly = True
    end
    object esclavoUntil_Condition: TWideStringField
      FieldName = 'Until_Condition'
      ReadOnly = True
      Size = 12
    end
    object esclavoUntil_Log_File: TWideStringField
      FieldName = 'Until_Log_File'
      ReadOnly = True
      Size = 1024
    end
    object esclavoUntil_Log_Pos: TFloatField
      FieldName = 'Until_Log_Pos'
      ReadOnly = True
    end
    object esclavoMaster_SSL_Allowed: TWideStringField
      FieldName = 'Master_SSL_Allowed'
      ReadOnly = True
      Size = 14
    end
    object esclavoMaster_SSL_CA_File: TWideStringField
      FieldName = 'Master_SSL_CA_File'
      ReadOnly = True
      Size = 1024
    end
    object esclavoMaster_SSL_CA_Path: TWideStringField
      FieldName = 'Master_SSL_CA_Path'
      ReadOnly = True
      Size = 1024
    end
    object esclavoMaster_SSL_Cert: TWideStringField
      FieldName = 'Master_SSL_Cert'
      ReadOnly = True
      Size = 1024
    end
    object esclavoMaster_SSL_Cipher: TWideStringField
      FieldName = 'Master_SSL_Cipher'
      ReadOnly = True
      Size = 1024
    end
    object esclavoMaster_SSL_Key: TWideStringField
      FieldName = 'Master_SSL_Key'
      ReadOnly = True
      Size = 1024
    end
    object esclavoSeconds_Behind_Master: TFloatField
      FieldName = 'Seconds_Behind_Master'
      ReadOnly = True
    end
    object esclavoMaster_SSL_Verify_Server_Cert: TWideStringField
      FieldName = 'Master_SSL_Verify_Server_Cert'
      ReadOnly = True
      Size = 6
    end
    object esclavoLast_IO_Errno: TLargeintField
      FieldName = 'Last_IO_Errno'
      ReadOnly = True
    end
    object esclavoLast_IO_Error: TWideStringField
      FieldName = 'Last_IO_Error'
      ReadOnly = True
      Size = 40
    end
    object esclavoLast_SQL_Errno: TLargeintField
      FieldName = 'Last_SQL_Errno'
      ReadOnly = True
    end
    object esclavoLast_SQL_Error: TWideStringField
      FieldName = 'Last_SQL_Error'
      ReadOnly = True
      Size = 40
    end
    object esclavoReplicate_Ignore_Server_Ids: TWideStringField
      FieldName = 'Replicate_Ignore_Server_Ids'
      ReadOnly = True
      Size = 1024
    end
    object esclavoMaster_Server_Id: TLargeintField
      FieldName = 'Master_Server_Id'
      ReadOnly = True
    end
    object esclavoMaster_SSL_Crl: TWideStringField
      FieldName = 'Master_SSL_Crl'
      ReadOnly = True
      Size = 1024
    end
    object esclavoMaster_SSL_Crlpath: TWideStringField
      FieldName = 'Master_SSL_Crlpath'
      ReadOnly = True
      Size = 1024
    end
    object esclavoUsing_Gtid: TWideStringField
      FieldName = 'Using_Gtid'
      ReadOnly = True
      Size = 22
    end
    object esclavoGtid_IO_Pos: TWideStringField
      FieldName = 'Gtid_IO_Pos'
      ReadOnly = True
      Size = 60
    end
    object esclavoReplicate_Do_Domain_Ids: TWideStringField
      FieldName = 'Replicate_Do_Domain_Ids'
      ReadOnly = True
      Size = 1024
    end
    object esclavoReplicate_Ignore_Domain_Ids: TWideStringField
      FieldName = 'Replicate_Ignore_Domain_Ids'
      ReadOnly = True
      Size = 1024
    end
    object esclavoParallel_Mode: TWideStringField
      FieldName = 'Parallel_Mode'
      ReadOnly = True
      Size = 24
    end
  end
  object qlotes_pesadas: TZQuery
    Connection = dbagrigest2
    SQL.Strings = (
      'SELECT * FROM `lotes_pesadas` where idea=-1 and idea2=-1000')
    Params = <>
    Left = 104
    Top = 392
    object qlotes_pesadasid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qlotes_pesadaside: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object qlotes_pesadasidea: TIntegerField
      FieldName = 'idea'
      Required = True
    end
    object qlotes_pesadasidea2: TIntegerField
      FieldName = 'idea2'
      Required = True
    end
    object qlotes_pesadaslote: TIntegerField
      DisplayWidth = 7
      FieldName = 'lote'
      Required = True
    end
    object qlotes_pesadascajas: TIntegerField
      DisplayWidth = 3
      FieldName = 'cajas'
    end
    object qlotes_pesadaspesoneto_teorico: TFloatField
      DisplayWidth = 7
      FieldName = 'pesoneto_teorico'
      DisplayFormat = '#0.00'
    end
    object qlotes_pesadaspesoneto_real: TFloatField
      DisplayWidth = 7
      FieldName = 'pesoneto_real'
      DisplayFormat = '#0.00'
    end
    object qlotes_pesadases_entrada: TIntegerField
      FieldName = 'es_entrada'
      Required = True
    end
    object qlotes_pesadasid_envase: TWideStringField
      FieldName = 'id_envase'
      Required = True
      Size = 40
    end
    object qlotes_pesadasid_formato: TIntegerField
      FieldName = 'id_formato'
      Required = True
    end
    object qlotes_pesadasdesc_envase: TWideStringField
      FieldName = 'desc_envase'
      Size = 100
    end
    object qlotes_pesadasdesc_formato: TWideStringField
      FieldName = 'desc_formato'
      Size = 100
    end
    object qlotes_pesadasparcela: TWideStringField
      FieldName = 'parcela'
      Size = 100
    end
    object qlotes_pesadasmprima: TWideStringField
      FieldName = 'mprima'
      Size = 40
    end
    object qlotes_pesadascalibrecalidad: TIntegerField
      FieldName = 'calibrecalidad'
    end
    object qlotes_pesadasdesc_calibre: TWideStringField
      FieldName = 'desc_calibre'
      Required = True
      Size = 40
    end
  end
  object dslotes_pesadas: TDataSource
    DataSet = qlotes_pesadas
    Left = 40
    Top = 368
  end
  object qlotespesadas: TZReadOnlyQuery
    Connection = dbagrigest2
    SortType = stDescending
    SQL.Strings = (
      
        'SELECT lp.ide,lp.idea,lp.idea2,lp.lote,lp.cajas,lp.pesoneto_teor' +
        'ico,lp.pesoneto_real,l.fecha,l.parcela,l.PAISORIGEN,l.mprima,lp.' +
        'desc_envase,lp.desc_formato,lp.desc_calibre,l.trazabilidad,pc.no' +
        'mbre,l.sgg,l.sdop,l.sigp,l.sifs,l.sbrc '
      
        ' FROM lotes_pesadas lp, lotes l,parcelas pc where lp.parcela=pc.' +
        'codpar and lp.ide=pc.empresa and lp.lote=l.codigo and lp.ide=l.i' +
        'dempresa and lp.idea=-1 and lp.idea2=-1000')
    Params = <>
    Properties.Strings = (
      '')
    MasterSource = dsqetiquetas
    Left = 224
    Top = 144
    object qlotespesadaside: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object qlotespesadasidea: TIntegerField
      FieldName = 'idea'
      Required = True
    end
    object qlotespesadasidea2: TIntegerField
      FieldName = 'idea2'
      Required = True
    end
    object qlotespesadascajas: TIntegerField
      FieldName = 'cajas'
    end
    object qlotespesadaspesoneto_teorico: TFloatField
      FieldName = 'pesoneto_teorico'
    end
    object qlotespesadaspesoneto_real: TFloatField
      FieldName = 'pesoneto_real'
    end
    object qlotespesadasfecha: TDateField
      FieldName = 'fecha'
    end
    object qlotespesadasparcela: TWideStringField
      FieldName = 'parcela'
      Size = 30
    end
    object qlotespesadasPAISORIGEN: TWideStringField
      FieldName = 'PAISORIGEN'
      Size = 100
    end
    object qlotespesadasmprima: TWideStringField
      FieldName = 'mprima'
      Size = 40
    end
    object qlotespesadaslote: TIntegerField
      FieldName = 'lote'
      Required = True
    end
    object qlotespesadasdesc_envase: TWideStringField
      FieldName = 'desc_envase'
      Size = 100
    end
    object qlotespesadasdesc_formato: TWideStringField
      FieldName = 'desc_formato'
      Size = 100
    end
    object qlotespesadasdesc_calibre: TWideStringField
      FieldName = 'desc_calibre'
      Required = True
      Size = 40
    end
    object qlotespesadastrazabilidad: TWideStringField
      FieldName = 'trazabilidad'
      Size = 30
    end
    object qlotespesadasnombre: TWideStringField
      FieldName = 'nombre'
      Size = 100
    end
    object qlotespesadassgg: TWideStringField
      FieldName = 'sgg'
      Size = 100
    end
    object qlotespesadassdop: TWideStringField
      FieldName = 'sdop'
      Size = 100
    end
    object qlotespesadassigp: TWideStringField
      FieldName = 'sigp'
      Size = 100
    end
    object qlotespesadassifs: TWideStringField
      FieldName = 'sifs'
      Size = 100
    end
    object qlotespesadassbrc: TWideStringField
      FieldName = 'sbrc'
      Size = 100
    end
  end
  object dsqlotespesadas: TDataSource
    DataSet = qlotespesadas
    Left = 168
    Top = 144
  end
  object qpesadasentradas: TZReadOnlyQuery
    Connection = dbagrigest2
    SortType = stDescending
    SQL.Strings = (
      'select * from v_ea_pesadaslotes where id>1 and idea>0')
    Params = <>
    Properties.Strings = (
      '')
    Left = 152
    Top = 192
    object qpesadasentradasid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qpesadasentradasidempresa: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object qpesadasentradasidea: TIntegerField
      FieldName = 'idea'
      Required = True
    end
    object qpesadasentradasid_palet: TWideStringField
      FieldName = 'id_palet'
      Required = True
      Size = 30
    end
    object qpesadasentradasnum_palets: TIntegerField
      FieldName = 'num_palets'
      Required = True
    end
    object qpesadasentradasid_palet2: TWideStringField
      FieldName = 'id_palet2'
      Size = 30
    end
    object qpesadasentradasnum_palets2: TIntegerField
      FieldName = 'num_palets2'
    end
    object qpesadasentradasid_envase: TWideStringField
      FieldName = 'id_envase'
      Required = True
      Size = 30
    end
    object qpesadasentradasnum_envases: TIntegerField
      FieldName = 'num_envases'
    end
    object qpesadasentradasiddestino: TIntegerField
      FieldName = 'iddestino'
      Required = True
    end
    object qpesadasentradasdestino: TWideStringField
      FieldName = 'destino'
      Required = True
      Size = 100
    end
    object qpesadasentradaspeso_bruto: TFloatField
      FieldName = 'peso_bruto'
      Required = True
    end
    object qpesadasentradastara: TFloatField
      FieldName = 'tara'
      Required = True
    end
    object qpesadasentradaspeso_neto: TFloatField
      FieldName = 'peso_neto'
      Required = True
    end
    object qpesadasentradaspeso_neto_teorico: TFloatField
      FieldName = 'peso_neto_teorico'
      Required = True
    end
    object qpesadasentradaspeso_medio: TFloatField
      FieldName = 'peso_medio'
      Required = True
    end
    object qpesadasentradastemperatura: TFloatField
      FieldName = 'temperatura'
    end
    object qpesadasentradasfecha: TDateField
      FieldName = 'fecha'
      Required = True
    end
    object qpesadasentradasfechatrabajo: TDateField
      FieldName = 'fechatrabajo'
      Required = True
    end
    object qpesadasentradashora: TTimeField
      FieldName = 'hora'
      Required = True
    end
    object qpesadasentradasCEA: TWideStringField
      FieldName = 'CEA'
      Size = 42
    end
    object qpesadasentradasresto_cajas: TFloatField
      FieldName = 'resto_cajas'
      Required = True
    end
    object qpesadasentradasresto_pesoneto: TFloatField
      FieldName = 'resto_pesoneto'
      Required = True
    end
    object qpesadasentradaslote: TIntegerField
      FieldName = 'lote'
      Required = True
    end
    object qpesadasentradasorigen: TWideStringField
      FieldName = 'origen'
      Required = True
      Size = 100
    end
    object qpesadasentradasidorigen: TIntegerField
      FieldName = 'idorigen'
    end
    object qpesadasentradasmprima: TWideStringField
      FieldName = 'mprima'
      Size = 40
    end
    object qpesadasentradasmprima_p: TWideStringField
      FieldName = 'mprima_p'
      Size = 40
    end
    object qpesadasentradasgen_caja: TIntegerField
      FieldName = 'gen_caja'
      Required = True
    end
    object qpesadasentradascosto: TFloatField
      FieldName = 'costo'
      Required = True
    end
    object qpesadasentradascoste_manipulacion: TFloatField
      FieldName = 'coste_manipulacion'
      Required = True
    end
    object qpesadasentradasdias_camara: TIntegerField
      FieldName = 'dias_camara'
      Required = True
    end
    object qpesadasentradascosto_camara: TFloatField
      FieldName = 'costo_camara'
      Required = True
    end
    object qpesadasentradascodigoR: TWideStringField
      FieldName = 'codigoR'
      Required = True
    end
    object qpesadasentradasparcela: TWideStringField
      FieldName = 'parcela'
      Size = 100
    end
    object qpesadasentradasfecha_cierre: TDateField
      FieldName = 'fecha_cierre'
    end
    object qpesadasentradascosto_materiales: TFloatField
      FieldName = 'costo_materiales'
      Required = True
    end
    object qpesadasentradascosto_cosechar: TFloatField
      FieldName = 'costo_cosechar'
      Required = True
    end
    object qpesadasentradasborrado: TIntegerField
      FieldName = 'borrado'
      Required = True
    end
    object qpesadasentradasseleccionado: TIntegerField
      FieldName = 'seleccionado'
      Required = True
    end
    object qpesadasentradasobservaciones: TWideStringField
      FieldName = 'observaciones'
      Size = 500
    end
    object qpesadasentradastipo_trabajo: TWideStringField
      FieldName = 'tipo_trabajo'
      Size = 60
    end
    object qpesadasentradastipo_generador: TWideStringField
      FieldName = 'tipo_generador'
      Size = 60
    end
    object qpesadasentradasremanipulado: TIntegerField
      FieldName = 'remanipulado'
      Required = True
    end
    object qpesadasentradasfecha_envasado: TDateField
      FieldName = 'fecha_envasado'
    end
    object qpesadasentradascodean: TWideStringField
      FieldName = 'codean'
      Size = 100
    end
    object qpesadasentradascodssc: TWideStringField
      FieldName = 'codssc'
      Size = 100
    end
    object qpesadasentradaspedidocliente: TIntegerField
      FieldName = 'pedidocliente'
    end
    object qpesadasentradascosto_sinmt: TFloatField
      FieldName = 'costo_sinmt'
    end
    object qpesadasentradasrecuperar_envases: TIntegerField
      FieldName = 'recuperar_envases'
      Required = True
    end
    object qpesadasentradasidalbaran: TWideStringField
      FieldName = 'idalbaran'
      Size = 22
    end
    object qpesadasentradases_entrada: TIntegerField
      FieldName = 'es_entrada'
      Required = True
    end
  end
  object qpesadassalidas: TZReadOnlyQuery
    Connection = dbagrigest2
    SortType = stDescending
    SQL.Strings = (
      'select * from v_ea_pesadaslotes where id=-1 and idea=0')
    Params = <>
    Properties.Strings = (
      '')
    Left = 144
    Top = 248
    object qpesadassalidasid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qpesadassalidasidempresa: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object qpesadassalidasidea: TIntegerField
      FieldName = 'idea'
      Required = True
    end
    object qpesadassalidasid_palet: TWideStringField
      FieldName = 'id_palet'
      Required = True
      Size = 30
    end
    object qpesadassalidasnum_palets: TIntegerField
      FieldName = 'num_palets'
      Required = True
    end
    object qpesadassalidasid_palet2: TWideStringField
      FieldName = 'id_palet2'
      Size = 30
    end
    object qpesadassalidasnum_palets2: TIntegerField
      FieldName = 'num_palets2'
    end
    object qpesadassalidasid_envase: TWideStringField
      FieldName = 'id_envase'
      Required = True
      Size = 30
    end
    object qpesadassalidasnum_envases: TIntegerField
      FieldName = 'num_envases'
    end
    object qpesadassalidasiddestino: TIntegerField
      FieldName = 'iddestino'
      Required = True
    end
    object qpesadassalidasdestino: TWideStringField
      FieldName = 'destino'
      Required = True
      Size = 100
    end
    object qpesadassalidaspeso_bruto: TFloatField
      FieldName = 'peso_bruto'
      Required = True
    end
    object qpesadassalidastara: TFloatField
      FieldName = 'tara'
      Required = True
    end
    object qpesadassalidaspeso_neto: TFloatField
      FieldName = 'peso_neto'
      Required = True
    end
    object qpesadassalidaspeso_neto_teorico: TFloatField
      FieldName = 'peso_neto_teorico'
      Required = True
    end
    object qpesadassalidaspeso_medio: TFloatField
      FieldName = 'peso_medio'
      Required = True
    end
    object qpesadassalidastemperatura: TFloatField
      FieldName = 'temperatura'
    end
    object qpesadassalidasfecha: TDateField
      FieldName = 'fecha'
      Required = True
    end
    object qpesadassalidasfechatrabajo: TDateField
      FieldName = 'fechatrabajo'
      Required = True
    end
    object qpesadassalidashora: TTimeField
      FieldName = 'hora'
      Required = True
    end
    object qpesadassalidasCEA: TWideStringField
      FieldName = 'CEA'
      Size = 42
    end
    object qpesadassalidasresto_cajas: TFloatField
      FieldName = 'resto_cajas'
      Required = True
    end
    object qpesadassalidasresto_pesoneto: TFloatField
      FieldName = 'resto_pesoneto'
      Required = True
    end
    object qpesadassalidaslote: TIntegerField
      FieldName = 'lote'
      Required = True
    end
    object qpesadassalidasorigen: TWideStringField
      FieldName = 'origen'
      Required = True
      Size = 100
    end
    object qpesadassalidasidorigen: TIntegerField
      FieldName = 'idorigen'
    end
    object qpesadassalidasmprima: TWideStringField
      FieldName = 'mprima'
      Size = 40
    end
    object qpesadassalidasmprima_p: TWideStringField
      FieldName = 'mprima_p'
      Size = 40
    end
    object qpesadassalidasgen_caja: TIntegerField
      FieldName = 'gen_caja'
      Required = True
    end
    object qpesadassalidascosto: TFloatField
      FieldName = 'costo'
      Required = True
    end
    object qpesadassalidascoste_manipulacion: TFloatField
      FieldName = 'coste_manipulacion'
      Required = True
    end
    object qpesadassalidasdias_camara: TIntegerField
      FieldName = 'dias_camara'
      Required = True
    end
    object qpesadassalidascosto_camara: TFloatField
      FieldName = 'costo_camara'
      Required = True
    end
    object qpesadassalidascodigoR: TWideStringField
      FieldName = 'codigoR'
      Required = True
    end
    object qpesadassalidasparcela: TWideStringField
      FieldName = 'parcela'
      Size = 100
    end
    object qpesadassalidasfecha_cierre: TDateField
      FieldName = 'fecha_cierre'
    end
    object qpesadassalidascosto_materiales: TFloatField
      FieldName = 'costo_materiales'
      Required = True
    end
    object qpesadassalidascosto_cosechar: TFloatField
      FieldName = 'costo_cosechar'
      Required = True
    end
    object qpesadassalidasborrado: TIntegerField
      FieldName = 'borrado'
      Required = True
    end
    object qpesadassalidasseleccionado: TIntegerField
      FieldName = 'seleccionado'
      Required = True
    end
    object qpesadassalidasobservaciones: TWideStringField
      FieldName = 'observaciones'
      Size = 500
    end
    object qpesadassalidastipo_trabajo: TWideStringField
      FieldName = 'tipo_trabajo'
      Size = 60
    end
    object qpesadassalidastipo_generador: TWideStringField
      FieldName = 'tipo_generador'
      Size = 60
    end
    object qpesadassalidasremanipulado: TIntegerField
      FieldName = 'remanipulado'
      Required = True
    end
    object qpesadassalidasfecha_envasado: TDateField
      FieldName = 'fecha_envasado'
    end
    object qpesadassalidascodean: TWideStringField
      FieldName = 'codean'
      Size = 100
    end
    object qpesadassalidascodssc: TWideStringField
      FieldName = 'codssc'
      Size = 100
    end
    object qpesadassalidaspedidocliente: TIntegerField
      FieldName = 'pedidocliente'
    end
    object qpesadassalidascosto_sinmt: TFloatField
      FieldName = 'costo_sinmt'
    end
    object qpesadassalidasrecuperar_envases: TIntegerField
      FieldName = 'recuperar_envases'
      Required = True
    end
    object qpesadassalidasidalbaran: TWideStringField
      FieldName = 'idalbaran'
      Size = 22
    end
    object qpesadassalidases_entrada: TIntegerField
      FieldName = 'es_entrada'
      Required = True
    end
  end
  object dsqsalidas: TDataSource
    DataSet = qpesadassalidas
    Left = 40
    Top = 256
  end
  object dsqentradas: TDataSource
    DataSet = qpesadasentradas
    Left = 40
    Top = 192
  end
  object qpesadas: TZQuery
    Connection = dbagrigest2
    SQL.Strings = (
      'select * from ea_pesadas')
    Params = <>
    Left = 440
    Top = 24
    object qpesadasid: TIntegerField
      DisplayWidth = 6
      FieldName = 'id'
      Required = True
    end
    object qpesadasidempresa: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object qpesadasidEA: TIntegerField
      DisplayWidth = 6
      FieldName = 'idEA'
      Required = True
    end
    object qpesadasid_palet: TWideStringField
      FieldName = 'id_palet'
      Required = True
      Size = 30
    end
    object qpesadasnum_palets: TIntegerField
      FieldName = 'num_palets'
      Required = True
    end
    object qpesadasid_palet2: TWideStringField
      FieldName = 'id_palet2'
      Size = 30
    end
    object qpesadasnum_palets2: TIntegerField
      FieldName = 'num_palets2'
    end
    object qpesadasid_envase: TWideStringField
      FieldName = 'id_envase'
      Size = 30
    end
    object qpesadasnum_envases: TIntegerField
      FieldName = 'num_envases'
      Required = True
    end
    object qpesadasdestino: TWideStringField
      DisplayWidth = 15
      FieldName = 'destino'
      Required = True
      Size = 100
    end
    object qpesadaspeso_bruto: TFloatField
      FieldName = 'peso_bruto'
      Required = True
      DisplayFormat = '#0.000'
    end
    object qpesadastara: TFloatField
      FieldName = 'tara'
      Required = True
      DisplayFormat = '#0.000'
    end
    object qpesadaspeso_neto: TFloatField
      FieldName = 'peso_neto'
      Required = True
      DisplayFormat = '#0.000'
    end
    object qpesadaspeso_neto_teorico: TFloatField
      FieldName = 'peso_neto_teorico'
      Required = True
      DisplayFormat = '#0.000'
    end
    object qpesadaspeso_medio: TFloatField
      FieldName = 'peso_medio'
      Required = True
      DisplayFormat = '#0.0'
    end
    object qpesadastemperatura: TFloatField
      FieldName = 'temperatura'
    end
    object qpesadasfecha: TDateField
      FieldName = 'fecha'
      Required = True
      DisplayFormat = 'dd/mm/yy'
    end
    object qpesadasfechatrabajo: TDateField
      FieldName = 'fechatrabajo'
      Required = True
      DisplayFormat = 'dd/mm/yy'
    end
    object qpesadashora: TTimeField
      FieldName = 'hora'
      Required = True
    end
    object qpesadasCEA: TWideStringField
      FieldName = 'CEA'
      Size = 42
    end
    object qpesadasresto_cajas: TFloatField
      DisplayWidth = 3
      FieldName = 'resto_cajas'
      Required = True
    end
    object qpesadasresto_pesoneto: TFloatField
      FieldName = 'resto_pesoneto'
      Required = True
    end
    object qpesadaslote: TIntegerField
      FieldName = 'lote'
    end
    object qpesadasORIGEN: TWideStringField
      FieldName = 'ORIGEN'
      Required = True
      Size = 100
    end
    object qpesadasidorigen: TIntegerField
      FieldName = 'idorigen'
    end
    object qpesadasmprima: TWideStringField
      FieldName = 'mprima'
      Size = 40
    end
    object qpesadasgen_caja: TIntegerField
      FieldName = 'gen_caja'
      Required = True
    end
    object qpesadascosto: TFloatField
      FieldName = 'costo'
      Required = True
    end
    object qpesadascoste_manipulacion: TFloatField
      FieldName = 'coste_manipulacion'
      Required = True
    end
    object qpesadasdias_camara: TIntegerField
      FieldName = 'dias_camara'
      Required = True
    end
    object qpesadascosto_camara: TFloatField
      FieldName = 'costo_camara'
      Required = True
    end
    object qpesadascodigoR: TWideStringField
      FieldName = 'codigoR'
      Required = True
    end
    object qpesadasparcela: TWideStringField
      FieldName = 'parcela'
      Size = 100
    end
    object qpesadasfecha_cierre: TDateField
      FieldName = 'fecha_cierre'
    end
    object qpesadascosto_materiales: TFloatField
      FieldName = 'costo_materiales'
      Required = True
    end
    object qpesadascosto_cosechar: TFloatField
      FieldName = 'costo_cosechar'
      Required = True
    end
    object qpesadasborrado: TIntegerField
      FieldName = 'borrado'
      Required = True
    end
    object qpesadasseleccionado: TIntegerField
      FieldName = 'seleccionado'
      Required = True
    end
    object qpesadasOBSERVACIONES: TWideStringField
      FieldName = 'OBSERVACIONES'
      Size = 500
    end
    object qpesadastipo_trabajo: TWideStringField
      FieldName = 'tipo_trabajo'
      Size = 60
    end
    object qpesadastipo_generador: TWideStringField
      FieldName = 'tipo_generador'
      Size = 60
    end
    object qpesadasremanipulado: TIntegerField
      FieldName = 'remanipulado'
      Required = True
    end
    object qpesadasfecha_envasado: TDateField
      FieldName = 'fecha_envasado'
    end
    object qpesadascodean: TWideStringField
      FieldName = 'codean'
      Size = 100
    end
    object qpesadascodssc: TWideStringField
      FieldName = 'codssc'
      Size = 100
    end
    object qpesadaspedidocliente: TIntegerField
      FieldName = 'pedidocliente'
    end
    object qpesadascosto_sinmt: TFloatField
      FieldName = 'costo_sinmt'
    end
    object qpesadastara0: TFloatField
      FieldName = 'tara0'
    end
    object qpesadaslotes_detalle: TWideStringField
      FieldName = 'lotes_detalle'
      Size = 60
    end
    object qpesadasidpedido: TIntegerField
      FieldName = 'idpedido'
    end
    object qpesadasrecuperar_envases: TIntegerField
      FieldName = 'recuperar_envases'
      Required = True
    end
    object qpesadascalibre: TFloatField
      FieldName = 'calibre'
    end
    object qpesadasprov_albaran: TWideStringField
      FieldName = 'prov_albaran'
      Size = 40
    end
    object qpesadasprov_fecha: TDateField
      FieldName = 'prov_fecha'
    end
    object qpesadasprov_ggn: TWideStringField
      FieldName = 'prov_ggn'
      Size = 40
    end
    object qpesadasprov_lote: TWideStringField
      FieldName = 'prov_lote'
      Size = 40
    end
    object qpesadasprov_grower: TWideStringField
      FieldName = 'prov_grower'
      Size = 40
    end
    object qpesadasprov_puk: TWideStringField
      FieldName = 'prov_puk'
      Size = 40
    end
    object qpesadasprov_otros: TWideStringField
      FieldName = 'prov_otros'
      Size = 40
    end
    object qpesadasidalbaran: TWideStringField
      FieldName = 'idalbaran'
      Size = 22
    end
    object qpesadasiddestino: TIntegerField
      FieldName = 'iddestino'
      Required = True
    end
    object qpesadasidfactura: TWideStringField
      FieldName = 'idfactura'
      Size = 40
    end
  end
  object dsqpesadas: TDataSource
    DataSet = qpesadas
    Left = 384
    Top = 24
  end
  object dsqpesadaslotes: TDataSource
    DataSet = qpesadaslotes
    Left = 384
    Top = 80
  end
  object qpesadaslotes: TZQuery
    Connection = dbagrigest2
    SQL.Strings = (
      'select * from lotes_pesadas')
    Params = <>
    Left = 448
    Top = 96
    object qpesadaslotesid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qpesadasloteside: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object qpesadaslotesidea: TIntegerField
      FieldName = 'idea'
      Required = True
    end
    object qpesadaslotesidea2: TIntegerField
      FieldName = 'idea2'
      Required = True
    end
    object qpesadasloteslote: TIntegerField
      FieldName = 'lote'
      Required = True
    end
    object qpesadaslotescajas: TIntegerField
      FieldName = 'cajas'
    end
    object qpesadaslotesid_envase: TWideStringField
      FieldName = 'id_envase'
      Size = 40
    end
    object qpesadaslotesid_formato: TIntegerField
      FieldName = 'id_formato'
    end
    object qpesadaslotesdesc_envase: TWideStringField
      FieldName = 'desc_envase'
      Size = 100
    end
    object qpesadaslotesdesc_formato: TWideStringField
      FieldName = 'desc_formato'
      Size = 100
    end
    object qpesadaslotespesoneto_teorico: TFloatField
      FieldName = 'pesoneto_teorico'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qpesadaslotespesoneto_real: TFloatField
      FieldName = 'pesoneto_real'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qpesadasloteses_entrada: TIntegerField
      FieldName = 'es_entrada'
      Required = True
    end
    object qpesadaslotesparcela: TWideStringField
      FieldName = 'parcela'
      Size = 100
    end
    object qpesadaslotesmprima: TWideStringField
      FieldName = 'mprima'
      Size = 40
    end
    object qpesadaslotescalibrecalidad: TIntegerField
      FieldName = 'calibrecalidad'
    end
    object qpesadaslotesdesc_calibre: TWideStringField
      FieldName = 'desc_calibre'
      Size = 40
    end
    object qpesadaslotesresto_cajas: TIntegerField
      FieldName = 'resto_cajas'
      ReadOnly = True
    end
  end
  object qpesadastmp: TZQuery
    Connection = dbagrigest2
    SQL.Strings = (
      'select * from ea_pesadas_tmp')
    Params = <>
    Left = 440
    Top = 160
    object qpesadastmpid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qpesadastmpidempresa: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object qpesadastmpidEA: TIntegerField
      FieldName = 'idEA'
      Required = True
    end
    object qpesadastmpid_palet: TWideStringField
      FieldName = 'id_palet'
      Required = True
      Size = 30
    end
    object qpesadastmpnum_palets: TIntegerField
      FieldName = 'num_palets'
      Required = True
    end
    object qpesadastmpid_palet2: TWideStringField
      FieldName = 'id_palet2'
      Size = 30
    end
    object qpesadastmpnum_palets2: TIntegerField
      FieldName = 'num_palets2'
    end
    object qpesadastmpid_envase: TWideStringField
      FieldName = 'id_envase'
      Size = 30
    end
    object qpesadastmpnum_envases: TIntegerField
      FieldName = 'num_envases'
      Required = True
    end
    object qpesadastmpiddestino: TIntegerField
      FieldName = 'iddestino'
      Required = True
    end
    object qpesadastmpdestino: TWideStringField
      FieldName = 'destino'
      Required = True
      Size = 100
    end
    object qpesadastmppeso_bruto: TFloatField
      FieldName = 'peso_bruto'
      Required = True
      DisplayFormat = '#0.000'
    end
    object qpesadastmptara: TFloatField
      FieldName = 'tara'
      Required = True
      DisplayFormat = '#0.000'
    end
    object qpesadastmppeso_neto: TFloatField
      FieldName = 'peso_neto'
      Required = True
      DisplayFormat = '#0.000'
    end
    object qpesadastmppeso_neto_teorico: TFloatField
      FieldName = 'peso_neto_teorico'
      Required = True
      DisplayFormat = '#0.000'
    end
    object qpesadastmppeso_medio: TFloatField
      FieldName = 'peso_medio'
      Required = True
    end
    object qpesadastmptemperatura: TFloatField
      FieldName = 'temperatura'
    end
    object qpesadastmpfecha: TDateField
      FieldName = 'fecha'
      Required = True
      DisplayFormat = 'dd/mm/yy'
    end
    object qpesadastmpfechatrabajo: TDateField
      FieldName = 'fechatrabajo'
      Required = True
    end
    object qpesadastmphora: TTimeField
      FieldName = 'hora'
      Required = True
    end
    object qpesadastmpCEA: TWideStringField
      FieldName = 'CEA'
      Size = 42
    end
    object qpesadastmpresto_cajas: TFloatField
      FieldName = 'resto_cajas'
      Required = True
    end
    object qpesadastmpresto_pesoneto: TFloatField
      FieldName = 'resto_pesoneto'
      Required = True
    end
    object qpesadastmplote: TIntegerField
      FieldName = 'lote'
    end
    object qpesadastmpORIGEN: TWideStringField
      FieldName = 'ORIGEN'
      Required = True
      Size = 100
    end
    object qpesadastmpidorigen: TIntegerField
      FieldName = 'idorigen'
    end
    object qpesadastmpmprima: TWideStringField
      FieldName = 'mprima'
      Size = 40
    end
    object qpesadastmpgen_caja: TIntegerField
      FieldName = 'gen_caja'
      Required = True
    end
    object qpesadastmpcosto: TFloatField
      FieldName = 'costo'
      Required = True
    end
    object qpesadastmpcoste_manipulacion: TFloatField
      FieldName = 'coste_manipulacion'
      Required = True
    end
    object qpesadastmpdias_camara: TIntegerField
      FieldName = 'dias_camara'
      Required = True
    end
    object qpesadastmpcosto_camara: TFloatField
      FieldName = 'costo_camara'
      Required = True
    end
    object qpesadastmpcodigoR: TWideStringField
      FieldName = 'codigoR'
      Required = True
    end
    object qpesadastmpparcela: TWideStringField
      FieldName = 'parcela'
      Size = 100
    end
    object qpesadastmpfecha_cierre: TDateField
      FieldName = 'fecha_cierre'
    end
    object qpesadastmpcosto_materiales: TFloatField
      FieldName = 'costo_materiales'
      Required = True
    end
    object qpesadastmpcosto_cosechar: TFloatField
      FieldName = 'costo_cosechar'
      Required = True
    end
    object qpesadastmpborrado: TIntegerField
      FieldName = 'borrado'
      Required = True
    end
    object qpesadastmpseleccionado: TIntegerField
      FieldName = 'seleccionado'
      Required = True
    end
    object qpesadastmpOBSERVACIONES: TWideStringField
      FieldName = 'OBSERVACIONES'
      Size = 500
    end
    object qpesadastmptipo_trabajo: TWideStringField
      FieldName = 'tipo_trabajo'
      Size = 60
    end
    object qpesadastmptipo_generador: TWideStringField
      FieldName = 'tipo_generador'
      Size = 60
    end
    object qpesadastmpremanipulado: TIntegerField
      FieldName = 'remanipulado'
      Required = True
    end
    object qpesadastmpfecha_envasado: TDateField
      FieldName = 'fecha_envasado'
    end
    object qpesadastmpcodean: TWideStringField
      FieldName = 'codean'
      Size = 100
    end
    object qpesadastmpcodssc: TWideStringField
      FieldName = 'codssc'
      Size = 100
    end
    object qpesadastmppedidocliente: TIntegerField
      FieldName = 'pedidocliente'
    end
    object qpesadastmpcosto_sinmt: TFloatField
      FieldName = 'costo_sinmt'
    end
    object qpesadastmptara0: TFloatField
      FieldName = 'tara0'
    end
    object qpesadastmplotes_detalle: TWideStringField
      FieldName = 'lotes_detalle'
      Size = 60
    end
    object qpesadastmpidpedido: TIntegerField
      FieldName = 'idpedido'
    end
    object qpesadastmprecuperar_envases: TIntegerField
      FieldName = 'recuperar_envases'
      Required = True
    end
    object qpesadastmpcalibre: TFloatField
      FieldName = 'calibre'
    end
    object qpesadastmpprov_albaran: TWideStringField
      FieldName = 'prov_albaran'
      Size = 40
    end
    object qpesadastmpprov_fecha: TDateField
      FieldName = 'prov_fecha'
    end
    object qpesadastmpprov_ggn: TWideStringField
      FieldName = 'prov_ggn'
      Size = 40
    end
    object qpesadastmpprov_lote: TWideStringField
      FieldName = 'prov_lote'
      Size = 40
    end
    object qpesadastmpprov_grower: TWideStringField
      FieldName = 'prov_grower'
      Size = 40
    end
    object qpesadastmpprov_puk: TWideStringField
      FieldName = 'prov_puk'
      Size = 40
    end
    object qpesadastmpprov_otros: TWideStringField
      FieldName = 'prov_otros'
      Size = 40
    end
    object qpesadastmpidalbaran: TWideStringField
      FieldName = 'idalbaran'
      Size = 22
    end
    object qpesadastmpidfactura: TWideStringField
      FieldName = 'idfactura'
      Size = 22
    end
    object qpesadastmppuesto: TIntegerField
      FieldName = 'puesto'
    end
  end
  object dsqpesadastmp: TDataSource
    DataSet = qpesadastmp
    Left = 352
    Top = 160
  end
end