Problema de validação de remessa.

[Henrique Kleber]

Estou com um problema em um arquivo remessa Santander, logo abaixo segue arquivo remessa que se encontra com mais que 400 posições na segunda linha, reanalisei todos as posições e acredito que nas posições 384 à 385 (complemento) está resultando no problema. gostaria de saber se o acbr joga essa informação como padrão para todas as remessas do santander ou precisa de uma informação do sistema? e se for o sistema que precisa informar, qual seria o caminho que devo jogar. Obs.: uso Delphi xe8.  

Rem Santander 08032016.REM

[Juliana Tamizou]

Boa noite.

Nos testes que realizei com o demo não foi possível reproduzir o problema,  favor testar utilizando o demo e caso o problema ocorrer, fornecer as configurações realizadas.

Att.

[Henrique Kleber]

Bom dia.

Realizei os teste com o demo mas infelizmente não tive sucesso na solução, oque esta acontecendo, que o ACBR esta informando 3 caracteres na posição 384(Complemento (nota 2)) onde deveria ser 2 caracteres, fazendo com que o arquivo fique com 401 posições resultando em um erro.

Segue a baixo o manual do banco Santander do CNAB 400 onde informar na 9ª pag. o assunto citado.

Att.

CNAB 400 Santander.PDF

[Juliana Tamizou]

Boa tarde.

Observe que em meu post anterior citei que não consegui reproduzir o problema mesmo com o demo, por favor forneça os dados utilizados em seu teste.

Att.

[Henrique Kleber]

segue como foi gerado no demo

[Juliana Tamizou]

Boa tarde.

Favor fornecer também as configurações realizadas diretamente no componente.

Att.

[Wilsonn]

Olá boa tarde a todos

Eu também estou fazendo homologação do banco santander e estou com  o mesmo problema no arquivo remessa está ultrapassando as 400 posições, gostaria de saber se isso já foi resolvido.

[Juliana Tamizou]

Boa noite.

Favor fornecer as configurações realizadas no componente e os dados passados para o título.

Att.

[Wilsonn]

Boa tarde Juliana, informações do cedente:

  ACBrboleto1.Cedente.CodigoCedente
  ACBrboleto1.Cedente.Convenio
  ACBrboleto1.Cedente.CodigoTransmissao
  ACBrboleto1.Cedente.Nome         
  ACBrboleto1.Cedente.CNPJCPF      
  ACBrboleto1.Cedente.Logradouro   
  ACBrboleto1.Cedente.Bairro       
  ACBrboleto1.Cedente.Cidade       
  ACBrboleto1.Cedente.UF           
  ACBrboleto1.Cedente.CEP          
  ACBrboleto1.Cedente.Conta        
  ACBrboleto1.Cedente.ContaDigito  
  ACBrboleto1.Cedente.Agencia      
  ACBrboleto1.Cedente.AgenciaDigito
  ACBrboleto1.Cedente.Modalidade

