NFCeDANFeFPDF - Exibir Consumidor Nome e Endereço

[Mauro Asl]

Boa noite
Na classe TNFCeDANFeFPDF
As propriedades ExibirConsumidorNome e ExibirConsumidorEndereco não estão visíveis para chamada na aplicação cliente.
Eu estava olhando as heranças da classe "TNFCeDANFeFPDF" e não vi implementações e declarações destas respectivas variáveis.

 

Quando é realizada a chamada neste bloco não funciona:

function TNFCeDANFeFPDF.GetTextoBlocoConsumidor: string;
begin
  Result := '';
  if NFe.Dest.CNPJCPF <> '' then
  begin
    if Length(NFe.Dest.CNPJCPF) = 14 then
      Result := 'CONSUMIDOR - CNPJ: ' + FormatarCNPJouCPF(NFe.Dest.CNPJCPF)
    else if Length(NFe.Dest.CNPJCPF) = 11 then
      Result := 'CONSUMIDOR - CPF: ' + FormatarCNPJouCPF(NFe.Dest.CNPJCPF);

    if ExibirConsumidorNome then
     Result := Result + IfThen(NFe.Dest.xNome <> '', sLineBreak + NFe.Dest.xNome);
  end
  else
    Result := 'CONSUMIDOR NÃO IDENTIFICADO';

  if ExibirConsumidorEndereco and (NFe.Dest.EnderDest.xLgr <> '') then
    Result := Result + sLineBreak +
      Format('%s, %s %s %s %s-%s',
      [NFe.Dest.EnderDest.xLgr, NFe.Dest.EnderDest.nro, NFe.Dest.EnderDest.xCpl,
       NFe.Dest.EnderDest.xBairro, NFe.Dest.EnderDest.xMun, NFe.Dest.EnderDest.UF]);
end;
 

Deixo uma sugestão de alteração do mesmo:

function TNFCeDANFeFPDF.GetTextoBlocoConsumidor: string;
begin
  Result := '';
  if NFe.Dest.CNPJCPF <> '' then
  begin
    if Length(NFe.Dest.CNPJCPF) = 14 then
      Result := 'CONSUMIDOR - CNPJ: ' + FormatarCNPJouCPF(NFe.Dest.CNPJCPF)
    else if Length(NFe.Dest.CNPJCPF) = 11 then
      Result := 'CONSUMIDOR - CPF: ' + FormatarCNPJouCPF(NFe.Dest.CNPJCPF);

    //Preenche nome de informado
    if (NFe.Dest.xNome <> '') then
     Result := Result + IfThen(NFe.Dest.xNome <> '', sLineBreak + NFe.Dest.xNome);
  end
  else
    Result := 'CONSUMIDOR NÃO IDENTIFICADO';

  //Preenche endereço de existir nº de documento e nome
  if( (NFe.Dest.CNPJCPF <> '')and(NFe.Dest.xNome <> '') )then
  begin
   if (NFe.Dest.EnderDest.xLgr <> '') then
     Result := Result + sLineBreak +
       Format('%s, %s %s %s %s-%s',
       [NFe.Dest.EnderDest.xLgr, NFe.Dest.EnderDest.nro, NFe.Dest.EnderDest.xCpl,
        NFe.Dest.EnderDest.xBairro, NFe.Dest.EnderDest.xMun, NFe.Dest.EnderDest.UF]);
  end;
end;
 

Obrigado  

 

[Juliomar Marchetti]

Caso queira contribuir, favor anexar sua unit modificada

[Mauro Asl]

Boa tarde @Juliomar Marchetti

Segue a unit modificada! 
Testada e funcionando as modificações
 

ACBrNFCeDANFeFPDF.pas

Editado 4 Novembro, 2024 por Mauro Asl