Visual Basic.NET - error de referencia

   
Vista:

error de referencia

Publicado por moises moshegym2011@hotmail.com (1 intervención) el 03/05/2012 05:53:03
hola tengo este problema de referencia de objeto. me explico tengo 3 tablas: Socios

(idsocio,nomb,..); CuotaMensual(idcuota,...);DetalleSocioCuota(idsocio,idcuota,fecha) los

id de las tablas socio y cuota mensual son autonumericos, capture el idcuota(Tabla

CuotaMensual) al insertar en este tabla(me salio bien) ya q en un solo formulario tengo

la tabla CuotaMensual y DetalleSocioCuota(solo fecha e idsocio es decir con una busqda de

socio me bota en otro form el idsocio no hay problema):

capaEntidad:
***********

Public Class CPEDetalleSocioCuotaMensual
Private _fecha As DateTime
Private _idcuota As Integer
Private _idsocio As Integer

Public Property idsocio As Integer
Get
Return _idsocio
End Get
Set(ByVal value As Integer)
_idsocio = value
End Set
End Property

Public Property idcuota As Integer
Get
Return _idcuota
End Get
Set(ByVal value As Integer)
_idcuota = value
End Set
End Property

Public Property fecha As DateTime
Get
Return _fecha
End Get
Set(ByVal value As DateTime)
_fecha = value
End Set
End Property

End Class

capaDatos
**********
Imports System.Data.SqlClient
Imports CapaEntidad

Public Class CPDDetalleSocioCuotaMensual

Public Sub Registrar(ByVal obj As CapaEntidad.CPEDetalleSocioCuotaMensual)
Dim cn As New SqlConnection(cadena)
Dim dadetalcuota As New SqlDataAdapter

Try

cn.Open()
dadetalcuota.InsertCommand = cn.CreateCommand
dadetalcuota.InsertCommand.CommandText = "pa_insertcuotadetalle"
dadetalcuota.InsertCommand.CommandType = CommandType.StoredProcedure

dadetalcuota.InsertCommand.Parameters.AddWithValue("@id_socio", obj.idsocio)
dadetalcuota.InsertCommand.Parameters.AddWithValue("@id_cuotaM", obj.idcuota)
dadetalcuota.InsertCommand.Parameters.AddWithValue("@fechacuota", obj.fecha)
dadetalcuota.InsertCommand.ExecuteNonQuery()


Catch ex As Exception
.
.
.
.
capaNegocio
***********
Imports CapaEntidad
Imports CapaDatos

Public Class CPNDetalleSocioCuotaMensual

Public Sub Registrar(ByVal obj As CapaEntidad.CPEDetalleSocioCuotaMensual)

Dim objetos As New CapaDatos.CPDDetalleSocioCuotaMensual
objetos.Registrar(obj)

End Sub

End Class
capapresentacion:frmcuotamensual
******************************
Dim objentidad As New CapaEntidad.CPECuotaMensual
Dim objentidad2 As New CapaEntidad.CPEDetalleSocioCuotaMensual
Dim objnegocio As New CapaNegocio.CPNCuotaMensual
Dim objnegociodetalle As CapaNegocio.CPNDetalleSocioCuotaMensual
Dim idcuotaM As Integer
.
.
.
.
.
objentidad2.idsocio = lblIdsocio.Text
objentidad2.idcuota = idcuotaM 'este dato lo capture cuando inserte

cuotamensual
objentidad2.fecha = DateTime.Parse(txtfecha.Text)
objnegociodetalle.Registrar(objentidad2)'--->AQUI ESTA EL ERROR DE REFERENCIA

La insercion es simultanea en las 2 tablas(CuotaMensual y DetalleCuotaMensual) osea el

codigo ultimo es de un boton registrar capturo el id y alli mismo tomo e inserta en la

otra tabla, ojo q si me muestra en un label el id capturado de cuotamensual. Gracias por

sus respuestas, ya me rompi la cabeza de la referencia me inserta en todas menos en la

tabla detalleCuotamensual alli me sale el error de referencia
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder