Pesquisar na Comunidade

Ola! - Criado componente acbr e setado a quebra de linha: FACBrNFe1.Configuracoes.WebServices.QuebradeLinha := sLineBreak; ou (o resultado é o mesmo) FACBrNFe1.Configuracoes.WebServices.QuebradeLinha := '\r\n'; E vou tentar emitir a CCe (Carta de Correção de NFe), sempre substitui a quebra de linha por ';' Debugando cheguei em alguns lugares. procedure TNFeEnvEvento.DefinirDadosMsg; (unit ACBrNFeWebServices.pas) Executa a linha EventoNFe := TEventoNFe.Create; No create chama o CreateOptions (herdado de TACBrXmlWriter), que por usa vez chama o TACBrXmlWriterOptions.Create que faz o seguinte: constructor TACBrXmlWriterOptions.Create; begin inherited; FIdentarXML := False; FFormatoAlerta := 'TAG:%TAGNIVEL% ID:%ID%/%TAG%(%DESCRICAO%) - %MSG%.'; // Vide comentário em wAlerta FRetirarEspacos := True; FRetirarAcentos := True; FSuprimirDecimais := False; FSomenteValidar := False; FDecimalChar := '.'; FQuebraLinha := ';'; end; Ou seja, no Create ele substitui a quebra de linha, ignorando a quebra de linha previamente configurada. Atualizei o componente hoje pela manhã (rev. 35098) na esperança de resolver o problema mas sem sucesso. Existe alguma forma de contornar isto? esqueci alguma configuração?

Tem alguns dias que me relataram que não está indo o corpo do email, quando fui testar realmente não foi e estava funcionando bem. Eu consegui enviar o corpo do email, mas para isto que mudar a propriedade IsHTML para TRUE e antes funcionava com FALSE. O problema é que o texto agora não está indo com quebra de linha, qualquer texto que coloque no body vai tudo em uma única linha sem quebra de linha. Como faço para colocar quebra de linha no BODY? ACBrMail.Body.Text := MmTexto.Text; //Vai sem quebra de linha for I := 1 to MmTexto.Lines.Count do //Também vai sem quebra de linha ACBrMail.Body.Add(MmTexto.Lines[I]); ACBrMail.IsHTML := True; //No exemplo acima o MmTexto.Text é um memo com quebra de linha no texto.

Boa tarde Pessoal, Atualizei meu PDV nos últimos dias e estou com uma versão bem recente do ACBr. O que começou a ocorrer que não vinha acontecendo foi que na ECF Epson TM-T900F, todo local onde é impresso quebra de linha ela esta ignorando. Isso tanto nas observações do cupom fiscal, relatórios gerencias, comprovante de cartão de crédito de cartão, entre outros. Não sei agora se isso é algum novo parâmetro que deve ser configurado, ou o que pode ser. Alguém tem conhecimento sobre o que ocasiona esse tipo de situação? Desde já agradeço.

Bom dia! Conforme fora relatado no tópico abaixo, o webservice da prefeitura do Rio de Janeiro define as quebras de linhas com o próprio #13#10, não podendo ser removido ou substituído por ponto e vírgula, por exemplo, como faz o parse do ACBrNFSe atualmente (de forma correta, seguindo os padrões de tratamento do xml, mas que acaba embaralhando a discriminação do serviço ao visualizar via site). Esbarrei com o mesmo problema, pois quase todos os nossos clientes são da cidade do Rio de Janeiro e todos utilizam a impressão via site da prefeitura. E como no tópico relacionado não houve solução, mas um paliativo de alinhamento do dado com "." ou "_", então decidi abrir este tópico para apresentar a solução que encontrei e avaliarem se pode ser ajustado nos fontes. Conforme o Ítalo havia sugerido inicialmente, realizei a seguinte alteração na unit pnfsNFSeW_ABRASFv1 (linhas 374 e 436), mas deixando o parâmetro dinâmico somente para o município do RJ: Para que o dado não fique sem o parse com tratamento de retirada de acentos e espaços, ao alimentar o componente, sempre chamo a seguinte função de pcnAuxiliar para o texto de discriminação: Além disso, no arquivo RJ.ini, deixei vazio o parâmetro de quebra de linha: "QuebradeLinha=" E o mais importante: Como o webservice da prefeitura do RJ não exige a assinatura dos documentos e sempre enviamos assim quando fazíamos por fora do ACBr, então alterei para 0 todas as opções de assinatura no mesmo arquivo "RJ.ini", pois era o principal problema relatado no tópico anterior, devido o método de assinatura remover as quebras de linha (#13#10) do XML. Feito isso, a NFS-e foi transmitida com sucesso e com as devidas quebras de linha. Em anexo estão a unit e o arquivo RJ.ini com as alterações realizadas para avaliação. RJ.ini pnfsNFSeW_ABRASFv1.pas

