hleorj

Ok, Bolinha de cristal.. - Qual a danfe que o usuário @valterpatrick, esta usando ?

Em analise.. grato pela contribuição

Qual ?

Por isto , não removi ainda ..

Espero em breve , remover estas propriedades obsoletas.

A danfe imprime as informações do arquivo xml. - Peso do produto - > Utilizar a tag informações adicionais do produto. - Totalizador na danfe -> não

@Luiz F. Trevisan - Limber Favor,atualizar, utilizando a ultima versão do arquivo no SVN.

Em Analise.. Gato pelo Colobaração

Não é possível analisar , a sua sugestão . pois o seu arquivo se encontra com grande diferença do SVN atual. Pratique, sua sugestão no arquivo atual do SVN. Grato pela sua ajuda.

Qual arquivo fr3 ?

Que apostar q seja um xml , fora do padrao

Qual arquivo fr3 utilizado ?

@Luishbr, Se aprovada sua sugestão , post aqui Grato

Não funcionou em meu teste. Se houver alguma propriedade igual a verdadeiro. Configuracoes.Arquivos.AdicionarLiteral := false; Configuracoes.Arquivos.Salvar := false; Configuracoes.Arquivos.SepararPorAno := false; Configuracoes.Arquivos.SepararPorCNPJ := false; Configuracoes.Arquivos.SepararPorDia := false; Configuracoes.Arquivos.SepararPorMes := false; Configuracoes.Arquivos.SepararPorModelo := false; A devida rotina , se encontra em analise . @Victor H Grato por reportar.

Segue post @Victor H.

Sua sugestão , de voltar ao código anterior, não será aceita. Crie um procedimento para desligar as propriedades e seguir as suas regras. Segue, como exemplo, minhas regras de impressão da danfe procedure TDanfe.ImprimeDanfe( sXmlNome : String ; iNumeroCopias: Integer; bPreview, bPdf: Boolean; sProtocolo: String ); Var iTanProtocolo : Integer; begin iTanProtocolo := Length( sProtocolo ); with GlobalValues do begin With OBjDmDanfe.ACBrNFe1 do begin Configuracoes.Arquivos.AdicionarLiteral := false; Configuracoes.Arquivos.Salvar := false; Configuracoes.Arquivos.SepararPorAno := false; Configuracoes.Arquivos.SepararPorCNPJ := false; Configuracoes.Arquivos.SepararPorDia := false; Configuracoes.Arquivos.SepararPorMes := false; Configuracoes.Arquivos.SepararPorModelo := false; NotasFiscais.Clear; NotasFiscais.LoadFromFile( sXmlNome ); OBjDmDanfe.ACBrNFeDANFEFR1.TributosFonte := 'IBTP'; OBjDmDanfe.ACBrNFeDANFEFR1.ImprimirUnQtVlComercial := iuComercial; OBjDmDanfe.ACBrNFeDANFEFR1.ImprimirTotalLiquido := False; OBjDmDanfe.ACBrNFeDANFEFR1.ExibirTotalTributosItem := False; OBjDmDanfe.ACBrNFeDANFEFR1.fastfile := ExtractFilePath( Application.ExeName) +'Dll\DANFeRetratonovo.fr3'; OBjDmDanfe.ACBrNFeDANFEFR1.ShowDialog := false; OBjDmDanfe.ACBrNFeDANFEFR1.ExibeCampoFatura := (NotasFiscais.Items[0].NFe.Ide.indPag <> ipOutras); danfe := OBjDmDanfe.ACBrNFeDANFEFR1; with danfe do begin Logo := LogoEmpresa.Logo.DataString; MostrarStatus := false; if ( iTanProtocolo > 5) then begin NFeCancelada := true; ProtocoloNFe := sProtocolo; end; Email := Emissor.Email; Fax := Emissor.EMI_FAX; Sistema := 'Desenvolvido por [email protected]'; Site := Emissor.Site; PathPDF := PastaTemp; MostrarPreview := bPreview; if bPreview then NumCopias := 1 else NumCopias := iNumeroCopias; end; if bPdf then NotasFiscais.ImprimirPDF else NotasFiscais.Imprimir; end; end; end;

@Luishbr, No componente , a propriedade largura do código , não te ajudaria resolver o problema ?

@B Ferreira, Esta usando componente ou Monitor ? Anexar Xml gerado ou Arquivo para facilitar o entendimento do problema.

Sugiro, usar a solução do ACBr, removendo a sua solução do seu aplicativo.

Boa tarde , @Victor H Teste com a versão original do danferetratonovo.fr3 ( sem suas alterações ), Na tentativa de colocar as informações adicionais na ultima pagina ( 3/3), pois, no seu teste temos um bom espaço . Grato pelo seu esforço.

Segue arquivos xml, para conhecer melhor os problemas existentes nos arquivos testes.rar

@Victor H, danferetratonovo.fr3 e a minha versão de produção. Sem ter erro, demonstrado por você. Irei fazer os devidos testes. Grato pela contribuição. PS : teste com arquivos XML com grande quantidade de itens.

Poderia efetuar os testes/ ajustes em danferetratonovo.fr3, Pois eu considero o mesmo , mas ajustado. Grato pela contribuição

Mostre o resultado na danfe.

Não irá funcionar Pois , não temos condições de explicar corretamente as configurações das propriedades. Em breve , as devidas propriedades serão removidas. Grato pelo compreensão.