Remessa Santader - Codigotransmissao

[carlosmarian]

Olá,

  Recebi uma critica do banco Santander referente ao campo "Código de Transmissão" (Posição 18 até 37), e critica informado que o valor existente na capa difere dos valores dos itens.

  Ao avaliar o código, verifiquei que ao gerar a capa ele usa "padR" e para gerar as demais linhas é usado "padL", desta forma gera um valor diferente.

 

 

procedure TACBrBancoSantander.GerarRegistroHeader400(NumeroRemessa : Integer; aRemessa: TStringList);
var
  wLinha: String;
begin
   vTotalTitulos:= 0;
   with ACBrBanco.ACBrBoleto.Cedente do
   begin
      wLinha:= '0'                                        + // ID do Registro
               '1'                                        + // ID do Arquivo( 1 - Remessa)
               'REMESSA'                                  + // Literal de Remessa
               '01'                                       + // Código do Tipo de Serviço
               padL( 'COBRANCA', 15 )                     + // Descrição do tipo de serviço
               padR( CodigoTransmissao, 20, '0')          + // Codigo da Empresa no Banco
               padL( Nome, 30)                            + // Nome da Empresa
               '033'+ padL('SANTANDER', 15)               + // Código e Nome do Banco(237 - Bradesco)
               FormatDateTime('ddmmyy',Now)               + // Data de geração do arquivo + brancos
               StringOfChar( '0', 16)                     +
               Space(275)+ '000'                          + // Nr. Sequencial de Remessa + brancos
               IntToStrZero(1,6);                           // Nr. Sequencial de Remessa + brancos + Contador

      aRemessa.Text:= aRemessa.Text + UpperCase(wLinha);
   end;
end;

...
procedure TACBrBancoSantander.GerarRegistroTransacao400(ACBrTitulo :TACBrTitulo; aRemessa: TStringList);
var
...
      with ACBrBoleto do
      begin
         wLinha:= '1'                                                     +  // ID Registro
                  IfThen(Length(Cedente.CNPJCPF) > 12,'02','01')          +
                  padR(trim(OnlyNumber(Cedente.CNPJCPF)),14,'0')          +
                  padL(trim(Cedente.CodigoTransmissao),20,'0')            +
                  padL( SeuNumero ,25,' ')                                +
                  Copy(NossoNumero,6,7) + DigitoNossoNumero               +
...
         wLinha:= UpperCase(wLinha);

         for I := 0 to Mensagem.count-1 do
            wLinha:= wLinha + sLineBreak                         +
                     '2' + space(16)                             +
                     padL(Cedente.CodigoTransmissao,20,'0')      +
                     Space(10) + '01'                            +
...

 

 

 

 

Eu acredito que o correto seria usar a formatação com "padR" em todos os casos.

 

 

At+

[Juliana Tamizou]

Boa tarde.

 

Realmente  os pads devem estar  iguais em qualquer parte do código, após efetuar a mudança sua remessa foi homologada?

 

Att.

[carlosmarian]

Olá,

   estou efetuando mais alguns ajustes e vou encaminhar para nova Homologação.

   Vou ajustar para usar "padR" nos 3 casos e assim que tiver o retorno do banco eu repasso o resultado, OK?

 

at+

[carlosmarian]

Olá, tive retorno do banco referente ao código de transmissão.

A alteração resolveu este problema, em anexo correção.

 

Mas agora o cliente alega que estamos tendo uma critica no retorno, referente ao código do banco, vou verificar o que posso estar fazendo de errado.

 

 

at++

[carlosmarian]

Olá, tive retorno do banco referente ao código de transmissão.

A alteração resolveu este problema.

Mas agora o cliente alega que estamos tendo uma critica no retorno, referente ao código do banco, vou verificar o que posso estar fazendo de errado.

ACBrBancoSantander.pas