Bradesco Sicoob

[Rodrigo Guelf]

Estou homologando para o banco BradescoSicoob e eles retornaram o seguinte erro:

 

Header

- 109 a 110 - Identificação do sistema: Fixar MX

Olhei no manual deles e ele pedem MX e o codigo esta gerando SX.

Segue a rotina do arquivo "ACBrBancoBradescoSICOOB.pas" que esta gerando o codigo errado:

procedure TACBrBancoBradescoSICOOB.GerarRegistroHeader400(NumeroRemessa : Integer; ARemessa:TStringList);
var
  wLinha: String;
begin
   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
               PadRight( 'COBRANCA', 15 )                          + // Descrição do tipo de serviço
               PadLeft( Agencia + AgenciaDigito, 13, '0')         + // Código da Cooperativa
               PadLeft( CodigoCedente, 7, '0')                    + // Código de Cobrança
               PadRight( Nome, 30)                                 + // Nome da Empresa
               IntToStr( 756 ) + PadRight('BANCOOB', 15)           + // Código e Nome do Banco(756 - Sicoob)
               FormatDateTime('ddmmyy',Now)  + Space(08)       + // Data de geração do arquivo + brancos
               'SX'                                            + // Identificação do Sistema
               IntToStrZero(NumeroRemessa,7) + Space(277)      + // Nr. Sequencial de Remessa + brancos
               IntToStrZero(1,6);                                // Nr. Sequencial de Remessa + brancos + Contador

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

 

Segue o manual em anexo onde mostra que o correto é MX

 

Aguardo.

 

mHomologacaoLayout400CentralSP.pdf