Fórum sintegra #2537

bom estou terminando um projeto que trata sobre sintegra e estou com o seguinte problema quando eu gero os registros 75 usando esse codigo   function tgerador.sRegistro75(var Err_Msg: string; var qnt_ok, qnt_erro: integer): boolean;
var
 TempStr: string;
begin
 Result := True;  //Executa a seleção dos registros no banco de dados
 with deasy.QrySintegra do
  begin
   Close;   unprepare;    sql.Clear;
   SQL.Add('SELECT distinct barras, cst, descricao, un,');
   SQL.Add('aliquota, basedecalculo, basest, dataemissao');
   SQL.Add('FROM itensnota WHERE');
   SQL.Add('notaid IN (');
   SQL.Add('SELECT notaid FROM nota WHERE');
   SQL.Add('(dataemissao BETWEEN :datahora_ini AND :datahora_fim) AND (');
   SQL.Add('(modelo = ''01'') OR');
   SQL.Add('(modelo = ''1A'') OR');
   SQL.Add('(modelo = ''03'') OR');
   SQL.Add('(modelo = ''06'') OR');
   SQL.Add('(modelo = ''22'')))');    ParamByName('datahora_ini').asdatetime := DataHora_Inicial;
   ParamByName('datahora_fim').asdatetime := DataHora_Final;    prepare;    Open;    if RecordCount > 0 then
    begin
     while not deasy.QrySintegra.EOF do
      begin
       //Faz a chamada da dll passando as informações do banco de dados e armazena numa string temporária
       TempStr := Registro75(datetostr(DataHora_Inicial),                       //Data Inicial
         fields.FieldByName('dataemissao').asstring, //datetostr(DataHora_Final),                                             //Data_Final
         Fields.FieldByName('barras').AsString,                           //Cod_Produto_Servico
         Fields.FieldByName('cst').AsString,                                 //Cod_NCM
         Fields.FieldByName('descricao').AsString,                                //Descricao
         Fields.FieldByName('un').AsString,                                //UND_Medida
         '0',        //Aliquota_IPI
         formatcurr('0.00', Fields.FieldByName('aliquota').AsFloat),       //Aliquota_ICMS
         formatcurr('0.00', Fields.FieldByName('basedecalculo').AsFloat),       //Aliquota_ICMS
         Fields.FieldByName('basest').AsString
         );                         //Base_ICMS_Subst
       //Executa o tratamento da string temporária testando se houve erro
       //Caso haja erro, executa o log das informações inconsistentes no RichEdit
       if not Trata_SIntegra_Str(TempStr) then
        begin
         qnt_erro := qnt_erro + 1;
         Result := False;          Err_Msg := Err_Msg + #13 +
           '    Data Inicial: ' + datetostr(DataHora_Inicial) + #13 +
           '    Data Final: ' + fields.FieldByName('dataemissao').asstring + #13 +//datetostr(DataHora_Final) + #13 +
           '    Codigo Produto: ' + Fields.FieldByName('barras').AsString + #13 +            '    Descricao: ' + Fields.FieldByName('descricao').AsString + #13 +
           '    Unidade: ' + Fields.FieldByName('un').AsString + #13 +
           '    CST: ' + Fields.FieldByName('cst').AsString + #13 +            '    Aliquota ICMS: ' + floattostr(Fields.FieldByName('aliquota').AsFloat * 100) + #13 +
           '    Base ICMS Subst: ' + Fields.FieldByName('basest').AsString;
        end
       else
        qnt_ok := qnt_ok + 1;        if not EOF then
         Next;        if quit_sintegra then
         exit;
      end;
    end;
  end;
end;   ele faz direitim so que se tiver dois registro 75 na mesma data de emissao ele gera dois 75 quero fazer de uma maneira que ele nao duplique esses registros ja tentei um monte de coisa so que so meio novo no rad e to um tempao mechendo com esse projeto!