Ir para conteúdo
  • Cadastre-se

dev botao

Quadro de volumes na impressao da Danfe


TiFire
  • Este tópico foi criado há 2878 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Boa Tarde,

NO xml e no site da receita fica a totalidade dos volumes indicados na nota, porém ao imprimir a danfe lista somente o primeiro tipo de volume.

Alguma sugestão?

Codigo que faz o envio dos volumes:

while not vtVolNotFis.Eof do
      begin
        with Transp.Vol.Add do
        begin
          qVol  := vtVolNotFis.FieldByName('Qua'   ).AsInteger;
          esp   := vtVolNotFis.FieldByName('Esp'   ).AsString;
          marca := vtVolNotFis.FieldByName('Mar'   ).AsString;
          nVol  := vtVolNotFis.FieldByName('Num'   ).AsString;
          pesoB := vtVolNotFis.FieldByName('PesBru').AsCurrency;
          pesoL := vtVolNotFis.FieldByName('PesLiq').AsCurrency;
        end;
        vtVolNotFis.next;
      end;

xml  e pdf  em enexo.

 

 

NFe41150797436943000101550010000080541000080545-NFe.xml

41150797436943000101550010000080541000080545-NFe.pdf

Link para o comentário
Compartilhar em outros sites

  • 2 meses depois ...

Olá Juliomar,

Agradeço pelo retorno.

Sim, no XML da NF-e contém 3 volumes no entanto no DANFE do Fortes é exibido apenas o primeiro item.

Veja o trecho de código da unit ACBrNFeDANFeRLRetrato.pas:

procedure TfrlDANFeRLRetrato.Transporte;

...

  if FNFe.Transp.Vol.Count > 0 then
  begin
    with FNFe.Transp.Vol[0] do
    begin
      if qVol > 0 then
        rllTransQTDE.Caption := IntToStr(QVol);
      rllTransEspecie.Caption := Esp;
      rllTransMarca.Caption := Marca;
      rllTransNumeracao.Caption := NVol;
      if pesoL > 0 then
        rllTransPesoLiq.Caption := FormatFloatBr(PesoL, '###,###,###,##0.000');
      if pesoB > 0 then
        rllTransPesoBruto.Caption := FormatFloatBr(PesoB, '###,###,###,##0.000');
    end;
  end
  else
  begin
    rllTransQTDE.Caption := '';
    rllTransEspecie.Caption := '';
    rllTransMarca.Caption := '';
    rllTransNumeracao.Caption := '';
    rllTransPesoLiq.Caption := '';
    rllTransPesoBruto.Caption := '';
  end;

Veja que neste trecho de código somente o item "0" dos volumes está sendo tratado.

 

 

Link para o comentário
Compartilhar em outros sites

Seguem fontes alterados para análise.

  • Fiz sem linhas entre os volumes, caso precise posso incluir sem problemas.
  • Também não defini um limite de volumes, já que ficou dinâmico.
  • Se aprovado, posso incluir aos demais layouts (paisagem, continuo, etc).

Att,

ACBrNFeDANFeRLRetrato.pas

ACBrNFeDANFeRLRetrato.dfm

Editado por RobertoSFilho
Link para o comentário
Compartilhar em outros sites

  • Moderadores

Seguem fontes alterados para análise.

  • Fiz sem linhas entre os volumes, caso precise posso incluir sem problemas.
  • Também não defini um limite de volumes, já que ficou dinâmico.
  • Se aprovado, posso incluir aos demais layouts (paisagem, continuo, etc).

Att,

ACBrNFeDANFeRLRetrato.pas

ACBrNFeDANFeRLRetrato.dfm

danfe em fast entraria em seus planos ?

Equipe ACBr Henrique Leonardo
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Tecnólogo em processamento de dados

E-mail [email protected] - Skype : hleorj

Link para o comentário
Compartilhar em outros sites

  • Moderadores

Olá hleorj,

Por enquanto ficaria meio na conta mão, pois não utilizo e não tenho o Fast instalado. ;-)

Vamos aguardar se as alterações no Fortes serão aprovadas ou não.

Boa tarde

subi no svn mas não subi tudo pois tinha umas indentação louca lá no código!

  • Curtir 1
Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

  • 6 meses depois ...
  • Este tópico foi criado há 2878 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • 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.