Pesquisar na Comunidade

Bom dia, Após enviar o CT-e e receber as informações tenho uma rotina que envia os email aos respectivos envolvidos, porém, se existe mais de um CT-e a exportação do PDF vai se repetindo a cada CT-e, exemplo: 3 CT-e : Exporta o numero 1 na primeira vez Exporta os numero 1,2 na segunda vez Exporta os numero 1,2,3 na terceira vez Segue parte rotina if EnviarEmail and EnviarSefaz then begin memoStatus.Lines.Add(''); memoStatus.Lines.Add('Enviando Conhecimento(s) por e-mail'); memoStatus.Lines.Add(''); for I := 0 to (CTeSYS4.WebServices.Retorno.CteRetorno.ProtCTe. Count - 1) do begin EnderecoEmail := sEmailsCTe; sDataHora := DateTimeToStr (CTeSYS4.WebServices.Retorno.CteRetorno.ProtCTe.Items.DhRecbto); sProtocolo := CTeSYS4.WebServices.Retorno.CteRetorno.ProtCTe. Items.nProt; sStat := IntToStr(CTeSYS4.WebServices.Retorno.CteRetorno.ProtCTe.Items .cStat); sMotivo := CTeSYS4.WebServices.Retorno.CteRetorno.ProtCTe.Items .xMotivo; sChave := CTeSYS4.WebServices.Retorno.CteRetorno.ProtCTe. Items.chCTe; sConhecimento := Copy(sChave, 26, 3) + '.' + Copy(sChave, 29, 3) + '.' + Copy(sChave, 32, 3); sCTRCMax := SiglaFilial + 'E' + Zero(StrToInt(SoNumero(sConhecimento)), 6, True, '0'); if EnderecoEmail <> '' then begin sCC.Clear; mmEmailMsg.Clear; mmEmailMsg.Lines.Add ('Comunicamos por este e-mail, a emissão do Conhecimento Eletrônico (Chave : ' + sChave + ') e autorização de uso sob o protocolo : ' + CTeSYS4.Conhecimentos.Items.CTe.procCTe.nProt); mmEmailMsg.Lines.Add(' '); mmEmailMsg.Lines.Add(' CTe Numero :' + sConhecimento); mmEmailMsg.Lines.Add(' '); mmEmailMsg.Lines.Add ('Enviamos em anexo o arquivo XML do respectivo CT-e.'); mmEmailMsg.Lines.Add(' '); mmEmailMsg.Lines.Add('Atenciosamente,'); mmEmailMsg.Lines.Add(' '); mmEmailMsg.Lines.Add(NomeFilial); mmEmailMsg.Lines.Add('System4 - CTe'); if trim(EmailCopiaFilial) <> '' then sCC.Add(trim(EmailCopiaFilial)); if trim(EmailContabilidade) <> '' then sCC.Add(trim(EmailContabilidade)); Ok := False; Falha := False; memoStatus.Lines.Add('CT-e : ' + sConhecimento); memoStatus.Lines.Add('Chave : ' + sChave); memoStatus.Lines.Add('Destinatário : ' + EnderecoEmail); for I2 := 0 to sCC.Count - 1 do begin memoStatus.Lines.Add('Cópia para : ' + sCC[i2]); end; // Se houver mais de uma host utilize o contador // iHost := 1 ate os que tiver repeat memoStatus.Lines.Add(''); try CTeSYS4.Conhecimentos.Items.EnviarEmail(edtSmtpHost.Text, edtSmtpPort.Text, edtSmtpUser.Text, edtSmtpPass.Text, edtSmtpUser.Text, EnderecoEmail, edtEmailAssunto.Text + ' Nº : ' + sConhecimento, mmEmailMsg.Lines, chkEmailSSL.Checked, True // Enviar PDF junto , sCC // Lista com emails que serão enviado cópias - TStrings , nil // Lista de anexos - TStrings , chkPedeConfirmacao.Checked, False, NomeFilial, False); // Pede confirmação de leitura do email Ok := True; memoStatus.Lines.Add('Enviado pelo Host [' + HostSmtpFilial + '] '); memoStatus.Lines.Add(''); except Ok := False; Falha := True; end; until Ok or Falha; memoStatus.Lines.Add(''); if Falha then MessageDlg('E-mail não enviado por motivo de Falha.', mtError, [mbOk], 0); end else begin // MessageDlg('Tomador do Serviço não possui, e-mail Cadastrado CTe : ' + sConhecimento, mtInformation, [mbOk], 0); Ok := False; end; if Ok then MessageDlg('E-mail enviado com Sucesso.', mtInformation, [mbOk], 0) else MessageDlg('Nem Todos E-mails foram enviado com Sucesso.', mtInformation, [mbOk], 0); sCC.Free; sEmailsCTe.Free; end;