Estou com um problema na validação do registro I051 no campo COD_PLAN_REF pelo novo validador 3.1.8 ele está dando a mensagem: Código do tipo de plano não encontrado na Tabela de Tipo de Planos da ECF.
No manual de 04/03/15 os valores possíveis seria 10 e 20 já no validador possuir as opções:
1 - PJ em Geral
2 - PJ em Geral - Lucro presumido
3 - Financeiras
4 - Seguradoras
5 - Imunes e Isentas em Geral
6 - Imunes e Isentas - Financeiras
7 - Imunes e Isentas - Seguradoras
8 - Entidades Fechadas e Previdência Complementar
9 - Partidos Políticos
Portanto, se faz necessário alterar a procedure abaixo:
procedure TBloco_I.WriteRegistroI051(RegI050: TRegistroI050);
var
intFor: integer;
begin
if Assigned(RegI050.RegistroI051) then
begin
for intFor := 0 to RegI050.RegistroI051.Count - 1 do
begin
with RegI050.RegistroI051.Items[intFor] do
begin
///
Add( LFill('I051') +
LFill(COD_PLAN_REF) + // Linha Antiga: LFill(COD_PLAN_REF, 2) +
LFill(COD_CCUS) +
LFill(COD_CTA_REF)
);
end;
FRegistroI990.QTD_LIN_I := FRegistroI990.QTD_LIN_I + 1;
end;
FRegistroI051Count := FRegistroI051Count + RegI050.RegistroI051.Count;
end;
end;