Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Produto:

TOTVS Manutenção de Ativos

Linha de Produto:

Linha Protheus

Segmento:

Manufatura

Módulo:

TOTVS Manufatura (Linha Protheus) - Manutenção de ativos (SIGAMNT)

Função:

MNTA985E()

País:Brasil


02. DESCRIÇÃO

Descrição:

Ponto de entrada para tratamento de validação de inclusão e gravação de veículos, na aba Visitantes da rotina de controle de portaria.

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Controle de Portaria/Portaria
Programa Fonte:MNTA985.prx

Função:

MNTA985E

Parâmetros:

NomeTipoDescrição
lENTRADA LógicoIndica se é uma entrada de veiculo.
lSAIDA LógicoIndica se é uma saída de veiculo.
{(cTRBVis)->FILIAL, (cTRBVis)->PLACA, (cTRBVis)->DOCMOT}ArrayIndica os dados de Filial, Placa e Documento do Motorista

Retorno:

TipoDescriçãoObrigatório

Lógico

Indica se a validação foi feita

Sim

03. DEMAIS INFORMAÇÕES

Exemplo MNTA985E()
#include "Protheus.ch"
 
User Function MNTA985E()
 
    Local lEntra := ParamIXB[1]
    Local lSai := ParamIXB[2]
    Local aInfo := aClone(ParamIXB[3])
    Local lRetorno := .T.
 
    //Mensagens em tela para Entrada/Saída de Veículos Visitantes.
    If lEntra //Caso seja entrada de veículo.
        If !MsgYesNo("Deseja realizar um cadastro de entrada de visitante?")
            lRetorno := .F.
        EndIf
    ElseIf lSai //Caso seja saída de veículo.
        If !MsgYesNo("Deseja realizar uma confirmação de saída de visitante?")
            lRetorno := .F.
        EndIf
    EndIf
 
Return lRetorno


04. ASSUNTOS RELACIONADOS

  • Não se aplica.