Otavio Mafessoni

Bom dia, Só para deixar o pessoal a parte... Minha situação foi um pouco inusitada pois o banco relatou que o código de convenio e a carteira eram muito antigos e não eram mais utilizados. Para resolver meu problema deveria ser gerado um novo código de convenio e também utilizar outra carteira. Ainda vou decidir o que fazer, mas aparentemente não é nada com o componente. Agradeço pela atenção de todos que tentaram me ajudar.

Bom dia Juliana, Por enquanto nada...Cobrei uma posição deles hoje novamente, mas ainda estou aguardando.

Pessoal, consegui resolver configurando o ACBR dessa forma. ACBrNFe.Configuracoes.Geral.SSLLib :=libWinCrypt; ACBrNFe.Configuracoes.Geral.SSLCryptLib :=cryWinCrypt; ACBrNFe.Configuracoes.Geral.SSLHttpLib :=httpWinHttp; ACBrNFe.Configuracoes.Geral.SSLXmlSignLib:=xsLibXml2; Obrigado!

Bom dia pessoal, Apos atualizar o componente, começou a não enviar as NF-e, não foi alterado nada no código, apenas atualizado. Validei no Sefaz RS e consta o mesmo erro, pelo que li no fórum tem uma configuração "IdentarXML" marquei para false mas continua o mesmo erro. Caso for alguma inconsistência no XML, alguém sabe como posso fazer os testes? Adicionei em anexo um XML com o erro. 41200409610964000126550020000102871856842485-nfe.xml

Boa tarde pessoal, Estou aguardando uma posição do banco sobre isso...

Boa tarde, Em anexo está o manual de cobrança enviado hoje pelo pessoal do banco. ManualCBRcnab240.pdf

@Juliana Tamizou Segue em anexo...IEDCBR4987604202024748.ret

Caso eu remova os "00" ele da o erro:Tamanho Máximo do Nosso Número é: 5 O nosso numero que eu informo é o que vem no retorno bancário, com 10 posições. OBS: Alguns vem com digito, fica com 11 posições.

Bom dia, O banco me passou essas informações... Agencia : 0495 - 2 PATO BRANCO Conta : 6245 - 6 Carteira: 11 SIMPLES COM REGISTRO Variacao: 01 - 9 Convenio: 0066826 Contrato: 12802823

@Juliana Tamizou Segue abaixo as informações... Tambem adicionei em anexo o boleto gerado pelo componente e outro pelo gerenciador do banco. with AACBrBoleto do begin ACBrBoletoFC := AACBrBoletoFC; ACBrBoletoFC.DirLogo := ExtractFilePath(Application.ExeName) + 'Logos'; ACBrBoletoFC.Filtro := fiNenhum; ACBrBoletoFC.LayOut := lPadrao; ACBrBoletoFC.MostrarPreview := True; ACBrBoletoFC.MostrarProgresso := True; ACBrBoletoFC.MostrarSetup := True; AACBrBoletoFC.FastReportFile := ExtractFilePath(Application.ExeName)+'Boleto.fr3'; LayoutRemessa := c240; Banco.TipoCobranca := cobBancoDoBrasil; Cedente.Nome := XPert Tecnologia em Automação Cedente.Logradouro := R. Argentina,199 Cedente.Bairro := Jardim América Cedente.CEP := 85.502-040 Cedente.Cidade := PATO BRANCO Cedente.UF := PR Cedente.CNPJCPF := 01.425.713/0001-60 Cedente.NumeroRes := (46) 2101 - 0101 Cedente.Telefone := (46) 2101 - 0101 Cedente.TipoInscricao := pJuridica Cedente.CodigoCedente := 000066826001411019 Cedente.Agencia := 0495 Cedente.AgenciaDigito := 2 Cedente.Conta := 000000006245 Cedente.ContaDigito := 6 Cedente.Convenio := 0066826 end; Titulo := ACBrBoleto.CriarTituloNaLista; with Titulo do begin Vencimento := 05/05/2020 DataDocumento := 06/04/2020 NumeroDocumento := 459144 EspecieDoc := DM Aceite := atNao DataProcessamento := 05/05/2020 Carteira := 11 NossoNumero := 6144712004 ValorDocumento := 655 Sacado.NomeSacado := POSTO MAGNOLIA LTDA Sacado.CNPJCPF := 35.123.447/0007-28 Sacado.Logradouro := BR 316 KM 265 Sacado.Numero := 0 Sacado.Bairro := CENTRO Sacado.Cidade := SANTA INES Sacado.UF := MA Sacado.CEP := 65.300-000 Sacado.Pessoa := pJuridica ValorAbatimento := 0 LocalPagamento := NAO SERA ACEITO DEPOSITO EM C/C ValorMoraJuros := 0 ValorDesconto := 0 ValorAbatimento := 0 DataMoraJuros := 05/05/2020 DataDesconto := 0 DataAbatimento := 0 DataProtesto := 0 PercentualMulta := 2 Mensagem.Text := NAO SERA ACEITO DEPOSITO EM C/C end; 459144-Componente.pdf 459144-Banco.pdf

