Histórico da Página

User Function MNTA4352()

	Local cQuery
	Local cAliasQry := GetNextAlias()
	Local nRetorno  := ParamIXB[1]

	cAliasQry := GetNextAlias()
	
	cQuery := " SELECT CP_PREREQU FROM " + RetSqlName( "SCP" )
	cQuery += " WHERE SUBSTRING(CP_OP, 1, 6)  = '" + STJ->TJ_ORDEM + "'"
	cQuery += " AND CP_PREREQU = 'S' "
	cQuery += " AND D_E_L_E_T_ <> '*' "
	
	cQuery := ChangeQuery(cQuery)
	
	dbUseArea( .T., "TOPCONN", TCGENQRY(,, cQuery), cAliasQry, .F., .T.)
 
	dbSelectArea( cAliasQry )
	If (cAliasQry)->CP_PREREQU == "S"
		MsgInfo( "A O.S. n�onão poder�poderá ser finalizada pois existe uma S.A para o produto." )
		nRetorno := 2
	EndIf
	
	(cAliasQry)->( dbCloseArea() )
	
Return nRetorno