' VBScript File

    Sub FormatarDecimal(objCampo)	
		If Not isNumeric(objCampo.Value) Then
			objCampo.Value = FormatNumber(0, 2)
		Else
			objCampo.Value = FormatNumber(CDbl(objCampo.Value), 2)
		End If	
	End Sub


	Sub FormatarDecimalCustom(objCampo,QtdeCasas)
		If Not isNumeric(objCampo.Value) Then
			objCampo.Value = FormatNumber(0, QtdeCasas)
		Else
			objCampo.Value = FormatNumber(CDbl(objCampo.Value), QtdeCasas)
		End If	
	End Sub
	
	Sub ValidarDecimalParticipacao(Msg,Campo,Cod_Cobertura)		
	    Call FormatarDecimal(Campo)
	    If Campo.value > 100 then 
		    Msgbox "% de " & Msg & " não pode ser superior a 100%!"
			Campo.focus
		   Exit Sub
	    End If			
	End Sub		


	Sub ValidarDecimal(Msg,Campo)		
		Call FormatarDecimal(Campo)
		If Campo.value > 100 then 
			 Msgbox "% de " & Msg & " não pode ser superior a 100%!"
			 Campo.focus
			Exit Sub
		End If			
	End Sub