Erro No Envio De E-Mail Com Mais De Um Nota (Lote)

[phanet]

Estou tendo um problema ao enviar email aos clientes de notas por emissão em lote! a função que estou usando é a seguinte:

 

AcbrNFe.NotasFiscais.Items[idxNf].EnviarEmail

 

No meu índice quando uso apenas uma nota, eu passo o valor IDXNf = 0 funciona perfeitamente! Porem, tenho problemas quando envio por lote de mais de uma nota, na qual terei o meu índice IdxNf [0]  e [1]. Nesta situação,  ao passar no primeiro índice [0] não dá mensagem de erro e não envia o e-mail e a segunda nota perde a referencia.

 

Exemplo 1 : Funcionando 100%

 

Com apenas 1 nota

 

tenho o meu for que vai rodar apenas uma vez!

 

 frmNotaFiscal.cNFe.NotasFiscais.Items[idxNf].NFe.procNFe.chNFe; -->tem valor

 frmNotaFiscal.cNFe.NotasFiscais.Items[idxNf].NFe.procNFe.xMotivo; -->tem valor

 frmNotaFiscal.cNFe.NotasFiscais.Items[idxNf].NFe.procNFe.nProt; -->tem valor

 

AcbrNFe.NotasFiscais.Items[idxNf].EnviarEmail(etc....)

 

Email enviado com sucesso!!!

 

 

Exemplo 2 : Falha

 

Com apenas 2 nota

 

For rodando na primeira vez

 

 frmNotaFiscal.cNFe.NotasFiscais.Items[idxNf].NFe.procNFe.chNFe; -->tem valor 

 frmNotaFiscal.cNFe.NotasFiscais.Items[idxNf].NFe.procNFe.xMotivo;-->tem valor

 frmNotaFiscal.cNFe.NotasFiscais.Items[idxNf].NFe.procNFe.nProt;-->tem valor

 

AcbrNFe.NotasFiscais.Items[idxNf].EnviarEmail(etc....) 

 

quando eu passo pela função de enviar email ocasiona o problema, pois quando passará pela segunda vez  no meu For os valores dos campos abaixo perde a referencia da segunda nota

 

 frmNotaFiscal.cNFe.NotasFiscais.Items[idxNf].NFe.procNFe.chNFe; -->sem valor 

 frmNotaFiscal.cNFe.NotasFiscais.Items[idxNf].NFe.procNFe.xMotivo;-->sem valor

 frmNotaFiscal.cNFe.NotasFiscais.Items[idxNf].NFe.procNFe.nProt;-->sem valor

 

 

Não sei o que está acontecendo mais quando isso acontece ele nem chega a enviar o email ao cliente da primeira nota! 

 

Abs

 

 

[ricardo_casc]

Posta o pedaço do código

[phanet]

Bom dia Ricardo, ok!

 

if ACBRNfe.Enviar(vLote,False) then  

   begin

      vRecibo:='';

      vRecibo:=Trim(frmNotaFiscal.ACBRNfe.WebServices.Retorno.Recibo);

      frmNotaFiscal.ACBRNfe.NotasFiscais.SaveToFile;

 

      for vContNf:= 0 to High(NumNF) do ---->> NumNf é o n° de nfe que eu tenho a registrar em banco pela função fGeraRegNfe

         begin

            fGeraRegNfe(   ----Função que eu registro em banco os dados apos emissão

            NumNF[vContNf],

            IntToStr(vLote),

            frmNotaFiscal.ACBRNfe.NotasFiscais.Items[vContNf].NFe.proACBRNfe.chNFe,

            frmNotaFiscal.ACBRNfe.NotasFiscais.Items[vContNf].NFe.proACBRNfe.xMotivo,

            frmNotaFiscal.ACBRNfe.NotasFiscais.Items[vContNf].NFe.proACBRNfe.nProt,

            vRecibo,

            Copy(vAmbiente,1,1),

            TipoOperacao,

            frmNotaFiscal.ACBRNfe.NotasFiscais.Items[vContNf].NFe.proACBRNfe.dhRecbto,

            frmNotaFiscal.ACBRNfe.NotasFiscais.Items[vContNf].NFe.proACBRNfe.cStat);

 

 

 

            ACBRNfe.NotasFiscais.Items[vContNf].EnviarEmail(  etc.....) ---Envio do email

         end;

   end; 

 

Obs: só ocorre o problema, quando eu envio a nota em lote, pois quando passa a primeira vez pelo meu "for" com o indice vContNf = 0 não apresenta erro e nem envia o email, 

e os valores da classe do acbr com indice 1, que é o próximo no meu "For" retorna vazio!!! O mais legal é que eu emito apenas uma nota, funciona tudo certinho!!!!

 

Abs