Jump to content

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png click.png click.png

click.png

click.png

click.png

Luiz Carlos de Lima

Membros Pro
  • Posts

    470
  • Joined

  • Last visited

  • Days Won

    1

Luiz Carlos de Lima last won the day on January 6 2019

Luiz Carlos de Lima had the most liked content!

1 Follower

About Luiz Carlos de Lima

Contact Methods

  • Website URL
    http://kstecnologia.com.br

Recent Profile Visitors

2,588 profile views

Luiz Carlos de Lima's Achievements

Rising Star

Rising Star (9/14)

  • First Post
  • Collaborator Rare
  • Week One Done
  • One Month Later
  • One Year In

Recent Badges

104

Reputation

6

Community Answers

  1. 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.
  2. Foi colocado para remover os antigos mas não resolver. removi a pasta e baixoi tudo novamente e resolveu. Grato pela atenção.
  3. 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
  4. 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?
  5. 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.
  6. 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'));
  7. 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
  8. 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
  9. 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.
  10. 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
  11. 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.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.