Quadro de volumes na impressao da Danfe

[TiFire]

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

[TiFire]

Alguém poderia sugerir alguma ideia?

 

[AlamCorrea]

Estou com este mesmo problema gerando o DANFE pelo FortesReport. Alguém conseguiu resolver?

[Juliomar Marchetti]

ótimo alamcorrea

agora sabemos o gerenciador de relatórios!

se abrir o xml ele está correto?

[AlamCorrea]

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.

 

 

[Juliomar Marchetti]

Certo propõe correções ou novas implementações?

pode modificar testar e anexar aqui que valido e subo ao svn!

[RobertoSchuster]

Posso implementar. Assim que finalizar posto aqui para análise.

(Se alguém já fez ou começou a implementar, por favor me avise.)

[RobertoSchuster]

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 9 Outubro, 2015 por RobertoSFilho

[hleorj]

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 ?

[RobertoSchuster]

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.

[Juliomar Marchetti]

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!

[RobertoSchuster]

Obrigado Juliomar.

Assim que possível eu posto os demais layouts do fortes (paisagem, etc), sem as "identações loucas".

[Emerson Teixeira]

Olá boa tarde.

Estou com o mesmo problema.

o xml está correto porem ao imprimir aparece somente um registro no danfe.

Estou usando o fastreport, mas tbm posso usar o fortes sem problemas

Gostaria de saber ser o problema foi resolvido?

Obrigado