Erro No Processamento Do Sped Contábil Do Campo Cod_Plan_Ref

[Fernando Leite Barreto]

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;

[Juliomar Marchetti]

Bom dia

não seria você quem postou no tracker também sobre isso?

http://www.projetoacbr.com.br/forum/index.php?/tracker/issue-69-sped-efd-registro-i051/