Itens com linhas em branco

[Felipe Govoni]

Quando dou um preview na nota com impostos embutidos ele fica com linhas em branco e isso não acontecia até eu migrar para o trunk2.

Segue um print da tela.

Já procurei e não encontrei nenhuma propriedade no componente para isso.

 

 

 

[Juliomar Marchetti]

Isso em qual gerenciador de relatórios?

[Felipe Govoni]

Fastreport

[Juliomar Marchetti]

Qual o fr3 usado?

[Felipe Govoni]

danfe.fr3

[Juliomar Marchetti]

Por favor queira atualizar o svn e pegar novamente os arquivos!

efetuei algumas correções recentes nos mesmos!

[FocusRJ]

Verifique se existem ';' na descrição também!

[Felipe Govoni]

Boa tarde Juliomar, atualizei e reinstalei porem além de continuar pulando linhas aparece o erro em anexo. Apesar do erro a nota aparece na tela.

Tentei entender suas alterações mas não consegui.

 

 

[Juliomar Marchetti]

Pergunta boba mas qual a versão do fast report que está usando? professional, enterprise ou a que vem com o delphi?

[Felipe Govoni]

Enterprise 4.15.6 no delphi 2007

[Juliomar Marchetti]

Por favor queira abrir o demo trunk2\Exemplos\ACBrDFe\ACBrNFe\Delphi DANFe FR\

e efetuar teste com ele em cima dos arquivos que ele listar!

[Felipe Govoni]

Juliomar, o fonte que vc mandou esta em uma versão do Delphi mais nova que a minha, então montei uma MV com o Delphi 10 Seatle e o acbr.

Porem deu o seguinte erro em anexo:

[Juliomar Marchetti]

Pergunta seu fr3 e seus fontes estão atualizados!

é impossível .. juro nossos fontes são sobre naturais só pode

[Felipe Govoni]

Acabei de atualizar novamente, o erro está na linha 247 do acbrNfeDanfeFR:

FdmDanfe.frxReport.LoadFromFile(FastFile)

 

persiste o erro de "cannot find class datasets", sendo que verifiquei e o componente frxdbDataSet esta instalado e funcionando perfeitamente em outros relatórios.

 

[Felipe Govoni]

Juliomar, andei pesquisando e esse erro é por que vc tem um versão do fastreport superior a minha.

Como eu posso recompilar para funcionar no meu?

 

[Juliomar Marchetti]

Qual versão do Fast-Report está usando?

[Felipe Govoni]

Enterprise 4.15.6 no delphi 2007

 

Antes da sua alteração funcionava normal...

[Felipe Govoni]

Eu sou o único com esse problema?

 

 

[Juliomar Marchetti]

O fast report é a versão 5.0 que estamos dando manutenção!

[Felipe Govoni]

Atualizei para a versão 5 e agora está dando o erro "memo11: error in expression 'dados_endereco': undeclared identifier"

[Juliomar Marchetti]

Atualize o acbr e os fr3 ontem a noite ou melhor hoje de madrugada fiz testes construi até um app que está no svn pra testar os relatórios

[Felipe Govoni]

Eu fiz uma pequena correção no danfe.fr3, alguns campos de label estavam com os "[]" e dava erro na hora do preview.

Porem o problema persiste, quando mando mostrar os tributos do item ele esta pulando linhas demais, conforme pode ser visto no primeiro print que mandei.

Tentei arrumar isso mas não consigo encontrar no fonte o local aonde faz essas quebras de linha.

 

 

DANFE.fr3

[Juliomar Marchetti]

acho que a única coisa que você não enviou foi o seu xml pra mim testar!

anexa ele ai!

[Felipe Govoni]

Segue.

43140703010859000170550010000003081848671501-nfe.xml

[Felipe Govoni]

Boa tarde, resolvi o problema e gostaria de sugerir uma correção no componente, existem dois "#13"  na hora de imprimir os itens que acabam deixando essas linhas em branco.

Segue a correção (coloquei toda a function para facilitar):

arquivo: acbrnfedanfefrdm

linha: 2160

 

Function TACBrNFeFRClass.ManterValAprox( inItem : Integer ): String;
begin
  Result := '';
  with FNFe.Det.Items[inItem] do
  begin
    if (Imposto.vTotTrib <> 0)  and (ExibirTotalTributosItem) then
    begin
      Result := '';
      with Imposto do
      begin
        Result := Result+'Val Aprox Tributos: '+ FloatToStrF(Imposto.vTotTrib,ffCurrency,15,2);
        if TributosPercentual = ptValorNF then
          Result := Result+' ('+FloatToStrF(((StringToFloatDef(FloatToStr(Imposto.vTotTrib),0)*100)/(StringToFloatDef(FloatToStr(Prod.VProd),0) +
                                StringToFloatDef(FloatToStr(Prod.vFrete),0)  +
                                StringToFloatDef(FloatToStr(Prod.vOutro),0)  +
                                StringToFloatDef(FloatToStr(Prod.vSeg),0)    +
                                StringToFloatDef(FloatToStr(IPI.vIPI), 0)    +
                                StringToFloatDef(FloatToStr(ICMS.vICMSST), 0))),ffNumber,15,2)+'%)'
        else
          Result := Result+' ('+FloatToStrF(((StringToFloatDef(FloatToStr(Imposto.vTotTrib),0)*100)/(StringToFloatDef(FloatToStr(Prod.VProd),0))),ffNumber,15,2)+'%)';
      end;
    end;
  end;
end;