unit datosestadisticas;

interface

uses
  FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf, FireDAC.Stan.Async, FireDAC.DApt, FireDAC.Comp.DataSet, FireDAC.Comp.Client, uFireDacHelper,
  System.SysUtils, System.Classes, Data.DB,  datos;

type
  TDMEstadisticas = class(TDataModule)
    dsqcampanyas: TDataSource;
    qcampanyas: TFDQuery;
    qproduccion: TFDQuery;
    dsqproduccion: TDataSource;
    dsqproducciondetallexx: TDataSource;
    qproduccionmprima: TWideStringField;
    qproduccionsumpeso_neto: TFloatField;
    qproduccion_almacen: TFDQuery;
    dsqproduccionalmacen: TDataSource;
    qcontenido: TFDQuery;
    dsqcontenido: TDataSource;
    qcontenidodestino: TWideStringField;
    qcontenidoenvases: TLargeintField;
    qcontenidopesoneto: TFloatField;
    qcontenidoid_envase: TWideStringField;
    qcontenidomprima: TWideStringField;
    dsqproduccionimpresion: TDataSource;
    qcontenidopesonetoteorico: TFloatField;
    qproduccionimpresion: TFDQuery;
    qproduccionparcela: TWideStringField;
    ZReadOnlyQuery1: TFDQuery;
    WideStringField4: TWideStringField;
    LargeintField1: TLargeintField;
    FloatField8: TFloatField;
    FloatField9: TFloatField;
    WideStringField6: TWideStringField;
    WideStringField7: TWideStringField;
    DataSource1: TDataSource;
    ZReadOnlyQuery2: TFDQuery;
    WideStringField8: TWideStringField;
    LargeintField2: TLargeintField;
    FloatField10: TFloatField;
    FloatField11: TFloatField;
    WideStringField9: TWideStringField;
    WideStringField10: TWideStringField;
    DataSource2: TDataSource;
    qproduccionimpresionid: TIntegerField;
    qproduccionimpresionidempresa: TIntegerField;
    qproduccionimpresionidea: TIntegerField;
    qproduccionimpresionid_palet: TWideStringField;
    qproduccionimpresionnum_palets: TIntegerField;
    qproduccionimpresionid_palet2: TWideStringField;
    qproduccionimpresionnum_palets2: TIntegerField;
    qproduccionimpresionid_envase: TWideStringField;
    qproduccionimpresionnum_envases: TIntegerField;
    qproduccionimpresioniddestino: TIntegerField;
    qproduccionimpresiondestino: TWideStringField;
    qproduccionimpresionpeso_bruto: TFloatField;
    qproduccionimpresiontara: TFloatField;
    qproduccionimpresionpeso_neto: TFloatField;
    qproduccionimpresionpeso_neto_teorico: TFloatField;
    qproduccionimpresionpeso_medio: TFloatField;
    qproduccionimpresiontemperatura: TFloatField;
    qproduccionimpresionfecha: TDateField;
    qproduccionimpresionfechatrabajo: TDateField;
    qproduccionimpresionhora: TTimeField;
    qproduccionimpresionCEA: TWideStringField;
    qproduccionimpresionresto_cajas: TFloatField;
    qproduccionimpresionresto_pesoneto: TFloatField;
    qproduccionimpresionlote: TIntegerField;
    qproduccionimpresionorigen: TWideStringField;
    qproduccionimpresionidorigen: TIntegerField;
    qproduccionimpresionmprima: TWideStringField;
    qproduccionimpresiongen_caja: TIntegerField;
    qproduccionimpresioncosto: TFloatField;
    qproduccionimpresioncoste_manipulacion: TFloatField;
    qproduccionimpresiondias_camara: TIntegerField;
    qproduccionimpresioncosto_camara: TFloatField;
    qproduccionimpresioncodigoR: TWideStringField;
    qproduccionimpresionparcela: TWideStringField;
    qproduccionimpresionfecha_cierre: TDateField;
    qproduccionimpresioncosto_materiales: TFloatField;
    qproduccionimpresioncosto_cosechar: TFloatField;
    qproduccionimpresionborrado: TIntegerField;
    qproduccionimpresionseleccionado: TIntegerField;
    qproduccionimpresionobservaciones: TWideStringField;
    qproduccionimpresiontipo_trabajo: TWideStringField;
    qproduccionimpresiontipo_generador: TWideStringField;
    qproduccionimpresionremanipulado: TIntegerField;
    qproduccionimpresionfecha_envasado: TDateField;
    qproduccionimpresioncodean: TWideStringField;
    qproduccionimpresioncodssc: TWideStringField;
    qproduccionimpresionpedidocliente: TIntegerField;
    qproduccionimpresioncosto_sinmt: TFloatField;
    qproduccion_almacenid: TIntegerField;
    qproduccion_almacenidempresa: TIntegerField;
    qproduccion_almacenidea: TIntegerField;
    qproduccion_almacenid_palet: TWideStringField;
    qproduccion_almacennum_palets: TIntegerField;
    qproduccion_almacenid_palet2: TWideStringField;
    qproduccion_almacennum_palets2: TIntegerField;
    qproduccion_almacenid_envase: TWideStringField;
    qproduccion_almacennum_envases: TIntegerField;
    qproduccion_almaceniddestino: TIntegerField;
    qproduccion_almacendestino: TWideStringField;
    qproduccion_almacenpeso_bruto: TFloatField;
    qproduccion_almacentara: TFloatField;
    qproduccion_almacenpeso_neto: TFloatField;
    qproduccion_almacenpeso_neto_teorico: TFloatField;
    qproduccion_almacenpeso_medio: TFloatField;
    qproduccion_almacentemperatura: TFloatField;
    qproduccion_almacenfecha: TDateField;
    qproduccion_almacenfechatrabajo: TDateField;
    qproduccion_almacenhora: TTimeField;
    qproduccion_almacenCEA: TWideStringField;
    qproduccion_almacenresto_cajas: TFloatField;
    qproduccion_almacenresto_pesoneto: TFloatField;
    qproduccion_almacenlote: TIntegerField;
    qproduccion_almacenorigen: TWideStringField;
    qproduccion_almacenidorigen: TIntegerField;
    qproduccion_almacenmprima: TWideStringField;
    qproduccion_almacengen_caja: TIntegerField;
    qproduccion_almacencosto: TFloatField;
    qproduccion_almacencoste_manipulacion: TFloatField;
    qproduccion_almacendias_camara: TIntegerField;
    qproduccion_almacencosto_camara: TFloatField;
    qproduccion_almacencodigoR: TWideStringField;
    qproduccion_almacenparcela: TWideStringField;
    qproduccion_almacenfecha_cierre: TDateField;
    qproduccion_almacencosto_materiales: TFloatField;
    qproduccion_almacencosto_cosechar: TFloatField;
    qproduccion_almacenborrado: TIntegerField;
    qproduccion_almacenseleccionado: TIntegerField;
    qproduccion_almacenobservaciones: TWideStringField;
    qproduccion_almacentipo_trabajo: TWideStringField;
    qproduccion_almacentipo_generador: TWideStringField;
    qproduccion_almacenremanipulado: TIntegerField;
    qproduccion_almacenfecha_envasado: TDateField;
    qproduccion_almacencodean: TWideStringField;
    qproduccion_almacencodssc: TWideStringField;
    qproduccion_almacenpedidocliente: TIntegerField;
    qproduccion_almacencosto_sinmt: TFloatField;
    qsalidas: TFDQuery;
    WideStringField1: TWideStringField;
    WideStringField2: TWideStringField;
    FloatField2: TFloatField;
    qsalidasdetalles: TFDQuery;
    dsqsalidas: TDataSource;
    dsqsalidasdetalles: TDataSource;
    qsalidasdetallesid: TIntegerField;
    qsalidasdetallesidempresa: TIntegerField;
    qsalidasdetallesidea: TIntegerField;
    qsalidasdetallesid_palet: TWideStringField;
    qsalidasdetallesnum_palets: TIntegerField;
    qsalidasdetallesid_palet2: TWideStringField;
    qsalidasdetallesnum_palets2: TIntegerField;
    qsalidasdetallesid_envase: TWideStringField;
    qsalidasdetallesnum_envases: TIntegerField;
    qsalidasdetallesiddestino: TIntegerField;
    qsalidasdetallesdestino: TWideStringField;
    qsalidasdetallespeso_bruto: TFloatField;
    qsalidasdetallestara: TFloatField;
    qsalidasdetallespeso_neto: TFloatField;
    qsalidasdetallespeso_neto_teorico: TFloatField;
    qsalidasdetallespeso_medio: TFloatField;
    qsalidasdetallestemperatura: TFloatField;
    qsalidasdetallesfecha: TDateField;
    qsalidasdetallesfechatrabajo: TDateField;
    qsalidasdetalleshora: TTimeField;
    qsalidasdetallesCEA: TWideStringField;
    qsalidasdetallesresto_cajas: TFloatField;
    qsalidasdetallesresto_pesoneto: TFloatField;
    qsalidasdetalleslote: TIntegerField;
    qsalidasdetallesorigen: TWideStringField;
    qsalidasdetallesidorigen: TIntegerField;
    qsalidasdetallesmprima: TWideStringField;
    qsalidasdetallesmprima_p: TWideStringField;
    qsalidasdetallesgen_caja: TIntegerField;
    qsalidasdetallescosto: TFloatField;
    qsalidasdetallescoste_manipulacion: TFloatField;
    qsalidasdetallesdias_camara: TIntegerField;
    qsalidasdetallescosto_camara: TFloatField;
    qsalidasdetallescodigoR: TWideStringField;
    qsalidasdetallesparcela: TWideStringField;
    qsalidasdetallesfecha_cierre: TDateField;
    qsalidasdetallescosto_materiales: TFloatField;
    qsalidasdetallescosto_cosechar: TFloatField;
    qsalidasdetallesborrado: TIntegerField;
    qsalidasdetallesseleccionado: TIntegerField;
    qsalidasdetallesobservaciones: TWideStringField;
    qsalidasdetallestipo_trabajo: TWideStringField;
    qsalidasdetallestipo_generador: TWideStringField;
    qsalidasdetallesremanipulado: TIntegerField;
    qsalidasdetallesfecha_envasado: TDateField;
    qsalidasdetallescodean: TWideStringField;
    qsalidasdetallescodssc: TWideStringField;
    qsalidasdetallespedidocliente: TIntegerField;
    qsalidasdetallescosto_sinmt: TFloatField;
    qsalidasdetallesrecuperar_envases: TIntegerField;
    dsqinfsalidas: TDataSource;
    qinfsalidas: TFDQuery;
    dsqinfentradas: TDataSource;
    qinfentradas: TFDQuery;
    qinfentradasid: TIntegerField;
    qinfentradasfecha: TDateField;
    qinfentradasfechatrabajo: TDateField;
    qinfentradasparcela: TWideStringField;
    qinfentradasmprima: TWideStringField;
    qinfentradasid_envase: TWideStringField;
    qinfentradasnum_envases: TIntegerField;
    qinfentradascliente: TWideStringField;
    qinfentradasciudad: TWideStringField;
    qinfentradaspeso_neto: TFloatField;
    qinfentradaspeso_neto_teorico: TFloatField;
    qinfentradaspeso_medio: TFloatField;
    qinfentradastemperatura: TFloatField;
    qinfentradaslote: TIntegerField;
    qinfsalidasid: TIntegerField;
    qinfsalidasfecha: TDateField;
    qinfsalidasfechatrabajo: TDateField;
    qinfsalidasparcela: TWideStringField;
    qinfsalidasmprima: TWideStringField;
    qinfsalidasid_envase: TWideStringField;
    qinfsalidasnum_envases: TIntegerField;
    qinfsalidascliente: TWideStringField;
    qinfsalidasciudad: TWideStringField;
    qinfsalidaspeso_neto: TFloatField;
    qinfsalidaspeso_neto_teorico: TFloatField;
    qinfsalidaspeso_medio: TFloatField;
    qinfsalidastemperatura: TFloatField;
    qinfsalidaslote: TIntegerField;
    qinfsalidasmprima_p: TWideStringField;
    qinfentradasmprima_p: TWideStringField;
    qinfentradasidalbaran: TWideStringField;
    qinfsalidasidalbaran: TWideStringField;
    qproduccionimpresionmprima_p: TWideStringField;
    qproduccionimpresionrecuperar_envases: TIntegerField;
    qproduccionimpresionidalbaran: TWideStringField;
    qproduccionimpresiones_entrada: TIntegerField;
    qproduccionimpresiondesc_calibre: TWideStringField;
    qproduccionimpresiondesc_formato: TWideStringField;
    qcontenidodesc_formato: TWideStringField;
    qproduccion_almacenmprima_p: TWideStringField;
    qproduccion_almacenrecuperar_envases: TIntegerField;
    qproduccion_almacenidalbaran: TWideStringField;
    qproduccion_almacenes_entrada: TIntegerField;
    qproduccion_almacendesc_calibre: TWideStringField;
    qproduccion_almacendesc_formato: TWideStringField;
    qproduccion_almacendesc_envase: TWideStringField;
    qproduccion_almacenidfactura: TWideStringField;
    dsqdesechos: TDataSource;
    qdesechos: TFDQuery;
    dsqdesechosdetalles: TDataSource;
    qdesechosdetalles: TFDQuery;
    qproduccionsumpeso_neto_teorico: TFloatField;
    qsalidassumpeso_neto_teorico: TFloatField;
    dsqinfdesechos: TDataSource;
    qinfdesechos: TFDQuery;
    qinfdesechosid: TIntegerField;
    qinfdesechosfecha: TDateField;
    qinfdesechosfechatrabajo: TDateField;
    qinfdesechosparcela: TWideStringField;
    qinfdesechosmprima: TWideStringField;
    qinfdesechosmprima_p: TWideStringField;
    qinfdesechosid_envase: TWideStringField;
    qinfdesechosnum_envases: TIntegerField;
    qinfdesechoscliente: TWideStringField;
    qinfdesechosciudad: TWideStringField;
    qinfdesechospeso_neto: TFloatField;
    qinfdesechospeso_neto_teorico: TFloatField;
    qinfdesechospeso_medio: TFloatField;
    qinfdesechostemperatura: TFloatField;
    qinfdesechoslote: TIntegerField;
    qinfdesechosidalbaran: TWideStringField;
    qdesechosparcela: TWideStringField;
    qdesechosmprima: TWideStringField;
    qdesechossumpeso_neto_teorico: TFloatField;
    qdesechossumpeso_neto: TFloatField;
    qdesechosdetallesid: TIntegerField;
    qdesechosdetallesidempresa: TIntegerField;
    qdesechosdetallesidea: TIntegerField;
    qdesechosdetallesid_palet: TWideStringField;
    qdesechosdetallesnum_palets: TIntegerField;
    qdesechosdetallesid_palet2: TWideStringField;
    qdesechosdetallesnum_palets2: TIntegerField;
    qdesechosdetallesid_envase: TWideStringField;
    qdesechosdetallesnum_envases: TIntegerField;
    qdesechosdetallesiddestino: TIntegerField;
    qdesechosdetallesdestino: TWideStringField;
    qdesechosdetallespeso_bruto: TFloatField;
    qdesechosdetallestara: TFloatField;
    qdesechosdetallespeso_neto: TFloatField;
    qdesechosdetallespeso_neto_teorico: TFloatField;
    qdesechosdetallespeso_medio: TFloatField;
    qdesechosdetallestemperatura: TFloatField;
    qdesechosdetallesfecha: TDateField;
    qdesechosdetallesfechatrabajo: TDateField;
    qdesechosdetalleshora: TTimeField;
    qdesechosdetallesCEA: TWideStringField;
    qdesechosdetallesresto_cajas: TFloatField;
    qdesechosdetallesresto_pesoneto: TFloatField;
    qdesechosdetalleslote: TIntegerField;
    qdesechosdetallesorigen: TWideStringField;
    qdesechosdetallesidorigen: TIntegerField;
    qdesechosdetallesmprima: TWideStringField;
    qdesechosdetallesmprima_p: TWideStringField;
    qdesechosdetallesgen_caja: TIntegerField;
    qdesechosdetallescosto: TFloatField;
    qdesechosdetallescoste_manipulacion: TFloatField;
    qdesechosdetallesdias_camara: TIntegerField;
    qdesechosdetallescosto_camara: TFloatField;
    qdesechosdetallescodigoR: TWideStringField;
    qdesechosdetallesparcela: TWideStringField;
    qdesechosdetallesfecha_cierre: TDateField;
    qdesechosdetallescosto_materiales: TFloatField;
    qdesechosdetallescosto_cosechar: TFloatField;
    qdesechosdetallesborrado: TIntegerField;
    qdesechosdetallesseleccionado: TIntegerField;
    qdesechosdetallesobservaciones: TWideStringField;
    qdesechosdetallestipo_trabajo: TWideStringField;
    qdesechosdetallestipo_generador: TWideStringField;
    qdesechosdetallesremanipulado: TIntegerField;
    qdesechosdetallesfecha_envasado: TDateField;
    qdesechosdetallescodean: TWideStringField;
    qdesechosdetallescodssc: TWideStringField;
    qdesechosdetallespedidocliente: TIntegerField;
    qdesechosdetallescosto_sinmt: TFloatField;
    qdesechosdetallesrecuperar_envases: TIntegerField;
    qdesechosdetallesidalbaran: TWideStringField;
    qdesechosdetalleses_entrada: TIntegerField;
    qdesechosdetallesdesc_calibre: TWideStringField;
    qdesechosdetallesdesc_formato: TWideStringField;
    qdesechosdetallesdesc_envase: TWideStringField;
    qdesechosdetallesidfactura: TWideStringField;
    qcampanyasid: TIntegerField;
    qcampanyasidempresa: TIntegerField;
    qcampanyasid_anterior: TIntegerField;
    qcampanyasdescripcion: TWideStringField;
    qcampanyasfechainicio: TDateField;
    qcampanyasfechafin: TDateField;
    qcampanyasult_pesada: TIntegerField;
    qproduccion_detallesxx: TFDQuery;
    qproduccion_detallesxxid: TIntegerField;
    qproduccion_detallesxxidempresa: TIntegerField;
    qproduccion_detallesxxidea: TIntegerField;
    qproduccion_detallesxxid_palet: TWideStringField;
    qproduccion_detallesxxnum_palets: TIntegerField;
    qproduccion_detallesxxid_palet2: TWideStringField;
    qproduccion_detallesxxnum_palets2: TIntegerField;
    qproduccion_detallesxxid_envase: TWideStringField;
    qproduccion_detallesxxnum_envases: TIntegerField;
    qproduccion_detallesxxiddestino: TIntegerField;
    qproduccion_detallesxxdestino: TWideStringField;
    qproduccion_detallesxxpeso_bruto: TFloatField;
    qproduccion_detallesxxtara: TFloatField;
    qproduccion_detallesxxpeso_neto: TFloatField;
    qproduccion_detallesxxpeso_neto_teorico: TFloatField;
    qproduccion_detallesxxpeso_medio: TFloatField;
    qproduccion_detallesxxtemperatura: TFloatField;
    qproduccion_detallesxxfecha: TDateField;
    qproduccion_detallesxxfechatrabajo: TDateField;
    qproduccion_detallesxxhora: TTimeField;
    qproduccion_detallesxxCEA: TWideStringField;
    qproduccion_detallesxxresto_cajas: TFloatField;
    qproduccion_detallesxxresto_pesoneto: TFloatField;
    qproduccion_detallesxxlote: TIntegerField;
    qproduccion_detallesxxorigen: TWideStringField;
    qproduccion_detallesxxidorigen: TIntegerField;
    qproduccion_detallesxxmprima: TWideStringField;
    qproduccion_detallesxxmprima_p: TWideStringField;
    qproduccion_detallesxxgen_caja: TIntegerField;
    qproduccion_detallesxxcosto: TFloatField;
    qproduccion_detallesxxcoste_manipulacion: TFloatField;
    qproduccion_detallesxxdias_camara: TIntegerField;
    qproduccion_detallesxxcosto_camara: TFloatField;
    qproduccion_detallesxxcodigoR: TWideStringField;
    qproduccion_detallesxxparcela: TWideStringField;
    qproduccion_detallesxxfecha_cierre: TDateField;
    qproduccion_detallesxxcosto_materiales: TFloatField;
    qproduccion_detallesxxcosto_cosechar: TFloatField;
    qproduccion_detallesxxborrado: TIntegerField;
    qproduccion_detallesxxseleccionado: TIntegerField;
    qproduccion_detallesxxobservaciones: TWideStringField;
    qproduccion_detallesxxtipo_trabajo: TWideStringField;
    qproduccion_detallesxxtipo_generador: TWideStringField;
    qproduccion_detallesxxremanipulado: TIntegerField;
    qproduccion_detallesxxfecha_envasado: TDateField;
    qproduccion_detallesxxcodean: TWideStringField;
    qproduccion_detallesxxcodssc: TWideStringField;
    qproduccion_detallesxxpedidocliente: TIntegerField;
    qproduccion_detallesxxcosto_sinmt: TFloatField;
    qproduccion_detallesxxrecuperar_envases: TIntegerField;
    qproduccion_detallesxxidalbaran: TWideStringField;
    qproduccion_detallesxxes_entrada: TIntegerField;
    qproduccion_detallesxxdesc_calibre: TWideStringField;
    qproduccion_detallesxxdesc_formato: TWideStringField;
    qproduccion_detallesxxdesc_envase: TWideStringField;
    qproduccion_detallesxxidfactura: TWideStringField;
    qinfsalidascosto_materiales: TFloatField;
    qinfsalidascoste_manipulacion: TFloatField;
    qinfdesechoscosto_materiales: TFloatField;
    qinfdesechoscoste_manipulacion: TFloatField;
    qinfentradascosto_materiales: TFloatField;
    qinfentradascoste_manipulacion: TFloatField;
    procedure dsqcampanyasDataChange(Sender: TObject; Field: TField);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DMEstadisticas: TDMEstadisticas;

