'---------------------------- VBLibCliente.asp ------------------------------------
' Propósito: Contiene las funciones que se ejecutan del lado del Cliente
' Sistema: 	Sistema de almacén.
' Autor: Paulino Hernández Valdés
' Fecha última modificación  Noviembre 2009
'--------------------------------------------------------------------------------------


FUNCTION Ver_FacturaConsolidada(CNCICons)
' Autor: Paulino Hernández Valdés
' Fecha: Abril 2008
' Propósito: Envia los datos de la forma para que no se vean en el URL
'
	'-------------- Cambio de parametros de la Forma -------------'
	FormaVerFacturaConsolidada.CNCICons.Value  = CNCICons
	FormaVerFacturaConsolidada.submit() 
END FUNCTION


FUNCTION Ver_Tarjeta(CARClave)
' Autor: Paulino Hernández Valdés
' Fecha: Abril 2008
' Propósito: Envia los datos de la forma para que no se vean en el URL
'
	'-------------- Cambio de parametros de la Forma -------------'
	FormaVerTarjeta.CARClave.Value  = CARClave
	FormaVerTarjeta.submit() 
END FUNCTION

FUNCTION Ver_Marbete(CARClave)
' Autor: Paulino Hernández Valdés
' Fecha: Abril 2008
' Propósito: Envia los datos de la forma para que no se vean en el URL
'
	'-------------- Cambio de parametros de la Forma -------------'
	FormaVerMarbete.CARClave.Value  = CARClave
	FormaVerMarbete.submit() 
END FUNCTION

FUNCTION Ver_Factura(FNCIFact)
' Autor: Paulino Hernández Valdés
' Fecha: Abril 2008
' Propósito: Envia los datos de la forma para que no se vean en el URL
'
	'-------------- Cambio de parametros de la Forma -------------'
	FormaVerFactura.FNCIFact.Value  = FNCIFact
	FormaVerFactura.submit() 
END FUNCTION

FUNCTION Ver_Requisicion(RNCIRequ)
' Autor: Sergio Luis Aguirre
' Fecha: julio de 2007
' Propósito: Envia los datos de la forma para que no se vean en el URL
'
	'-------------- Cambio de parametros de la Forma -------------'
	FormaVer.RNCIRequ.Value  = RNCIRequ
	FormaVer.submit() 
END FUNCTION


Function PwdAleatorio ( Longitud, Repetir )
' Autor: Araceli Sanchez Garcia
' Fecha: 01 de junio de 2006
' Propósito: Generar una contraseña válida para el módulo de registro de usuarios
'
Dim vPass(), I, J ' nuestro vector y dos contadores
Dim vNumeros()	  ' vector para guardar lo que llevamos
Dim n, bRep		  
Dim vCaracteres	  ' vector donde están los posibles caract.

vCaracteres = Array("A","B", "C", "D", "E", "F", _ 
"G", "H", "J", "K", "L", "M", "N", "P", "Q", "R", _
"S", "T", "U", "V", "W", "X", "Y", "Z", "2", "3", "4", _
"5", "6", "7", "8", "9" )

'Establezco la longitud del vector
Redim vPass(Longitud-1)
'Y del vector auxiliar que guarda los caracteres ya escogidos
Redim vNumeros(Longitud-1)
I = 0
'Inicializo los nºs aleatorios
Randomize
'Hasta que encuentre todos los caracteres
do until I = Longitud
	'Hallo un número aleatorio entre 0 y el máximo indice
	' del vector de caracteres.
	n = int(rnd*Ubound(vCaracteres))
	'Si no puedo repetir...
	if not Repetir then
		bRep = False
		'Busco el numero entre los ya elegidos
		for J = 0 to UBound(vNumeros)
			if n = vNumeros(J) then
			'Si esta, indico que ya estaba
				bRep = True
			end if
		next
		'Si ya estaba, tengo que repetir este caracter
		'así que resto 1 a I y volvemos sobre la misma
		'posición.
		if bRep then 
			I = I - 1
		else
			vNumeros(I) = n
			vPass(I) = vCaracteres(n)	
		end if
	else
	'Me da igual que esté o no repetido
		vNumeros(I) = n
		vPass(I) = vCaracteres(n)
	end if
'Siguiente carácter!
I = I + 1
loop

'Devuelvo la cadena. Join une los elementos de un vector
'utilizando como separador el segundo parámetro: en este
'caso, nada -> "".
PwdAleatorio = Join(vPass, "")

End Function


FUNCTION Enviar_Pagina(cForma,cAccion)
' Autor: Adrián Cerritos Temahuay
' Fecha: 22 de Noviembre de 2001
' Próposito: Enviar los datos del formulario al servidor
IF cAccion = "Delete" THEN
   cMsg = "¿Está seguro de borrar permanentemente este registro?"
   IF MSGBOX(cMsg,vbYesNo+vbQuestion+vbDefaultButton2,"Mensaje del Sistema") = vbNo THEN 
      EXIT FUNCTION
   END IF
END IF

IF cAccion = "Borrar" THEN
   cMsg = "¿Esta seguro de borrar permanentemente esta foto?"
   IF MSGBOX(cMsg,vbYesNo+vbQuestion+vbDefaultButton2,"Mensaje del Sistema") = vbNo THEN 
      EXIT FUNCTION
   END IF
END IF

IF cAccion = "Desligar" THEN
   cMsg = "¿Esta seguro de desvincular la auditoria?"
   IF MSGBOX(cMsg,vbYesNo+vbQuestion+vbDefaultButton2,"Mensaje del Sistema") = vbNo THEN 
      EXIT FUNCTION
   END IF
END IF

IF cAccion = "Desvincular" THEN
   cMsg = "¿Esta seguro de desvincular la obra?"
   IF MSGBOX(cMsg,vbYesNo+vbQuestion+vbDefaultButton2,"Mensaje del Sistema") = vbNo THEN 
      EXIT FUNCTION
   END IF
END IF


cForma.Accion.value = cAccion
cForma.Submit()
END FUNCTION