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 do 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. |
#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