hleorj

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.

Faça alguns testes de impressão com o demo na última versão SVN. Post XML com informações necessárias para efetuarmos teste.

Utilize o demo para testar os arquivos fr3.

@RicardoVoigt Segue A Solicitação de ajuste.

@RicardoVoigt Isto , post para ficar documentado a alteração com os devidos testes de outros usuários . Grato @Marcio Lopes ACBr, pelo teste inicial. Post pode ser fechado ?

Nada mal , senhores.

@felipeiw Troque #13 por ; InfAdic.infCpl := Trim(InfAdic.infCpl)+ ';' +'Partilha realizada conf.Emenda Constitucional 87/2015: '+ ';' +texto; InfAdic.infCpl := Trim(InfAdic.infCpl)+ ';' +EnderecoEntrega

Abra o demo do acbrnfe , faça uma compilação do mesmo

Reinstalar o acbr , usando o install.

@levi, já no SVN grato pela sua contribuição.

No SVN na revisão : 13466 -- pcnConversao -- [+] Nova função para retornar a descrição do modelo function DescrModeloNFe(chave: String):String; -- ACBrNFeDANFeRL ACBrNFeDANFEFRDM -- [*] Refatoracao de ManterDocreferenciados , para utilização da função DescrModeloNFe