MDTA6954 - Validação da tela de Funcionário x EPI -- 30114

Ponto-de-Entrada: MDTA6954 - Validação da tela de Funcionário x EPI

Abrangências:	Microsiga Protheus 10
Versões:	Microsiga Protheus 10
Compatível Países:	Todos
Sistemas Operacionais:	Todos
Compatível às Bases de Dados:	Todos
Idiomas:	Espanhol , Inglês

Descrição:

Ponto de entrada chamado na validação da tela de Funcionário x EPI, após validar as linhas de EPI’s, como última validação a ser realizada. Através desse ponto de entrada é possível realizar validações e gravações específicas.

Programa Fonte

MDTA695.PRX

Sintaxe

MDTA6954 - Validação da tela de Funcionário x EPI ( < aCols> , < aHEADER> ) --> lRet

Parâmetros:

Nome

Tipo

Descrição

Default

Obrigatório

Referência

aCols

Array of Record

Variável contendo as linhas do GetDados - EPI's.

X

aHEADER

Array of Record

Variável contendo a estrutura do aCols.

X

Retorno

lRet

Retorno da validação.

Exemplos

#include "rwmake.ch"      User Function MDTA6954()Local lRet := .T.Local aCols1 := {}Local aHead1 := {}Local nX//Carrega variaveisIf Type("ParamIxb") == "A"	aCols1 := aClone(ParamIXB[1])	aHead1 := aClone(ParamIXB[2])EndIfIf Len(aCols1) > 0		nDtEnt := aSCAN( aHead1, { |x| AllTrim( Upper(x[2]) ) == "TNF_DTENTR"})		For nX := 1 To Len(aCols1)		If !aCols1[nX][Len(aCols1[nX])]			If aCols1[nX,nDtEnt] > (dDataBase-2)				lRet := .F.			EndIf		EndIf	Next nX	EndIfIf !lRet	lRet := MsgYesNo("Alerta de data entrega. Confirma ?","EPI's")Else	MsgInfo("Não houveram inconsistências de data entrega.","EPI's")EndIfReturn lRet

Veja Também

MDT695VL - Consiste os Epis Informados ao Validar a Inclusão.

Home

Linha Microsiga Protheus

Páginas filhas