Jump to content

dev botao

Validação do registro C180


  • Este tópico foi criado há 1467 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 to comment
Share on other sites

  • Este tópico foi criado há 1467 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.