DANFE FastReport com 1 Veiculo Novo imprimindo em 2 folhas

andrefaria · 24 Setembro, 2015

Boa tarde;

A impressão do DANFE em FastReport para veiculos novos, esta saindo em 2 folhas, sempre que é em modo paisagem, e quando é em modo retrato, se houver um pouco mais de informacoes adcionais para o produto, tambem imprime em 2 folhas.

Acho que seria interessante a fonte de dados adcionais do produto ser um pouco menor, e quando fosse montar os dados do veiculo, não deveria colocar cada tag em separados em uma linha, poderia colocar as tags separadas por ' - ' e deixar o componente expandir a linha. Ficaria melhor visualmente.

Segue anexado um XML e PDF que demonstra o resultado.

[]s

Andre Faria

26150917798799000106550010000012071000012071-nfe.pdf

26150917798799000106550010000012071000012071-nfe.xml

andrefaria · 24 Setembro, 2015

Pessoal;

Achei o local nos fontes do ACBr onde preenchia esta informação, e então resolvi alterar a mesma, caso seja de interesse dos mantenedores, segue os fontes alterados, bem como o PDF da impressão.

DANFeRetrato.pdf

ACBrNFeDANFEFRDM.pas

Régys Silveira · 24 Setembro, 2015

O problema é que ai vai aparecer outro usuário que quer a quebra de linha, eu penso que o melhor seria você alterar somente o arquivo .fr3 para tratar e não quebrar a linha, assim fica a seu gosto.

andrefaria · 24 Setembro, 2015

Regys, pensei nisso a priori, mas vi que não existe no .fr3 um campo especifico para informações adcionais do produto, e esta sendo colocado tudo junto com a descrição do produto, quebrando linhas no codigo fonte do delphi, enviei o mesmo anteriormente para analise, a funcao que alterei foi a "ManterVeiculo"

hleorj · 25 Setembro, 2015

Regis , não pode ser criada uma propriedade para controlar o ManterVeiculo ? Para este caso de quebrar ou não. Não esqueça que existe o ManterVeiculo na Danfe, em Fortes Report também.

Exemplo :

Function TACBrNFeFRClass.ManterVeiculos( inItem: integer ) : String;
Var
sQuebraLinha : String;
begin
Result := '';
{ detalhamento especifico de veículos }
with FNFe.Det.Items[inItem].Prod do
begin
if veicProd.chassi > '' then
begin

// Criar a propriedade no componente bQuebraLinha

if bQuebraLinha then
sQuebraLinha := ';'
else
sQuebraLinha := ' - '

//----------------

   Result := sQuebraLinha;
   Result := Result + ACBrStr('TIPO DE OPERAÇÃO: ' + VeiculosTipoOperStr( veicProd.tpOP ) ) + sQuebraLinha;
   Result := Result + ACBrStr('CHASSI: ' )+ veicProd.chassi + sQuebraLinha;
   Result := Result + ACBrStr('CÓDIGO DA COR: ' )+ veicProd.cCor + sQuebraLinha;
   Result := Result + ACBrStr('NOME DA COR: ') + veicProd.xCor + sQuebraLinha;
   Result := Result + ACBrStr('POTÊNCIA DO MOTOR: ') + veicProd.pot + sQuebraLinha;
   Result := Result + ACBrStr('CILINDRADAS: ') + veicProd.Cilin + sQuebraLinha;
   Result := Result + ACBrStr('PESO LÍQUIDO: ') + veicProd.pesoL + sQuebraLinha;
   Result := Result + ACBrStr('PESO BRUTO: ' )+ veicProd.pesoB + sQuebraLinha;
   Result := Result + ACBrStr('NÚMERO DE SÉRIE: ') + veicProd.nSerie + sQuebraLinha;
   Result := Result + ACBrStr('COMBUSTÍVEL: ' + VeiculosCombustivelStr( veicProd.tpComb ) ) + sQuebraLinha;
   Result := Result + ACBrStr('NÚMERO DO MOTOR: ') + veicProd.nMotor + sQuebraLinha;
   Result := Result + ACBrStr('CAP. MÁX. TRAÇÃO: ') + veicProd.CMT + sQuebraLinha;
   Result := Result + ACBrStr('DISTÂNCIA ENTRE EIXOS: ') + veicProd.dist + sQuebraLinha;
   Result := Result + ACBrStr('ANO DO MODELO: ' )+ IntToStr(veicProd.anoMod) + sQuebraLinha;
   Result := Result + ACBrStr('ANO DE FABRICAÇÃO: ') + IntToStr(veicProd.anoFab) + sQuebraLinha;
   Result := Result + ACBrStr('TIPO DE PINTURA: ') + veicProd.tpPint + sQuebraLinha;
   Result := Result + ACBrStr('TIPO DE VEÍCULO: ' + VeiculosTipoStr( veicProd.tpVeic ) )+ sQuebraLinha;
   Result := Result + ACBrStr('ESPÉCIE DO VEÍCULO: ' +VeiculosEspecieStr( veicProd.espVeic )) + sQuebraLinha;
   Result := Result + ACBrStr('VIN (CHASSI): ' + VeiculosVinStr( veicProd.VIN ) )+ sQuebraLinha;
   Result := Result + ACBrStr('CONDIÇÃO DO VEÍCULO: ' +VeiculosCondicaoStr( veicProd.condVeic)) + sQuebraLinha;
   Result := Result + ACBrStr('CÓDIGO MARCA MODELO: ') + veicProd.cMod + sQuebraLinha;
   Result := Result + ACBrStr('CÓDIGO COR DENATRAN: ' +VeiculosCorDENATRANSTr( veicProd.cCorDENATRAN )) + sQuebraLinha;
   Result := Result + ACBrStr('CAP.MÁXIMA DE LOTAÇÃO: ') +IntToStr(veicProd.lota) + sQuebraLinha;
   Result := Result + ACBrStr('RESTRIÇÃO: ' +VeiculosRestricaoStr( veicProd.tpRest ) )+ ';';
end;
end;
end;