Ayuda con paginas de enlace

rezocrew · #1 (**permalink**) 22/01/2008, 07:26

hola: junto con saludarlos les explico mi problema estoy programando en asp.net y tengo un formulario que se divide en dos, la primera parte del formulario son los datos personales y estos datos se guardan en la tabla personas , la segunda parte del formularo son los tipos de permisos que tiene esta persona (perfiles de usuario o privilegios de administrador) entonces la relacion entre las tablas es de uno a muchos; mi problema surge cuando quiero enviar estos datos pues no se hacer la pagina de enlace para guardar los datos en las dos tablas; tengo las paginas de enlace de cada tabla y funcionan correctamente guardando los datos por separado, entonces quisiera saber si algiuen me puede ayudar para intentar fusionar estas dos paginas en una o si me puede explicar como le hago para guardar los datos simultaneamente.

rezocrew · #2 (**permalink**) 22/01/2008, 07:29

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

rezocrew · #3 (**permalink**) 22/01/2008, 07:30

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