informações do título:

      SetBanco;

      Vencimento        := titulos.AdoQuery.FieldByName('vencimento').AsDateTime;
      DataDocumento     := titulos.AdoQuery.FieldByName('emissao').AsDateTime;
      NumeroDocumento   := titulos.AdoQuery.FieldByName('numero').AsString;
      EspecieDoc        := 'DM';
      if trim(tablesctrl1.AdoQuery.FieldByName('aceite').AsString)='S' then
         Aceite := atSim
      else Aceite := atNao;
      DataProcessamento := strtoDatetime(GetDateServer);
      Carteira          := tablesctrl1.ADOQuery.fieldbyname('carteira').asstring;

      NossoNumero       := trim(titulos.ADOQuery.FieldByName('nossonumero').Asstring);
      ValorDocumento    := StrToCurr(Retiraponto(titulos.ADOQuery.Fieldbyname('valor').Text));
      Sacado.NomeSacado := trim(cadastro.AdoQuery.FieldByName('nome').Text);
      Sacado.CNPJCPF    := trim(cadastro.AdoQuery.FieldByName('cnpjcpf').Text);
      Sacado.Logradouro := cadastro.AdoQuery.FieldByName('logradouro').Text;
      Sacado.Numero     := cadastro.AdoQuery.FieldByName('numero').Text;
      Sacado.Bairro     := trim(cadastro.AdoQuery.FieldByName('bairro').Text);
      Sacado.Cidade     := trim(cadastro.AdoQuery.FieldByName('cidade').Text);
      Sacado.UF         := cadastro.AdoQuery.FieldByName('estado').Text;
      Sacado.CEP        := OnlyNumber(cadastro.AdoQuery.FieldByName('cep').Text);
      ValorMoraJuros    := StrToCurrDef(
           FormatFloat('#,##0.00',titulos.ADOQuery.Fieldbyname('valor').AsCurrency *
           (tablesctrl1.QryUtil2.FieldByName('taxa').AsCurrency/30)/100),0);

      if titulos.QryUtil.RecordCount>0 then
      begin
        ValorMoraJuros    := StrToCurrDef(
             FormatFloat('#,##0.00',(titulos.ADOQuery.Fieldbyname('valor').AsCurrency-titulos.QryUtil.FieldByName('valor').asCurrency)*
            (tablesctrl1.QryUtil2.FieldByName('taxa').AsCurrency/30)/100),0);
        ValorAbatimento   := StrToCurrDef(titulos.QryUtil.FieldByName('valor').AsString,0);
      end;

      Mensagem.Text     := tablesctrl1.AdoQuery.FieldByName('mensagem').AsString;//+#13+'MORA POR DIA DE ATRASO:'+
      if (titulos.AdoQuery.FieldByName('ocorrencia').Text='01') or
         (trim(titulos.AdoQuery.FieldByName('ocorrencia').Text)='') then
        OcorrenciaOriginal.Tipo:=toRemessaRegistrar
      else if (titulos.AdoQuery.FieldByName('ocorrencia').Text='02') then
        OcorrenciaOriginal.Tipo:=toRemessaBaixar
      else if (titulos.AdoQuery.FieldByName('ocorrencia').Text='04') then
        OcorrenciaOriginal.Tipo:=toRemessaConcederAbatimento
      else if (titulos.AdoQuery.FieldByName('ocorrencia').Text='05') then
        OcorrenciaOriginal.Tipo:=toRemessaCancelarAbatimento
      else if (titulos.AdoQuery.FieldByName('ocorrencia').Text='06') then
        OcorrenciaOriginal.Tipo:=toRemessaAlterarVencimento
      else if (titulos.AdoQuery.FieldByName('ocorrencia').Text='09') then
        OcorrenciaOriginal.Tipo:=toRemessaProtestar
      else if (titulos.AdoQuery.FieldByName('ocorrencia').Text='10') then
        OcorrenciaOriginal.Tipo:=toRemessaNaoProtestar
      else if (titulos.AdoQuery.FieldByName('ocorrencia').Text='11') then
        OcorrenciaOriginal.Tipo:=toRemessaProtestoFinsFalimentares
      else if (titulos.AdoQuery.FieldByName('ocorrencia').Text='18') then
        OcorrenciaOriginal.Tipo:=toRemessaSustarProtesto
      else if (titulos.AdoQuery.FieldByName('ocorrencia').Text='34') then
        OcorrenciaOriginal.Tipo:=toRemessaBaixaporPagtoDiretoCedente;

 

[Juliana Tamizou]

Boa tarde.

Eu preciso das informações que estão sendo passadas, exemplo Titulo.NossoNumero: 99999..etc

Obs. Podem ser dados fictícios, mas informe a mesma quantidade de caracteres.

Att.

[Wilsonn]

Bom dia Juliana, obrigado por responder.

Vou enviar o arquivo remessa também além dos dados do acbrboleto.

 

ACBRBOLETO_REMESSA.TXT

REMESSA.rem

[Wilsonn]

Olá boa tarde a todos

Tem uma dúvida que já ví comentário aqui no forum, que é sobre o dígito da agencia, no email de homologação por exemplo do
Santander não vem com dígito e ja tive caso de outros bancos também de ter conversado com os gerentes das contas e eles afirmam categoricamente que a agência não tem dígito, mas sei que o acbrboleto não aceita a agencia sem o dígito e no forum foi orientado a usar sempre o último digito da agencia, exemplo agencia 3191 sem digito com dígito fica 3191-1, no caso da homologação do santander está passando uma posição, não sei se isso tem haver com o dígito da agencia. mas sei também que existe agencias de bancos como banco do Brasil e Bradesco que existe sim o digito, inclusive com letras já vi com X.

Por este motivo para minha segurança de meu cliente eu sempre faço o processo de homologação quando configuro no meu sistema integrada.

 

 

[Wilsonn]

