Ir para conteúdo
  • Cadastre-se

dev botao

Leitura Retorno 240 Banco do Brasil em branco


Ver Solução Respondido por Thaís Caliman,
  • Este tópico foi criado há 2109 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Olá, sou iniciante mexendo no acbrboleto, e quando faço a leitura do retorno, após configurar os componentes, a leitura do retorno volta vazia. 

 

me baseei nessas configurações e nessa rotina:

procedure TForm1.Retorno;
var 
  i : Integer;
begin
  if OpenDialog1.Execute then
  begin
    //Configurar 
    ConfiguracoesACBr;
    //
    ACBrBoleto.NomeArqRetorno := OpenDialog1.FileName;
    ACBrBoleto.LerRetorno;
    for i := 0 to ACBrBoleto.ListadeBoletos.Count-1 do
    begin
      if ACBrBoleto.ListadeBoletos.Objects[i].ValorRecebido > 0 then
      begin
        SQLAux.Close;
        SQLAux.SQL.Clear;
        SQLAux.SQL.Add('update conrec set');
        SQLAux.SQL.Add('data_baixa = :pData,');
        SQLAux.SQL.Add('valor_pago = :pValor,');
        SQLAux.SQL.Add('taxa_cobranca = :pTaxa');
        SQLAux.SQL.Add('where nosso_numero = :pNossoNum');
        SQLAux.Params.ParamByName('pData').AsDate      := ACBrBoleto.ListadeBoletos.Objects[i].DataCredito;
        SQLAux.Params.ParamByName('pValor').AsFloat    := ACBrBoleto.ListadeBoletos.Objects[i].ValorRecebido;
        SQLAux.Params.ParamByName('pNossoNum').AsString:= Copy(ACBrBoleto.ListadeBoletos.Objects[i].NossoNumero,1,ACBrBoleto.Banco.TamanhoMaximoNossoNum); // vir sem o dígito, se quiser
        SQLAux.Params.ParamByName('pTaxa').AsFloat     := ACBrBoleto.ListadeBoletos.Objects[i].ValorDespesaCobranca;
        SQLAux.ExecSQL(False);
      end;
    end;
    SQLAux.Close;
  end;
end;

procedure TForm1.ConfiguracoesACBr;
begin
  ACBrBoleto.ACBrBoletoFC.DirLogo     := sPathLogo;
  ACBrBoleto.ACBrBoletoFC.Filtro      := fiNenhum;
  ACBrBoleto.ACBrBoletoFC.LayOut      := lPadrao;

  ACBrBoleto.ACBrBoletoFC.MostrarSetup:= true;
  ACBrBoleto.ACBrBoletoFC.SoftwareHouse:= 'SUA EMPRESA';

  ACBrBoleto.Banco.TipoCobranca       := cobSantander; // escolha o seu tipo de cobrança
  ACBrBoleto.Banco.Digito             := iDigBanco; // 33
  ACBrBoleto.Banco.Numero             := iBanco; // 7
  ACBrBoleto.Banco.Nome               := sBanco; // 'Santander';
  ACBrBoleto.Banco.TamanhoMaximoNossoNum := iTamNossoNum; // 12

  ACBrBoleto.Cedente.CaracTitulo      := tcSimples; // simples com registro

  ACBrBoleto.Cedente.Nome             := sNomCedente;
  ACBrBoleto.Cedente.Telefone         := sTelefoneCedente;
  ACBrBoleto.Cedente.UF               := sUFCedente;
  ACBrBoleto.Cedente.Bairro           := sBairroCedente;
  ACBrBoleto.Cedente.CEP              := sCepCedente;
  ACBrBoleto.Cedente.Cidade           := sCidadeCedente;
  ACBrBoleto.Cedente.CNPJCPF          := sCnpjCedente;
  ACBrBoleto.Cedente.Complemento      := '';
  ACBrBoleto.Cedente.Conta            := sContaCorrente;
  ACBrBoleto.Cedente.ContaDigito      := sContaCorrenteDig;
  ACBrBoleto.Cedente.Logradouro       := sLogradouroCedente;
  ACBrBoleto.Cedente.NumeroRes        := '';

  ACBrBoleto.Cedente.Convenio         := sConvenio;   //  
  ACBrBoleto.Cedente.Modalidade       := sModalidade; //  
  ACBrBoleto.Cedente.CodigoCedente    := sCodCedente;
  ACBrBoleto.Cedente.CodigoTransmissao:= sCodigoTransmissao; // no santander tem
  ACBrBoleto.Cedente.ResponEmissao    := Iif(Trim(sBancoEmite)='SIM', tbBancoEmite, tbCliEmite);

  ACBrBoleto.Cedente.TipoInscricao    := pJuridica;
  ACBrBoleto.Cedente.TipoCarteira     := Iif(Trim(sRegistrar)='SIM', tctRegistrada, tctSimples);
  ACBrBoleto.DataArquivo              := Date;
  ACBrBoleto.NomeArqRemessa           := FormatDateTime('DDMMYYYYHHMMSS',Now)+'.TXT';
  ACBrBoleto.DirArqRemessa            := sPathRemessa;
  ACBrBoleto.DirArqRetorno            := sPathRetorno;
  ACBrBoleto.ImprimirMensagemPadrao   := False;
  ACBrBoleto.LayoutRemessa            := Iif(Pos(sLayoutArqRet,'400')>0,c400,c240);
  ACBrBoleto.LeCedenteRetorno         := true;
end;
Link para o comentário
Compartilhar em outros sites

  • Solution
42 minutos atrás, LIDERNetwork disse:

Não seria interessante colocar como foi resolvido? Tive esse problema de leitura em outro banco mas pode ser a mesma dificuldade, teria como compartilhar sua solução?

Primeiramente eu percebi que estava deixando a propriedade LeRetornoCedente como falso, mudei para true e não estou mais tendo problemas. Alterei também o modo de tratamento do arquivo de retorno.

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2109 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.