Ir para conteúdo
  • Cadastre-se

dev botao

Validação do registro C180


  • Este tópico foi criado há 1268 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1268 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...