<!--#INCLUDE file="ADOVBS.inc"-->

<%
dim str_clave, clie_clave, str_nombre, str_accion, int_estatus, str_usuario, str_fecha_actual, str_estatus
dim STR_CONSULTA, RES_DATOS, Cnn 

str_empresa= Request.Cookies("sieps")("empresa")
str_usuario= Request.Cookies("sieps")("usuario_clave")


str_bd= application("bd_sieps")


str_accion = Request.form("accion")
str_clave = Request.Form("TXT_CLAVE")
str_nombre = replace(replace(Request.Form("TXT_NOMBRE"),"'"," "),chr(34)," ")
str_proceso= Request.QueryString("proceso")
int_estatus = Request.Form("RDO_ESTATUS")
if int_estatus=1 then
	str_estatus="Activo"
else
	str_estatus="Desactivo"
end if

str_fecha_actual = month(now)&"/"&day(now)&"/"& year(now)
set Cnn = server.CreateObject ("ADODB.Connection")
set RES_DATOS = server.CreateObject ("ADODB.Recordset")

Cnn.Open str_bd

str_mensaje_error= ""			

SELECT CASE str_accion
	CASE "aceptar"
		if str_proceso="alta" then ' si es una alta
			STR_CONSULTA = "SELECT * FROM division WHERE divi_clave ='" & str_clave  & "' AND empr_clave ='" & str_empresa & "'"
			RES_DATOS.Open STR_CONSULTA, Cnn,adOpenForwardOnly,adLockReadOnly,1
			IF RES_DATOS.EOF = true then ' si no existe
				STR_CONSULTA = "INSERT INTO division(divi_clave, divi_nombre, empr_clave, divi_estatus, usua_clave, fecha_captura) VALUES('" & str_clave & "', '" & str_nombre & "', '" & str_empresa & "','" & str_estatus & "','" & str_usuario & "','" & str_fecha_actual & "')"
				Cnn.Execute STR_CONSULTA,,1
			else
				str_mensaje_error= "Ya existe una división con esta clave."			
			end if
			RES_DATOS.Close
		else		' si es un cambio
			' busca registro
			STR_CONSULTA = "UPDATE division SET divi_nombre='" & str_nombre & "', divi_estatus ='"& str_estatus &"', usua_clave ='"& str_usuario &"', fecha_captura ='"& str_fecha_actual &"' WHERE divi_clave ='" & str_clave & "' AND empr_clave ='" & str_empresa & "';"
			Cnn.Execute STR_CONSULTA,,1
		end if
	CASE "eliminar"
		STR_CONSULTA = "SELECT * FROM departamento WHERE divi_clave ='" & str_clave  & "' AND empr_clave ='" & str_empresa & "'"
		RES_DATOS.Open STR_CONSULTA, Cnn,adOpenForwardOnly,adLockReadOnly,1
		IF RES_DATOS.EOF = true then ' si no existe
			STR_CONSULTA = "DELETE FROM division WHERE divi_clave ='" & str_clave  & "' AND empr_clave ='" & str_empresa & "'"
			Cnn.Execute STR_CONSULTA,,1
		else
			str_mensaje_error= "No es posible eliminar la división, esta siendo utilizada por departamentos."			
		end if
		RES_DATOS.Close
END SELECT
Cnn.Close

if str_mensaje_error <> empty then
	Response.Redirect("uti_error.asp?or=division_listado.asp&enca=ERROR&mens=" & server.urlencode(str_mensaje_error))
end if
Response.Redirect("division_listado.asp")

%>
