Gestão de Pessoas - Manual do Usuário > Customizações > Regras > Regras por Processo > Regra por processo 598 - Excluir medicamento receita

Regra por processo 598 - Excluir medicamento receita

Esta regra será executada ao excluir um medicamento (Ctrl + Del) na tela de receita médica, grade Medicamentos.

Recursos utilizados: Na regra, os registros podem ser alterados diretamente através do comando 'TABELA.CAMPO', sendo que está disponível os campos da tabela R110MRM para leitura ou alteração dos valores. Se houver campo de usuário, será possível alterá-los somente através do comando ExecSQL.

Comando Cancel: O comando Cancel() funciona da seguinte forma:
Cancel(1) = Cancela alteração realizada na regra para o registro em específico. Caso exista mais remédios na grade que chamarão regras, estas continuarão a serem executadas.
Cancel(2) = Cancela todo o processo do botão 'Alterar'. Ou seja, irá cancelar a execução da regra atual e nenhuma outra regra será executada, cancela o processo de alteração dos registros.

Exemplo:

Definir Alfa xNumRec;
Definir Alfa xCodRem;
Definir Alfa xMsg;

IntParaAlfa(R110MRC.NumRec, xNumRec);
IntParaAlfa(R110MRM.CodRem, xCodRem);
xMsg = "Excluiu remédio " + xCodRem + "(Regra de excluir remédio) na receita " + xNumRec;

Se (R110MRM.CodRem <> 4)
Mensagem(Retorna, xMsg);
Senao
Cancel(1); /* Se for o remédio for de código 4 cancela regra */

Utilização: Esta regra por processo está relacionada aos procedimentos do atendimento médico no Medicina, e será chamada ao efetuar processamento na tela Medicina > Atendimentos > Atendimento - botão Receita e Medicina > Atendimentos > Receita Médica - grade Medicamentos.