object dmtr: Tdmtr
  Height = 201
  Width = 389
  PixelsPerInch = 96
  object dsqcampanyas: TDataSource
    DataSet = qcampanyas
    OnDataChange = dsqcampanyasDataChange
    Left = 32
  end
  object qcampanyas: TFDQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      'select * from campanyas order by id desc')
    Left = 32
    Top = 24
    object qcampanyasid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qcampanyasidempresa: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object qcampanyasid_anterior: TIntegerField
      FieldName = 'id_anterior'
    end
    object qcampanyasdescripcion: TWideStringField
      FieldName = 'descripcion'
      Required = True
      Size = 80
    end
    object qcampanyasfechainicio: TDateField
      FieldName = 'fechainicio'
      Required = True
    end
    object qcampanyasfechafin: TDateField
      FieldName = 'fechafin'
      Required = True
    end
    object qcampanyasult_pesada: TIntegerField
      FieldName = 'ult_pesada'
    end
  end
  object dsqlotes: TDataSource
    DataSet = qlotes
    OnDataChange = dsqlotesDataChange
    Left = 96
  end
  object qlotes: TFDQuery
    BeforeOpen = qlotesBeforeOpen
    Connection = DM.DBagrigest
    SQL.Strings = (
      
        'select * from lotes where fecha>=:DESDE and fecha<=:HASTA and pa' +
        'rcela like(:PARCELA)  order by CODIGO DESC')
    Left = 96
    Top = 40
    ParamData = <
      item
        Name = 'DESDE'
      end
      item
        Name = 'HASTA'
      end
      item
        Name = 'PARCELA'
      end>
    object qlotesid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qlotesidempresa: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object qlotescodigo: TIntegerField
      FieldName = 'codigo'
    end
    object qlotesfechaini_trabajo: TDateField
      FieldName = 'fechaini_trabajo'
    end
    object qlotesfechafin_trabajo: TDateField
      FieldName = 'fechafin_trabajo'
    end
    object qlotesfecha: TDateField
      FieldName = 'fecha'
      DisplayFormat = 'DD/MM/YY'
    end
    object qlotesfecha_caducidad: TDateField
      FieldName = 'fecha_caducidad'
    end
    object qlotesPARCELA: TWideStringField
      FieldName = 'PARCELA'
      Size = 30
    end
    object qlotesPRODUCTOR: TWideStringField
      FieldName = 'PRODUCTOR'
      Size = 100
    end
    object qlotesPAISORIGEN: TWideStringField
      FieldName = 'PAISORIGEN'
      Size = 100
    end
    object qlotesMPRIMA: TWideStringField
      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
      DisplayFormat = '#0.00'
    end
    object qlotesentran_reales: TFloatField
      FieldName = 'entran_reales'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qlotessalen_teoricos: TFloatField
      FieldName = 'salen_teoricos'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qlotessalen_reales: TFloatField
      FieldName = 'salen_reales'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qlotesmerma: TFloatField
      FieldName = 'merma'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qlotesporc_merma: TFloatField
      FieldName = 'porc_merma'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qlotesdesperdicios: TFloatField
      FieldName = 'desperdicios'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qlotestrazabilidad: TWideStringField
      FieldName = 'trazabilidad'
      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 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 qpartidas: TFDQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      'select * from partidas order by fecha desc'
      '')
    Left = 160
    Top = 24
    object qpartidasid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qpartidaside: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object qpartidasfecha: TDateField
      FieldName = 'fecha'
      Required = True
    end
    object qpartidasid_parcela: TWideStringField
      FieldName = 'id_parcela'
      Required = True
      Size = 30
    end
    object qpartidasid_mprimas: TWideStringField
      FieldName = 'id_mprimas'
      Required = True
      Size = 40
    end
    object qpartidaslote: TIntegerField
      FieldName = 'lote'
    end
  end
  object qentradas: TFDQuery
    MasterSource = dsqpartidas
    MasterFields = 'id'
    Connection = DM.DBagrigest
    SQL.Strings = (
      'select * from entradas_almacen order by id desc')
    Left = 224
    Top = 24
    object qentradasid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qentradaside: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object qentradasfecha: TDateField
      FieldName = 'fecha'
      Required = True
    end
    object qentradashora: TTimeField
      FieldName = 'hora'
      Required = True
    end
    object qentradaspartida: TIntegerField
      FieldName = 'partida'
      Required = True
    end
    object qentradasnum_palets: TIntegerField
      FieldName = 'num_palets'
      Required = True
    end
    object qentradasnum_cajas: TIntegerField
      FieldName = 'num_cajas'
      Required = True
    end
    object qentradaspeso_bruto: TFloatField
      FieldName = 'peso_bruto'
      Required = True
    end
    object qentradaspeso_neto: TFloatField
      FieldName = 'peso_neto'
      Required = True
    end
    object qentradaspeso_medio: TFloatField
      FieldName = 'peso_medio'
      Required = True
    end
    object qentradasmatricula: TWideStringField
      FieldName = 'matricula'
      Required = True
      Size = 40
    end
    object qentradasmprima: TWideStringField
      FieldName = 'mprima'
      Required = True
      Size = 40
    end
  end
  object qpedidos: TFDQuery
    Connection = DM.DBagrigest
    Left = 224
    Top = 96
  end
  object qtratamientos2: TFDQuery
    Connection = DM.DBagrigest
    Left = 304
    Top = 104
  end
  object dsqpartidas: TDataSource
    DataSet = qpartidas
    Left = 160
    Top = 8
  end
  object dsqentradas: TDataSource
    DataSet = qentradas
    Left = 224
    Top = 8
  end
  object dsqea_pesadas: TDataSource
    DataSet = qea_pesadas
    Left = 288
    Top = 8
  end
  object dsqsalidas: TDataSource
    DataSet = qsalidas
    Left = 160
    Top = 80
  end
  object dsqpedidos: TDataSource
    DataSet = qpedidos
    Left = 224
    Top = 72
  end
  object dsqtratamientos: TDataSource
    DataSet = qtratamientos2
    Left = 304
    Top = 80
  end
  object qea_pesadas: TFDQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      
        'select * from v_ea_pesadaslotes where idea>0 and lote=:LOTE orde' +
        'r by fecha desc,id desc')
    Left = 288
    Top = 24
    ParamData = <
      item
        Name = 'LOTE'
      end>
    object qea_pesadasid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qea_pesadasidempresa: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object qea_pesadasidea: TIntegerField
      FieldName = 'idea'
      Required = True
    end
    object qea_pesadasid_palet: TWideStringField
      FieldName = 'id_palet'
      Required = True
      Size = 30
    end
    object qea_pesadasnum_palets: TIntegerField
      FieldName = 'num_palets'
      Required = True
    end
    object qea_pesadasid_palet2: TWideStringField
      FieldName = 'id_palet2'
      Size = 30
    end
    object qea_pesadasnum_palets2: TIntegerField
      FieldName = 'num_palets2'
    end
    object qea_pesadasid_envase: TWideStringField
      FieldName = 'id_envase'
      Required = True
      Size = 40
    end
    object qea_pesadasnum_envases: TIntegerField
      FieldName = 'num_envases'
    end
    object qea_pesadasiddestino: TIntegerField
      FieldName = 'iddestino'
      Required = True
    end
    object qea_pesadasdestino: TWideStringField
      FieldName = 'destino'
      Required = True
      Size = 100
    end
    object qea_pesadaspeso_bruto: TFloatField
      FieldName = 'peso_bruto'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qea_pesadastara: TFloatField
      FieldName = 'tara'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qea_pesadaspeso_neto: TFloatField
      FieldName = 'peso_neto'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qea_pesadaspeso_neto_teorico: TFloatField
      FieldName = 'peso_neto_teorico'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qea_pesadaspeso_medio: TFloatField
      FieldName = 'peso_medio'
      Required = True
      DisplayFormat = '#0.00'
    end
    object qea_pesadastemperatura: TFloatField
      FieldName = 'temperatura'
    end
    object qea_pesadasfecha: TDateField
      FieldName = 'fecha'
      Required = True
    end
    object qea_pesadasfechatrabajo: TDateField
      FieldName = 'fechatrabajo'
      Required = True
    end
    object qea_pesadashora: TTimeField
      FieldName = 'hora'
      Required = True
    end
    object qea_pesadasCEA: TWideStringField
      FieldName = 'CEA'
      Size = 42
    end
    object qea_pesadasresto_cajas: TFloatField
      FieldName = 'resto_cajas'
      Required = True
    end
    object qea_pesadasresto_pesoneto: TFloatField
      FieldName = 'resto_pesoneto'
      Required = True
    end
    object qea_pesadaslote: TIntegerField
      FieldName = 'lote'
      Required = True
    end
    object qea_pesadasorigen: TWideStringField
      FieldName = 'origen'
      Required = True
      Size = 100
    end
    object qea_pesadasidorigen: TIntegerField
      FieldName = 'idorigen'
    end
    object qea_pesadasmprima: TWideStringField
      FieldName = 'mprima'
      Size = 40
    end
    object qea_pesadasmprima_p: TWideStringField
      FieldName = 'mprima_p'
      Size = 40
    end
    object qea_pesadasgen_caja: TIntegerField
      FieldName = 'gen_caja'
      Required = True
    end
    object qea_pesadascosto: TFloatField
      FieldName = 'costo'
      Required = True
    end
    object qea_pesadascoste_manipulacion: TFloatField
      FieldName = 'coste_manipulacion'
      Required = True
    end
    object qea_pesadasdias_camara: TIntegerField
      FieldName = 'dias_camara'
      Required = True
    end
    object qea_pesadascosto_camara: TFloatField
      FieldName = 'costo_camara'
      Required = True
    end
    object qea_pesadascodigoR: TWideStringField
      FieldName = 'codigoR'
      Required = True
    end
    object qea_pesadasparcela: TWideStringField
      FieldName = 'parcela'
      Size = 100
    end
    object qea_pesadasfecha_cierre: TDateField
      FieldName = 'fecha_cierre'
    end
    object qea_pesadascosto_materiales: TFloatField
      FieldName = 'costo_materiales'
      Required = True
    end
    object qea_pesadascosto_cosechar: TFloatField
      FieldName = 'costo_cosechar'
      Required = True
    end
    object qea_pesadasborrado: TIntegerField
      FieldName = 'borrado'
      Required = True
    end
    object qea_pesadasseleccionado: TIntegerField
      FieldName = 'seleccionado'
      Required = True
    end
    object qea_pesadasobservaciones: TWideStringField
      FieldName = 'observaciones'
      Size = 500
    end
    object qea_pesadastipo_trabajo: TWideStringField
      FieldName = 'tipo_trabajo'
      Size = 60
    end
    object qea_pesadastipo_generador: TWideStringField
      FieldName = 'tipo_generador'
      Size = 60
    end
    object qea_pesadasremanipulado: TIntegerField
      FieldName = 'remanipulado'
      Required = True
    end
    object qea_pesadasfecha_envasado: TDateField
      FieldName = 'fecha_envasado'
    end
    object qea_pesadascodean: TWideStringField
      FieldName = 'codean'
      Size = 100
    end
    object qea_pesadascodssc: TWideStringField
      FieldName = 'codssc'
      Size = 100
    end
    object qea_pesadaspedidocliente: TIntegerField
      FieldName = 'pedidocliente'
    end
    object qea_pesadascosto_sinmt: TFloatField
      FieldName = 'costo_sinmt'
    end
    object qea_pesadasrecuperar_envases: TIntegerField
      FieldName = 'recuperar_envases'
      Required = True
    end
    object qea_pesadasidalbaran: TWideStringField
      FieldName = 'idalbaran'
      Size = 22
    end
    object qea_pesadases_entrada: TIntegerField
      FieldName = 'es_entrada'
      Required = True
    end
    object qea_pesadasdesc_calibre: TWideStringField
      FieldName = 'desc_calibre'
      Size = 40
    end
    object qea_pesadasdesc_formato: TWideStringField
      FieldName = 'desc_formato'
      Size = 100
    end
    object qea_pesadasdesc_envase: TWideStringField
      FieldName = 'desc_envase'
      Size = 100
    end
    object qea_pesadasidfactura: TWideStringField
      FieldName = 'idfactura'
      Size = 40
    end
  end
  object qsalidas: TFDQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      
        '(select v.id,v.fecha,v.fechatrabajo,v.origen,v.parcela,v.destino' +
        ',v.mprima as mprima,v.mprima_p as mprima_p,v.costo,v.id_palet,v.' +
        'num_palets,v.id_envase,v.num_envases,v.gen_caja,v.tipo_generador' +
        ',v.pedidocliente,v.destino as cliente,'#39' '#39' as ciudad,v.peso_bruto' +
        ',v.peso_neto,v.peso_neto_teorico,v.peso_medio,v.temperatura,v.lo' +
        'te,v.idalbaran,v.idfactura,v.coste_manipulacion,v.costo_material' +
        'es'
      
        ' from v_ea_pesadaslotes v where  (v.idea>0 and v.iddestino<>0 an' +
        'd v.iddestino in (select id from almacenes where final=1) or ( v' +
        '.idea<=0) and v.iddestino in (select id from almacenes where (fi' +
        'nal=1 or camara=1 or mermas=1))) and v.pedidocliente is null and' +
        ' v.lote=:LOTE)'
      ' UNION ALL'
      
        '(select v.id,v.fecha,v.fechatrabajo,v.origen,v.parcela,v.destino' +
        ',v.mprima as mprima,v.mprima_p as mprima_p,v.costo,v.id_palet,v.' +
        'num_palets,v.id_envase,v.num_envases,v.gen_caja,v.tipo_generador' +
        ',v.pedidocliente,c.nombre as cliente,p.iddestino as ciudad,v.pes' +
        'o_bruto,v.peso_neto,v.peso_neto_teorico,v.peso_medio,v.temperatu' +
        'ra,v.lote,v.idalbaran,v.idfactura,v.coste_manipulacion,v.costo_m' +
        'ateriales'
      ' from v_ea_pesadaslotes v, pedidos p,clientes c where'
      
        ' (v.idea>0 and v.iddestino<>0 and v.iddestino in (select id from' +
        ' almacenes where final=1) or ( v.idea<=0) and v.iddestino in (se' +
        'lect id from almacenes where (final=1 or camara=1 or mermas=1)))' +
        ' and v.pedidocliente is not null and v.pedidocliente=p.id and p.' +
        'idcliente=c.id and v.lote=:LOTE)'
      'order by mprima_p,lote,id desc, fecha')
    Left = 160
    Top = 120
    ParamData = <
      item
        Name = 'LOTE'
      end>
    object qsalidasid: TIntegerField
      FieldName = 'id'
      ReadOnly = True
    end
    object qsalidasfecha: TDateField
      FieldName = 'fecha'
      ReadOnly = True
    end
    object qsalidasfechatrabajo: TDateField
      FieldName = 'fechatrabajo'
      ReadOnly = True
    end
    object qsalidasorigen: TWideStringField
      FieldName = 'origen'
      ReadOnly = True
      Size = 100
    end
    object qsalidasparcela: TWideStringField
      FieldName = 'parcela'
      ReadOnly = True
      Size = 100
    end
    object qsalidasdestino: TWideStringField
      FieldName = 'destino'
      ReadOnly = True
      Size = 100
    end
    object qsalidasmprima: TWideStringField
      FieldName = 'mprima'
      ReadOnly = True
      Size = 40
    end
    object qsalidasmprima_p: TWideStringField
      FieldName = 'mprima_p'
      ReadOnly = True
      Size = 40
    end
    object qsalidascosto: TFloatField
      FieldName = 'costo'
      ReadOnly = True
    end
    object qsalidasid_palet: TWideStringField
      FieldName = 'id_palet'
      ReadOnly = True
      Size = 30
    end
    object qsalidasnum_palets: TIntegerField
      FieldName = 'num_palets'
      ReadOnly = True
    end
    object qsalidasid_envase: TWideStringField
      FieldName = 'id_envase'
      ReadOnly = True
      Size = 40
    end
    object qsalidasnum_envases: TIntegerField
      FieldName = 'num_envases'
      ReadOnly = True
    end
    object qsalidasgen_caja: TIntegerField
      FieldName = 'gen_caja'
      ReadOnly = True
    end
    object qsalidastipo_generador: TWideStringField
      FieldName = 'tipo_generador'
      ReadOnly = True
      Size = 60
    end
    object qsalidaspedidocliente: TIntegerField
      FieldName = 'pedidocliente'
      ReadOnly = True
    end
    object qsalidascliente: TWideStringField
      FieldName = 'cliente'
      ReadOnly = True
      Size = 100
    end
    object qsalidasciudad: TWideStringField
      FieldName = 'ciudad'
      ReadOnly = True
      Size = 40
    end
    object qsalidaspeso_bruto: TFloatField
      FieldName = 'peso_bruto'
      ReadOnly = True
      DisplayFormat = '#0.00'
    end
    object qsalidaspeso_neto: TFloatField
      FieldName = 'peso_neto'
      ReadOnly = True
      DisplayFormat = '#0.00'
    end
    object qsalidaspeso_neto_teorico: TFloatField
      FieldName = 'peso_neto_teorico'
      ReadOnly = True
      DisplayFormat = '#0.00'
    end
    object qsalidaspeso_medio: TFloatField
      FieldName = 'peso_medio'
      ReadOnly = True
      DisplayFormat = '#0.00'
    end
    object qsalidastemperatura: TFloatField
      FieldName = 'temperatura'
      ReadOnly = True
    end
    object qsalidaslote: TIntegerField
      FieldName = 'lote'
      ReadOnly = True
    end
    object qsalidasidalbaran: TWideStringField
      FieldName = 'idalbaran'
      ReadOnly = True
      Size = 22
    end
    object qsalidasidfactura: TWideStringField
      FieldName = 'idfactura'
      ReadOnly = True
      Size = 40
    end
    object qsalidascoste_manipulacion: TFloatField
      FieldName = 'coste_manipulacion'
      ReadOnly = True
      DisplayFormat = '#0.00'
    end
    object qsalidascosto_materiales: TFloatField
      FieldName = 'costo_materiales'
      ReadOnly = True
      DisplayFormat = '#0.00'
    end
  end
  object qaux: TFDQuery
    Connection = DM.DBagrigest
    Left = 40
    Top = 104
  end
  object qtiposgenerador: TFDQuery
    MasterSource = DM.dsempresa
    MasterFields = 'id'
    Connection = DM.DBagrigest
    SQL.Strings = (
      
        'select idempresa,id,codigo,descripcion,familia from articulosf a' +
        ' where familia in (select id from familias where idempresa=a.ide' +
        'mpresa and generadores=1)')
    Left = 392
    Top = 104
    object qtiposgeneradoridempresa: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object qtiposgeneradorid: TIntegerField
      DisplayWidth = 8
      FieldName = 'id'
      Required = True
    end
    object qtiposgeneradorcodigo: TWideStringField
      DisplayWidth = 5
      FieldName = 'codigo'
      Required = True
      Size = 40
    end
    object qtiposgeneradordescripcion: TWideStringField
      DisplayWidth = 27
      FieldName = 'descripcion'
      Required = True
      Size = 100
    end
    object qtiposgeneradorfamilia: TIntegerField
      FieldName = 'familia'
    end
  end
  object dsqtiposgenerador: TDataSource
    DataSet = qtiposgenerador
    Left = 392
    Top = 80
  end
  object dsqsalidas_sd: TDataSource
    DataSet = qsalidas_sd
    Left = 232
    Top = 176
  end
  object qsalidas_sd: TFDQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      
        '(select v.id,v.fecha,v.fechatrabajo,v.parcela,v.mprima,v.id_enva' +
        'se,v.num_envases,v.destino as cliente,'#39' '#39' as ciudad,v.peso_neto,' +
        'v.peso_neto_teorico,v.peso_medio,v.temperatura,v.lote,v.idalbara' +
        'n,v.pedidocliente,v.desc_calibre,v.desc_formato,v.idfactura,v.co' +
        'ste_manipulacion,v.costo_materiales'
      
        ' from v_ea_pesadaslotes v where (v.idea>0 and v.iddestino<>0 and' +
        ' v.iddestino in (select id from almacenes where final=1) or ( v.' +
        'idea<=0) and v.iddestino in (select id from almacenes where (fin' +
        'al=1 or camara=1 or mermas=1))) and mprima_p in (select id from ' +
        'materias_primas where desechos=0) and v.pedidocliente is null an' +
        'd lote=:LOTE)'
      ' UNION'
      
        '(select v.id,v.fecha,v.fechatrabajo,v.parcela,v.mprima,v.id_enva' +
        'se,v.num_envases,c.nombre as cliente,p.iddestino as ciudad,v.pes' +
        'o_neto,v.peso_neto_teorico,v.peso_medio,v.temperatura,v.lote,v.i' +
        'dalbaran,v.pedidocliente,v.desc_calibre,v.desc_formato,v.idfactu' +
        'ra,v.coste_manipulacion,v.costo_materiales'
      ' from v_ea_pesadaslotes v, pedidos p,clientes c where '
      
        ' (v.idea>0 and v.iddestino<>0 and v.iddestino in (select id from' +
        ' almacenes where final=1) or ( v.idea<=0) and v.iddestino in (se' +
        'lect id from almacenes where (final=1 or camara=1 or mermas=1)))' +
        ' and mprima_p in (select id from materias_primas where desechos=' +
        '0) and v.pedidocliente is not null and v.pedidocliente=p.id and ' +
        'p.idcliente=c.id and lote=:LOTE)'
      'order by id desc, fecha')
    Left = 232
    Top = 200
    ParamData = <
      item
        Name = 'LOTE'
      end>
    object qsalidas_sdid: TIntegerField
      FieldName = 'id'
      ReadOnly = True
    end
    object qsalidas_sdfecha: TDateField
      FieldName = 'fecha'
      ReadOnly = True
    end
    object qsalidas_sdfechatrabajo: TDateField
      FieldName = 'fechatrabajo'
      ReadOnly = True
    end
    object qsalidas_sdparcela: TWideStringField
      FieldName = 'parcela'
      ReadOnly = True
      Size = 100
    end
    object qsalidas_sdmprima: TWideStringField
      FieldName = 'mprima'
      ReadOnly = True
      Size = 40
    end
    object qsalidas_sdid_envase: TWideStringField
      FieldName = 'id_envase'
      ReadOnly = True
      Size = 40
    end
    object qsalidas_sdnum_envases: TIntegerField
      FieldName = 'num_envases'
      ReadOnly = True
    end
    object qsalidas_sdcliente: TWideStringField
      FieldName = 'cliente'
      ReadOnly = True
      Size = 100
    end
    object qsalidas_sdciudad: TWideStringField
      FieldName = 'ciudad'
      ReadOnly = True
      Size = 40
    end
    object qsalidas_sdpeso_neto: TFloatField
      FieldName = 'peso_neto'
      ReadOnly = True
    end
    object qsalidas_sdpeso_neto_teorico: TFloatField
      FieldName = 'peso_neto_teorico'
      ReadOnly = True
    end
    object qsalidas_sdpeso_medio: TFloatField
      FieldName = 'peso_medio'
      ReadOnly = True
    end
    object qsalidas_sdtemperatura: TFloatField
      FieldName = 'temperatura'
      ReadOnly = True
    end
    object qsalidas_sdlote: TIntegerField
      FieldName = 'lote'
      ReadOnly = True
    end
    object qsalidas_sdidalbaran: TWideStringField
      FieldName = 'idalbaran'
      ReadOnly = True
      Size = 22
    end
    object qsalidas_sdpedidocliente: TIntegerField
      FieldName = 'pedidocliente'
      ReadOnly = True
    end
    object qsalidas_sddesc_calibre: TWideStringField
      FieldName = 'desc_calibre'
      ReadOnly = True
      Size = 40
    end
    object qsalidas_sddesc_formato: TWideStringField
      FieldName = 'desc_formato'
      ReadOnly = True
      Size = 100
    end
    object qsalidas_sdidfactura: TWideStringField
      FieldName = 'idfactura'
      ReadOnly = True
      Size = 40
    end
    object qsalidas_sdcoste_manipulacion: TFloatField
      FieldName = 'coste_manipulacion'
      ReadOnly = True
    end
    object qsalidas_sdcosto_materiales: TFloatField
      FieldName = 'costo_materiales'
      ReadOnly = True
    end
  end
  object dsqsalidas_ds: TDataSource
    DataSet = qsalidas_ds
    Left = 144
    Top = 176
  end
  object qsalidas_ds: TFDQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      
        '(select v.id,v.fecha,v.fechatrabajo,v.parcela,v.mprima,v.id_enva' +
        'se,v.num_envases,v.destino as cliente,'#39' '#39' as ciudad,v.peso_neto,' +
        'v.peso_neto_teorico,v.peso_medio,v.temperatura,v.lote,v.idalbara' +
        'n,v.pedidocliente,v.desc_calibre,v.desc_formato,v.idfactura,v.co' +
        'ste_manipulacion,v.costo_materiales'
      
        ' from v_ea_pesadaslotes v where (v.idea>0 and v.iddestino<>0 and' +
        ' v.iddestino in (select id from almacenes where final=1) or v.id' +
        'ea<=0) and mprima_p in (select id from materias_primas where des' +
        'echos=1) and v.pedidocliente is null and lote=:LOTE)'
      ' UNION'
      
        '(select v.id,v.fecha,v.fechatrabajo,v.parcela,v.mprima,v.id_enva' +
        'se,v.num_envases,c.nombre as cliente,p.iddestino as ciudad,v.pes' +
        'o_neto,v.peso_neto_teorico,v.peso_medio,v.temperatura,v.lote,v.i' +
        'dalbaran,v.pedidocliente,v.desc_calibre,v.desc_formato,v.idfactu' +
        'ra,v.coste_manipulacion,v.costo_materiales'
      
        ' from v_ea_pesadaslotes v, pedidos p,clientes c where v.iddestin' +
        'o<>0 and v.idea<=0 and mprima_p in (select id from materias_prim' +
        'as where desechos=1) and v.pedidocliente is not null and v.pedid' +
        'ocliente=p.id and p.idcliente=c.id and lote=:LOTE)'
      'order by id desc, fecha'
      '')
    Left = 144
    Top = 224
    ParamData = <
      item
        Name = 'LOTE'
      end>
    object qsalidas_dsid: TIntegerField
      FieldName = 'id'
      ReadOnly = True
    end
    object qsalidas_dsfecha: TDateField
      FieldName = 'fecha'
      ReadOnly = True
    end
    object qsalidas_dsfechatrabajo: TDateField
      FieldName = 'fechatrabajo'
      ReadOnly = True
    end
    object qsalidas_dsparcela: TWideStringField
      FieldName = 'parcela'
      ReadOnly = True
      Size = 100
    end
    object qsalidas_dsmprima: TWideStringField
      FieldName = 'mprima'
      ReadOnly = True
      Size = 40
    end
    object qsalidas_dsid_envase: TWideStringField
      FieldName = 'id_envase'
      ReadOnly = True
      Size = 40
    end
    object qsalidas_dsnum_envases: TIntegerField
      FieldName = 'num_envases'
      ReadOnly = True
    end
    object qsalidas_dscliente: TWideStringField
      FieldName = 'cliente'
      ReadOnly = True
      Size = 100
    end
    object qsalidas_dsciudad: TWideStringField
      FieldName = 'ciudad'
      ReadOnly = True
      Size = 40
    end
    object qsalidas_dspeso_neto: TFloatField
      FieldName = 'peso_neto'
      ReadOnly = True
    end
    object qsalidas_dspeso_neto_teorico: TFloatField
      FieldName = 'peso_neto_teorico'
      ReadOnly = True
    end
    object qsalidas_dspeso_medio: TFloatField
      FieldName = 'peso_medio'
      ReadOnly = True
    end
    object qsalidas_dstemperatura: TFloatField
      FieldName = 'temperatura'
      ReadOnly = True
    end
    object qsalidas_dslote: TIntegerField
      FieldName = 'lote'
      ReadOnly = True
    end
    object qsalidas_dsidalbaran: TWideStringField
      FieldName = 'idalbaran'
      ReadOnly = True
      Size = 22
    end
    object qsalidas_dspedidocliente: TIntegerField
      FieldName = 'pedidocliente'
      ReadOnly = True
    end
    object qsalidas_dsdesc_calibre: TWideStringField
      FieldName = 'desc_calibre'
      ReadOnly = True
      Size = 40
    end
    object qsalidas_dsdesc_formato: TWideStringField
      FieldName = 'desc_formato'
      ReadOnly = True
      Size = 100
    end
    object qsalidas_dsidfactura: TWideStringField
      FieldName = 'idfactura'
      ReadOnly = True
      Size = 40
    end
  end
  object dsqinfentradas: TDataSource
    DataSet = qinfentradas
    Left = 328
    Top = 192
  end
  object qinfentradas: TFDQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      
        '(select v.id,v.fecha,v.fechatrabajo,v.parcela,v.mprima,v.id_enva' +
        'se,v.num_envases,v.destino as cliente,'#39' '#39' as ciudad,v.peso_bruto' +
        ',v.peso_neto,v.peso_neto_teorico,v.peso_medio,v.temperatura,v.lo' +
        'te,v.idalbaran,v.pedidocliente,v.desc_calibre,v.desc_formato,v.i' +
        'dfactura'
      
        ' from v_ea_pesadaslotes v where v.idea>0 and v.pedidocliente is ' +
        'null and lote=:LOTE)'
      ' UNION'
      
        '(select v.id,v.fecha,v.fechatrabajo,v.parcela,v.mprima,v.id_enva' +
        'se,v.num_envases,c.nombre as cliente,p.iddestino as ciudad,v.pes' +
        'o_bruto,v.peso_neto,v.peso_neto_teorico,v.peso_medio,v.temperatu' +
        'ra,v.lote,v.idalbaran,v.pedidocliente,v.desc_calibre,v.desc_form' +
        'ato,v.idfactura'
      
        ' from v_ea_pesadaslotes v, pedidos p,clientes c where v.idea>0 a' +
        'nd v.pedidocliente is not null and v.pedidocliente=p.id and p.id' +
        'cliente=c.id and lote=:LOTE)'
      'order by id desc, fecha')
    Left = 328
    Top = 208
    ParamData = <
      item
        Name = 'LOTE'
      end>
    object qinfentradasid: TIntegerField
      FieldName = 'id'
      ReadOnly = True
    end
    object qinfentradasfecha: TDateField
      FieldName = 'fecha'
      ReadOnly = True
    end
    object qinfentradasfechatrabajo: TDateField
      FieldName = 'fechatrabajo'
      ReadOnly = True
    end
    object qinfentradasparcela: TWideStringField
      FieldName = 'parcela'
      ReadOnly = True
      Size = 100
    end
    object qinfentradasmprima: TWideStringField
      FieldName = 'mprima'
      ReadOnly = True
      Size = 40
    end
    object qinfentradasid_envase: TWideStringField
      FieldName = 'id_envase'
      ReadOnly = True
      Size = 40
    end
    object qinfentradasnum_envases: TIntegerField
      FieldName = 'num_envases'
      ReadOnly = True
    end
    object qinfentradascliente: TWideStringField
      FieldName = 'cliente'
      ReadOnly = True
      Size = 100
    end
    object qinfentradasciudad: TWideStringField
      FieldName = 'ciudad'
      ReadOnly = True
      Size = 40
    end
    object qinfentradaspeso_bruto: TFloatField
      FieldName = 'peso_bruto'
      ReadOnly = True
    end
    object qinfentradaspeso_neto: TFloatField
      FieldName = 'peso_neto'
      ReadOnly = True
    end
    object qinfentradaspeso_neto_teorico: TFloatField
      FieldName = 'peso_neto_teorico'
      ReadOnly = True
    end
    object qinfentradaspeso_medio: TFloatField
      FieldName = 'peso_medio'
      ReadOnly = True
    end
    object qinfentradastemperatura: TFloatField
      FieldName = 'temperatura'
      ReadOnly = True
    end
    object qinfentradaslote: TIntegerField
      FieldName = 'lote'
      ReadOnly = True
    end
    object qinfentradasidalbaran: TWideStringField
      FieldName = 'idalbaran'
      ReadOnly = True
      Size = 22
    end
    object qinfentradaspedidocliente: TIntegerField
      FieldName = 'pedidocliente'
      ReadOnly = True
    end
    object qinfentradasdesc_calibre: TWideStringField
      FieldName = 'desc_calibre'
      ReadOnly = True
      Size = 40
    end
    object qinfentradasdesc_formato: TWideStringField
      FieldName = 'desc_formato'
      ReadOnly = True
      Size = 100
    end
    object qinfentradasidfactura: TWideStringField
      FieldName = 'idfactura'
      ReadOnly = True
      Size = 40
    end
  end
  object documentos_tmp: TFDTable
    AutoCalcFields = False
    Filtered = True
    Filter = 'id=-1'
    Connection = DM.DBagrigest
    TableName = 'documentos_tmp'
    Left = 416
    Top = 160
    object documentos_tmpid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object documentos_tmpide: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object documentos_tmpfecha: TDateField
      FieldName = 'fecha'
      Required = True
    end
    object documentos_tmpdescripcion: TWideStringField
      FieldName = 'descripcion'
      Size = 100
    end
    object documentos_tmparchivo: TBlobField
      FieldName = 'archivo'
    end
    object documentos_tmpnomarchivo: TWideStringField
      FieldName = 'nomarchivo'
      Size = 200
    end
    object documentos_tmpextension: TWideStringField
      FieldName = 'extension'
      Size = 8
    end
    object documentos_tmpidlote: TIntegerField
      FieldName = 'idlote'
    end
    object documentos_tmpcodpar: TWideStringField
      FieldName = 'codpar'
      Size = 30
    end
    object documentos_tmpidea: TIntegerField
      FieldName = 'idea'
    end
    object documentos_tmpidt: TIntegerField
      FieldName = 'idt'
    end
    object documentos_tmpidaf: TIntegerField
      FieldName = 'idaf'
    end
  end
  object qdocumentos: TFDQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      'select * from documentos where idlote=20100'
      '')
    Left = 360
    Top = 280
    object qdocumentosid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qdocumentoside: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object qdocumentosfecha: TDateField
      FieldName = 'fecha'
      Required = True
    end
    object qdocumentosdescripcion: TWideStringField
      FieldName = 'descripcion'
      Size = 100
    end
    object qdocumentosarchivo: TBlobField
      FieldName = 'archivo'
    end
    object qdocumentosnomarchivo: TWideStringField
      FieldName = 'nomarchivo'
      Size = 200
    end
    object qdocumentosextension: TWideStringField
      FieldName = 'extension'
      Size = 8
    end
    object qdocumentosidlote: TIntegerField
      FieldName = 'idlote'
    end
    object qdocumentoscodpar: TWideStringField
      FieldName = 'codpar'
      Size = 30
    end
    object qdocumentosidea: TIntegerField
      FieldName = 'idea'
    end
    object qdocumentosidt: TIntegerField
      FieldName = 'idt'
    end
    object qdocumentosidaf: TIntegerField
      FieldName = 'idaf'
    end
  end
end