Histórico da Página

Local
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


        		EndIf
		(cAliGW3)->( dbSkip() )


    	EndDo


    	RestArea(aAreaGW3)


Return aRotina

Return aRotina