DT PE MDT695VL Validação da Entrega de EPI

01. DADOS GERAIS

Produto:	TOTVS Medicina e Segurança do Trabalho
Linha de Produto:	Linha Protheus
Segmento:	RH
Módulo:	Medicina e Segurança do Trabalho
Função:	Funcionário x EPI (MDTA695)
Ticket:	Não há.
Issue:	Não há.

02. SITUAÇÃO/REQUISITO

Na rotina de Funcionário x EPI (MDTA695), criar um ponto de entrada que dispara no momento em que um EPI é entregue ao funcionário para que possa ser validada a inclusão.

03. SOLUÇÃO

Criado ponto de entrada MDT695VL na rotina de Funcionário x EPI (MDTA695), que será executado ao incluir um EPI, caso a resposta seja negativa, não será permitido a inclusão.

Descrição da variável:

nLinha: Número da linha corrente da validação.

Exemplo

#include "protheus.ch"

User Function MDT695VL

	Local nLinha := PARAMIXB[1]

	MsgYesNo( 'Deseja incluir o EPI da linha' + AllTrim( STR( nLinha ) ) + ' ?')

Return

04. DEMAIS INFORMAÇÕES

Não há.

05. ASSUNTOS RELACIONADOS