Nuevamente yo digamos que estoy utilizando GridView y FormView para
manejar los datos de mis paginas y estos estan ligados a una "capa de
negocios" y esta a DataSets, en la capa de negocios quiero meter ciertas
validaciones por ejemplo de si un registro tiene "registros hijos" en otra
tabla no me permita borrarlo y cosas asi, el problema es que no se como dar
aviso al usuario, pego a continuacion ejemplo de lo que hago en la capa de
datos, ahorita intento hacerlo en el borrado pero no logro hacer que le
resulte algo sencillo al usuario solo quizas no lo borro pero no le aviso al
usuario o bien tambien he conseguido disparar la excepcion pero sale el
pantallaso completo y no un mensaje que le resulte digerible al usuario
¿alguien podria sugerirme?

Mil gracias!

Imports Microsoft.VisualBasic
Imports DsIso9001TableAdapters

<System.ComponentModel.DataObject()> _
Public Class Objetivos

Private _objetivosAdapter As ObjetivosTableAdapter = Nothing
Protected ReadOnly Property Adapter() As ObjetivosTableAdapter
Get
If _objetivosAdapter Is Nothing Then
_objetivosAdapter = New ObjetivosTableAdapter()
End If

Return _objetivosAdapter
End Get
End Property
' Adaptador que trae todos los objetivos y Politica

<System.ComponentModel.DataObjectMethodAttribute(S ystem.ComponentModel.DataObjectMethodType.Select, True)> _
Public Function GetObjetivos() As DsIso9001.ObjetivosDataTable
Return Adapter.GetPoliticaObjetivos()
End Function

'Adaptador que trae registros de acuerdo al Concepto PADRE

<System.ComponentModel.DataObjectMethodAttribute(S ystem.ComponentModel.DataObjectMethodType.Select, False)> _
Public Function GetObjetivosPorPadre(ByVal ConceptoPadre As
Nullable(Of Integer)) As DsIso9001.ObjetivosDataTable
Return Adapter.GetObjetivosByConceptoPadre(ConceptoPadre)
End Function

' Borrado de un Objetivo o Politica:

<System.ComponentModel.DataObjectMethodAttribute(S ystem.ComponentModel.DataObjectMethodType.Delete, False)> _
Public Function DeleteObjetivos(ByVal Concepto_ID As Integer) As Boolean
Try

