P200BLQOP - Bloqueia a operação no cadastro de estrutura

Linha de Produto:

Protheus

Segmento:

Manufatura

Módulo:

SIGAPCP - Planejamento e Controle da Produção

Parâmetro(s):

Nome

Tipo

Descrição

Default

Obrigatório

Referência

PARAMIXB[1]

Numérico

Indica a operação selecionada:

2 - Visualizar

3 - Incluir

4 - Alterar

5 - Excluir

Idiomas:

Todos

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Descrição:	O ponto de entrada P200BLQOP é executado ao selecionar uma das operações: Visualizar, Incluir, Alterar ou Excluir.
Localização:	Function PCPA200MNU - Função que trata e executa a view do PCPA200.
Eventos:	Ao selecionar uma das operações no PCPA200: Visualização, Inclusão, Alteração ou Exclusão.
Programa Fonte:	PCPA200.PRW
Sintaxe:	P200BLQOP ( [ nOperacao ] ) --> lRet
Retorno:	lRet - Indica se a operação pode ser acessada ou não. Retorno obrigatório do tipo Lógico.
Observações:

#INCLUDE "TOTVS.CH"

User Function P200BLQOP()
	Local nOperacao := PARAMIXB[1]
	Local lRet      := .T.
	/*
		nOperacao == 2 (Visualizar)
		nOperacao == 3 (Incluir)
		nOperacao == 4 (Alterar)
		nOperacao == 5 (Excluir)
	*/
	If nOperacao == 5
		Help( ,  , "Help", , "Não é permitido excluir estruturas.", 1, 0, , , , , , {"Execute outra operação."})
		lRet := .F.
	EndIf

Return lRet