Histórico da Página

#INCLUDE "PROTHEUS.CH"
User Function GFEA0514()
Local lRetorno := .FT.
 
	dbSelectArea('GW1')
	GW1->(dbSetOrder(1)) //GW1_FILIAL+GW1_CDTPDC+GW1_EMISDC+GW1_SERDC+GW1_NRDC
	
	If GW1->(dbSeek(GWU->(GWU_FILIAL+GWU_CDTPDC+GWU_EMISDC+GWU_SERDC+GWU_NRDC)))
		If GW1->GW1_TPFRET == "6"
			Help( ,, 'HELP',, "Trecho inválido para registro de entrega.", 1, 0,)
			lRetorno := .F.
		EndIf
	EndIf

Return lRetorno