hleorj

@RicardoVoigt, Obrigado. @JSantos, a propriedade foi implementada ao componente. Grato a todos.

As unit's ...pois temos fast report / fortes report.

@JSantos, no seu exemplo não vi duplicidade de informações.

@JSantos, post um exemplo da sua utilização e o arquivo XML.

@RicardoVoigt, qual a sua sugestão ?

Sim Por que, não usar o padrão do componente ?

Não

@felipeiw, Está é a regra de campo Memo , ajustar as palavras na linha, conforme o tamanho do componente DANFE. PS : nunca faça uma escrita sem os devidos espaço: número:486,casa 01,rio de janeiro.

@Herik Bom dia 1 - seu problema está relacionado ao cometários do post? 2 - pesquisou no fórum se o problema foi solucionado em algum post. 3 - sempre abra um NOVO post. Grato.

Ps : Ver manual • alterado a quantidade de casas decimais para 4 posições nos seguintes campos: a. campo qCom (página 89) e campo qTrib (página 90) no grupo prod; b. campo qUnid (página 100) - grupo IPI; c. campo qBCProd (páginas 104, e 105) - grupo PIS; d. campo qBCProd (páginas 107 e 108) - grupo COFINS;

Utilize esta regra : ACBrNFe1.DANFE.CasasDecimais.Formato := tdetMascara; // ou ACBrNFe1.DANFE.CasasDecimais.Formato := 1; ACBrNFe1.DANFE.CasasDecimais._Mask_qCom := ###,###,###,##0.0000 ACBrNFe1.DANFE.CasasDecimais._Mask_vUnCom := ###,###,###,##0.00000000 Ao utilizar ACBrNFe1.DANFE.CasasDecimais.Formato := tdetInteger; // ou ACBrNFe1.DANFE.CasasDecimais.Formato := 0; existe as regras para outros projetos : procedure TCasasDecimais.Set_qCom(AValue: Integer); begin if ((AValue >= 0) and (AValue <= 4)) then FqCom := AValue else FqCom := 2; end; procedure TCasasDecimais.Set_vUnCom(AValue: Integer); begin if ((AValue >= 0) and (AValue <= 10)) then FvUnCom := AValue else FvUnCom := 2; end; que não deixa alterar para valores superiores.

@Rafael jorge Tente ACBrNFe1.DANFE.CasasDecimais.Formato := tdetInteger; // ou ACBrNFe1.DANFE.CasasDecimais.Formato := 0; ACBrNFe1.DANFE.CasasDecimais._qCom := 4; ACBrNFe1.DANFE.CasasDecimais._vUnCom := 8; ou ACBrNFe1.DANFE.CasasDecimais.Formato := tdetMascara; // ou ACBrNFe1.DANFE.CasasDecimais.Formato := 1; ACBrNFe1.DANFE.CasasDecimais._Mask_qCom := ###,###,###,##0.0000 ACBrNFe1.DANFE.CasasDecimais._Mask_vUnCom := ###,###,###,##0.00000000

@levi Fiz alguns ajustes para o problema acima. Se não houve erros em testes / novos comentários envio ao svn. Grato ACBrNFeDANFEClass.pas ACBrNFeDANFeRLClass.pas ACBrNFeDANFeRL.pas ACBrNFeDANFEFR.pas ACBrNFeDANFEFRDM.pas

@levi na sua versão procedure TACBrNFeDANFeRL.ImprimirDANFEPDF(NFE : TNFe = nil); ... ... fAlternaCoresProdutos, fCorDestaqueProdutos, 200, 200, 10, 10, False, 10, 0, FImprimirDadosDocReferenciados); end; else begin ... .. fCorDestaqueProdutos, 200, 200, 10, 10, False, 10, 0, FImprimirDadosDocReferenciados); end; finally FreeAndNil(frlDANFeRL); end; end; no SVN .. procedure TACBrNFeDANFeRL.ImprimirDANFEPDF(NFE : TNFe = nil); ... ... fCorDestaqueProdutos ); end; else begin ... fCorDestaqueProdutos ); end; finally FreeAndNil(frlDANFeRL); end; end;

@levi O seu arquivo ACBrNFeDANFeRLClass.pas possui algumas divergências para o arquivo no SVN. Favor proceder os ajustes. Grato

Observações em analise e a implementar Implementar na danfe paisagem ( danfe fortes report ) Implementar na danfe Fast report ( danferetrato.fr3, danferetratonovo.fr3, danfepaisagem.fr3) Fora do padrão de implementação. wObs := ''; if FImprimirDadosDocReferenciados then wObs := ManterDocreferenciados; Teste wObs := ManterDocreferenciados; Function TACBrNFeFRClass.ManterDocreferenciados : String; .. .. begin Result := ''; if ( FImprimirDadosDocReferenciados ) and FNFe.Ide.NFref.Count > 0 then begin .... ... end; end;

@levi Sua sugestão se encontra em analise. Ps: Novas propriedades, requerem utilização nas danfe's desenvolvidas em fortes report e Fast report . Grato

Faça atualização do monitor, pois é possível, atribuir o valor até 120 na largura do campo código do produto.

Tentou testar com o tamanho 100 ou 120 ?

Com direito, a ganhos de linhas na impressão lado a lado das informações

Antes de tudo. Faça sempre testes com demo. Para conhecer as propriedades do componente.

Post XML / PDF para facilitar a tomada de decisão. Grato.

Você possui uma versão diferente do SVN. Sempre, use a danferetrato.fr3 ou danferetratonovo.fr3 do SVN.

Entao : rlbFaturaReal.Visible := NaoEstaVazio(FNFe.Cobr.Fat.nFat) and fExibeCampoFatura; Se Indpag = 2 ( Outros ) e existir dados de fatura e ExibeCampoFatura = Verdadeiro , imprima dados de fatura. Solução : Ajuste o seu aplicativo para gerar as Tag´s de cobrança / Fatura , corretamente; Numero de fatura <> de vazio E Valor Original > 0 . e Valor Liquido > 0 se a regra acima não for atendida , NÃO deixe seu aplicativo gerar as Tag´s de cobrança/Fatura.. Minhas Regras : Eu nunca uso OUTROS para vendas, pois sei que existe notas de devolução , entrada , simples remessa e outras situações ( sempre sera outros ) Para vendas eu uso sempre : Pagamento a vista ou pagamento a prazo Ps : Segue uma ajuda e quem desenvolveu a regra citada

Outra pergunta : Por que preencheu os dados de fatura sem valor. <cobr> <fat> <nFat>1</nFat> </fat> </cobr>