Campo "corgao" Não Informado - Evento Email

[i-master]

1) Gera NFe (rapido e normal)

2) Imprime NFe (rapido e normal)

3) Envento email => da o ERRO conforme anexo Campo cOrgao não informado.

 

Obrigado

ScreenShot002.bmp

[André Ferreira de Moraes]

Anexe o XML.

[Jorge Wester]

Também estou com este mesmo problema, se alguém poder me dar uma força neste sentido agradeço desde já.

[i-master]

Em anexo o XML

41130104165297000368550010000306941000306949-nfe.xml

[André Ferreira de Moraes]

Vc está tentando enviar um XML de NFe pelo comando de envio de evento?

[i-master]

1) Também. Fiz teste por la e não deu certo também.

2) Em produção => 1) Gera, assina e Autoriza. 2) Enviar dai por E-mail da o ERRO

 

Obrigado pela atenção

Editado 5 Julho, 2013 por i-master

[i-master]

 

*******************************************[ R E I M P R E S S A O - CONSULTA ]*******

Tick: 1065813  -  Cliente: ADRIANE BEFFART TONIN - ME

CNPJ: 08.000.000/0001-44  -  IE: 255388780 - Email: [email protected]

NFe : 41130704165297000368550010000415231000415236  -  4/7/2013 22:27:00

Protocolo: 141130094737082

Status: 100  -  Autorizado o uso da NF-e

Mensagem: Autorizado o uso da NF-e

 

*******[ E-MAIL - ERRO ]*******

Mensagem original: Campo cOrgao não informado

 

41130704165297000368550010000415231000415236-nfe.xml

41130704165297000368550010000415231000415236-ped-sit.xml

41130704165297000368550010000415231000415236-sit.xml

[André Ferreira de Moraes]

Poste o código que vc está usando para enviar o email.

[i-master]

procedure TfrmNFe.fncEmail(iChave: string; iAssunto: string = '');
var
  _CC, _Evento: Tstrings;
  _FileName: string;
begin
  _CC := TstringList.Create;
  _Evento := TStringList.Create;
  try
    try
      with ACBrNFe1, pconfInfoNFe, pconfNFeClipper do
      begin
        if not EMPTY(confHost) and not EMPTY(confPorta) and not EMPTY(confUser) and not EMPTY(confPass) then
        begin
          _fileName := confPathSalvar + '\' + iChave + '-nfe.xml';
          _Evento.Clear;
          _Evento.Add(_FileName);
          ACBrNFe1.EventoNFe.Evento.Clear;
          ACBrNFe1.EventoNFe.LerXML(_FileName);
          if not EMPTY(confEmail) and confEmailEmitente then
            _CC.Add(confEmail); //especifique um email válido
          _CC.Add(cNFeEmail2); //especifique um email válido
          ACBrNFe1.EnviarEmailEvento(confHost
            , confPorta
            , confUser
            , confPass
            , confEmail
            , cNFeEmail
            , IIF(iAssunto = '', confAssunto, iAssunto) + ' (NF-e nr ' + copy(iChave, 36, 43) + ')'
            , mmoEmail.lines
            , confSSL
            , True //Enviar PDF junto
            , _CC //nil //cc //Lista com emails que serão enviado cópias - TStrings
            , nil // Lista de anexos - TStrings
            , False //Pede confirmação de leitura do email
            , False //Aguarda Envio do Email(não usa thread)
            , confRazaoSocial); // Nome do Rementente
        end;
      end;
    finally
      _CC.Free;
      _Evento.Free;
    end;
  except on E: Exception do
    begin
      {:DADOS-Memo :AJ-20/2/2011 22:46:39:}
      with memoLog.Lines do
      begin
        Add('*************************[ E-MAIL - ERRO ]************************');
        Add('Mensagem original: ' + e.Message);
        Add('');
      end;
    end;
  end;
end;

Obrigado pela atenção

Editado 12 Julho, 2013 por i-master

[i-master]

Boa noite

 

Será que alguém tem uma luz, estou precisando resolver este problema

 

obrigado

[Italo Giurizzato Junior]

Bom dia Adolfo,

 

Se a sua intenção é enviar o XML da NF-e por e-mail para o destinatário, esta usando o comando errado.

 

O comando:

 

ACBrNFe1.EnviarEmailEvento( ... ); como o próprio nome diz é usando para enviar o XML de um evento (por exemplo carta de correção) por e-mail.

 

ACBrNFe1.NotasFiscais.Items[x].EnviarEmail( ... ); este comando é utilizado para enviar o XML da NF-e por e-mail.

 

Há necessidade do componente conter os dados da nota.

Se foi executado um Clear deve-se executar um loadfromfile para carregar o XML da mesma.

 

No comando acima [x] é o indice da nota na lista de notas do componente, se temos apenas uma nota carregada no componente o valor de x é zero.

 

Espero ter ajudado.

[i-master]

Boa tarde, italojjr

 

Venho agradecer o teu tempo em ler e responder o tópico. Não me manifestei antes, por problemas de saúde.

[Italo Giurizzato Junior]

Boa tarde Adolfo,

 

Estimo melhoras.

 

Assim que possível de um retorno se conseguiu resolver o seu problema ou não.

[Rodrigo CRP]

Boa tarde a todos !
Estou utilizando o ACBrNFe1.EnviarEmailEvento(...)  para envio de carta de correção, porém só esta indo o arquivo pdf anexado o e-mail.

Alguém saberia dizer se existe configuração para que anexe o xml também ?
 

 

[]´s

 

[Rodrigo CRP]

Deu certo anexando o xml manualmente !   obrigado

[i-master]

Sem dados

Editado 25 Fevereiro, 2014 por i-master

[i-master]

 ACBrNFe1.EventoNFe.Evento.Clear;
 ACBrNFe1.EventoNFe.LerXML(confPathSalvar + '\' + iChave + '-nfe.xml') ;
 ACBrNFe1.EventoNFe.Evento.Items[0].InfEvento.cOrgao := StrToIntDef(copy(iChave,1,2),0);

Bem resolvi desta maneira, mas vou estudar melhor. Visto que isto não seria o certo. Acho eu.

 

Se alguem puder dar uma luz

 

Obrigado

Editado 24 Fevereiro, 2014 por i-master

[diego ribas]

Boa tarde pessoal ...

No demo não esta desta forma.