Santander COdMotivoRejeicaoToDescricao

[aslsoftware]

Boa tarde,

Alguém saberia me dizer o porque que no manual do santander o retorno está conforme abaixo com 2 digitos para cada código  de erro e no acbrboleto está com 3 digitos? Veja exemplo abaixo.

Diga-se de passagem que a descrição também não confere.

trecho retirado do manual do Satander versão setembro/2009.

01 código do banco invalido
02 código do registro detalhe inválido
03 código do segmento invalido
04 código do movimento não permitido para carteira
05 código de movimento invalido
06 tipo/numero de inscrição do cedente inválidos
07 agencia/conta/DV invalido
08 nosso numero invalido
09 nosso numero duplicado

trecho retirado do ACBrBancoSantander.pas

    001: Result := '001-NOSSO NUMERO NAO NUMERICO';
    002: Result := '002-VALOR DO ABATIMENTO NAO NUMERICO';
    003: Result := '003-DATA VENCIMENTO NAO NUMERICA';
    004: Result := '004-CONTA COBRANCA NAO NUMERICA';
    005: Result := '005-CODIGO DA CARTEIRA NAO NUMERICO';
    006: Result := '006-CODIGO DA CARTEIRA INVALIDO';
    007: Result := '007-ESPECIE DO DOCUMENTO INVALIDA';
    008: Result := '008-UNIDADE DE VALOR NAO NUMERICA';
    009: Result := '009-UNIDADE DE VALOR INVALIDA';

Agradeço a ajuda.

[drsmoreira]

Boa tarde!

    Realmente eu vi que esses retornos são do CNAB 400, pro CNAB 240 não achei, por isso, fiz uma alteração no .pas, criando um conversor :    

function CodMotivoRejeicaoToDescricao(const TipoOcorrencia:TACBrTipoOcorrencia; CodMotivo:string): String; override;

function TACBrBancoSantander.CodMotivoRejeicaoToDescricao(const TipoOcorrencia: TACBrTipoOcorrencia; CodMotivo: string): String;
var
  cod_motivointeiro : integer;
begin
  //Ocorrências 03, 26 e 30
      if CodMotivo <> '' then cod_motivointeiro := StrToInt(CodMotivo);
      case cod_motivointeiro of
        01 : Result := 'Código do banco invalido';
        02 : Result := 'Código do registro detalhe inválido';
        03 : Result := 'Código do segmento invalido';
        04 : Result := 'Código do movimento não permitido para carteira';
        05 : Result := 'Código de movimento invalido';
        06 : Result := 'Tipo/numero de inscrição do cedente inválidos';
        07 : Result := 'Agência/conta/DV invalido';
        08 : Result := 'Nosso numero invalido';
        09 : Result := 'Nosso numero duplicado';
        10 : Result := 'Carteira invalida';
        11 : Result := 'Forma de cadastramento do titulo invalida Se desconto, titulo rejeitado - operação de desconto / horário limite.';
        12 : Result := 'tipo de documento invalido';
        13 : Result := 'identificação da emissão do Boleto invalida';
        14 : Result := 'identificação da distribuição do Boleto invalida';
        15 : Result := 'características da cobrança incompatíveis';
        16 : Result := 'data de vencimento invalida';
        17 : Result := 'data de vencimento anterior a data de emissão';
        18 : Result := 'vencimento fora do prazo de operação';
        19 : Result := 'titulo a cargo de bancos correspondentes com vencimento inferior a xx dias';
        20 : Result := 'valor do título invalido';
        21 : Result := 'espécie do titulo invalida';
        22 : Result := 'espécie não permitida para a carteira';
        23 : Result := 'aceite invalido';
        24 : Result := 'Data de emissão inválida';
        25 : Result := 'Data de emissão posterior a data de entrada';
        26 : Result := 'Código de juros de mora inválido';
        27 : Result := 'Valor/Taxa de juros de mora inválido';
        28 : Result := 'Código de desconto inválido';
        29 : Result := 'Valor do desconto maior ou igual ao valor do título';
        30 : Result := 'Desconto a conceder não confere';
        31 : Result := 'Concessão de desconto - já existe desconto anterior';
        32 : Result := 'Valor do IOF';
        33 : Result := 'Valor do abatimento inválido';
        34 : Result := 'Valor do abatimento maior ou igual ao valor do título';
        35 : Result := 'Abatimento a conceder não confere';
        36 : Result := 'Concessão de abatimento - já existe abatimento anterior';
        37 : Result := 'Código para protesto inválido';
        38 : Result := 'Prazo para protesto inválido';
        39 : Result := 'Pedido de protesto não permitido para o título';
        40 : Result := 'Título com ordem de protesto emitida';
        41 : Result := 'Pedido de cancelamento/sustação para títulos sem instrução de protesto';
        42 : Result := 'Código para baixa/devolução inválido';
        43 : Result := 'Prazo para baixa/devolução inválido';
        44 : Result := 'Código de moeda inválido';
        45 : Result := 'Nome do sacados não informado';
        46 : Result := 'Tipo /Número de inscrição do sacado inválidos';
        47 : Result := 'Endereço do sacado não informado';
        48 : Result := 'CEP inválido';
        49 : Result := 'CEP sem praça de cobrança (não localizado)';
        50 : Result := 'CEP referente a um Banco Correspondente';
        51 : Result := 'CEP incompatível com a unidade de federação';
        52 : Result := 'Unidade de federação inválida';
        53 : Result := 'Tipo/Número de inscrição do sacador/avalista inválidos';
        54 : Result := 'Sacador/Avalista não informado';
        55 : Result := 'Nosso número no Banco Correspondente não informado';
        56 : Result := 'Código do Banco Correspondente não informado';
        57 : Result := 'Código da multa inválido';
        58 : Result := 'Data da multa inválida';
        59 : Result := 'Valor/Percentual da multa inválido';
        60 : Result := 'Movimento para título não cadastrado';
        61 : Result := 'Alteração de agência cobradora/dv inválida';
        62 : Result := 'Tipo de impressão inválido';
        63 : Result := 'Entrada para título já cadastrado';
        64 : Result := 'Número da linha inválido';
      end;
end;

e no retorno do CNAB 240 : 

           Titulo.DescricaoMotivoRejeicaoComando.Add(CodMotivoRejeicaoToDescricao(
                                                     Titulo.OcorrenciaOriginal.Tipo, IntToStr(CodMotivo)));
 

 

ACBrBancoSantander.pas