Ir para conteúdo
  • Cadastre-se

hleorj

Moderadores
  • Total de ítens

    1.303
  • 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...