Olá pessoal boa tarde, quanto ao arquivo de remessa santander, estou verificando que não pegando a posição correta 30 a 37 conta está jogando no último digito 0.

Alguém sabe me dizer se isso ja foi corrigido.

Desde já agradeço.

[Juliana Tamizou]

Bom dia.

15 horas atrás, Programador disse:

Olá pessoal boa tarde, quanto ao arquivo de remessa santander, estou verificando que não pegando a posição correta 30 a 37 conta está jogando no último digito 0.

Seu problema não está claro, tente descrever melhor e também testar no demo.

Att.

[Juliana Tamizou]

Boa noite.

Em 19/04/2016 at 11:31, Programador disse:

 

Bom dia Juliana, obrigado por responder.

Vou enviar o arquivo remessa também além dos dados do acbrboleto.

 

Pelos dados que você anexou pude perceber que a carteira parece estar incorreta.

Att.

[Wilsonn]

Em 04/05/2016 at 19:58, Juliana Tamizou disse:

Boa noite.

Pelos dados que você anexou pude perceber que a carteira parece estar incorreta.

Att.

oi Juliana boa tarde! obrigado por responder.

bom quanto a carteira segundo o meu cliente está correta, bom o meu problema maior que é o acbrboleto está gerando o arquivo remessa com 401 posições sendo que deveria ser 400, verificando pela homologação do banco percebi que na posição 384 a 385 que é de duas posições deveria está o digito da conta mas está 3 posições ao invés de duas, está joga o ultimo numero da conta mais o dígito e com isso o arquivo está ficando com 401  posições.

[Juliana Tamizou]

Boa tarde.

O componente faz um tratamento com a informação recebida na carteira para que o valor enviado na remessa seja conforme especificado pelo manual do banco (a impressão é diferente). Observe o trecho de código abaixo:

aCarteira := StrToIntDef(ACBrTitulo.Carteira, 0 );

   if aCarteira = 101  then
      aCarteira:= 5
   else if aCarteira = 201 then
      aCarteira:= 6
   else if aCarteira = 102 then
      aCarteira:= 4;

   if aCarteira = 5 then
      aAgencia := PadLeft(OnlyNumber(ACBrTitulo.ACBrBoleto.Cedente.Agencia) +
                       ACBrTitulo.ACBrBoleto.Cedente.AgenciaDigito,5,'0')
   else
      aAgencia:= '00000';                                 

 

Informação a ser enviada na remessa conforme manual do banco.

