Pesquisar na Comunidade

Boa tarde, O normal é a impressão do DANFCe ser feito em bobina de 80mm. Porém um de nossos clientes, após atualizarmos, está tendo problemas na impressão do DANFCe Fortes em A4. A impressão fica centralizada na folha A4, com largura 302, e imprime em várias folhas. Mesmo mudando a largura da bobina, o comportamento não muda. Alguém tem algum caso que esteja funcionando o DANFCe em A4 após o refactoring que foi feito na revisão 15986? Eu acredito que algo tenha mudado nesse tratamento. Alguma dica ou pista para voltar a funcionar essa impressão?

Boa Noite... Primeiramente gostaria de parabenizar a todos os desenvolvedores do ACBR pela excelência e qualidade do componente... Estou nos testes finais do desenvolvimento da NFC-e para meu Software de gestão comercial aqui no estado do Pará e, nos testes para transmissão Offline - Contingência, verifiquei que quando em Contingência, no modo de homologação, não é impresso o texto "EMITIDA EM CONTINGÊNCIA"... no Fortes em A4... Verifiquei também que, no Fortes A4, não está considerando o parâmetro do ; (ponto e virgula) para a quebra de linha nas informações complementares... No intuito de contribuir com o projeto, alterei a unit ACBrDANFCeFortesFrA4.pas, nas seguintes linhas, para adequação ao exposto: *************************************************************************************************************************************** linha 590 - Impressão Texto EMITIDA EM CONTINGÊNCIA. De: Text := ACBrStr('EMITIDA EM AMBIENTE DE HOMOLOGAÇÃO - SEM VALOR FISCAL') Para: Begin if self.FACBrNFeDANFCeFortesA4.FpNFe.Ide.tpEmis <> teNormal then Text := ACBrStr('EMITIDA EM CONTINGÊNCIA - AMBIENTE DE HOMOLOGAÇÃO - SEM VALOR FISCAL') else Text := ACBrStr('EMITIDA EM AMBIENTE DE HOMOLOGAÇÃO - SEM VALOR FISCAL') End; Linha 418 - Quebra de linha com ; (ponto e vírgula) De: PrintIt := Trim(self.FACBrNFeDANFCeFortesA4.FpNFe.InfAdic.infCpl) <> ''; Para: PrintIt := StringReplace(Trim(self.FACBrNFeDANFCeFortesA4.FpNFe.InfAdic.infCpl), ';', #13, [rfReplaceAll] ) <> ''; Linha 697 - Quebra de linha com ; (ponto e vírgula) De: Text := self.FACBrNFeDANFCeFortesA4.FpNFe.InfAdic.infCpl; Para: Text := StringReplace(self.FACBrNFeDANFCeFortesA4.FpNFe.InfAdic.infCpl, ';', #13, [rfReplaceAll] ) ; *************************************************************************************************************************************** Seguem em anexo a unit modificada e imagem de exemplo dela em funcionamento... Em caso de relevância para o projeto, gostaria que a Unit fosse colocada no repositório.... PS: Revision da Unit modificada: 11593. ACBrDANFCeFortesFrA4.pas