Ir para conteúdo
  • Cadastre-se

dev botao

Arquivo remessa banco Safra CNAB 240


Ver Solução Respondido por Daniel InfoCotidiano,

Recommended Posts

  • Membros Pro
Postado (editado)

Homologuei o boleto do Banco Safra CNAB 240.

Observei que no segmento P, posição 061-061 está sendo incluída a variável: sTipoCobranca. A lógica dessa variável é a seguinte:

    case ACBrBoleto.Cedente.CaracTitulo of
      tcSimples     :
      begin
        sTipoCobranca  := '1'; {Cobrança Simples (Sem Registro e Eletrônica com Registro)}
        Inc(FQuantidadeCobrancaSimples);
        FValorCobrancaSimples := FValorCobrancaSimples + ValorDocumento;
      end;
      tcCaucionada  :
      begin
        sTipoCobranca  := '3'; {Cobrança Caucionada (Eletrônica com Registro e Convencional com Registro)}
        Inc(FQuantidadeCobrancaCaucionada);
        FValorCobrancaCaucionada := FValorCobrancaCaucionada + ValorDocumento;
      end;
      tcDescontada  :
      begin
        sTipoCobranca  := '4'; {Cobrança Descontada (Eletrônica com Registro)}
        Inc(FQuantidadeCobrancaDescontada);
        FValorCobrancaDescontada := FValorCobrancaDescontada + ValorDocumento;
      end;
      tcVinculada   :
      begin
        sTipoCobranca  := '5'; {Cobrança Simples (Rápida com Registro)}
        Inc(FQuantidadeCobrancaVinculada);
        FValorCobrancaVinculada := FValorCobrancaVinculada + ValorDocumento;
      end;      
    end;

 

No manual que recebi da agência, nessa posição deve conter uma das duas opções: 1-Banco Emite Boleto ou 2-Cliente Emite Boleto, o que difere do que está sendo implementado no código acima:

image.thumb.png.450412ba970eaa7f445bd4e47fc6f1eb.png

 

Como precisei homologar rapidamente deixei fixo o valor '2' (Cliente Emite Boleto) no fonte. O boleto foi homologado com sucesso:

banco safra manual cnab 240.pdf

image.png

 

 

Como proceder nesse caso? Seria uma questão de diferença na versão do layout? 

O fonte do ACBrBancoSafra está como:

fpLayoutVersaoArquivo   := 87;
fpLayoutVersaoLote      := 45;

 

Homologuei informando os valores que o manual sugere:

fpLayoutVersaoArquivo   := 87;
fpLayoutVersaoLote      := 60;

 

image.thumb.png.d0119d15210b8db58a8cd1ec2df8f90e.png

image.thumb.png.3031a8dff619a9aa09532f1765c33da6.png

 

O manual está em anexo.

Editado por [email protected]
  • Consultores
  • Solution
Postado

Por favor atualize seus fontes, pelo SVN do ACBr... 
 

Se a FACBrBoleto.Banco.LayoutVersaoLote = 60 (Posição 014-016 Vai alimentar as 2 propriedades abaixo.):

FACBrBoleto.Cedente.ResponEmissao    (Banco ou Cliente Emite na posição Seg. “P” 061-061)
FACBrBoleto.Cedente.IdentDistribuicao (Banco ou Cliente Emite na posição Seg. “P” 062-062)

Já subimos para o nosso repositório de fontes, modificações que podem corrigir algum dos itens referentes a esse tópico...

Por favor atualize seus fontes, faça testes, e se possível comente em uma nova resposta, se o problema foi resolvido...

Dúvidas, sobre o uso do SVN ?  Clique aqui e veja um vídeo

Consultor SAC ACBr

Daniel de Morais (Infocotidiano)
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

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.