Desde que uso o ACBR tenho um incômodo puramente estético que é de poder gerar NFSe (Rio de Janeiro) com quebras de linha na descrição dos serviços. O problema ocorre porque para o RIo de Janeiro, a quebra de linha deve ser enviada mesmo com #13#10 e não com qualquer outra sequencia de caracteres que simule a quebra de linha Dei uma olhada nos fontes do ACBR, e estou sugerindo uma mudança para que a quebra de linha possa ser implementada no ACBR. Comigo aqui testou e deu certo. 1º) Em pnfsNFSeW_ABRASFv2 onde tem Gerador.wCampoNFSe(tcStr, '#32', 'Discriminacao', 01, 2000, 1, StringReplace( NFSe.Servico.ItemServico.Discriminacao, ';', FQuebradeLinha, [rfReplaceAll, rfIgnoreCase] ), DSC_DISCR); substituir por if FProvedor=proRJ Then Gerador.wCampoNFSe(tcStr, '#32', 'Discriminacao', 01, 2000, 1, StringReplace( NFSe.Servico.ItemServico.Discriminacao, ';', #13#10, [rfReplaceAll, rfIgnoreCase] ), DSC_DISCR) Else Gerador.wCampoNFSe(tcStr, '#32', 'Discriminacao', 01, 2000, 1, StringReplace( NFSe.Servico.ItemServico.Discriminacao, ';', FQuebradeLinha, [rfReplaceAll, rfIgnoreCase] ), DSC_DISCR) 2º) Em ACBrDFeSSL Tirar as linhas // Removendo quebras de linha // XmlAss := StringReplace(XmlAss, #10, '', [rfReplaceAll]); XmlAss := StringReplace(XmlAss, #13, '', [rfReplaceAll]); 3º) Em ACBrDFeSSL Logo depois de if PosSig > 0 then begin Acrescentar XmlAss := copy(XmlAss, 1, PosSig - 1) + StringReplace(copy(XmlAss, PosSig, length(XmlAss)),#13, '', [rfReplaceAll]); XmlAss := copy(XmlAss, 1, PosSig - 1) + StringReplace(copy(XmlAss, PosSig, length(XmlAss)),#10, '', [rfReplaceAll]); Assim, o comando de tirar #13 #10 fica restrito somente a tirar estes caracteres da assinatura e não de todo o XML gerado. Abs

Boa noite a todos. Notei que nas compilações do ACBr a partir de out/17 passou a apresentar a seguinte situação: - utilizando o componente TACBrNFSeDANFSeRL para impressão do DANFSE - configurando o ACBrNFSe para quebra de linha com pipe:" | " - se, logo após enviar o RPS (gerando a NFS-e), chamar a impressão do DANFSE, a quebra de linha com "PIPE" não é tratada na discriminação do serviço (o mesmo ocorre se o email é enviado na sequência com o DANFSE em anexo) - caso seja feita uma re-impressão do DANFSE o problema passa a não ocorrer mais, ou seja, apenas a primeira impressão do DANFSE se feita logo após enviar/gerar a NFS-e é que o problema ocorre. Agradeço desde já pela atenção. André Luis.

Olá amigos, Estou enviando alguns arquivos ini(s) com a correção do carácter de quebra de linha. Eu estou usando da seguinte forma, imaginando que preciso quebra a linha na descriminação do serviço Servico.Discriminacao := Servico.Discriminacao + ' Meu texto 1 '+ACBrNFSe.Configuracoes.Geral.ConfigGeral.QuebradeLinha; Servico.Discriminacao := Servico.Discriminacao + ' Meu texto 2 '+ACBrNFSe.Configuracoes.Geral.ConfigGeral.QuebradeLinha; Servico.Discriminacao := Servico.Discriminacao + ' Meu texto 3 '+ACBrNFSe.Configuracoes.Geral.ConfigGeral.QuebradeLinha; . . . As alterações foram feitas para os provedores CONAM = \\ GINFES = \n SP = | Segue anexo os arquivos ini(s) alterados. Espero ter contribuído Abraços GINFES.ini CONAM.ini SP.ini

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