User Function MDTA6958()
	Local nPosChv 	:= PARAMIXB[1]	//Compatibilidade
	Local aChvTNF 	:= PARAMIXB[2]	//Compatibilidade
	Local nPosTNF 	:= PARAMIXB[3]	//Posição do cursor na Grid
	Local cCodEPI 	:= PARAMIXB[4]	//Valor do código do EPI (TNF_CODEPI)
	Local dDtEntr 	:= PARAMIXB[5]	//Valor do campo Data Entrega (TNF_DTENTR)
	Local cHrEntr 	:= PARAMIXB[6]	//Valor do campo Hora Entrega (TNF_HRENTR)
	Local cIndDevol := PARAMIXB[7]	//Valor do campo Situação EPI (TNF_INDDEV)
	Local aColsAux 	:= PARAMIXB[8]	//Os valores presentes na grid de EPI's
	Local aCOLStnf 	:= PARAMIXB[9]	//Valor da grid antes das alterações
	Local nPOSEpi 	:= PARAMIXB[10]	//Posição do campo Código do EPI (TNF_CODEPI)
	Local nPosDtEn 	:= PARAMIXB[11]	//Posição do campo Data Entrega na grid de EPI's
	Local nPosHrEn 	:= PARAMIXB[12]	//Posição do campo Hora Entrega na grid de EPI's
	Local lFound 	:= PARAMIXB[13]	//Compatibilidade
	Local lRET 		:= PARAMIXB[14]	//Valor que define se a linha que está sendo alterada ou incluída é válida ou não
	Local l695Auto 	:= PARAMIXB[15]	//Define a utilização da rotina automática
	Local cUsaInt1 	:= PARAMIXB[16]	//Integracao do SIGAMDT com o Estoque, parâmetro MV_NGMDTES
	Local dDataBloq := PARAMIXB[17]	//Valor do parâmetro MV_DBLQMOV
	Local dDtDevol 	:= PARAMIXB[18]	//Valor do campo Data Devol. (TNF_DTDEVO)
	Local nQntDevol := PARAMIXB[19]	//Valor do campo Quant.Devol ()
	Local nQntEntr 	:= PARAMIXB[20]	//Valor do campo Quant. Entr. (TNF_QTDENT)
	Local oGetAux 	:= PARAMIXB[21]	//Objeto que monta a tela
	/* Ponto de entrada para operações adicionais na Entrega de EPI */
	If( aColsAux[ n , nPosDtEn ] <= dDataBloq .And. !Empty( aColsAux[ n , nPosDtEn ] ) )
			ShowHelpDlg( "ATENÇÃO", { "A data de entrega informada está bloqueada para movimentos." } , 1 ,;
									{ "Favor verificar o parâmetro MV_DBLQMOV." } , 2 )
	EndIf

Return aColsAux