Posição 108 a 108 Código da carteira (1 = ELETRÔNICA COM REGISTRO, 2 = ELETRÔNICA COM REGISTRO, 3 = CAUCIONADA ELETRÔNICA, 5 = RÁPIDA COM REGISTRO (BLOQUETE EMITIDO PELO CLIENTE)

Informação a ser utilizada no boleto impresso

Tipo de Modalidade Carteira
101-Cobrança Simples Rápida COM Registro
102- Cobrança simples – SEM Registro
201- Penhor Rápida com Registro

Conforme pode ser observado, a carteira do seu cliente não consta nos manuais do banco, verifique se existe uma atualização para o mesmo.

 

Att.

 

[Wilsonn]

Agora, Juliana Tamizou disse:

Boa tarde.

O componente faz um tratamento com a informação recebida na carteira para que o valor enviado na remessa seja conforme especificado pelo manual do banco (a impressão é diferente). Observe o trecho de código abaixo:

aCarteira := StrToIntDef(ACBrTitulo.Carteira, 0 );

   if aCarteira = 101  then
      aCarteira:= 5
   else if aCarteira = 201 then
      aCarteira:= 6
   else if aCarteira = 102 then
      aCarteira:= 4;

   if aCarteira = 5 then
      aAgencia := PadLeft(OnlyNumber(ACBrTitulo.ACBrBoleto.Cedente.Agencia) +
                       ACBrTitulo.ACBrBoleto.Cedente.AgenciaDigito,5,'0')
   else
      aAgencia:= '00000';                                 

 

Informação a ser enviada na remessa conforme manual do banco.

Posição 108 a 108 Código da carteira (1 = ELETRÔNICA COM REGISTRO, 2 = ELETRÔNICA COM REGISTRO, 3 = CAUCIONADA ELETRÔNICA, 5 = RÁPIDA COM REGISTRO (BLOQUETE EMITIDO PELO CLIENTE)

Informação a ser utilizada no boleto impresso

Tipo de Modalidade Carteira
101-Cobrança Simples Rápida COM Registro
102- Cobrança simples – SEM Registro
201- Penhor Rápida com Registro

Conforme pode ser observado, a carteira do seu cliente não consta nos manuais do banco, verifique se existe uma atualização para o mesmo.

 

Att.

 

oi Juliana boa tarde! obrigado por responder.

bom quanto a carteira segundo o meu cliente está correta, bom o meu problema maior que é o acbrboleto está gerando o arquivo remessa com 401 posições sendo que deveria ser 400, verificando pela homologação do banco percebi que na posição 384 a 385 que é de duas posições deveria está o digito da conta mas está 3 posições ao invés de duas, está joga o ultimo numero da conta mais o dígito e com isso o arquivo está ficando com 401  posições.

ok Juliana esclarecido, também achei estranho ter algum erro no componente sabendo que muitas pessoas o utiliza, quero agradecer mais uma vez.. vou verifica com o meu cliente.

[Wilsonn]

oi Juliana confirmei aqui no sistema a carteira está certa, so que é não aquela que te passei nos dados é 101 e continua ainda gerando 401 posições, e foi na posição 384 em diante que vi está pegando errado, exemplificando supondo que a conta é 010125-59 está sendo gerado na posição 384 a 385 com o valor de 55 sendo que a homologação diz que o correto é 59.

[Juliana Tamizou]

Boa noite.

Novamente reproduzi os testes com os dados fornecidos em seu post anterior, informando somente a carteira 101 conforme citado hoje e ainda não reproduzi seu problema. Favor fornecer os dados informados ao componente para reprodução do problema.

Att.

[Wilsonn]

Juliana muito boa tarde! quero te agradecer pelo esforço em me ajudar, e quero também me desculpar por ter tomado seu tempo, acabei de encontrar o problema que estava fazendo com que o acbrboleto gerasse o arquivo remessa com uma posição a mais, o preenchimento dos dados da conta estava errado, tinha sido preenchido o digito da conta com dois dígitos, sendo que o correto é apenas um dígito. AcbrBoleto está corretíssimo.

 

pela atenção muito obrigado.

[Wilsonn]

Em 12/05/2016 at 15:48, Programador disse:

Juliana muito boa tarde! quero te agradecer pelo esforço em me ajudar, e quero também me desculpar por ter tomado seu tempo, acabei de encontrar o problema que estava fazendo com que o acbrboleto gerasse o arquivo remessa com uma posição a mais, o preenchimento dos dados da conta estava errado, tinha sido preenchido o digito da conta com dois dígitos, sendo que o correto é apenas um dígito. AcbrBoleto está corretíssimo.

 

pela atenção muito obrigado.

Julina bom dia e bom feriadão.

o processo de homologação deu certo, mas tem um detalhe que queria comentar com você, na impressão do boleto se eu usa um numero sequencial para o campo nosso numero de 7 caracteres/digitos que é o que manda no manual, o próprio acbrboleto adiciona zeros a esquerda até completar 12 caracteres/dígitos só que ao gerar o arquivo de remessa ele pega somente os 7 últimos dígitos que é o que diz no manual devido ser permitido com 7 dígitos, só que eu adotei usar o nosso numero de forma a identificar e não duplicar com o nosso numero de outra loja, no caso quando tem matriz e filial, por exemplo para matriz eu uso o sequencial 10000001 e para a primeira filial 20000001, só que no boleto fica 0000010000001, tem alguma maneira de informar no acbrboleto para não acrescentar zeros a esquerda no campo nosso numero  na impressão do boleto.vi que tem acbrboleto identificação do banco tem tamanhomaxinossonum, e informei sendo 7 mas mesmo assim acrescentou zeros a esquerda.

desde já agradeço.

[Juliana Tamizou]

Bom dia.

A questão de preencher com 0 a esquerda é em virtude do tamanho máximo definido no manual, seria necessário uma nova análise para verificar a possibilidade da sua sugestão.

Att.

[israeloplopes]

Me desculpe re-abrir esse tópíco mas estou com o mesmo problema, está gerando 401 caracteres. É possível me orientar?

Gerado com base no acbrBOLETODemo usando dados do cliente

cb060614.rem

[Juliana Tamizou]

Bom dia.

Favor informar os dados passados ao componente, observe que em comentário anterior foi observado que o DV da conta estava com um digito a mais.

Att.