tuliomac01

O problema seria para processar o retorno do CNAB mesmo, na impressão está ok, com essa função que você citou retira os zeros a esquerda..

O banco informou que a conta não possuía zeros a esquerda na conta... Diferente do banco da caixa entre outros que permitem zeros a esquerda...

Qual seria a primeira propriedade? O que acontece que atualmente não há nenhuma instrução sendo passada no Layout... Atualmente está assim: StringOfChar(' ', 40) + // 104 a 143 - Mensagem 1 para todos os boletos do lote StringOfChar(' ', 40) + // 144 a 183 - Mensagem 2 para todos os boletos do lote São preenchidos toda vez com espaços vazios...

Bom dia, Após atualizar o ACBr e tentar criar o componente do ACBrBoletoFCFR está dando erro nessa linha no create: FdmBoleto := TdmACBrBoletoFCFR.Create(Self); Onde o mesmo antes era criado na Função "PreparedReport"... Acontece que o mesmo estando no create está chamando as classes do FastReport "frxExportPDF" que ainda não foi criada, o que termina dando Acess Violation no create do mesmo.. OBS: Se eu voltar o fonte para criação antiga no "PreparedReport" funciona normalmente.. Alguém mais com esse erro? Delphi XE 10 Seattle, FastReport Versão: 5.4.2

Não consigo editar o post, errei em vez de ser "PadLeft" utilizar "PadRight".

Boa tarde, foi verificado que não estão sendo passados as mensagens(Instruções no caso) quando a remessa do banco do brasil possui o layout de 240, poderiam adicionar? Classe ACBrBancoBrasil.pas. Linha 343: StringOfChar(' ', 40) + // 104 a 143 - Mensagem 1 para todos os boletos do lote Para: PadLeft(Trim(ACBrBanco.ACBrBoleto.ListadeBoletos[0].Instrucao1),40,' ') + // 104 a 143 - Mensagem 1 para todos os boletos do lote Linha 344: StringOfChar(' ', 40) + // 144 a 183 - Mensagem 2 para todos os boletos do lote Para: PadLeft(Trim(ACBrBanco.ACBrBoleto.ListadeBoletos[0].Instrucao2),40,' ') + // 144 a 183 - Mensagem 2 para todos os boletos do lote Segue minha classe alterada em anexo... ACBrBancoBrasil.pas

Boa tarde, Estou com um cliente que estamos com um problema ao ler o NossoNumero no retorno 240 quando o CodigoCedente são 6 dígitos. Foi verificado no fonte que o mesmo pega o código do cedente na unit "ACBrBancoBrasil.pas": rConvenioCedente:= Trim(Copy(ARetorno[0], 33, 9)); Porém conforme o layout do banco são 9 dígitos preenchidos com zeros a esquerda caso o mesmo não possua todos registros, então por exemplo dessa forma o o meu cliente possui 6 e o resto é preenchido com zero e mais abaixo é pego o NossoNumero com a seguinte linha: if Length(ACBrBoleto.Cedente.Convenio) = 6 then NossoNumero := copy(Linha, 44, 10) else NossoNumero := copy(Linha, 45, 10); Mas como ele preenche com os zeros, então o mesmo sempre está vindo 9 caracteres, alterei a seguinte linha, para: rConvenioCedente:= IntToStr(StrToInt((Copy(ARetorno[0], 33, 9)))); Assim na checagem se o mesmo possui 6 caracteres ele está retornando o NossoNumero correto.. OBS: Isso só ocorre se o Covenio do Cedente for com 6 caracteres. Isso é um erro ou estou fazendo de forma errada? Ah também alterei o tamanho da conta para 5, pois ao enviar para o banco no boleto estava preenchendo a conta com zeros a esquerda e eles não validaram dessa forma, eu verifiquei que ele pega através do tamanho da conta que vem padrão 12 fpTamanhoConta := 12; Alterei para: fpTamanhoConta := 5; e no boleto saiu a conta certa sem os zeros a esquerda. Segue a minha classe alterada em anexo... ACBrBancoBrasil.pas

Boa tarde, Estou tendo um problema ao usar a função de enviar e-mail do boleto "EnviarEmail" o mesmo encontra-se na unit ACBRBoleto. Na seguinte linha: if Assigned(sMensagem) then begin MAIL.Body.Assign(sMensagem); MAIL.AltBody.Text := (StripHTML(sMensagem.Text)); end; "Cannot Assigner TStringList to StringList" Então fui verificar o fonte como era feito o envio do e-mail da classe NFS-E que também utilizo e verifiquei que estava de outra forma, e então alterei para o seguinte: if Assigned(sMensagem) then begin MAIL.Body.Text := sMensagem.Text; MAIL.AltBody.Text := (StripHTML(sMensagem.Text)); end; Estou fazendo algo de errado? Ou realmente há o erro se tiver podem corrigir? Segue a minha classe alterada em anexo.. ACBrBoleto.pas

Desculpa pessoal, corrigindo NÃO ENVIA O E-MAIL...

Boa tarde, estou utilizando a seguinte função para envio do e-mail NFSe: procedure EnviaEmail(const sSmtpHost, sSmtpPort, sSmtpUser, sSmtpPasswd, sFrom, sTo, sAssunto: String; sMensagem : TStrings; SSL : Boolean; sCC: TStrings = nil; Anexos:TStrings=nil; PedeConfirma: Boolean = False; AguardarEnvio: Boolean = False; NomeRemetente: String = ''; TLS : Boolean = True; StreamNFSe : TStringStream = nil; NomeArq : String = ''; UsarThread: Boolean = True; HTML: Boolean = False); O e-mail é enviado porém o mesmo da o erro em seguida: SMTP ERROR: MailFrom:Permanent Failure- 530 5.7.57 SMTP; Client was not authenticated to send anonymous mail during MAIL FROM Estou utilizando o seguinte smtp: smtp.office365.com na porta 587 autenticação TSL. Estou enviando: EnviarEmail(smtp.office365.com, 587, [email protected], minhasenha, [email protected], [email protected], // E-mail do destinatário assuntoEmail, // Assunto stlMensagem, // Mensagem emailSSL = False, // SSL False, // Enviar em PDF stlCC, // sCC stlAnexos, // Anexos True, // Pede Confirmação de Recebimento True, // Aguarda o Envio [email protected], emailTSL = True); // Nome do remetente OBS: O e-mail é enviado com os anexos corretamente, porém aparece a mensagem acima de "SMTP ERROR". Alguém tem alguma ideia do que seja?