Luiz Carlos de Lima

Boa tarde, Em relação a este recurso, podem me informar se foi feito algum ajuste no componente. Grato.

Resolvido, muito obrigado

Talvez não tenha sido entendido, não disse que está com erro. Alguns titulos retornam 'Entrada rejeitada' código de ocorrência 3. No manual do banco o motivo 62 é (valor do desconto maior que o valor do título), Este motivo não consigo pegar no retorno do ACBrBoleto.

Bom dia, Não consigo pegar o código de erro de uma entrada rejeitada(Ocorrencia 3), por exemplo no itau temos o retorno 62 (valor do desconto maior que o valor do título) no registro 'T' pos 214 a 221. Grato

Não estava. Resolvido. Obrigado

Bom dia, Preciso que o desconto seja concedido se for pago até o vencimento. Testei as duas opções tdValorFixoAteDataInformada e tdValorAntecipacaoDiaCorrido, todas mostram no boleto a mesma mensagem "Conceder desconto de R$ 1,00 por dia de antecipaçao". O que preciso seria "Conceder desconto de R$ 1,00 até a data xx/xx/xxxx" ou seja, se pagar até a data do vencimento dar o desconto de R$ 1,00 e não por dia. Seria uma outra opção que não entendi? Grato

Grato pela dica. Tenham um bom fim de semana

Boa tarde, O calculo de ICMS é um pouco trabalhoso, visto que cada estado tem suas particularidades. Pergunto se existe algum componente para carregar Aliquota, base de calculo, CST, etc... pode ser até de terceiros. Grato Luiz Carlos

Resolvido, Grato.

Boa tarde, Estou passando a carteira > Carteira := 5, então é chamado a rotina procedure TACBrTitulo.SetCarteira(const AValue: String); var aCarteira: Integer; begin if fCarteira = AValue then > Valores fCarteira = '' e AValue = 005 exit; with ACBrBoleto.Banco do begin aCarteira:= StrToIntDef(trim(AValue),0); fCarteira:= AValue; if aCarteira < 1 then exit; fCarteira:= IntToStrZero(aCarteira,TamanhoCarteira); end; end; Até aí tudo bem, mas quando chama a ACBrBoleto.Imprimir, ele chama novamente a TACBrTitulo.SetCarteira(const AValue: String); e muda a carteira para 101 ( fCarteira = 005 e AValue = 101) Já debuguei e não consigo descobrir onde esta carregando o 101 e porque disso.

Foi colocado para remover os antigos mas não resolver. removi a pasta e baixoi tudo novamente e resolveu. Grato pela atenção.

Boa noite, Fiz atualização do ACBr e ao rodar o ACBrInstall_Trunk2.exe esta dando erro. Anexei o log. log_Delphi_XE6_Win32.txt

Entendido, Grato pela ajuda.

Bom dia José, ACBrBoleto.NomeArqRetorno := NomeArquivo; AcbrBoleto.DirArqRetorno := NomeDiretorio; ACBrBoleto.LerRetorno(); with ACBrBoleto do begin if ListaRetornoWeb.Count > 0 then > aqui encerra, ela esta vazia begin Já debuguei o ACBrBoleto e esta carregando informações do arquivo enviado, mas a ListaRetornoWeb retorna vazia. Tem alguma idéia do que estou fazendo de errado?

Então estou fazendo de forma errada. O que precisa é de forma assincrona, ou seja, pego o arquivo TXT de retorno do banco para fazer a baixa no sistema dos Titulos baixados. O ACBr tem algo desse tipo pronto? caso tenha tem um exemplo que eu possa seguir? Pois vou fazer para vários bancos.

Estou fazendo para o ITAU, mas está retornando esta Exception. A variavel BancoRetorno esta 341 mas Banco.Numero esta Zerado. Estou passando o caminho ACBrBoleto.NomeArqRetorno e chamando ACBrBoleto.LerRetorno(); Precisa passar mais algum parametro? if ( IntToStrZero(Banco.Numero, 3) <> BancoRetorno ) and ( IntToStrZero(Banco.NumeroCorrespondente, 3) <> BancoRetorno ) then if LeCedenteRetorno then Banco.TipoCobranca := GetTipoCobranca( StrToIntDef(BancoRetorno, 0)) else raise Exception.Create( ACBrStr( 'Arquivo de retorno de banco diferente do Cedente'));