implementation

{%CLASSGROUP 'Vcl.Controls.TControl'}

uses datosproduccion;

{$R *.dfm}

procedure TDMEstadisticas.dsqcampanyasDataChange(Sender: TObject;
  Field: TField);
begin
    qproduccion.close;
    qproduccion.prepare;
    qproduccion.ParamByName('FINICIO').AsDate:=qcampanyasfechainicio.AsDateTime;//('SELECT parcela,mprima_p as mprima,sum(peso_bruto),sum(peso_neto) FROM v_ea_pesadaslotes');
    qproduccion.ParamByName('FFIN').AsDate:=qcampanyasfechaFIN.AsDateTime;//dmestadisticas.qproduccion.sql.Add(' where idea>0 and fecha>='+''''+vfechainicio+''''+' and fecha<='+''''+vfechafin+''''+' group by parcela,mprima_p');
    qproduccion.ParamByName('PARCELA').AsString:=dm.qparcelascodpar.AsString;
    qproduccion.open;//dmestadisticas.qproduccion.Open;

    dmproduccion.qproduccion_detalles.close;
    dmproduccion.qproduccion_detalles.prepare;
    dmproduccion.qproduccion_detalles.ParamByName('FINICIO').AsDate:=qcampanyasfechainicio.AsDateTime;//('SELECT parcela,mprima_p as mprima,sum(peso_bruto),sum(peso_neto) FROM v_ea_pesadaslotes');
    dmproduccion.qproduccion_detalles.ParamByName('FFIN').AsDate:=qcampanyasfechaFIN.AsDateTime;//dmestadisticas.qproduccion.sql.Add(' where idea>0 and fecha>='+''''+vfechainicio+''''+' and fecha<='+''''+vfechafin+''''+' group by parcela,mprima_p');
    dmproduccion.qproduccion_detalles.ParamByName('PARCELA').AsString:=dm.qparcelascodpar.AsString;
    dmproduccion.qproduccion_detalles.open;



    qsalidas.close;
    qsalidas.prepare;
    qsalidas.ParamByName('FINICIO').AsDate:=qcampanyasfechainicio.AsDateTime;//('SELECT parcela,mprima_p as mprima,sum(peso_bruto),sum(peso_neto) FROM v_ea_pesadaslotes');
    qsalidas.ParamByName('FFIN').AsDate:=qcampanyasfechaFIN.AsDateTime;//dmestadisticas.qsalidas.sql.Add(' where idea>0 and fecha>='+''''+vfechainicio+''''+' and fecha<='+''''+vfechafin+''''+' group by parcela,mprima_p');
    qsalidas.ParamByName('PARCELA').AsString:=dm.qparcelascodpar.AsString;
    qsalidas.open;

    qsalidasdetalles.close;
    qsalidasdetalles.prepare;
    qsalidasdetalles.ParamByName('FINICIO').AsDate:=qcampanyasfechainicio.AsDateTime;//('SELECT parcela,mprima_p as mprima,sum(peso_bruto),sum(peso_neto) FROM v_ea_pesadaslotes');
    qsalidasdetalles.ParamByName('FFIN').AsDate:=qcampanyasfechaFIN.AsDateTime;//dmestadisticas.qproduccion.sql.Add(' where idea>0 and fecha>='+''''+vfechainicio+''''+' and fecha<='+''''+vfechafin+''''+' group by parcela,mprima_p');
    qsalidasdetalles.ParamByName('PARCELA').AsString:=dm.qparcelascodpar.AsString;
    qsalidasdetalles.open;

    qdesechos.close;
    qdesechos.prepare;
    qdesechos.ParamByName('FINICIO').AsDate:=qcampanyasfechainicio.AsDateTime;//('SELECT parcela,mprima_p as mprima,sum(peso_bruto),sum(peso_neto) FROM v_ea_pesadaslotes');
    qdesechos.ParamByName('FFIN').AsDate:=qcampanyasfechaFIN.AsDateTime;//dmestadisticas.qdesechos.sql.Add(' where idea>0 and fecha>='+''''+vfechainicio+''''+' and fecha<='+''''+vfechafin+''''+' group by parcela,mprima_p');
    qdesechos.ParamByName('PARCELA').AsString:=dm.qparcelascodpar.AsString;
    qdesechos.open;

    qdesechosdetalles.close;
    qdesechosdetalles.prepare;
    qdesechosdetalles.ParamByName('FINICIO').AsDate:=qcampanyasfechainicio.AsDateTime;//('SELECT parcela,mprima_p as mprima,sum(peso_bruto),sum(peso_neto) FROM v_ea_pesadaslotes');
    qdesechosdetalles.ParamByName('FFIN').AsDate:=qcampanyasfechaFIN.AsDateTime;//dmestadisticas.qproduccion.sql.Add(' where idea>0 and fecha>='+''''+vfechainicio+''''+' and fecha<='+''''+vfechafin+''''+' group by parcela,mprima_p');
    qdesechosdetalles.ParamByName('PARCELA').AsString:=dm.qparcelascodpar.AsString;
    qdesechosdetalles.open;



end;

end.