unit datos;

interface

uses
  System.SysUtils, System.Classes, Data.DB, ZAbstractConnection, ZConnection,
  ZAbstractRODataset, ZAbstractDataset, ZAbstractTable, ZDataset;

type
  Tdm = class(TDataModule)
    tpesadas: TZTable;
    dbagrigest2: TZConnection;
    tpesadasid: TIntegerField;
    tpesadasidempresa: TIntegerField;
    tpesadasidEA: TIntegerField;
    tpesadasid_palet: TWideStringField;
    tpesadasnum_palets: TIntegerField;
    tpesadasid_palet2: TWideStringField;
    tpesadasnum_palets2: TIntegerField;
    tpesadasid_envase: TWideStringField;
    tpesadasnum_envases: TIntegerField;
    tpesadasiddestino: TIntegerField;
    tpesadasdestino: TWideStringField;
    tpesadaspeso_bruto: TFloatField;
    tpesadastara: TFloatField;
    tpesadaspeso_neto: TFloatField;
    tpesadaspeso_medio: TFloatField;
    tpesadastemperatura: TFloatField;
    tpesadasfecha: TDateField;
    tpesadasfechatrabajo: TDateField;
    tpesadashora: TTimeField;
    tpesadasCEA: TWideStringField;
    tpesadasresto_cajas: TFloatField;
    tpesadasresto_pesoneto: TFloatField;
    tpesadasidorigen: TIntegerField;
    tpesadasmprima: TWideStringField;
    tpesadasgen_caja: TIntegerField;
    qetiquetas: TZReadOnlyQuery;
    dsqetiquetas: TDataSource;
    tpesadaspeso_neto_teorico: TFloatField;
    qlotes: TZReadOnlyQuery;
    qlotesid: TIntegerField;
    qlotesidempresa: TIntegerField;
    qlotesfechaini_trabajo: TDateField;
    qlotesfechafin_trabajo: TDateField;
    qlotesfecha: TDateField;
    qlotesfecha_caducidad: TDateField;
    dsqlotes: TDataSource;
    qlotessalidas: TZReadOnlyQuery;
    dsqlotessalidas: TDataSource;
    tpesadasORIGEN: TWideStringField;
    qrestarpesadas: TZQuery;
    tpesadascoste_manipulacion: TFloatField;
    tpesadascodigoR: TWideStringField;
    qempresas: TZReadOnlyQuery;
    tpesadascosto_camara: TFloatField;
    tpesadascosto: TFloatField;
    tpesadasdias_camara: TIntegerField;
    tpesadasparcela: TWideStringField;
    qrestarpesadasid: TIntegerField;
    qrestarpesadasidempresa: TIntegerField;
    qrestarpesadasidEA: TIntegerField;
    qrestarpesadasid_palet: TWideStringField;
    qrestarpesadasnum_palets: TIntegerField;
    qrestarpesadasid_palet2: TWideStringField;
    qrestarpesadasnum_palets2: TIntegerField;
    qrestarpesadasid_envase: TWideStringField;
    qrestarpesadasnum_envases: TIntegerField;
    qrestarpesadasiddestino: TIntegerField;
    qrestarpesadasdestino: TWideStringField;
    qrestarpesadaspeso_bruto: TFloatField;
    qrestarpesadastara: TFloatField;
    qrestarpesadaspeso_neto: TFloatField;
    qrestarpesadaspeso_neto_teorico: TFloatField;
    qrestarpesadaspeso_medio: TFloatField;
    qrestarpesadastemperatura: TFloatField;
    qrestarpesadasfecha: TDateField;
    qrestarpesadasfechatrabajo: TDateField;
    qrestarpesadashora: TTimeField;
    qrestarpesadasCEA: TWideStringField;
    qrestarpesadasresto_cajas: TFloatField;
    qrestarpesadasresto_pesoneto: TFloatField;
    qrestarpesadasidorigen: TIntegerField;
    qrestarpesadasmprima: TWideStringField;
    qrestarpesadasgen_caja: TIntegerField;
    qrestarpesadascosto: TFloatField;
    qrestarpesadascoste_manipulacion: TFloatField;
    qrestarpesadasdias_camara: TIntegerField;
    qrestarpesadascosto_camara: TFloatField;
    qrestarpesadascodigoR: TWideStringField;
    qrestarpesadasparcela: TWideStringField;
    qrestarpesadasfecha_cierre: TDateField;
    qrestarpesadascosto_materiales: TFloatField;
    qrestarpesadascosto_cosechar: TFloatField;
    qrestarpesadasborrado: TIntegerField;
    qrestarpesadasseleccionado: TIntegerField;
    qlotescodigo: TIntegerField;
    qlotesPRODUCTOR: TWideStringField;
    qlotesPAISORIGEN: TWideStringField;
    qlotesMPRIMA: TWideStringField;
    tpesadaslote: TIntegerField;
    tpesadasfecha_cierre: TDateField;
    tpesadascosto_materiales: TFloatField;
    tpesadascosto_cosechar: TFloatField;
    tpesadasborrado: TIntegerField;
    tpesadasseleccionado: TIntegerField;
    tpesadasOBSERVACIONES: TWideStringField;
    tpesadastipo_trabajo: TWideStringField;
    qaux: TZReadOnlyQuery;
    tpesadastipo_generador: TWideStringField;
    tpesadasremanipulado: TIntegerField;
    esclavo: TZQuery;
    esclavoSlave_IO_State: TWideStringField;
    esclavoMaster_Host: TWideStringField;
    esclavoMaster_User: TWideStringField;
    esclavoMaster_Port: TLargeintField;
    esclavoConnect_Retry: TLargeintField;
    esclavoMaster_Log_File: TWideStringField;
    esclavoRead_Master_Log_Pos: TFloatField;
    esclavoRelay_Log_File: TWideStringField;
    esclavoRelay_Log_Pos: TFloatField;
    esclavoRelay_Master_Log_File: TWideStringField;
    esclavoSlave_IO_Running: TWideStringField;
    esclavoSlave_SQL_Running: TWideStringField;
    esclavoReplicate_Do_DB: TWideStringField;
    esclavoReplicate_Ignore_DB: TWideStringField;
    esclavoReplicate_Do_Table: TWideStringField;
    esclavoReplicate_Ignore_Table: TWideStringField;
    esclavoReplicate_Wild_Do_Table: TWideStringField;
    esclavoReplicate_Wild_Ignore_Table: TWideStringField;
    esclavoLast_Errno: TLargeintField;
    esclavoLast_Error: TWideStringField;
    esclavoSkip_Counter: TLargeintField;
    esclavoExec_Master_Log_Pos: TFloatField;
    esclavoRelay_Log_Space: TFloatField;
    esclavoUntil_Condition: TWideStringField;
    esclavoUntil_Log_File: TWideStringField;
    esclavoUntil_Log_Pos: TFloatField;
    esclavoMaster_SSL_Allowed: TWideStringField;
    esclavoMaster_SSL_CA_File: TWideStringField;
    esclavoMaster_SSL_CA_Path: TWideStringField;
    esclavoMaster_SSL_Cert: TWideStringField;
    esclavoMaster_SSL_Cipher: TWideStringField;
    esclavoMaster_SSL_Key: TWideStringField;
    esclavoSeconds_Behind_Master: TFloatField;
    esclavoMaster_SSL_Verify_Server_Cert: TWideStringField;
    esclavoLast_IO_Errno: TLargeintField;
    esclavoLast_IO_Error: TWideStringField;
    esclavoLast_SQL_Errno: TLargeintField;
    esclavoLast_SQL_Error: TWideStringField;
    esclavoReplicate_Ignore_Server_Ids: TWideStringField;
    esclavoMaster_Server_Id: TLargeintField;
    esclavoMaster_SSL_Crl: TWideStringField;
    esclavoMaster_SSL_Crlpath: TWideStringField;
    esclavoUsing_Gtid: TWideStringField;
    esclavoGtid_IO_Pos: TWideStringField;
    esclavoReplicate_Do_Domain_Ids: TWideStringField;
    esclavoReplicate_Ignore_Domain_Ids: TWideStringField;
    esclavoParallel_Mode: TWideStringField;
    qlotes_pesadas: TZQuery;
    qlotes_pesadasid: TIntegerField;
    qlotes_pesadaside: TIntegerField;
    qlotes_pesadasidea: TIntegerField;
    qlotes_pesadaslote: TIntegerField;
    qlotes_pesadascajas: TIntegerField;
    qlotes_pesadaspesoneto_teorico: TFloatField;
    qlotes_pesadaspesoneto_real: TFloatField;
    qlotes_pesadases_entrada: TIntegerField;
    dslotes_pesadas: TDataSource;
    qlotes_pesadasidea2: TIntegerField;
    qlotessalidasfecha: TDateField;
    qlotessalidasorigen: TWideStringField;
    qlotessalidasmprima: TWideStringField;
    qlotessalidasidempresa: TIntegerField;
    qlotespesadas: TZReadOnlyQuery;
    qlotespesadaside: TIntegerField;
    qlotespesadasidea: TIntegerField;
    qlotespesadasidea2: TIntegerField;
    qlotespesadascajas: TIntegerField;
    qlotespesadaspesoneto_teorico: TFloatField;
    qlotespesadaspesoneto_real: TFloatField;
    qlotespesadasfecha: TDateField;
    qlotespesadasparcela: TWideStringField;
    qlotespesadasPAISORIGEN: TWideStringField;
    qlotespesadasmprima: TWideStringField;
    dsqlotespesadas: TDataSource;
    qetiquetasid: TIntegerField;
    qetiquetasidempresa: TIntegerField;
    qetiquetasidEA: TIntegerField;
    qetiquetasid_palet: TWideStringField;
    qetiquetasnum_palets: TIntegerField;
    qetiquetasid_palet2: TWideStringField;
    qetiquetasnum_palets2: TIntegerField;
    qetiquetasid_envase: TWideStringField;
    qetiquetasnum_envases: TIntegerField;
    qetiquetasdestino: TWideStringField;
    qetiquetaspeso_bruto: TFloatField;
    qetiquetastara: TFloatField;
    qetiquetaspeso_neto: TFloatField;
    qetiquetaspeso_neto_teorico: TFloatField;
    qetiquetaspeso_medio: TFloatField;
    qetiquetastemperatura: TFloatField;
    qetiquetasfecha: TDateField;
    qetiquetasfechatrabajo: TDateField;
    qetiquetashora: TTimeField;
    qetiquetasCEA: TWideStringField;
    qetiquetasresto_cajas: TFloatField;
    qetiquetasresto_pesoneto: TFloatField;
    qetiquetaslote: TIntegerField;
    qetiquetasORIGEN: TWideStringField;
    qetiquetasidorigen: TIntegerField;
    qetiquetasmprima: TWideStringField;
    qetiquetasgen_caja: TIntegerField;
    qetiquetascosto: TFloatField;
    qetiquetascoste_manipulacion: TFloatField;
    qetiquetasdias_camara: TIntegerField;
    qetiquetascosto_camara: TFloatField;
    qetiquetascodigoR: TWideStringField;
    qetiquetasparcela: TWideStringField;
    qetiquetasfecha_cierre: TDateField;
    qetiquetascosto_materiales: TFloatField;
    qetiquetascosto_cosechar: TFloatField;
    qetiquetasborrado: TIntegerField;
    qetiquetasseleccionado: TIntegerField;
    qetiquetasOBSERVACIONES: TWideStringField;
    qetiquetastipo_trabajo: TWideStringField;
    qetiquetastipo_generador: TWideStringField;
    qetiquetasremanipulado: TIntegerField;
    qetiquetasfecha_envasado: TDateField;
    qetiquetascodean: TWideStringField;
    qetiquetascodssc: TWideStringField;
    qetiquetaspedidocliente: TIntegerField;
    qetiquetascosto_sinmt: TFloatField;
    qlotespesadaslote: TIntegerField;
    tpesadasfecha_envasado: TDateField;
    tpesadascodean: TWideStringField;
    tpesadascodssc: TWideStringField;
    tpesadaspedidocliente: TIntegerField;
    tpesadascosto_sinmt: TFloatField;
    tpesadastara0: TFloatField;
    qetiquetastara0: TFloatField;
    tpesadaslotes_detalle: TWideStringField;
    tpesadasidpedido: TIntegerField;
    tpesadasrecuperar_envases: TIntegerField;
    tpesadascalibre: TFloatField;
    qpesadasentradas: TZReadOnlyQuery;
    qpesadassalidas: TZReadOnlyQuery;
    dsqsalidas: TDataSource;
    dsqentradas: TDataSource;
    qlotessalidasporc_merma: TFloatField;
    qlotesnum_generadores: TIntegerField;
    qlotestipo_generador: TWideStringField;
    qlotesdesc_generador: TWideStringField;
    qloteslote_proveedor: TWideStringField;
    qlotesentran_teoricos: TFloatField;
    qlotesentran_reales: TFloatField;
    qlotessalen_teoricos: TFloatField;
    qlotessalen_reales: TFloatField;
    qlotesmerma: TFloatField;
    qlotesporc_merma: TFloatField;
    qlotesdesperdicios: TFloatField;
    qlotestrazabilidad: TWideStringField;
    qlotessalidasmerma: TFloatField;
    qlotes_pesadasid_envase: TWideStringField;
    qlotes_pesadasid_formato: TIntegerField;
    qlotes_pesadasdesc_envase: TWideStringField;
    qlotes_pesadasdesc_formato: TWideStringField;
    qlotes_pesadasparcela: TWideStringField;
    qlotes_pesadasmprima: TWideStringField;
    qlotes_pesadascalibrecalidad: TIntegerField;
    qlotes_pesadasdesc_calibre: TWideStringField;
    qlotesobservaciones: TWideStringField;
    qlotespropietario: TIntegerField;
    qlotesresultado: TFloatField;
    qlotespesadasdesc_envase: TWideStringField;
    qlotespesadasdesc_formato: TWideStringField;
    qlotespesadasdesc_calibre: TWideStringField;
    qpesadas: TZQuery;
    dsqpesadas: TDataSource;
    dsqpesadaslotes: TDataSource;
    qpesadaslotes: TZQuery;
    qpesadastmp: TZQuery;
    dsqpesadastmp: TDataSource;
    qpesadaslotesid: TIntegerField;
    qpesadasloteside: TIntegerField;
    qpesadaslotesidea: TIntegerField;
    qpesadaslotesidea2: TIntegerField;
    qpesadasloteslote: TIntegerField;
    qpesadaslotescajas: TIntegerField;
    qpesadaslotesid_envase: TWideStringField;
    qpesadaslotesid_formato: TIntegerField;
    qpesadaslotesdesc_envase: TWideStringField;
    qpesadaslotesdesc_formato: TWideStringField;
    qpesadaslotespesoneto_teorico: TFloatField;
    qpesadaslotespesoneto_real: TFloatField;
    qpesadasloteses_entrada: TIntegerField;
    qpesadaslotesparcela: TWideStringField;
    qpesadaslotesmprima: TWideStringField;
    qpesadaslotescalibrecalidad: TIntegerField;
    qpesadaslotesdesc_calibre: TWideStringField;
    qpesadasid: TIntegerField;
    qpesadasidempresa: TIntegerField;
    qpesadasidEA: TIntegerField;
    qpesadasid_palet: TWideStringField;
    qpesadasnum_palets: TIntegerField;
    qpesadasid_palet2: TWideStringField;
    qpesadasnum_palets2: TIntegerField;
    qpesadasid_envase: TWideStringField;
    qpesadasnum_envases: TIntegerField;
    qpesadasdestino: TWideStringField;
    qpesadaspeso_bruto: TFloatField;
    qpesadastara: TFloatField;
    qpesadaspeso_neto: TFloatField;
    qpesadaspeso_neto_teorico: TFloatField;
    qpesadaspeso_medio: TFloatField;
    qpesadastemperatura: TFloatField;
    qpesadasfecha: TDateField;
    qpesadasfechatrabajo: TDateField;
    qpesadashora: TTimeField;
    qpesadasCEA: TWideStringField;
    qpesadasresto_cajas: TFloatField;
    qpesadasresto_pesoneto: TFloatField;
    qpesadaslote: TIntegerField;
    qpesadasORIGEN: TWideStringField;
    qpesadasidorigen: TIntegerField;
    qpesadasmprima: TWideStringField;
    qpesadasgen_caja: TIntegerField;
    qpesadascosto: TFloatField;
    qpesadascoste_manipulacion: TFloatField;
    qpesadasdias_camara: TIntegerField;
    qpesadascosto_camara: TFloatField;
    qpesadascodigoR: TWideStringField;
    qpesadasparcela: TWideStringField;
    qpesadasfecha_cierre: TDateField;
    qpesadascosto_materiales: TFloatField;
    qpesadascosto_cosechar: TFloatField;
    qpesadasborrado: TIntegerField;
    qpesadasseleccionado: TIntegerField;
    qpesadasOBSERVACIONES: TWideStringField;
    qpesadastipo_trabajo: TWideStringField;
    qpesadastipo_generador: TWideStringField;
    qpesadasremanipulado: TIntegerField;
    qpesadasfecha_envasado: TDateField;
    qpesadascodean: TWideStringField;
    qpesadascodssc: TWideStringField;
    qpesadaspedidocliente: TIntegerField;
    qpesadascosto_sinmt: TFloatField;
    qpesadastara0: TFloatField;
    qpesadaslotes_detalle: TWideStringField;
    qpesadasidpedido: TIntegerField;
    qpesadasrecuperar_envases: TIntegerField;
    qpesadascalibre: TFloatField;
    qpesadasprov_albaran: TWideStringField;
    qpesadasprov_fecha: TDateField;
    qpesadasprov_ggn: TWideStringField;
    qpesadasprov_lote: TWideStringField;
    qpesadasprov_grower: TWideStringField;
    qpesadasprov_puk: TWideStringField;
    qpesadasprov_otros: TWideStringField;
    qpesadastmpid: TIntegerField;
    qpesadastmpidempresa: TIntegerField;
    qpesadastmpidEA: TIntegerField;
    qpesadastmpid_palet: TWideStringField;
    qpesadastmpnum_palets: TIntegerField;
    qpesadastmpid_palet2: TWideStringField;
    qpesadastmpnum_palets2: TIntegerField;
    qpesadastmpid_envase: TWideStringField;
    qpesadastmpnum_envases: TIntegerField;
    qpesadastmpiddestino: TIntegerField;
    qpesadastmpdestino: TWideStringField;
    qpesadastmppeso_bruto: TFloatField;
    qpesadastmptara: TFloatField;
    qpesadastmppeso_neto: TFloatField;
    qpesadastmppeso_neto_teorico: TFloatField;
    qpesadastmppeso_medio: TFloatField;
    qpesadastmptemperatura: TFloatField;
    qpesadastmpfecha: TDateField;
    qpesadastmpfechatrabajo: TDateField;
    qpesadastmphora: TTimeField;
    qpesadastmpCEA: TWideStringField;
    qpesadastmpresto_cajas: TFloatField;
    qpesadastmpresto_pesoneto: TFloatField;
    qpesadastmplote: TIntegerField;
    qpesadastmpORIGEN: TWideStringField;
    qpesadastmpidorigen: TIntegerField;
    qpesadastmpmprima: TWideStringField;
    qpesadastmpgen_caja: TIntegerField;
    qpesadastmpcosto: TFloatField;
    qpesadastmpcoste_manipulacion: TFloatField;
    qpesadastmpdias_camara: TIntegerField;
    qpesadastmpcosto_camara: TFloatField;
    qpesadastmpcodigoR: TWideStringField;
    qpesadastmpparcela: TWideStringField;
    qpesadastmpfecha_cierre: TDateField;
    qpesadastmpcosto_materiales: TFloatField;
    qpesadastmpcosto_cosechar: TFloatField;
    qpesadastmpborrado: TIntegerField;
    qpesadastmpseleccionado: TIntegerField;
    qpesadastmpOBSERVACIONES: TWideStringField;
    qpesadastmptipo_trabajo: TWideStringField;
    qpesadastmptipo_generador: TWideStringField;
    qpesadastmpremanipulado: TIntegerField;
    qpesadastmpfecha_envasado: TDateField;
    qpesadastmpcodean: TWideStringField;
    qpesadastmpcodssc: TWideStringField;
    qpesadastmppedidocliente: TIntegerField;
    qpesadastmpcosto_sinmt: TFloatField;
    qpesadastmptara0: TFloatField;
    qpesadastmplotes_detalle: TWideStringField;
    qpesadastmpidpedido: TIntegerField;
    qpesadastmprecuperar_envases: TIntegerField;
    qpesadastmpcalibre: TFloatField;
    qpesadastmpprov_albaran: TWideStringField;
    qpesadastmpprov_fecha: TDateField;
    qpesadastmpprov_ggn: TWideStringField;
    qpesadastmpprov_lote: TWideStringField;
    qpesadastmpprov_grower: TWideStringField;
    qpesadastmpprov_puk: TWideStringField;
    qpesadastmpprov_otros: TWideStringField;
    qpesadaslotesresto_cajas: TIntegerField;
    qpesadasidalbaran: TWideStringField;
    tpesadasidalbaran: TWideStringField;
    tpesadasprov_albaran: TWideStringField;
    tpesadasprov_fecha: TDateField;
    tpesadasprov_ggn: TWideStringField;
    tpesadasprov_lote: TWideStringField;
    tpesadasprov_grower: TWideStringField;
    tpesadasprov_puk: TWideStringField;
    tpesadasprov_otros: TWideStringField;
    qlotespesadastrazabilidad: TWideStringField;
    qpesadassalidasid: TIntegerField;
    qpesadassalidasidempresa: TIntegerField;
    qpesadassalidasidea: TIntegerField;
    qpesadassalidasid_palet: TWideStringField;
    qpesadassalidasnum_palets: TIntegerField;
    qpesadassalidasid_palet2: TWideStringField;
    qpesadassalidasnum_palets2: TIntegerField;
    qpesadassalidasid_envase: TWideStringField;
    qpesadassalidasnum_envases: TIntegerField;
    qpesadassalidasiddestino: TIntegerField;
    qpesadassalidasdestino: TWideStringField;
    qpesadassalidaspeso_bruto: TFloatField;
    qpesadassalidastara: TFloatField;
    qpesadassalidaspeso_neto: TFloatField;
    qpesadassalidaspeso_neto_teorico: TFloatField;
    qpesadassalidaspeso_medio: TFloatField;
    qpesadassalidastemperatura: TFloatField;
    qpesadassalidasfecha: TDateField;
    qpesadassalidasfechatrabajo: TDateField;
    qpesadassalidashora: TTimeField;
    qpesadassalidasCEA: TWideStringField;
    qpesadassalidasresto_cajas: TFloatField;
    qpesadassalidasresto_pesoneto: TFloatField;
    qpesadassalidaslote: TIntegerField;
    qpesadassalidasorigen: TWideStringField;
    qpesadassalidasidorigen: TIntegerField;
    qpesadassalidasmprima: TWideStringField;
    qpesadassalidasmprima_p: TWideStringField;
    qpesadassalidasgen_caja: TIntegerField;
    qpesadassalidascosto: TFloatField;
    qpesadassalidascoste_manipulacion: TFloatField;
    qpesadassalidasdias_camara: TIntegerField;
    qpesadassalidascosto_camara: TFloatField;
    qpesadassalidascodigoR: TWideStringField;
    qpesadassalidasparcela: TWideStringField;
    qpesadassalidasfecha_cierre: TDateField;
    qpesadassalidascosto_materiales: TFloatField;
    qpesadassalidascosto_cosechar: TFloatField;
    qpesadassalidasborrado: TIntegerField;
    qpesadassalidasseleccionado: TIntegerField;
    qpesadassalidasobservaciones: TWideStringField;
    qpesadassalidastipo_trabajo: TWideStringField;
    qpesadassalidastipo_generador: TWideStringField;
    qpesadassalidasremanipulado: TIntegerField;
    qpesadassalidasfecha_envasado: TDateField;
    qpesadassalidascodean: TWideStringField;
    qpesadassalidascodssc: TWideStringField;
    qpesadassalidaspedidocliente: TIntegerField;
    qpesadassalidascosto_sinmt: TFloatField;
    qpesadassalidasrecuperar_envases: TIntegerField;
    qpesadassalidasidalbaran: TWideStringField;
    qpesadassalidases_entrada: TIntegerField;
    qpesadasentradasid: TIntegerField;
    qpesadasentradasidempresa: TIntegerField;
    qpesadasentradasidea: TIntegerField;
    qpesadasentradasid_palet: TWideStringField;
    qpesadasentradasnum_palets: TIntegerField;
    qpesadasentradasid_palet2: TWideStringField;
    qpesadasentradasnum_palets2: TIntegerField;
    qpesadasentradasid_envase: TWideStringField;
    qpesadasentradasnum_envases: TIntegerField;
    qpesadasentradasiddestino: TIntegerField;
    qpesadasentradasdestino: TWideStringField;
    qpesadasentradaspeso_bruto: TFloatField;
    qpesadasentradastara: TFloatField;
    qpesadasentradaspeso_neto: TFloatField;
    qpesadasentradaspeso_neto_teorico: TFloatField;
    qpesadasentradaspeso_medio: TFloatField;
    qpesadasentradastemperatura: TFloatField;
    qpesadasentradasfecha: TDateField;
    qpesadasentradasfechatrabajo: TDateField;
    qpesadasentradashora: TTimeField;
    qpesadasentradasCEA: TWideStringField;
    qpesadasentradasresto_cajas: TFloatField;
    qpesadasentradasresto_pesoneto: TFloatField;
    qpesadasentradaslote: TIntegerField;
    qpesadasentradasorigen: TWideStringField;
    qpesadasentradasidorigen: TIntegerField;
    qpesadasentradasmprima: TWideStringField;
    qpesadasentradasmprima_p: TWideStringField;
    qpesadasentradasgen_caja: TIntegerField;
    qpesadasentradascosto: TFloatField;
    qpesadasentradascoste_manipulacion: TFloatField;
    qpesadasentradasdias_camara: TIntegerField;
    qpesadasentradascosto_camara: TFloatField;
    qpesadasentradascodigoR: TWideStringField;
    qpesadasentradasparcela: TWideStringField;
    qpesadasentradasfecha_cierre: TDateField;
    qpesadasentradascosto_materiales: TFloatField;
    qpesadasentradascosto_cosechar: TFloatField;
    qpesadasentradasborrado: TIntegerField;
    qpesadasentradasseleccionado: TIntegerField;
    qpesadasentradasobservaciones: TWideStringField;
    qpesadasentradastipo_trabajo: TWideStringField;
    qpesadasentradastipo_generador: TWideStringField;
    qpesadasentradasremanipulado: TIntegerField;
    qpesadasentradasfecha_envasado: TDateField;
    qpesadasentradascodean: TWideStringField;
    qpesadasentradascodssc: TWideStringField;
    qpesadasentradaspedidocliente: TIntegerField;
    qpesadasentradascosto_sinmt: TFloatField;
    qpesadasentradasrecuperar_envases: TIntegerField;
    qpesadasentradasidalbaran: TWideStringField;
    qpesadasentradases_entrada: TIntegerField;
    qlotesPARCELA: TWideStringField;
    qetiquetasiddestino: TIntegerField;
    qetiquetaslotes_detalle: TWideStringField;
    qetiquetasidpedido: TIntegerField;
    qetiquetasidalbaran: TWideStringField;
    qetiquetasrecuperar_envases: TIntegerField;
    qetiquetascalibre: TFloatField;
    qetiquetasprov_albaran: TWideStringField;
    qetiquetasprov_fecha: TDateField;
    qetiquetasprov_ggn: TWideStringField;
    qetiquetasprov_lote: TWideStringField;
    qetiquetasprov_grower: TWideStringField;
    qetiquetasprov_puk: TWideStringField;
    qetiquetasprov_otros: TWideStringField;
    qpesadasiddestino: TIntegerField;
    qlotespesadasnombre: TWideStringField;
    qempresasid: TIntegerField;
    qempresascif: TWideStringField;
    qempresasnombre: TWideStringField;
    qempresasdireccion: TWideStringField;
    qempresascodpost: TWideStringField;
    qempresaspoblacion: TWideStringField;
    qempresasprovincia: TWideStringField;
    qempresasemail: TWideStringField;
    qempresastelefono1: TWideStringField;
    qempresastelefono2: TWideStringField;
    qempresascontacto: TWideStringField;
    qempresascontingenciacomfij: TFloatField;
    qempresassalariobasedia: TFloatField;
    qempresascontingenciasdia: TFloatField;
    qempresasirpf: TFloatField;
    qempresasdesempleo: TFloatField;
    qempresasformacion: TFloatField;
    qempresascontingencias: TFloatField;
    qempresasirpf2: TFloatField;
    qempresasdesempleo2: TFloatField;
    qempresasformacion2: TFloatField;
    qempresascontingencias2: TFloatField;
    qempresascc_iban: TWideStringField;
    qempresascc_entidad: TWideStringField;
    qempresascc_oficina: TWideStringField;
    qempresascc_dc: TWideStringField;
    qempresascc_cc: TWideStringField;
    qempresasajusteentrada: TIntegerField;
    qempresasajustesalida: TIntegerField;
    qempresasporcbloqueo: TIntegerField;
    qempresasactive: TIntegerField;
    qempresasult_envio: TIntegerField;
    qempresasregistro_sanitario: TWideStringField;
    qempresascoste_kg_gen: TFloatField;
    qempresasporc_segsocial: TFloatField;
    qempresasprecio_venta_desperdicios: TFloatField;
    qempresasvercodtrazabilidad: TIntegerField;
    qempresascodcomision: TWideStringField;
    qempresascodtransporte: TWideStringField;
    qempresascc_bic: TWideStringField;
    qempresascodotros: TWideStringField;
    qempresasavisarstock: TIntegerField;
    qempresashtlunes: TFloatField;
    qempresashtmartes: TFloatField;
    qempresashtmiercoles: TFloatField;
    qempresashtjueves: TFloatField;
    qempresashtviernes: TFloatField;
    qempresashtsabados: TFloatField;
    qempresashtdomingos: TFloatField;
    qempresastavisostock: TIntegerField;
    qempresasresponsable: TWideStringField;
    qempresasnif_responsable: TWideStringField;
    qempresaslogo: TBlobField;
    qempresasfirmaresponsable: TBlobField;
    qempresastiempoalmuerzo: TIntegerField;
    qempresashorasminimas: TIntegerField;
    qempresasidfamilia: TIntegerField;
    qempresasajuste15: TIntegerField;
    qempresasajuste30: TIntegerField;
    qempresasseparartraza_e_s: TIntegerField;
    qpesadastmpidalbaran: TWideStringField;
    qpesadastmpidfactura: TWideStringField;
    qpesadastmppuesto: TIntegerField;
    qlotessalidaslote: TWideStringField;
    qpesadasidfactura: TWideStringField;
    qlotessgg: TWideStringField;
    qlotessdop: TWideStringField;
    qlotessigp: TWideStringField;
    qlotessifs: TWideStringField;
    qlotessbrc: TWideStringField;
    qlotespesadassgg: TWideStringField;
    qlotespesadassdop: TWideStringField;
    qlotespesadassigp: TWideStringField;
    qlotespesadassifs: TWideStringField;
    qlotespesadassbrc: TWideStringField;
    procedure dsqpesadaslotestmpDataChange(Sender: TObject; Field: TField);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dm: Tdm;

implementation
uses principal;

{%CLASSGROUP 'Vcl.Controls.TControl'}

{$R *.dfm}

procedure Tdm.dsqpesadaslotestmpDataChange(Sender: TObject; Field: TField);
begin
   qaux.Close;
   qaux.SQL.Clear;
   qaux.sql.add('select * from lotes_pesadas_tmp where idea=-1000 and idea2='+general.qentradasid.asstring);
   qaux.open;

   if qaux.RecordCount>0 then
   begin
//      general.Panel3.Visible:=false;
      general.btguardar.Visible:=true;
   end else
   begin
     general.btguardar.Visible:=false;
//     general.btotrosdatos.Visible:=false;
   end;
end;

end.