Ir para conteúdo
  • Cadastre-se

Dataconta Sistemas

Membros
  • Total de ítens

    18
  • Registro em

  • Última visita

Posts postados por Dataconta Sistemas

  1. Boa tarde a todos, estou com um problema com relação a emissão de NFe para produtor rural que possui IE para a fazenda dele. Ao emitir a NFe dele me retorna o código da rejeição 233 - IE do destinatário cadastrado.

    Consultei no sintegra e a inscrição dele esta OK e ativa. Alguém teve o mesmo problema ou tem alguma solução. 

     

    Segue anexo XML da NFe.

     

     

    31180923867146000134550010000245191000245198-nfe.xml

  2. Bom dia, já fiz esses testes. Já enviei para meu próprio email e continua chegando somente o PDF. Abaixo vou deixar o código do método como estou usando. Para que possa entender melhor.

    procedure TfrmEnviaNfeEmail.btnEnviaClick(Sender: TObject);
    var
     Para : String;
     CC: Tstrings;
      Dir, ArqXML: String;
      MS: TMemoryStream;
      P, N: Integer;
    begin
       if not  FileExists( dmnf.znfeCHAVE_NFE.AsString ) then
       raise Exception.Create('Arquivo Xml, não localizado ou inexistente!');

     try

      with fsindatanfe2 do
      begin

       ACBrNFe1.NotasFiscais.Clear;
       ACBrNFe1.NotasFiscais.LoadFromFile(dmnf.znfeCHAVE_NFE.AsString);

    //Corri
      MS := TMemoryStream.Create;
        try
          ArqXML := dmnf.znfeCHAVE_NFE.AsString;
          MS.LoadFromFile(ArqXML);
          fsindatanfe2.ACBrMail1.AddAttachment(MS, 'XML',adAttachment);
        finally
         MS.Free;
        end;
       CC        := TstringList.Create;
       Para      := edtPara.Text;
       cc.Text   := '';

      fsindatanfe2.ACBrNFe1.NotasFiscais.Items[0].EnviarEmail(Para
                                              , edtAssunto.Text
                                              , memMsg.Lines
                                              , True
                                              , cc
                                              , cc);

         ShowMessage('Email Enviado com Sucesso!');
         cc.Free;
        end;

        except
          on E:Exception do
          begin
             ShowMessage('Erro: '+ E.Message);
          end;

        end;
    end;

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...