MT640VLD - Obriga Preenchimento do Recurso no Cadstro de Exceções ao Calendário

Linha de Produto:

Protheus

Segmento:

Manufatura

Módulo:

SIGAPCP - Planejamento e Controle da Produção

Parâmetro(s):

Nome	Tipo	Descrição
PARAMIXB[1]	Numérico	Opção Selecionada - nOpc (vide Observação)
PARAMIXB[2]	Caracter	Conteúdo do Campo Recurso - c640Rec
PARAMIXB[3]	Caracter	Conteúdo do Campo Centro de Custo - c640CCusto

Ponto de Entrada:

MT640VLD - Obriga Preenchimento do Recurso no Cadastro de Exceção de Calendário

País(es):

Todos

Idioma:

Português(Brasil)

Banco(s) de Dados:

Todos

Tabelas utilizadas:

Sistema(s) operacional(is):

Todos

Versões/Release:

Microsiga_Protheus 12.1.21

Descrição:	Permite obrigar a informação o recurso no cadastro de exceção de calendário.
Localização:	MATA640 - Exceções ao Calendário
Programa Fonte:	MATA640.prw
Retorno:	Lógico (.F. - Retorna indicando que não passou das validações e não efetiva o cadastro / .T. - Retorna indicando que passou das validações e efetiva o cadastro.)
Observações:	Este ponto de entrada permite que sejam realizadas consistências antes da efetivação do cadastro de exceção ao calendário. Foram disponibilizados os campos de recurso e centro de custo que não são obrigatório no cadastro padrão, e estes podem ser consistidos no ponto de entrada. O campo nOpc disponibilizado como parâmetro pode possuir seguintes valores: 3 - Incluir, 4 - Alterar, 5 - Excluir, 2 - Visualizar.

Exemplo:

 #Include 'Protheus.ch'
 
User Function MT640VLD()
    Local lRet       := .T. //Variável do tipo lógico para retorno da função.
    Local nOpc       := PARAMIXB[1] // Variável para receber o parâmetro de opção selecionada.
    Local c640Rec    := PARAMIXB[2] // Variável para receber o parâmetro com o valor do recurso.
    Local c640CCusto := PARAMIXB[3] // Variável para receber o parâmetro com o valor do centro de custo.

    If Empty(c640Rec) // Se o recurso não estiver preenchido.
        Help( ,, 'Help',, "O Campo Recurso deve ser informado!", 1, 0 ) //Apresenta mensagem de ajuda informando o usuário.
        lRet := .F. //Passa a variável de retorno para falso.
    EndIf

Return lRet

Page tree

MT640VLD - Obriga Preenchimento do Recurso no Cadastro de Exceções ao Calendário

MT640VLD - Obriga Preenchimento do Recurso no Cadstro de Exceções ao Calendário