Bom dia, Estou fazendo o retorno usando o exemplo do Demo conforme abaixo, mas não consigo achar a conta. Podem por favor verificar se este exemplo está correto e como pegar a Conta. with ACBrBoleto do begin if ListaRetornoWeb.Count > 0 then begin SLRemessa := TStringList.Create; try for i:= 0 to ListaRetornoWeb.Count -1 do begin DMREMov.CDSBaixaTitulo_NroBoleto.Params[1].AsString := ACBrBoleto.ListaRetornoWeb[i].DadosRet.IDBoleto.NossoNum; DMREMov.CDSBaixaTitulo_NroBoleto.Params[2].AsString := ACBrBoleto.ListaRetornoWeb[i].DadosRet.IDBoleto.Conta; Grato, Luiz Carlos

Bom dia, Resolvido. Grato pela colaboração.

Boa tarde, As posições abaixo não estão montando e não consigo descobrir porque: Registro Header Remessa > 01REMESSA01COBRANCA 00000000000000000000I ZZZ BEZERRA XX 033SANTANDER Posição 27-46 Codigo de Trasmissao não está montando Registro Movimento Remessa > 1021520498400010800000000000000000000 Posicao 18-37 Agencia / Conta Movimento / Conta Bancária Estas informações estão sendo passadas em : ACBrBoleto.Cedente.Agencia := 'Agencia'; ACBrBoleto.Cedente.AgenciaDigito := DigAgencia; ACBrBoleto.Cedente.TipoInscricao := pJuridica; ACBrBoleto.Cedente.CNPJCPF := Inscricao; ACBrBoleto.Cedente.Conta := Conta; ACBrBoleto.Cedente.ContaDigito := DigitoConta; ACBrBoleto.Cedente.CodigoCedente := Conta; ACBrBoleto.Cedente.Convenio := Convenio; ACBrBoleto.Cedente.Nome := Cedente; Agradeço a colaboração

O Layout que estava comparando Peguei de um Site do banco, mas era Padrão Febraban que é da posição 19-32 com 14 caracteres. Como no Arquivo ACBrBancoBrasil na linha abaixo esta na mesma posição fiquei na dúvida. PadLeft(OnlyNumber(CNPJCPF), 15, '0') + // 19 a 32 -Número de inscrição do cedente Peguei um outro layout igual ao do José, que esta como 15, então paramos por aqui e fica com 15 mesmo. Obrigado pela atenção.

Estou montando a rotina de cobrança, ao montar a Remessa do Banco do Brasil verifiquei que no Registro Header de Lote na posicao 19 a 32 deve ficar o CNPJ com 14 posições, mas esta com 15, disposicionando as próxima posições. No arquivo ACBrBancoBrasil Alguns locais estão definindo o CNPJ com 15 posicoes. Neste registro especifico, na function TACBrBancoBrasil.GerarRegistroHeader240(NumeroRemessa : Integer): String, na linha PadLeft(OnlyNumber(CNPJCPF), 15, '0'), é que estava o problema. Passei para 14. Obs. Não tenho cliente que usa o Banco do Brasil, então não sei se isto é uma particularidade deles. Anexei o arquivo caso o correto seja 14. ACBrBancoBrasil.pas

Resolvido apos atualizar o ACBrBPeWebServices. Grato.

Bom dia Ítalo, Em janeiro foi atualizado e reinstalado. Não consigo anexar porque o arquivo tem 6 KB, tem um email que possa te enviar, mandeu pelo discord.

blz ítalo, deu certo. Só o XML que continua gerando errado como coloquei acima. Ele só gera na estrutura correta com o método consulta

já coloquei e não resolveu. Isso acontece as vezes mas com várias emissões. Não tem como pegar do método ACBrBPe.Enviar ?