<%@ Language="VBScript" %>
<% Option Explicit %>
<% Response.Buffer = True %>
<% '
%>
<!-- #include file="inc/afdb__gen.asp" -->
<!-- #include file="inc/afdb__formu.asp" -->
<% '
Dim pc_afdb_xnt_fdn_cxn__ID_Usuario				'nombre de usuario (ID unico)
Dim pc_afdb_xnt_fdn_cxn__Nombre_Usuario			'nombre de usuario
Dim pc_afdb_xnt_fdn_cxn__ID_Entidad				'ID de la entidad
Dim pc_afdb_xnt_fdn_cxn__Nom_Entidad			'nombre de la entidad
%>
<%
Call afdb_gen__IniEstatus()
Call afdb_xnt_fdn_cxn__Iniciar(pn_afdb_pub__Error)
if (not afdb_pub__XF_Usuario_Conectado()) then
Call afdb_frm__PagFormu(kc_afdb_pub__ID_Pag__XF_Conexion, kc_afdb_pub__ID_Menu__XF_Conexion, kc_afdb_pub__Ruta_XML__Formu__Xnt_Fdn__Conexion, kc_afdb_pub__Ruta_XSL__XF_Conexion, kc_afdb_pub__ID_Formu__XF_Conexion, pn_afdb_pub__Error)
else
Call gen_pgu_utl__Est_Respuesta(afdb_pub__CrearAviso(kc_afdb_pub__ID_Aviso__XF_Ya_Conectado, gen_pag_utl__ObtIdioma(), Nothing, kc_afdb_pub__Ruta_XSL__Aviso, false, "", pn_afdb_pub__Error))
Call afdb_gen__EnviarRespuesta(pn_afdb_pub__Error)
end if
%>
<% '
%>
<% Function afdb_xnt_fdn_cxn__Iniciar(ByRef lError)
Dim cValor			'AS diversas
Dim nErrorArgus		'errores en AS
Call depuMostrar("afdb_xnt_fdn_cxn__Iniciar() llamado", "")
if (lError <> kiErrorNinguno) then
Call depuErrorHeredado("afdb_xnt_fdn_cxn__Iniciar()", lError)
Exit Function
end if
pc_afdb_xnt_fdn_cxn__ID_Usuario = ""
pc_afdb_xnt_fdn_cxn__Nombre_Usuario = ""
pc_afdb_xnt_fdn_cxn__ID_Entidad = ""
pc_afdb_xnt_fdn_cxn__Nom_Entidad = ""
Call depuMostrar(": kc_afdb_pub__AS_ID_Producto", cValor)
nErrorArgus = kiErrorNinguno
if (nErrorArgus <> kiErrorNinguno) then
end if
Call depuMostrar(": pc_afdb_xnt_fdn_cxn__ID_Usuario", pc_afdb_xnt_fdn_cxn__ID_Usuario)
End Function %>
<% '
%>
<% '
%>
<% Function afdb_gen__fdu_Adr_XML_Ifaz(ByRef oPagXML, ByRef oIfazXML, ByRef lError)
Call pagAnadirInterfaz(oIfazXML, oPagXML, kc_afdb_gen__ID_IFaz__Xnt_Fdn__Conexion, "", lError)
Call pagAnadirInterfaz(oIfazXML, oPagXML, kc_afdb_gen__ID_IFaz__Xnt_Fdn__Conexion_Formu, "", lError)
End Function %>
<% '
%>
<% Function afdb_gen__fdu_Adr_XML_Datos(ByRef oPagXML, ByRef lError)
End Function %>
<% '
%>
<% '
%>
<% Function afdb_pub__fduFormu__Adr_XML_Ifaz(ByRef oPagXML, ByRef oIfazXML, ByRef cModo, ByRef lError)
Dim cID			'IDs diversas
Call pagAnadirInterfaz(oIfazXML, oPagXML, kc_gen_xnt__ID_IFaz__Gen, "", lError)
Call pagAnadirInterfaz(oIfazXML, oPagXML, kc_afdb_gen__ID_IFaz__Xnt_Fdn__Conexion, "", lError)
Call pagAnadirInterfaz(oIfazXML, oPagXML, kc_afdb_gen__ID_IFaz__Xnt_Fdn__Conexion_Formu, "", lError)
End Function %>
<% '
%>
<% Function afdb_pub__fduFormu__Adr_XML_Datos(ByRef oPagXML, ByRef cModo, ByRef lError)
Dim oXML			'objetos XML diversos
select case cModo
case kc_afdb_pub__XML_Modo_Error
case else
end select
Set oXML = Nothing
End Function %>
<% '
%>
<% Function afdb_pub__fduFormu__IniciarFormuXML(ByRef oFormuXML, ByVal bVacio, ByRef lError)
Dim oConxnBD		'conexion ADO con la BD
Dim oRS				'recordset ADO
Dim bConsultar
Dim cConsulta
Dim cValor
Dim vValor
Call depuMostrar("afdb_pub__fduFormu__IniciarFormuXML() llamado", "")
if (lError <> kiErrorNinguno) then
Call depuErrorHeredado("afdb_pub__fduFormu__IniciarFormuXML()", lError)
Exit Function
end if
if (bVacio) then
else
end if
Set oRS = Nothing
Set oConxnBD = Nothing
End Function %>
<% '
%>
<% Function afdb_pub__fduFormu__FormuBien(ByRef oCampos, ByRef lError)
Dim oConxnBD
Dim oRS
Dim cOp
Dim cValores
Dim cClave
Dim cConsulta
Dim cID_Aviso
Dim cCorreo
Dim cID_Interno
Dim cNombre
Dim cUsuario
Dim vValor
Dim lErrorLocal: lErrorLocal = kiErrorNinguno
Call depuMostrar("afdb_pub__fduFormu__FormuBien() llamado", "")
if (lError <> kiErrorNinguno) then
Call depuErrorHeredado("afdb_pub__fduFormu__FormuBien()", lError)
Exit Function
end if
if (lErrorLocal = kiErrorNinguno) then
Call depuMostrar(": cUsuario", cUsuario)
Call depuMostrar(": cClave", cClave)
Call gen_pag_utl__Est_Estatus(kc_afdb_pub__Estatus__XF__ID_Usuario, pc_afdb_xnt_fdn_cxn__ID_Usuario)
Call gen_pag_utl__Est_Estatus(kc_afdb_pub__Estatus__XF__Nombre, pc_afdb_xnt_fdn_cxn__Nombre_Usuario)
Call gen_pag_utl__Est_Estatus(kc_afdb_pub__Estatus__XF__ID_Entidad, pc_afdb_xnt_fdn_cxn__ID_Entidad)
Call gen_pag_utl__Est_Estatus(kc_afdb_pub__Estatus__XF__Nombre_Entidad, pc_afdb_xnt_fdn_cxn__Nom_Entidad)
Call Response.Redirect(kc_afdb_pub__Ruta_ASP__Xnt_Federaciones__Principal)
else
Call gen_pgu_utl__Est_Respuesta(afdb_pub__CrearAviso(kc_afdb_pub__ID_Aviso__XF_Conectar_Mal, gen_pag_utl__ObtIdioma(), Nothing, "", true, lError))
end if
End Function %>
<% '
%>
<% Function afdb_frm__fdu_TratarFormuValido(ByRef oFormuXML, ByRef oValores, ByRef lError)
Dim oConxnBD
Dim oRS
Dim cOp
Dim cValores
Dim cClave
Dim cConsulta
Dim cID_Aviso
Dim cCorreo
Dim cID_Interno
Dim cNombre
Dim cUsuario
Dim vValor
Dim bValido
Dim lErrorLocal: lErrorLocal = kiErrorNinguno
bValido = false
Call depuMostrar("afdb_frm__fdu_TratarFormuValido() llamado", "")
if (lError <> kiErrorNinguno) then
Call depuErrorHeredado("afdb_frm__fdu_TratarFormuValido()", lError)
Exit Function
end if
cUsuario = oValores(kc_afdb_pub__CF__XF_Usuario)
Call depuMostrar(": cUsuario", "[" & cUsuario & "]")
for each cClave in oValores
Call depuMostrar(": oValores" & "[" & cClave & "]", "[" & oValores(cClave) & "]")
next
cConsulta = Replace(kc_afdb_xf_cxn__SQL__Obt_Datos_Usuario, kc_gen__CTR_1, ubdValorSQL(cUsuario, null))
Set oConxnBD = afdb_pub__ObtConxnBD(lError)
Set oRS = ubdConsultar(oConxnBD, cConsulta, 1, lError)
Call ubdComprobarRS_NoVacio(oRS, lErrorLocal)
if (lErrorLocal = kiErrorNinguno) then
Call gen_ubd__ValorDeValorBD(cClave, oRS.Fields(kc_afdb_pub__CBD__SA_Usuarios__Clave), adVarChar, lError)
cUsuario = oValores(kc_afdb_pub__CF__XF_Usuario)
if (oValores(kc_afdb_pub__CF__XF_Clave) <> cClave) then
lErrorLocal = kn_afdb_pub__error__XF_Conexion__UsuNoConocido
else
bValido = true
Call gen_ubd__ValorDeValorBD(pc_afdb_xnt_fdn_cxn__Nombre_Usuario, oRS.Fields(kc_afdb_pub__CBD__SA_Usuarios__Nombre), adVarChar, lError)
Call gen_ubd__ValorDeValorBD(pc_afdb_xnt_fdn_cxn__ID_Entidad, oRS.Fields(kc_afdb_pub__CBD__SA_Usuarios__ID_Federacion), adVarChar, lError)
Call gen_ubd__ValorDeValorBD(pc_afdb_xnt_fdn_cxn__Nom_Entidad, oRS.Fields(kc_afdb_pub__CBDC__Entidades__Nom_Castellano), adVarChar, lError)
pc_afdb_xnt_fdn_cxn__ID_Usuario = cUsuario
end if
end if
Call ubdCerrarRS(oRS)
Call ubdCerrarConxn(oConxnBD)
if (lErrorLocal <> kiErrorNinguno) then
Call gen_frm__EstErrorCampoXML(oFormuXML, kc_afdb_pub__CF__XF_Usuario, kn_afdb_pub__error__frm_clave_mal, lError)
Call gen_frm__EstErrorCampoXML(oFormuXML, kc_afdb_pub__CF__XF_Clave, kn_afdb_pub__error__frm_clave_mal, lError)
bValido = false
end if
afdb_frm__fdu_TratarFormuValido = bValido
End Function %>