TACBrNFeDANFEClass.GetPathPDF

[ANTONIO CARLOS ANT.CARLOS]

Olá boa tarde!

fiz uma correção no função: TACBrNFeDANFEClass.GetPathPDF,

pois a mesma não estava respeitando o comando de não gerar Literal ao imprimir o arquivo DANFE em PDF.

Segue a correção:

-   -   -   -  -   -   -   -  -   -   -   -  -   -   -   -  -   -   -   -  -   -   -   -  -   -   -   -  -   -   -   - 

function TACBrNFeDANFEClass.GetPathPDF: String;
var
   dhEmissao: TDateTime;
   DescricaoModelo: String;
   ANFe: TNFe;
begin
  if (csDesigning in ComponentState) then
  begin
    Result := FPathPDF;
    Exit;
  end;

  Result := PathWithDelim(FPathPDF);

  //Criar diretório conforme configurado para NF-e
  if Assigned(ACBrNFe) then
  begin
    if TACBrNFe(ACBrNFe).NotasFiscais.Count > 0 then
    begin
      ANFe := TACBrNFe(ACBrNFe).NotasFiscais.Items[0].NFe;
      if TACBrNFe(ACBrNFe).Configuracoes.Arquivos.EmissaoPathNFe then
        dhEmissao := ANFe.Ide.dEmi
      else
        dhEmissao := Now;

 //
 //...Alterações efetuadas
 //
 {++} DescricaoModelo := '';
 {++} if TACBrNFe(ACBrNFe).Configuracoes.Arquivos.AdicionarLiteral then
 {++} begin
         case ANFe.Ide.modelo of
           0: DescricaoModelo := TACBrNFe(FACBrNFe).GetNomeModeloDFe;
           55: DescricaoModelo := 'NFe';
           65: DescricaoModelo := 'NFCe';
         end;
      end;
      Result := PathWithDelim(TACBrNFe(FACBrNFe).Configuracoes.Arquivos.GetPath(
                             Result
                            ,DescricaoModelo
                            ,ANFe.Emit.CNPJCPF
                            ,dhEmissao
                            ,DescricaoModelo
                            ));
 {++} end;
  end;
end;

-   -   -   -  -   -   -   -  -   -   -   -  -   -   -   -  -   -   -   -  -   -   -   -  -   -   -   -  -   -   -   - 

[Juliomar Marchetti]

Anexe a unit com a alteração.

[ANTONIO CARLOS ANT.CARLOS]

ok, Unit alterada conforme comunicado acima.

sem mais,

ANT.CARLOS/SP

 

Arquivo AcbrNfeClass.rar

[Juliomar Marchetti]

Boa tarde

bastante mudanças em seu código local não??

adicionei somente o que compete a alteração.

Obrigado já está no svn.