Histórico da Página

User Function XGFE070A()
Local cFilial := PARAMIXB[1]
Local cEmiFat := PARAMIXB[2]
Local cSerFat := PARAMIXB[3]
Local cNrFat  := PARAMIXB[4]
Local cDtEmis := PARAMIXB[5]
Local cAliGW3 := PARAMIXB[6]
local aRotina := .T.
Local aAreaGW3  := (cAliGW3)->(getArea())
	dbSelectArea("GW6")
	GW6->( dbSetOrder(1) )
	If GW6->(dbSeek(cFilial + cEsp + cEmisDf + cSerie + cNrDc + DTOS(dDtEmis)))
		// Se documento não está aprovado no ECM não permite vincular na fatura
		aRotina := .F.
	EndIf
	dbSelectArea(cAliGW3)
	(cAliGW3)->( dbSetOrder(1) )
	(cAliGW3)->( dbGoTop() )
	While !(cAliGW3)->( Eof() )
		If (cAliGW3)->OK == cMarca
			Alert("Registro marcado")
			aRotina := .F.
		EndIf
		(cAliGW3)->( dbSkip() )
	EndDo
	RestArea(aAreaGW3)
Return aRotina