Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que realiza validação na gravação de Modelo x Medidas (MNTA532)

Atenção

Realizado conversão da rotina de Registro de saída de combustível(MNTA532) para MVC, por este motivo a chamada e utilização do ponto de entrada MNTA5321 deverá ser alterado para o novo modelo apresentado no exemplo abaixo. Vai estar disponível a partir da versão do fonte com a data de XX/XX/XXXX

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

SIGAMNT - Manutenção de Ativos e Gestão de Frotas

Rotina:

Rotina

Nome Técnico

MNTA532

Mod x Medida


Rotina(s) envolvida(s)

Nome Técnico

MNTA5321

Ponto de Entrada

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos


Ponto de Entrada

Descrição:

Ponto de entrada executado na rotina de Modelo x Medidas (MNTA532) que realiza validação ao confirmar o registro

Programa Fonte:

MNTA532.prx
Localização:SIGAMNT: Atualizações/Controle de Pneus/Pneus/Mod x Medida

Função:

MNTA5321()
Parâmetro:
NomeTipoDescriçãoObrigatório
PARAMIXB[1]objetoCarrega o modelo ativo da rotinaX

Retorno:

NomeTipoDescriçãoObrigatório
lReturnLógicoSe as informações estiverem de acordo com a validação, retorno verdadeiro (.T.), caso contrário, retorna falso (.F.)X
Exemplo do Ponto de Entrada MNTA5321()
Exemplo 1 - Com MVC

#Include 'TOTVS.ch'
#Include 'FWMVCDEF.ch'
 
User Function MNTA5321()
     
    Local oModel5321
    Local lReturn := .T.
     
    If Type('PARAMIXB') == 'A'
 
		oModel5321 := PARAMIXB[1]
         
        If oModel5321:GetValue('MNTA532_TQX', 'TQX_CALMAX') == ' '
             
            lReturn := .F.
         
        EndIf
         
        If !lReturn
             
            MsgInfo("O campo TQX_CALMAX deve ser informado")
         
        EndIf
 
    EndIf
     
Return lReturn

Exemplo 2 - Sem MVC

#Include 'Protheus.ch'
 
User Function MNTA5321()
     
    Local lRet := .T.
 
    MsgInfo("Ponto de Entrada para validar a gravação.","P.E. MNTA5321")
     
Return lRet