| Re: Ayuda con paginas de enlace
aqui les dejo las paginas de enlace
pagina enlace tabla persona
Partial Class auc_80022
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
'
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
'
' if instr(Mys_perfiles,"@CON@") = 0 then No existe el Perfil
'
'
Dim CapaHTML As New GNet2k7_Presentacion
Call CapaHTML.check_session(Session("Menu"))
Dim CapaDB As New GNet2k7_Coneccion
'
'
'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 = ""
Dim nuevo As String = Request("nuevo")
Dim Loc_per_id As String = request("ch_1")
Dim Loc_per_rut As String = request("ch_2")
Dim Loc_per_dv As String = request("ch_3")
Dim Loc_per_nombres As String = request("ch_4")
Dim Loc_per_apaterno As String = request("ch_5")
Dim Loc_per_amaterno As String = request("ch_6")
Dim Loc_per_gco_id As String = request("ch_7")
Dim Loc_per_dep_id As String = request("ch_8")
Dim Loc_per_cargo As String = request("ch_9")
Dim Loc_per_tipo_usuario As String = request("ch_10")
Dim Loc_per_puesto_trabajo As String = request("ch_11")
Dim Loc_per_fecha_expiracion As String = request("ch_12")
Dim Loc_per_correo As String = request("ch_33")
Dim Loc_per_ubi_id As String = request("ch_14")
Dim Loc_per_anexo As String = request("ch_15")
Dim Loc_per_celular As String = request("ch_16")
Dim Loc_per_imagen As String = request("ch_17")
Dim Loc_per_contenttype As String = request("ch_18")
'
CapaHTML.FileRetorno = "auc_00022.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_auc_personas ( ?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,? ) }"
mysp.AgregarParametro("Pkg_que", 129, 1, TipoAccionPkg )
mysp.AgregarParametro( "Pkg_per_id",5,18,DBNull.Value )
mysp.AgregarParametro( "Pkg_per_rut",5,18,DBNull.Value )
mysp.AgregarParametro( "Pkg_per_dv",129,1,"" )
mysp.AgregarParametro( "Pkg_per_nombres",129,40,"" )
mysp.AgregarParametro( "Pkg_per_apaterno",129,30,"" )
mysp.AgregarParametro( "Pkg_per_amaterno",129,30,"" )
mysp.AgregarParametro( "Pkg_per_gco_id",5,18,DBNull.Value )
mysp.AgregarParametro( "Pkg_per_dep_id",5,18,DBNull.Value )
mysp.AgregarParametro( "Pkg_per_cargo",129,50,"" )
mysp.AgregarParametro( "Pkg_per_tipo_usuario",5,18,DBNull.Value )
mysp.AgregarParametro( "Pkg_per_puesto_trabajo",129,50,"" )
mysp.AgregarParametro( "Pkg_per_fecha_expiracion",129,19,"" )
mysp.AgregarParametro( "Pkg_per_correo",129,50,"" )
mysp.AgregarParametro( "Pkg_per_ubi_id",5,18,DBNull.Value )
mysp.AgregarParametro( "Pkg_per_anexo",129,20,"" )
mysp.AgregarParametro( "Pkg_per_celular",129,20,"" )
mysp.AgregarParametro( "Pkg_per_imagen",129,16,"" )
mysp.AgregarParametro( "Pkg_per_contenttype",129,20,"" )
'
'
Dim sys_conn As Object = Nothing
Dim myCmd As Object = CapaDB.genera_myCommand_PKG(sys_conn, mysp)
'
IF trim(nuevo) <> "SI" then
if IsNumeric(Loc_per_id) Then
myCmd.Parameters.Item( "Pkg_per_id" ).Value = Trim(Loc_per_id) * 1
else
graba = "NO"
end if
End If
if IsNumeric(loc_per_rut) then
myCmd.Parameters.Item( "Pkg_per_rut" ).Value = Trim(Loc_per_rut) * 1
else
graba = "NO"
end if
if len(trim(loc_per_dv)) = 0 then
graba = "NO"
else
myCmd.Parameters.Item( "Pkg_per_dv" ).Value = Trim(Loc_per_dv)
end if
if len(trim(loc_per_nombres)) = 0 then
graba = "NO"
else
myCmd.Parameters.Item( "Pkg_per_nombres" ).Value = Trim(Loc_per_nombres)
end if
if len(trim(loc_per_apaterno)) = 0 then
graba = "NO"
else
myCmd.Parameters.Item( "Pkg_per_apaterno" ).Value = Trim(Loc_per_apaterno)
end if
if len(trim(loc_per_amaterno)) <> 0 then
myCmd.Parameters.Item( "Pkg_per_amaterno" ).Value = Trim(Loc_per_amaterno)
end if
if trim(loc_per_gco_id) = "NO" then
graba = "NO"
elseif IsNumeric(loc_per_gco_id) then
myCmd.Parameters.Item( "Pkg_per_gco_id" ).Value = Trim(Loc_per_gco_id) * 1
else
graba = "NO"
end if
if trim(loc_per_dep_id) = "NO" then
graba = "NO"
elseif IsNumeric(loc_per_dep_id) then
myCmd.Parameters.Item( "Pkg_per_dep_id" ).Value = Trim(Loc_per_dep_id) * 1
else
graba = "NO"
end if
if len(trim(loc_per_cargo)) = 0 then
graba = "NO"
else
myCmd.Parameters.Item( "Pkg_per_cargo" ).Value = Trim(Loc_per_cargo)
end if
if trim(loc_per_tipo_usuario) = "NO" then
graba = "NO"
elseif IsNumeric(loc_per_tipo_usuario) then
myCmd.Parameters.Item( "Pkg_per_tipo_usuario" ).Value = Trim(Loc_per_tipo_usuario) * 1
else
graba = "NO"
end if
if len(trim(loc_per_puesto_trabajo)) = 0 then
graba = "NO"
else
myCmd.Parameters.Item( "Pkg_per_puesto_trabajo" ).Value = Trim(Loc_per_puesto_trabajo)
end if
if len(trim(loc_per_fecha_expiracion)) <> 0 then
myCmd.Parameters.Item( "Pkg_per_fecha_expiracion" ).Value = Trim(Loc_per_fecha_expiracion)
end if
if len(trim(loc_per_correo)) <> 0 then
myCmd.Parameters.Item( "Pkg_per_correo" ).Value = Trim(Loc_per_correo)
end if
if trim(loc_per_ubi_id) <> "NO" then
if IsNumeric(loc_per_ubi_id) then
myCmd.Parameters.Item( "Pkg_per_ubi_id" ).Value = Trim(Loc_per_ubi_id) * 1
else
graba = "NO"
end if
end if
if len(trim(loc_per_anexo)) <> 0 then
myCmd.Parameters.Item( "Pkg_per_anexo" ).Value = Trim(Loc_per_anexo)
end if
if len(trim(loc_per_celular)) <> 0 then
myCmd.Parameters.Item( "Pkg_per_celular" ).Value = Trim(Loc_per_celular)
end if
if len(trim(loc_per_imagen)) <> 0 then
myCmd.Parameters.Item( "Pkg_per_imagen" ).Value = Trim(Loc_per_imagen)
end if
if len(trim(loc_per_contenttype)) <> 0 then
myCmd.Parameters.Item( "Pkg_per_contenttype" ).Value = Trim(Loc_per_contenttype)
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.redirect("auc_80024.aspx")
Response.Write("<script LANGUAGE=javascript>" & vbCrLf)
Response.Write("window.open('" & CapaHTML.FileRetorno & "','" & CapaHTML.TargetRetorno & "') " & vbCrLf)
Response.Write("</script>")
Response.End()
End Sub
End Class |