Santader - Campo Aceite

[SaraHidalgo]

Boa tarde,

Estou configurando uma carteira do Santander (101-Rápida com Registro) com o campo "Aceite" = S.
O problema está no arquivo de remessa, que trabalha com os valores "N" ou "S", e, ao importar este arquivo no site do banco, o mesmo é rejeitado com o erro "Código de aceite diferente de (A/N)".

No manual do banco está definido que o campo é travado como "N", tanto no arquivo de 400 quanto de 240 posições, mas, no site no banco é aceito o valor "A" ou "N".

Fiz a alteração no fonte:

240 posições:
 {SEGMENTO P}
    Result := '033'                                                   + // 001 - 003 / Código do Banco na compensação
........
              Space(1)                                                + // 106 - 106 / Reservado (uso Banco)
              sEspecie                                                + // 107 – 108 / Espécie do título
              //ifThen(Aceite = atSim,  'S', 'N')                       + // 109 - 109 / Identif. de título Aceito/Não Aceito
              ifThen(Aceite = atSim, 'A', 'N')                       + // 109 - 109 / Identif. de título Aceito/Não Aceito
              FormatDateTime('ddmmyyyy',DataDocumento)                + // 110 - 117 / Data da emissão do título
......
    {SEGMENTO P - FIM}

 

400 posições:

         wLinha:= '1'                                                         +  // 1- ID Registro
................
                  IntToStrZero( round( ValorDocumento * 100), 13)             +  // 127 a 139
                  '033' + aAgencia                                            +  // 140 a 147
//                  PadRight(aEspecie,2) + 'N'                                  +  // 148 a 150
                  PadRight(aEspecie,2)                                        +  // 148 a 149
                  ifThen(Aceite = atSim, 'A', 'N')                            +  // 150
                  FormatDateTime( 'ddmmyy', DataDocumento )                   +  // 151 a 156
..................
                  IntToStrZero( aRemessa.Count + 1, 6 );                         // 395 a 400


Em anexo o arquivo .pas para análise e aprovação.

Obrigada.
 

 

ACBrBancoSantander.pas