"Devido a mudança de Razão Social da Cooperativa, pedimos que altere em seu Boleto da Cobrança e na remessa alterar a posição grifada abaixo no Header do Arquivo"
modificação necessária na Unit ACBrUniprimeNortePR.pas
procedure TACBrUniprimeNortePR.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( CodigoCedente, 20, '0') + // Codigo da Empresa no Banco
PadRight( Nome, 30) + // Nome da Empresa
FormatFloat( '000', Numero) + PadRight('SISPRIME', 15) + // Código e Nome do Banco(084 - Uniprime)
FormatDateTime('ddmmyy',Now) + Space(08)+'MX' + // Data de geração do arquivo + brancos
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;