Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

MT640VLD - Obriga Preenchimento do Recurso no

Cadstro

Cadastro 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
Default
Obrigatório
Referência

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.

Bloco de código
themeConfluence
titleExemplo:
linenumberstrue
 #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