If Adapter.GetObjetivosByConceptoPadre(Concepto_ID).R ows.Count <
1 Then
Return _objetivosAdapter.Delete(Concepto_ID)
Else
Throw New Excepcion_RegistroConHijos("Error tiene registros
ligados")
End If

Catch ex As Excepcion_RegistroConHijos
Return False
End Try
End Function

Hola Marcos,

Si te he entendido bien lo que quieres es algo tipo una ventana de mensaje
(msgbox) para indicar al usuario que ese registro no se puede borrar. Para
ello puedes utilizar un control de Eugenio Serrano o la funcion alert de
javascript. El control lo puedes encontrar en este link:

http://eugenioserrano.spaces.live.co...ew&_c=blogpart

Saludos

"Marcos" wrote:

> Nuevamente yo digamos que estoy utilizando GridView y FormView para
> manejar los datos de mis paginas y estos estan ligados a una "capa de
> negocios" y esta a DataSets, en la capa de negocios quiero meter ciertas
> validaciones por ejemplo de si un registro tiene "registros hijos" en otra
> tabla no me permita borrarlo y cosas asi, el problema es que no se como dar
> aviso al usuario, pego a continuacion ejemplo de lo que hago en la capa de
> datos, ahorita intento hacerlo en el borrado pero no logro hacer que le
> resulte algo sencillo al usuario solo quizas no lo borro pero no le aviso al
> usuario o bien tambien he conseguido disparar la excepcion pero sale el
> pantallaso completo y no un mensaje que le resulte digerible al usuario
> ¿alguien podria sugerirme?
>
> Mil gracias!
>
> Imports Microsoft.VisualBasic
> Imports DsIso9001TableAdapters
>
> <System.ComponentModel.DataObject()> _
> Public Class Objetivos
>
> Private _objetivosAdapter As ObjetivosTableAdapter = Nothing
> Protected ReadOnly Property Adapter() As ObjetivosTableAdapter
> Get
> If _objetivosAdapter Is Nothing Then
> _objetivosAdapter = New ObjetivosTableAdapter()
> End If
>
> Return _objetivosAdapter
> End Get
> End Property
> ' Adaptador que trae todos los objetivos y Politica
>
> <System.ComponentModel.DataObjectMethodAttribute(S ystem.ComponentModel.DataObjectMethodType.Select, True)> _
> Public Function GetObjetivos() As DsIso9001.ObjetivosDataTable
> Return Adapter.GetPoliticaObjetivos()
> End Function
>
> 'Adaptador que trae registros de acuerdo al Concepto PADRE
>
> <System.ComponentModel.DataObjectMethodAttribute(S ystem.ComponentModel.DataObjectMethodType.Select, False)> _
> Public Function GetObjetivosPorPadre(ByVal ConceptoPadre As
> Nullable(Of Integer)) As DsIso9001.ObjetivosDataTable
> Return Adapter.GetObjetivosByConceptoPadre(ConceptoPadre)
> End Function
>
> ' Borrado de un Objetivo o Politica:
>
> <System.ComponentModel.DataObjectMethodAttribute(S ystem.ComponentModel.DataObjectMethodType.Delete, False)> _
> Public Function DeleteObjetivos(ByVal Concepto_ID As Integer) As Boolean
> Try
>
> If Adapter.GetObjetivosByConceptoPadre(Concepto_ID).R ows.Count <
> 1 Then
> Return _objetivosAdapter.Delete(Concepto_ID)
> Else
> Throw New Excepcion_RegistroConHijos("Error tiene registros
> ligados")
> End If
>
> Catch ex As Excepcion_RegistroConHijos
> Return False
> End Try
> End Function
>
>

Hola Marcos,

Si te he entendido bien lo que quieres es algo tipo una ventana de mensaje
(msgbox) para indicar al usuario que ese registro no se puede borrar. Para
ello puedes utilizar un control de Eugenio Serrano o la funcion alert de
javascript. El control lo puedes encontrar en este link:

http://eugenioserrano.spaces.live.co...ew&_c=blogpart

Saludos

"Marcos" wrote:

> Nuevamente yo digamos que estoy utilizando GridView y FormView para
> manejar los datos de mis paginas y estos estan ligados a una "capa de
> negocios" y esta a DataSets, en la capa de negocios quiero meter ciertas
> validaciones por ejemplo de si un registro tiene "registros hijos" en otra
> tabla no me permita borrarlo y cosas asi, el problema es que no se como dar
> aviso al usuario, pego a continuacion ejemplo de lo que hago en la capa de
> datos, ahorita intento hacerlo en el borrado pero no logro hacer que le
> resulte algo sencillo al usuario solo quizas no lo borro pero no le aviso al
> usuario o bien tambien he conseguido disparar la excepcion pero sale el
> pantallaso completo y no un mensaje que le resulte digerible al usuario
> ¿alguien podria sugerirme?
>
> Mil gracias!
>
> Imports Microsoft.VisualBasic
> Imports DsIso9001TableAdapters
>
> <System.ComponentModel.DataObject()> _
> Public Class Objetivos
>
> Private _objetivosAdapter As ObjetivosTableAdapter = Nothing
> Protected ReadOnly Property Adapter() As ObjetivosTableAdapter
> Get
> If _objetivosAdapter Is Nothing Then
> _objetivosAdapter = New ObjetivosTableAdapter()
> End If
>
> Return _objetivosAdapter
> End Get
> End Property
> ' Adaptador que trae todos los objetivos y Politica
>
> <System.ComponentModel.DataObjectMethodAttribute(S ystem.ComponentModel.DataObjectMethodType.Select, True)> _
> Public Function GetObjetivos() As DsIso9001.ObjetivosDataTable
> Return Adapter.GetPoliticaObjetivos()
> End Function
>
> 'Adaptador que trae registros de acuerdo al Concepto PADRE
>
> <System.ComponentModel.DataObjectMethodAttribute(S ystem.ComponentModel.DataObjectMethodType.Select, False)> _
> Public Function GetObjetivosPorPadre(ByVal ConceptoPadre As
> Nullable(Of Integer)) As DsIso9001.ObjetivosDataTable
> Return Adapter.GetObjetivosByConceptoPadre(ConceptoPadre)
> End Function
>
> ' Borrado de un Objetivo o Politica:
>
> <System.ComponentModel.DataObjectMethodAttribute(S ystem.ComponentModel.DataObjectMethodType.Delete, False)> _
> Public Function DeleteObjetivos(ByVal Concepto_ID As Integer) As Boolean
> Try
>
> If Adapter.GetObjetivosByConceptoPadre(Concepto_ID).R ows.Count <
> 1 Then
> Return _objetivosAdapter.Delete(Concepto_ID)
> Else
> Throw New Excepcion_RegistroConHijos("Error tiene registros
> ligados")
> End If
>
> Catch ex As Excepcion_RegistroConHijos
> Return False
> End Try
> End Function
>
>