Erro Ao Enviar Xml/pdf Da Nfs-E

[ALA]

Senhores, bom dia. Baixei a nova versão do ACBRNFSe hoje e estou com um problema estranho. Quando envio o e-mail do XML com o PDF da NFS-e o cliente esta recebendo 2 xmls, um correto e outro vazio. E o PDF esta com duas paginas. Um da Nota correto e outro parece ser do canhoto, não estou entendo este problema.

 

** Estou utilizando o Quick, a opção imprimir canhoto esta TRUE.

** Prefeitura São José do Rio Preto

** Provedor GISS

[ALA]

Senhores,resolvi o problema acima.

1º Na impressão da NFS-e diminui a band Outras Informações, ACBrNFSeDANFSeQRRetrato.pas

2º No envio do XML. Alterei a função abaixo.

 

unit ACBrNFSeNotasFiscais;

procedure NotaFiscal.EnviarEmail(const sSmtpHost,
                                       sSmtpPort,
                                       sSmtpUser,
                                       sSmtpPasswd,
                                       sFrom,
                                       sTo,
                                       sAssunto: String;
                                       sMensagem : TStrings;
                                       SSL : Boolean;
                                       EnviaPDF: Boolean = true;
                                       sCC: TStrings = nil;
                                       Anexos:TStrings=nil;
                                       PedeConfirma: Boolean = False;
                                       AguardarEnvio: Boolean = False;
                                       NomeRemetente: String = '';
                                       TLS: Boolean = True;
                                       UsarThread: Boolean = True);

var
 NomeArq    : String; // removido o comentario por ala em 02/04/2014,
 NomeArqPDF : String;
 NomeArqXML : String;
 AnexosEmail: TStrings;
 StreamNFSe : TStringStream;
begin
 AnexosEmail := TStringList.Create;
 StreamNFSe  := TStringStream.Create('');

 if TACBrNFSe( TNotasFiscais( Collection ).ACBrNFSe ).Configuracoes.Arquivos.NomeLongoNFSe
  then NomeArqXML := NotaUtil.GerarNomeNFSe(UFparaCodigo(Nfse.PrestadorServico.Endereco.UF),
                                            Nfse.DataEmissao,
                                            Nfse.PrestadorServico.IdentificacaoPrestador.Cnpj,
                                            StrToIntDef(Nfse.Numero, 0))
  else NomeArqXML := NFSe.Numero;

 try
    AnexosEmail.Clear;
    if Anexos <> nil then
      AnexosEmail.Text := Anexos.Text;
    if NomeArq <> '' then
     begin
       SaveToFile(NomeArq); // removido o comentario por ala em 02/04/2014,  
       AnexosEmail.Add(NomeArq);
     end
    else
     begin
       SaveToStream(StreamNFSe);
     end;
    if (EnviaPDF) then
    begin
       if TACBrNFSe( TNotasFiscais( Collection ).ACBrNFSe ).DANFSE <> nil then
       begin
          TACBrNFSe( TNotasFiscais( Collection ).ACBrNFSe ).DANFSE.ImprimirDANFSEPDF(NFSe);

          // removido por ala NomeArqPDF := Trim(NomeArq);
          // removido por ala if NomeArqPDF <> ''
           // removido por ala then begin
             NomeArqPDF := StringReplace(NFSe.Numero, 'NFSe', '', [rfIgnoreCase]); // // removido o comentario por ala em 02/04/2014,
             NomeArqPDF := NomeArqXML;
             NomeArqPDF := PathWithDelim(TACBrNFSe( TNotasFiscais( Collection ).ACBrNFSe ).DANFSE.PathPDF) + NomeArqPDF + '.pdf';
           // removido o comentario por ala em 02/04/2014,  end
           // removido o comentario por ala em 02/04/2014,   else NomeArqPDF := StringReplace(NomeArqPDF, '-nfse.xml', '.pdf', [rfIgnoreCase]);

          AnexosEmail.Add(NomeArqPDF);
       end;
    end;
    TACBrNFSe( TNotasFiscais( Collection ).ACBrNFSe ).EnviaEmail(sSmtpHost,
                sSmtpPort,
                sSmtpUser,
                sSmtpPasswd,
                sFrom,
                sTo,
                sAssunto,
                sMensagem,
                SSL,
                sCC,
                AnexosEmail,
                PedeConfirma,
                AguardarEnvio,
                NomeRemetente,
                TLS,
                StreamNFSe,
                copy(NFSe.Numero, (length(NFSe.Numero) - 44) + 1, 44) + '-NFSe.xml', //  // removido o comentario por ala em 02/04/2014,
                //NomeArqXML + '-nfse.xml', // incluido o comentario por ala em 02/04/2014,
                UsarThread);
 finally
    AnexosEmail.Free;
    StreamNFSe.Free;
 end;

Editado 2 Abril, 2014 por ALA

[Juliomar Marchetti]

Favor anexar os arquivos alterados para que possa ser testado!

[ALA]

OK

[Juliomar Marchetti]

Boa tarde ALA

Vamos conferir junto

veja a unit ACBrNFSeNotasFiscais.pas

confere se não existe uma propriedade com o nome "NomeArq"

Bom esse é o motivo de estar comentando a declaração da variável!

 

tanto que veja na linha 194

    if NomeArq <> '' then
     begin
//       SaveToFile(NomeArq);
       AnexosEmail.Add(NomeArq);
     end

ela está sendo usado mesmo comentando sua declaração

acredito que seja a forma de alimentar o componente que esteja diferente!

[ALA]

Julio, boa tarde. Eu não alterei a forma de alimentar o componente, já enviava desta forma a vários anos. Depois que atualizei o componente começou a dar problema, dai alterei a rotina de enviar e-mail nos fontes do componente e voltou a funcionar. Eu apenas retirei o comentário das linhas que estavam comentadas e comentei as que não existiam nas versões anteriores. Deixei a rotina do NFS-e igual ao NF-e.

[rlind]

Boa Tarde senhores. Estou com o mesmo problema quanto ao envio do xml anexado no e-mail da nota fiscal de serviço , com dois xmls anexados , um vazio e outro com conteúdo. A solução ficou essa citada pelo ALA comentando essa parte do codigo ? 

 

Obrigado