'*** Solo permite números positivos
sub KeyNumberPos()	
	keyCode = window.event.keyCode
	if (keyCode = 13) then exit sub
	'if (keyCode = 45) then exit sub
	If keyCode < 48 or keyCode > 57 then
		window.event.keyCode=0
	End if
End sub

'*** Solo permite números
sub KeyNumber()	
	keyCode = window.event.keyCode
	if (keyCode = 13) then exit sub
	if (keyCode = 45) then exit sub
	If keyCode < 48 or keyCode > 57 then
		window.event.keyCode=0
	End if
End sub

'*** Solo permite números con o sin decimales (.=46|,=44)
sub KeyMoney(sep)
	keyCode = window.event.keyCode
	if (keyCode = 13) then 
		window.event.keyCode=0
	    exit sub 
	end if
	if (keyCode = 45) then 
		window.event.keyCode=0
	    exit sub
	end if
	
	If (keyCode < 48 or keyCode > 57) and keyCode <> Asc(sep) then
		window.event.keyCode=0
	End if
End sub

'*** No permite nada
sub KeyLock()	
	window.event.keyCode=0
	window.event.returnValue = false	
End sub

'*** Solo permite números y el /
sub KeyDate()	
	keyCode = window.event.keyCode
	if (keyCode = 13) then exit sub
	if(Chr(keyCode)="/")then
		exit sub
	end if
	call KeyNumber
End sub

'*** Solo permite números, parentesis, -, ext
sub KeyFone()
	keyCode = window.event.keyCode
	if (keyCode = 13) then exit sub
	if Chr(keyCode)="-" OR Chr(keyCode)="(" OR Chr(keyCode)=")" OR LCase(Chr(keyCode))="e" OR LCase(Chr(keyCode))="x" OR LCase(Chr(keyCode))="t" OR LCase(Chr(keyCode))=" " then
		exit sub
	end if
	call KeyNumber
End sub

'*** Solo permite números y :
sub KeyTime()
	keyCode = window.event.keyCode
	if (keyCode = 13) then exit sub
	if Chr(keyCode)=":" or LCase(Chr(keyCode))="a" or LCase(Chr(keyCode))="m" or LCase(Chr(keyCode))="p" or Chr(keyCode)=" " then
		exit sub
	end if
	call KeyNumber
End sub

'*** Solo permite letras de la a - z
sub KeyChar()
	keyCode = window.event.keyCode
	if (keyCode = 13) then exit sub
	if LCase(Chr(keyCode))<"a" or LCase(Chr(keyCode))>"z" then
		window.event.keyCode=0
	end if
End sub

'*** Solo permite numeros y letras
sub KeyAlfaNum()
	keyCode = window.event.keyCode
	if (keyCode = 13) then exit sub
	if (LCase(Chr(keyCode))<"a" or LCase(Chr(keyCode))>"z") and (keyCode < 48 or keyCode > 57) then
		window.event.keyCode=0
	End if
End sub


'*** Solo permite numeros, letras y espacio
sub KeyAlfaNumEsp()
	keyCode = window.event.keyCode
	if (keyCode = 13) then exit sub
	if (LCase(Chr(keyCode))<"a" or LCase(Chr(keyCode))>"z") and (keyCode < 48 or keyCode > 57) and keyCode<>32 then
		window.event.keyCode=0
	End if
End sub


'*** Solo permite letras y el espacio
sub KeyString()
	keyCode = window.event.keyCode
	if (keyCode = 13) then exit sub
	if (LCase(Chr(keyCode))<"a" or LCase(Chr(keyCode))>"z") and keyCode<>32 then
		window.event.keyCode=0
	end if
End sub

'*** transforma a mayúsculas
sub KeyUpper()
	keyCode = window.event.keyCode
	if (keyCode = 13) then exit sub
	if Chr(keyCode)>="a" and Chr(keyCode)<="z" then
		window.event.keyCode=window.event.keyCode-32
	end if	
end sub

'*** transforma a minúsculas
sub KeyLower()
	keyCode = window.event.keyCode
	if (keyCode = 13) then exit sub
	if Chr(keyCode)>="A" and Chr(keyCode)<="Z" then
		window.event.keyCode=window.event.keyCode+32
	end if	
end sub



sub vbAlert(msj)
	msgbox msj,vbOKOnly + vbExclamation," -- MDMQ -- "
end sub

sub vbConfirmar(msj)
	if msj = "" then
		msj = "Esta seguro"
	end if

    if MsgBox(msj,vbYesNo + vbInformation ," -- MDMQ -- ") = vbYes then
		window.event.returnValue = True
	else
		window.event.returnValue = False
	end if
end sub