Validação do registro C180

[Joas Vilas Boas Fernandes]

na Procedure TBloco_C.WriteRegistroC180(RegC170: TRegistroC170) tenho uma sugestão de validação:

procedure TBloco_C.WriteRegistroC180(RegC170: TRegistroC170);
....
     if RegC170.RegistroC180.Count > 0 then
     begin
        if (RegC100.IND_OPER in [tpSaidaPrestacao]) then
           Check(False, 'O RegistroC180, não deve ser gerado em movimentações de saída,  conforme ATO COTEPE 09/08');

        if (RegC100.IND_OPER in [tpEntradaAquisicao])
        and (FBloco_0.Registro0000.IND_PERFIL in [pfPerfilC]) then
           Check(False, 'O RegistroC180, não deve ser gerado em movimentações de entrada no %s, conforme ATO COTEPE 09/08', ['PerfilC']);
     end;

----

So gerar o registro para entrada no perfil A e B.

ACBrEFDBloco_C_Class.pas

[Joas Vilas Boas Fernandes]

Favor ignorar post anterior.