Ayuda con paginas de enlace

[rezocrew]

pagina enlace tabla perfiles


Partial Class auc_80028
Inherits System.Web.UI.Page
'
'
'================================================= ================================================== =====================
' Para la Net_ValPriv......
'
Public prv_usuario As String = ""
Public prv_password As String = ""
Public Mys_perfiles As String = ""
Public Com_priv As Boolean = True ' ( True con Privilegio , False sin Privilegio )
'
'================================================= ================================================== =====================
'

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

'================================================= ================================================== =====================================
'
' Para el sistema de Privilegios habilitar estas 3 lineas '*
'
Dim Dtr_ValPriv As New Net_ValPriv

If Not Dtr_ValPriv.check_Priv(UCase(Request.ServerVariabl es("script_name")), prv_usuario, prv_password, Mys_perfiles, Com_priv) Then
Response.End()
End If
'
' con esto se puede capturar los perfiles
'
' if instr(Mys_perfiles,"@CON@") = 0 then No existe el Perfil
'
'
' Fine Sistema Privilegios
'================================================= ================================================== =====================================

Dim CapaHTML As New GNet2k7_Presentacion
Call CapaHTML.check_session(Session("Menu"))

Dim CapaDB As New GNet2k7_Coneccion

'
' setea la clas epara generar los parametros del procedimiento
'
'CapaHTML.EsPaginaShowModal = False

Dim mysp As New dtr_Parametros_SP()
' Dim MysSPP As dtr_Atributo_parametros

Dim tr_err As Integer = -1
Dim Dtr_err As String = ""

'
' Rescata valores del Formulario
'
Dim nuevo As String = Request("nuevo")

Dim Loc_sisper_id As String = request("ch_1")
Dim Loc_sisper_id_sistema As String = request("ch_2")
Dim Loc_sisper_id_perfil As String = request("ch_3")
Dim Loc_sisper_tipo_grupo As String = request("ch_4")
Dim Loc_sisper_desc_sistema As String = request("ch_5")
Dim Loc_sisper_desc_perfil As String = request("ch_6")
Dim Loc_sisper_per_id As String = request("ch_7")

'
' Define variables de control y retorno
'
CapaHTML.FileRetorno = "auc_00028.aspx?XP=" & Now() & session("retorno")
'
' Define la accion del Procedimiento
'
Dim TipoAccionPkg As String = ""
If Trim(nuevo) = "SI" Then
TipoAccionPkg = "I"
ElseIf Trim(nuevo) = "NO" Then
TipoAccionPkg = "A"
ElseIf Trim(nuevo) = "BE" Then
TipoAccionPkg = "E"
End If

Dim graba As String = "SI"
'
'Define los parametros del Packages
'
CapaDB.MyQry = "{ Call auc_PUT_sistema ( ?,?,?,?,?,?,?,? ) }"

mysp.AgregarParametro("Pkg_que", 129, 1, TipoAccionPkg )
mysp.AgregarParametro( "Pkg_sisper_id",5,18,DBNull.Value )
mysp.AgregarParametro( "Pkg_sisper_id_sistema",129,50,"" )
mysp.AgregarParametro( "Pkg_sisper_id_perfil",129,50,"" )
mysp.AgregarParametro( "Pkg_sisper_tipo_grupo",5,18,DBNull.Value )
mysp.AgregarParametro( "Pkg_sisper_desc_sistema",129,50,"" )
mysp.AgregarParametro( "Pkg_sisper_desc_perfil",129,50,"" )
mysp.AgregarParametro( "Pkg_sisper_per_id",5,18,DBNull.Value )

'
'================================================= ================================================== =======================
'
' Seteo la coneccion y los parametros del Packages
'

Dim sys_conn As Object = Nothing
Dim myCmd As Object = CapaDB.genera_myCommand_PKG(sys_conn, mysp)

'
'================================================= ================================================== =======================
'
' Valido los datos de ingreso al Procedimiento
'
IF trim(nuevo) <> "SI" then
if IsNumeric(Loc_sisper_id) Then
myCmd.Parameters.Item( "Pkg_sisper_id" ).Value = Trim(Loc_sisper_id) * 1
else
graba = "NO"
end if
End If

if len(trim(loc_sisper_id_sistema)) = 0 then
graba = "NO"
else
myCmd.Parameters.Item( "Pkg_sisper_id_sistema" ).Value = Trim(Loc_sisper_id_sistema)
end if

if len(trim(loc_sisper_id_perfil)) = 0 then
graba = "NO"
else
myCmd.Parameters.Item( "Pkg_sisper_id_perfil" ).Value = Trim(Loc_sisper_id_perfil)
end if

if IsNumeric(loc_sisper_tipo_grupo) then
myCmd.Parameters.Item( "Pkg_sisper_tipo_grupo" ).Value = Trim(Loc_sisper_tipo_grupo) * 1
elseif len(trim(loc_sisper_tipo_grupo)) <> 0 then
graba = "NO"
end if

if len(trim(loc_sisper_desc_sistema)) = 0 then
graba = "NO"
else
myCmd.Parameters.Item( "Pkg_sisper_desc_sistema" ).Value = Trim(Loc_sisper_desc_sistema)
end if

if len(trim(loc_sisper_desc_perfil)) = 0 then
graba = "NO"
else
myCmd.Parameters.Item( "Pkg_sisper_desc_perfil" ).Value = Trim(Loc_sisper_desc_perfil)
end if

if IsNumeric(loc_sisper_per_id) then
myCmd.Parameters.Item( "Pkg_sisper_per_id" ).Value = Trim(Loc_sisper_per_id) * 1
else
graba = "NO"
end if

'
' Verifica si todo esta OKA
'
If graba = "NO" Then
sys_conn.Close()
Response.Write("<center><br><h3><strong>Tenga Paciencia pero sus Datos son Inconsistentes no los puedo Procesar<br><br>Informe esto a su Administrador</strong></h3></center>")
Response.Write("<br>" & CapaDB.MyQry & "<br>")
For tr_err = 0 To myCmd.Parameters.Count - 1
Response.Write("<br>" & myCmd.Parameters.Item(tr_err).ParameterName & " = " & myCmd.Parameters.Item(tr_err).Value)
Next
Response.End()
End If
'
' Ejecuta el Package o procedure
'
Try
myCmd.ExecuteNonQuery()
Catch ex As Exception
Dtr_err = ex.Message.ToString
End Try

If Len(Trim(Dtr_err)) <> 0 Then
sys_conn.Close()
Dim Mder As String = "Error : No Controlado <br><br>" & " Error: " & "<br>" & Dtr_err
Response.Write("<center><br><h3><strong>" & Mder & "<br><br>Informe esto a su Administrador</strong></h3></center>")
Response.Write("<script LANGUAGE=javascript>" & vbCrLf)
Response.Write("alert(" & Chr(34) & "No Puedo Ejecutar su Página " & Chr(34) & ")" & vbCrLf)
Response.Write("</script>")
Response.End()
End If

sys_conn.Close()

Response.Write("<script LANGUAGE=javascript>" & vbCrLf)
Response.Write("window.open('" & CapaHTML.FileRetorno & "','" & CapaHTML.TargetRetorno & "') " & vbCrLf)
Response.Write("</script>")
Response.End()

End Sub

End Class