Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que valida a sobreposição de insumos conforme informações cadastradas no banco de dados, na rotina de Retorno Simplificado (MNTA415)

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

MNTA415

Simplificado




Rotina(s) envolvida(s)

Nome Técnico

MNT41508

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 Retorno Simplificado (MNTA415) para validação de sobreposição de insumos considerando informações já cadastradas no banco de dados

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Retorno de O.S./Simplificado

Programa Fonte:

MNTA415.prx

Função:

MNT41508()

Parâmetros:
NomeTipoDescrição
ParamIXB[1]NuméricoIndica a linha do aCols a ser validada

Retorno:

Nome

Tipo

Descrição

Obrigatório

 lOk

Lógico

Indica se a linha está dentro dos parâmetros

X

 

Exemplo do Ponto de Entrada MNT41508()
#INCLUDE "PROTHEUS.CH"

User Function MNT41508()

	Local lOk    := .F.
	Local nLinha := PARAMIXB[1] //Parâmetro indicando a linha do aCols que será consistido

	Local nCODIGO := GdFieldPos("TL_CODIGO")
	Local nDATAIN := GdFieldPos("TL_DTINICI")
	Local nHORAIN := GdFieldPos("TL_HOINICI")
	Local nDATAFI := GdFieldPos("TL_DTFIM")
	Local nHORAFI := GdFieldPos("TL_HOFIM")
	Local nTIPORE := GdFieldPos("TL_TIPOREG")

	lOk := NGVDTINS(aCols[nLinha][nCODIGO],aCols[nLinha][nDATAIN],aCols[nLinha][nHORAIN],aCols[nLinha][nDATAFI],aCols[nLinha][nHORAFI],aCols[nLinha][nTIPORE])

	If lOk
		//Consistencia específica
		lOk := !Empty(aCols[nLinha][nDATAIN])
	EndIf

Return lOk