Enviar Xml De Evento Por E-Mail

[GustavoKato]

Boa tarde, 

No evento EnviarEmailEvento ví que o XML não é enviado, até tentei aqui mas não entendi direito o padrão das classes. Seria possível a implementação?

 

Obrigado

Gustavo Kato

Editado 19 Maio, 2014 por GustavoKato

[GustavoKato]

bom dia,

ninguém tem esta dificuldade/necessidade?

[Juliomar Marchetti]

Bom dia

Como está usando o comando?

 

Chegou a olhar na pasta Exemplos/ACBrCTe?

[GustavoKato]

sim, no exemplo ele só envia carregando manualmente o componente com o arquivo XML e não automaticamente como é o evento ACBrCTe1.EnviarEmail

Desenvolvi um Gerenciador parecido com o Monitor de vcs, funcionando em um servidor dedicado onde os usuários não tem acesso... tudo feito por BD

 

Estou utilizando 

Lote.EnviarEmailEvento(DM.sHOST,

                               DM.sPORTA,

                               DM.sUSUARIO,

                               DM.sSenha,

                               DM.sEMAIL,

                               email,

                               'CT-e: ' + Copy(Lote.Conhecimentos.Items[iCT].CTe.inFCTe.ID,4,44),

                               Mensagem,

                               DM.sSSL,                     // SSL

                               True,                        // Enviar em PDF

                               sCC,                         // sCC

                               nil,                         // Anexos

                               False,                          // Pede Confirmação de Recebimento

                               Aguardar,                       // Aguarda o Envio

                               Lote.Conhecimentos.Items[iCT].CTe.Emit.xNome); // Nome do remetente

[Juliomar Marchetti]

Tem sugestão de implementação de algum código? por favor anexe os fontes para que possamos analisar!

não cheguei a ver se esse processo é feito na nf-e com eventos ou é característica dos métodos criados no ACBr!

[GustavoKato]

pensei em duas alternativas, criar uma procedure passando o XML via StringStream como é feito no envio normal (vide AcbrCTe.Conhecimentos.Items[iCT].EnviarEmail), ou gerar o XML diretamente na procedure como é feito no envio normal.

 

A minha dificuldade é que quando é feita a consulta o XML fica em uma classe, quando o CT-e é enviado fica em outra e me parece q quando carrega pelo LerXMLFromString fica em outra. 

[Juliomar Marchetti]

Verificou se a NF-e envia o xml do evento usando o método? se sim poderia conferir a implementação e utilizar! 

caso negativo precisa ser pensado algo que não vá interferir no que já tem para pessoas que já fazem uso

[GustavoKato]

Olhando o código, Nf-e também não envia.

No envio do documento normal, no trecho 

procedure Conhecimento.EnviarEmail(
..
       SaveToStream(StreamCTe) ;
..

que é gerado o XML e joga em Stream.

 

Bem acredito que seja de interesse de poucos ou apenas meu, verei se consigo gerar o XML de outra forma

 

Obrigado

[Juliomar Marchetti]

Pode ser de outros, mas nenhum questionou e não parou pra olhar isso!

se quiser contribuir com código pode implementar que será avaliado com certeza e subido ao svn!

é assim que o projeto cresce, cada um vai ajudando como pode e temos uma grande ferramenta  

 

Post aqui em anexo, fico no aguardo!