Histórico da Página

#Include 'Protheus.ch'
User Function GFEA0551()
	Local cNRCALC := PARAMIXB[1]
	Local cTPCALC := PARAMIXB[2]
	Local lRet := .T.
	
	ifIf cTPCALC == '7'
	
		cQuery := " SELECT *" 	
		cQuery += "FROM " + RetSQLName("GWF") + " GWF "
		cQuery += "WHERE "
		cQuery += " GWF_NRCALC = '"  + cNRCALC + "' AND "
		cQuery += " GWF_TPCALC = '"  + cTPCALC + "' AND "						
		cQuery += " GWF.D_E_L_E_T_ = ''"			
		cQuery := ChangeQuery(cQuery)		
		
		cAliasGWF := GetNextAlias()
		dbUseArea( .T., "TOPCONN", TCGENQRY(,,cQuery),cAliasGWF, .F., .T.)
		
		dbSelectArea(cAliasGWF)
		(cAliasGWF)->( dbGoTop() )
		While !(cAliasGWF)->(Eof())	
		
			IFIf alltrimAlltrim((cAliasGWF)->GWF_CDTPSE) == "DESCARGA"
			
				ifIf SuperGetMv("MV_XPFDES",.F.,"") == '1' //Serviços
					lRet := .T.
				elseElse
					lRet := .F.
				endifEndIf				
			
			ENDIFEndIf
		
			(cAliasGWF)->(dbSkip())
		EndDo	
		(cAliasGWF)->( dbCloseArea() )	
	
	endif
Return lRet