Attachment code. I have been doing tests and I have discovered that it does not happen every time, I make 5 queries that I export and the error is only presented to me in the last query (I have marked with red the text in the place where the problem appears), to see that the queries filtered by date, and does not occur every day, is specifically with one day. I checked if the query data for that day is correct and the query gives me no data. I generated blank queries from other days and I did not have the problem in the export. Is there any way to identify within the code that this inconvenience may be due ???
regards

Fabian Kruszelnicki

    iqrCpa.ParamByName('ISUC').AsInteger := iSuc;
    iqrCpa.ParamByName('IPROV').AsInteger := iProv;
    iqrCpa.ParamByName('FDESDE').AsDate := jdeDesde.Date;
    iqrCpa.ParamByName('FHASTA').AsDate := jdeHasta.Date;
    iqrCpa.Open;
    iqrDCpa.ParamByName('ISUC').AsInteger := iSuc;
    iqrDCpa.ParamByName('IPROV').AsInteger := iProv;
    iqrDCpa.ParamByName('FDESDE').AsDate := jdeDesde.Date;
    iqrDCpa.ParamByName('FHASTA').AsDate := jdeHasta.Date;
    iqrDCpa.Open;
    iqrMCpa.ParamByName('ISUC').AsInteger := iSuc;
    iqrMCpa.ParamByName('IPROV').AsInteger := iProv;
    iqrMCpa.ParamByName('FDESDE').AsDate := jdeDesde.Date;
    iqrMCpa.ParamByName('FHASTA').AsDate := jdeHasta.Date;
    iqrMCpa.Open;
    iqrCCCpa.ParamByName('ISUC').AsInteger := iSuc;
    iqrCCCpa.ParamByName('IPROV').AsInteger := iProv;
    iqrCCCpa.ParamByName('FDESDE').AsDate := jdeDesde.Date;
    iqrCCCpa.ParamByName('FHASTA').AsDate := jdeHasta.Date;
    iqrCCCpa.Open;
    iqrImpuRtoCpa.ParamByName('ISUC').AsInteger := iSuc;
    iqrImpuRtoCpa.ParamByName('IPROV').AsInteger := iProv;
    iqrImpuRtoCpa.ParamByName('FDESDE').AsDate := jdeDesde.Date;
    iqrImpuRtoCpa.ParamByName('FHASTA').AsDate := jdeHasta.Date;
    iqrImpuRtoCpa.Open;
    //Genera Archivos de Transmision Compras
    if iqrSuc.Active then
      iqrSuc.Close;
    iqrSuc.Filtered := False;
    iqrSuc.Filter := 'ESCENTRAL = 1';
    iqrSuc.First;
    iqrSuc.Filtered := True;
    if iqrCpa.RecordCount

> 0 then
    begin

clear=none>      //Genera Cabecera Compras
      iexCpa.Filename := iqrSuc.FieldByName('PATHCOMUNICA').AsString+format('CO%.2d%.2d%.2d.DBF',[wDia,wMes,iSuc]);
      if FileExists(iexCpa.Filename) then
        if not DeleteFile(iexCpa.Filename) then
          raise Exception.Create('Se ha producido un Error al Generar Transmision Compras');
      iexCpa.Execute;
      //Genera Detalle Compras
      iexDCpa.Filename := iqrSuc.FieldByName('PATHCOMUNICA').AsString+format('CD%.2d%.2d%.2d..DBF',[wDia,wMes,iSuc]);
      if FileExists(iexDCpa.Filename) then
        if not DeleteFile(iexDCpa.Filename) then
          raise Exception.Create('Se ha producido un Error al Generar Transmision Compras');
      iexDCpa.Execute;
      //Genera Medios Pago Compras
      iexMCpa.Filename := iqrSuc.FieldByName('PATHCOMUNICA').AsString+format('CM%.2d%.2d%.2d.DBF',[wDia,wMes,iSuc]);
      if FileExists(iexMCpa.Filename) then
        if not DeleteFile(iexMCpa.Filename) then
          raise Exception.Create('Se ha producido un Error al Generar Transmision Compras');
      iexMCpa.Execute;
      //Genera Cta Cte Compras
      iexCCCpa.Filename := iqrSuc.FieldByName('PATHCOMUNICA').AsString+format('CC%.2d%.2d%.2d.DBF',[wDia,wMes,iSuc]);
      if FileExists(iexCCCpa.Filename) then
        if not DeleteFile(iexCCCpa.Filename) then
          raise Exception.Create('Se ha producido un Error al Generar Transmision Compras');
      iexCCCpa..Execute;
      //Genera Imputacion Remitos Facturables Compras
      iexImpuRtoCpa.Filename := iqrSuc.FieldByName('PATHCOMUNICA').AsString+format('CI%.2d%.2d%.2d.DBF',[wDia,wMes,iSuc]);
      if FileExists(iexImpuRtoCpa..Filename) then
        if not DeleteFile(iexImpuRtoCpa.Filename) then
          raise Exception.Create('Se ha producido un Error al Generar Transmision Compras');
      iexImpuRtoCpa.Execute;
      iqrCpa.Close;
      iqrDCpa.Close;
      iqrMCpa.Close;
      iqrCCCpa.Close;
      iqrImpuRtoCpa.Close;