SICREDI - Erro remessa

OlavoJr · 4 Dezembro, 2015

Na geração do SICREDI arquivo layout 400 no registro INFORMATIVO foi adicionado um tempo atrás uma condição para o atributo "wModalidade" e gerar o "nosso numero", com isso a posição 008 a 017 ficou em duplicidade por que "não foi removido a linha que já fazia isso de forma fixa", para correção é necessário remover a linha 430, abaixo esta o codigo mostrando a alteração e coloquei em anexo caso desejem subir no svn.

ANTES:

wLinha:= '5' + // 001 a 001 - Identificação do registro Informativo
'E' + // 002 a 002 - Tipo de informativo
PadLeft( ACBrBanco.ACBrBoleto.Cedente.CodigoCedente, 5, '0')+ // 003 a 004 - Codigo do Cedente
ifthen(wModalidade = 'A', PadRight(NumeroDocumento, 10),
padLeft(wNossoNumeroCompleto,10,'0')) + // 008 a 017 - Seu numero
PadRight( NumeroDocumento, 10) + // 008 a 017 - Seu numero
Space(1) + // 018 a 018 - Filler
wModalidade + // 019 a 019 - "A"-Com registro "C"-Sem registro
TextoRegInfo + // 020 a 347
Space(47) + // 348 a 394 - Filler
IntToStrZero( ARemessa.Count + 1, 6); // 395 a 400 - Número sequencial do registro
ARemessa.Text:= ARemessa.Text + UpperCase(wLinha);

DEPOIS:

wLinha:= '5' + // 001 a 001 - Identificação do registro Informativo
'E' + // 002 a 002 - Tipo de informativo
PadLeft( ACBrBanco.ACBrBoleto.Cedente.CodigoCedente, 5, '0')+ // 003 a 004 - Codigo do Cedente
ifthen(wModalidade = 'A', PadRight(NumeroDocumento, 10),
padLeft(wNossoNumeroCompleto,10,'0')) + // 008 a 017 - Seu numero
Space(1) + // 018 a 018 - Filler
wModalidade + // 019 a 019 - "A"-Com registro "C"-Sem registro
TextoRegInfo + // 020 a 347
Space(47) + // 348 a 394 - Filler
IntToStrZero( ARemessa.Count + 1, 6); // 395 a 400 - Número sequencial do registro
ARemessa.Text:= ARemessa.Text + UpperCase(wLinha);

ACBrBancoSicredi.pas