gerar arquivo santander cnab240

[Fernando Rodrigo]

estou homologando cnab 240 do santander com carteira simples

tenho 5 títulos para enviar, com cobrança simples (Rápida com registro), conforme layout abaixo

Nota 5: TIPO DE COBRANÇA
REMESSA:
'1' = Cobrança Simples (Sem Registro e Eletrônica com Registro)
'3' = Cobrança Caucionada (Eletrônica com Registro e Convencional com Registro)
‘4’ = Cobrança Descontada (Eletrônica com Registro)
'5' = Cobrança Simples (Rápida com Registro)
‘6’ = Cobrança Caucionada (Rápida com Registro)

Estou configurando da seguinte forma os títulos

ACBrBoleto.Cedente.CaracTitulo := tcSimplesRapComReg;

Todos os 5 títulos estão passando na rotina normal, so que na unit (ACBrBancoSantander.pas) para validar o tipo de cobrança, o primeiro título sempre entra como tcSimples, sendo que passei padrão como tcSimplesRapComReg, o restante dos títulos vai como tcSimplesRapComReg

 

 

 

function TACBrBancoSantander.DefineCaracTitulo(const ACBrTitulo: TACBrTitulo): String;
begin
  with ACBrTitulo do
  begin
    case CaracTitulo of
      tcSimples            : Result := '1'; {Cobrança Simples (Sem Registro e Eletrônica com Registro)}
      tcCaucionada         : Result := '3'; {Cobrança Caucionada (Eletrônica com Registro e Convencional com Registro)}
      tcDescontada         : Result := '4'; {Cobrança Descontada (Eletrônica com Registro)}
      tcVinculada, tcDireta,
      tcSimplesRapComReg   : Result := '5'; {Cobrança Simples (Rápida com Registro)}
      tcCaucionadaRapComReg: Result := '6'; {Cobrança Caucionada (Rápida com Registro)}
      { TODO :
          8 = Cobranca Cessao (Eletronica com Registro)
      }
    else
        Result := '1';
    end;
  end;
end;

[Fernando Rodrigo]

vejam como fica, o primeiro registro sempre passa na linha tcSimples

 

Dai os proximos registros gera normal

[Fernando Rodrigo]

 

veja esse outro print, esta setado certo tcSimplesRapComReg mas ele so passa no tcSimples no primeiro registro, a partir do segundo ele passa normal

 

[Juliomar Marchetti]

Certo chegou a conseguir alterar algo no ACBr para resolver o problema?

[Fernando Rodrigo]

7 minutos atrás, Juliomar Marchetti disse:

Certo chegou a conseguir alterar algo no ACBr para resolver o problema?

ainda não, talvez alguem ja passou por isso e ja tenha alterado a unit 

[FGGLUIZ]

3 horas atrás, Fernando Rodrigo disse:

ainda não, talvez alguem ja passou por isso e ja tenha alterado a unit 

@Fernando Rodrigo, veja se abaixo resolve.    
 

Citar

          Cedente.CaracTitulo  := tcSimplesRapComReg;  //Banco Santander - 
          Cedente.TipoCarteira := tctRegistrada;       //Banco Santander - Registrada

 

[Fernando Rodrigo]

16 horas atrás, Juliomar Marchetti disse:

Certo chegou a conseguir alterar algo no ACBr para resolver o problema?

mesmo jeito fazendo a alteração 

 

                                                                ACBrBoleto.Cedente.CaracTitulo  := tcSimplesRapComReg; // Simples com Registro
                                                                ACBrBoleto.Cedente.TipoCarteira := tctRegistrada;
 

Editado 26 Outubro, 2020 por Fernando Rodrigo

[FGGLUIZ]

5 horas atrás, Fernando Rodrigo disse:

mesmo jeito fazendo a alteração 

 

                                                                ACBrBoleto.Cedente.CaracTitulo  := tcSimplesRapComReg; // Simples com Registro
                                                                ACBrBoleto.Cedente.TipoCarteira := tctRegistrada;
 

Estamos rodando normalmente e homologuei na semana passada mais um cliente com o Santander e sem problemas. Estou com a última atualização (ACBr).

Dê uma olhada no seu código e vá debugando no ACBrBancoSantander na linha que faz a criação, talvez seja alguma informação que não esteja sendo passada no Componente. Desta forma irá conseguir ver o que está acontecendo.

Não sei se você faz isso, porém, uma dica, dê um Clear antes de gerar a Remessa. Aqui eu faço isso, quem sabe? Pergunto, pois como sempre é no primeiro, pode ser que...

Citar

ACBrBoleto.ListadeBoletos.Clear;

Retorne aqui.

Abração e até mais.

Fábio Gabriel

[Fernando Rodrigo]

4 horas atrás, FGGLUIZ disse:

Estamos rodando normalmente e homologuei na semana passada mais um cliente com o Santander e sem problemas. Estou com a última atualização (ACBr).

Dê uma olhada no seu código e vá debugando no ACBrBancoSantander na linha que faz a criação, talvez seja alguma informação que não esteja sendo passada no Componente. Desta forma irá conseguir ver o que está acontecendo.

