hleorj

Corrigido na revisão do SVN : 12406 Grato por reportar o erro. Seus comentários são de grande ajuda ao ACBr.

@Paulo Tenório, poderia enviar xml.. para efetuar testes na danfe. Grato

@adilsonpazzini. A solução implementada , está semelhante ao Emissor de Nota fiscal eletrônica da Receita Federal, sugiro adequar a sua aplicação. Com referência ao desenvolvimento de uma Nova propriedade , o time ACbr, está muito critico ( tenho soluções que precisariam de novas ) A Implementação em Danfe paisagem está em analise / teste / criticas em breve estará disponível no SVN. Grato pela sua compreensão.

@nebrio, estamos relator ando o relatório de mdfe. Em breve teremos uma versão no SVN. Grato por reportar

@beretta, antes tarde que nunca.. Neste post temos uma solução que esta em analise...

Por favor .. enviar xml .. com váiios item para analise. Muito obrigado

@adilsonpazzini, foi promovida várias atualizações no código da danfe retrato e dentro em breve a danfe a paisagem vai possuir a mesma atualização nos códigos internos. Pois estamos desenvolvendo as danfe sem controles dataware. PS : leia o arquivo de texto na pasta das danfe em fortes. E troque ideias com o responsável pela atualização das danfe. O ACBr adora boas implantações. E grato pelos seus comentários.

@adilsonpazzini, Qual erro ? Tem PDF mostrando o antes e o depois para analise ?

Segue

@Alberto Scolnik, não encontrei problemas relatados. Atualize o ACBr, e execute alguns testes com o demo do acbr

post o arquivo xml.. ou Tag Informações Adicionais .

@SisComp - Proc. de Dados, se o xml ..não ter a tag Transp ?

@Glaucos Luiz Ginez , repliquei a sua ideia. function TACBrNFeDANFeRL.MontaNomePdf( NFE : TNFe) : String; begin if NFE = nil then Exit(Self.PathPDF + 'DANFe.pdf'); Result := Self.PathPDF + StringReplace(NFe.infNFe.ID,'NFe', '', [rfIgnoreCase]) + '-nfe.pdf' end; para facilitar o entendimento.

@Glaucos Luiz Ginez, de a sua ideia .. alterando a função para montar nome Ex. if iUltimo > 1 then Result := Result + 'DanfesAgrupadas'

Segue uma ideia; Function TACBrNFeDANFeRL.MontaNomePdf( NFE : TNFe) : String; Var iUltimo : Integer; begin if NFE = nil then begin Result := TACBrNFe(ACBrNFe).DANFE.PathPDF; iUltimo := TACBrNFe(ACBrNFe).NotasFiscais.Count; if iUltimo > 1 then Result := Result + 'De_' + IntToStr( TACBrNFe(ACBrNFe).NotasFiscais.Items[0].NFe.Ide.nNF ) + '_a_' + IntToStr( TACBrNFe(ACBrNFe).NotasFiscais.Items[ iUltimo - 1 ].NFe.Ide.nNF ) else Result := Result + StringReplace(TACBrNFe(ACBrNFe).NotasFiscais.Items[0].NFe.infNFe.ID,'NFe', '', [rfIgnoreCase]); end else Result := Self.PathPDF + StringReplace(NFe.infNFe.ID,'NFe', '', [rfIgnoreCase]); Result := Result+ '-nfe.pdf' end; Resultado para notas fiscais em grupo Ex. De_xxxxx_a_yyyyyy-nfe.pdf xxxxx = Nf Inicial yyyyy = Nf final ACBrNFeDANFeRLClass.pas ACBrNFeDANFeRL.pas

Esta questões do @Juliomar Marchetti

Gostei ..mostre o resultado anexando arquivo para analise ( Danfe Retrato / Danfe Paisagem ) Para melhorar o entendimento , solicito uma melhoria nos nomes da variáveis ( LArray : TObjectArray; , LReport, LReportNext : TRLCustomReport; LObject : TObject; ) Obrigado pela sua ajuda.

Favor gerar o PDF da sua aplicação pars análise. Anexe XML do erro citado.

Faça teste com demo.

Enviada uma atualização At revision: 12081.

Enviado ao SVN 12075 , possível correção, Favor executar testes.

@grac@, apague alguns anexos para liberar algum espaço.

Post XML

Post o arquivo xml.. para executarmos alguns testes

@Marceloal