Ir para conteúdo
  • Cadastre-se

hleorj

Moderadores
  • Total de ítens

    1.304
  • Registro em

  • Última visita

  • Days Won

    9

Tudo que hleorj postou

  1. @nebrio, estamos relator ando o relatório de mdfe. Em breve teremos uma versão no SVN. Grato por reportar
  2. @beretta, antes tarde que nunca.. Neste post temos uma solução que esta em analise...
  3. Por favor .. enviar xml .. com váiios item para analise. Muito obrigado
  4. @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.
  5. @adilsonpazzini, Qual erro ? Tem PDF mostrando o antes e o depois para analise ?
  6. @Alberto Scolnik, não encontrei problemas relatados. Atualize o ACBr, e execute alguns testes com o demo do acbr
  7. post o arquivo xml.. ou Tag Informações Adicionais .
  8. @SisComp - Proc. de Dados, se o xml ..não ter a tag Transp ?
  9. @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.
  10. @Glaucos Luiz Ginez, de a sua ideia .. alterando a função para montar nome Ex. if iUltimo > 1 then Result := Result + 'DanfesAgrupadas'
  11. 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
  12. Esta questões do @Juliomar Marchetti
  13. 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.
  14. Favor gerar o PDF da sua aplicação pars análise. Anexe XML do erro citado.
  15. Faça teste com demo.
  16. Enviada uma atualização At revision: 12081.
  17. Enviado ao SVN 12075 , possível correção, Favor executar testes.
  18. @grac@, apague alguns anexos para liberar algum espaço.
  19. Post o arquivo xml.. para executarmos alguns testes
  20. @geazi, [-] Correção das colunas valor do desconto e valor liquido trocadas, quando é solicitado a impressão do valor liquido; Enviado ao SVN.. Grato
  21. Pode até ser uma programação orientada a gambiarra ( P.O.G ). Faça o alguns testes e verifique se melhorou a performance do mesmo.
×
×
  • 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...
The popup will be closed in 10 segundos...