Não sei se você faz isso, porém, uma dica, dê um Clear antes de gerar a Remessa. Aqui eu faço isso, quem sabe? Pergunto, pois como sempre é no primeiro, pode ser que...

Retorne aqui.

Abração e até mais.

Fábio Gabriel

ja faço dessa forma, mas continua o mesmo problema

[Fernando Rodrigo]

 

ele ja chega errado, ja deu um clear, ja baixei os componentes novamente, ja desinstalei e instalei novamente mas sempre vem errado

[FGGLUIZ]

13 horas atrás, Fernando Rodrigo disse:

ja faço dessa forma, mas continua o mesmo problema

 

3 minutos atrás, Fernando Rodrigo disse:

 

ele ja chega errado, ja deu um clear, ja baixei os componentes novamente, ja desinstalei e instalei novamente mas sempre vem errado

Parece que o seu código está enviando alguma coisa antes. Comigo não está acontecendo isso.

[Juliomar Marchetti]

Melhor forma

pega o exemplo configura os dados e inclui o titulo, veja se ele vai

[Fernando Rodrigo]

estranho no demo tambem ocorre o mesmo problema

procedure TfrmDemo.Button5Click(Sender: TObject);
var
  I: Integer;
  NrTitulos: Integer;
  NrTitulosStr: String;
  Convertido: Boolean;
begin
  NrTitulos    := 10;
  NrTitulosStr := '10';
  Convertido   := true;
  ACBrBoleto1.Cedente.FantasiaCedente := 'Nome Fantasia do Cliente';
  repeat
    InputQuery('ACBrBoleto','Número de Boletos a incluir',NrTitulosStr);
    try
     NrTitulos := StrToInt(NrTitulosStr);
    except
     Convertido:= false;
    end;
  until  Convertido;

  for I := 1 to NrTitulos do
  begin
      With ACBrBoleto1.CriarTituloNaLista do
       begin
            With ACBrBoleto1.Cedente do
                  begin
                       {Dados do cedente - Loja}
                      CodigoTransmissao := '11';
                      TipoInscricao   := pJuridica; {CNPJ}
                      CNPJCPF         := '34954837000191';
                      Nome            :='RMP AUTO PECAS LTDA';
                      CodigoCedente   := '55395';
                      Convenio          := '3210690';
                      Modalidade      := '19'; // Variação
                      Carteira        := '17';
                      Logradouro      :='AV. CONSOLACAO N 835';
                      NumeroRes       := '';
                      Complemento     := '';
                      Bairro          := 'CIDADE JARDIM';
                      Cidade          := 'GOIANIA';
                      UF              := 'GO';
                      CEP             := '74425535';
                      Agencia         :='1840';
                      AgenciaDigito   := '6';
                      Conta           :='64516';
                      ContaDigito     := '8';
                      ResponEmissao   := tbCliEmite;
                      TipoCarteira    := tctRegistrada;

                      TipoCarteira    := tctRegistrada;
                      CaracTitulo     := tcSimplesRapComReg;

                  end;

            LocalPagamento    := 'Pagar em qualquer banco'; //MEnsagem exigida pelo bradesco
            Vencimento        := IncMonth(EncodeDate(2020,12,10),I);
            DataDocumento     := EncodeDate(2020,10,15);
            NumeroDocumento   := PadRight(IntToStr(I),8,'0');
            EspecieDoc        := '2';
            Aceite            := atSim;
            DataProcessamento := Now;
            NossoNumero       := IntToStrZero(I,8);
            SeuNumero         := IntToStrZero(I,8);

            ACBrBoleto1.Banco.TamanhoMaximoNossoNum := Length(NossoNumero);

            ValorDocumento    := 100.35 * (I+0.5);
            Sacado.NomeSacado := 'FERNANDO RODRIGO DE JESUS';
            Sacado.CNPJCPF    := '47854871191';
            Sacado.Logradouro := 'AV. PIO XII';
            Sacado.Numero     := '618';
            Sacado.Bairro     := 'CIDADE JARDIM';
            Sacado.Cidade     := 'GOIANIA';
            Sacado.UF         := 'GO';
            Sacado.CEP        := '74425010';
            ValorAbatimento   := 10;
            ValorMoraJuros    := 0.05;

            DataAbatimento    := Vencimento-5;
            Instrucao1        := '00';
            Instrucao2        := '00';

            with ACBrBoleto1.Banco do
            begin
                TipoCobranca := cobSantander;
                Carteira     := '17';
            end;

       end;
  end;

end;

 

[FGGLUIZ]

@Fernando Rodrigo, eu analisei o Demo que você me enviou no PV.

Nele, tem alguns detalhes que modifique (colocações, posicionamento e informações).

Gerei com os mesmos dados e para mim não deu nenhum problema.

Estou enviando (PV) o que fiz no seu exemplo para você comparar com a sua aplicação.

Abaixo está a imagem que gerou da Remessa (com os dados fornecidos por você).

Fábio Gabriel

[Fernando Rodrigo]

problema resolvido com a ajuda do @FGGLUIZ, estranho pq se eu informar os dados do cedente no final da geração do arquivo ele da esse erro, se informar no inicio gera certo os arquivos

muito obrigado pelo ajuda @FGGLUIZ

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.