Boa tarde Juliana, É do Banco do Brasil. Abaixo as configurações. Falta algo sera? with AACBrBoleto do begin ACBrBoletoFC := AACBrBoletoFC; ACBrBoletoFC.DirLogo := ExtractFilePath(Application.ExeName) + 'Logos'; ACBrBoletoFC.Filtro := fiNenhum; ACBrBoletoFC.LayOut := lPadrao; ACBrBoletoFC.MostrarPreview := True; ACBrBoletoFC.MostrarProgresso := True; ACBrBoletoFC.MostrarSetup := True; AACBrBoletoFC.FastReportFile := ExtractFilePath(Application.ExeName)+'Boleto.fr3'; case FieldByName('LAYOUT').AsInteger of 0: LayoutRemessa := c240; 1: LayoutRemessa := c400; end; Banco.TipoCobranca := RetornaBanco(FieldByName('CODIGO').AsInteger); Cedente.Nome := FieldByName('Nome').AsString; Cedente.Logradouro := FieldByName('ENDERECO').AsString + ',' + FieldByName('NUMERO').AsString; Cedente.Bairro := FieldByName('BAIRRO').AsString; Cedente.CEP := FieldByName('CEP').AsString; Cedente.Cidade := FieldByName('CIDADE').AsString; Cedente.UF := FieldByName('ESTADO').AsString; Cedente.CNPJCPF := FieldByName('CNPJ').AsString; Cedente.NumeroRes := FieldByName('TELEFONE').AsString; Cedente.Telefone := FieldByName('TELEFONE').AsString; Cedente.TipoInscricao := pJuridica; Cedente.CodigoCedente := FieldByName('NroCedente').AsString; Cedente.Agencia := FieldByName('NROAGENCIA').AsString; Cedente.AgenciaDigito := FieldByName('DIGITOAGENCIA').AsString; Cedente.Conta := FieldByName('NROCONTA').AsString; Cedente.ContaDigito := FieldByName('DIGITOCONTA').AsString; Cedente.Convenio := FieldByName('CONVENIO').AsString; end; Titulo := ACBrBoleto.CriarTituloNaLista; with Titulo do begin Vencimento := qryConsulta.FieldByName('DtaVcto').AsDateTime; DataDocumento := qryConsulta.FieldByName('DtaEmissao').AsDateTime; NumeroDocumento := qryConsulta.FieldByName('Numero').AsString; EspecieDoc := 'DM'; if qryContas.FieldByName('ACEITE').AsBoolean then Aceite := atSim else Aceite := atNao; DataProcessamento := qryConsulta.FieldByName('DtaVcto').AsDateTime; Carteira := qryConsulta.FieldByName('Carteira').AsString; NossoNumero := qryConsulta.FieldByName('NossoNumero').AsString; rVlr := TruncFloat(qryConsulta.FieldByName('Valor').AsFloat, 2, False); ValorDocumento := rVlr; Sacado.NomeSacado := qryConsulta.FieldByName('RAZAOSOCIAL').AsString; Sacado.CNPJCPF := qryConsulta.FieldByName('CNPJCPF').AsString; Sacado.Logradouro := qryConsulta.FieldByName('Endereco').AsString; Sacado.Numero := qryConsulta.FieldByName('Numero').AsString; Sacado.Bairro := qryConsulta.FieldByName('Bairro').AsString; Sacado.Cidade := qryConsulta.FieldByName('Cidade').AsString; Sacado.UF := qryConsulta.FieldByName('UF').AsString; Sacado.CEP := qryConsulta.FieldByName('CEP').AsString; if Length(Sacado.CNPJCPF) > 14 then Sacado.Pessoa := pJuridica else Sacado.Pessoa := pFisica; ValorAbatimento := 0; LocalPagamento := qryContas.FieldByName('LOCALPGTO').AsString; ValorMoraJuros := qryContas.FieldByName('JUROSMORA').AsFloat; ValorDesconto := 0; ValorAbatimento := 0; DataMoraJuros := qryConsulta.FieldByName('DtaVcto').AsDateTime; DataDesconto := 0; DataAbatimento := 0; DataProtesto := 0; PercentualMulta := qryContas.FieldByName('PERCMULTA').AsFloat; Mensagem.Text := qryContas.FieldByName('INSTRUCOES').AsString; end;

Estranho, meu convenio é de 7 dígitos e o banco retorna o nosso numero com 10 dígitos, mas o componente gera o nosso numero com 17 dígitos.

@BigWings Obrigado pela resposta. Na verdade eu não gero o nosso numero, espero o banco processar e registro no meu sistema o mesmo código. Mas mesmo assim... Percebi que quando imprimo o PDF pelo componente, no campo nosso numero ele adiciona na frente do código o numero do convenio, e tirando segunda via pelo próprio banco não é feito isso, talvez seja isso o meu problema, mas não sei como resolver.

Bom dia pessoal, Estou com um problema e não sei como resolver. Meu sistema gera remessa e recebe o retorno tudo certinho. Também consigo gerar o PDF do boleto, mas quando vou fazer o pagamento pelo codigo de barra ele diz que o boleto está sem registro no banco. Mas tem registro porque eu confirmo no gerenciador do banco e esta la. Sera alguma configuração que não estou sabendo fazer? Alguém já teve esse problema?

Muito obrigado, facilitou muito. Abraço.