Histórico da Página
MT640VLD - Obriga Preenchimento do Recurso no
CadastroCadstro de Exceções ao Calendário
Linha de Produto: | Protheus | ||||||||||||||||||||||||||||||||||||||||||||||||||||
Segmento: | Manufatura | ||||||||||||||||||||||||||||||||||||||||||||||||||||
Módulo: | SIGAPCP - Planejamento e Controle da Produção | ||||||||||||||||||||||||||||||||||||||||||||||||||||
Parâmetro(s): |
| ||||||||||||||||||||||||||||||||||||||||||||||||||||
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. |
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#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 |