Private Sub FrmActaMatrimonio_Load(ByVal sender As Object, ByVal e As [Link]) Handles [Link] Try Me.btnLook_.Enabled = True [Link]() Me.
IniciaGridPersonas() ' [Link]() Catch ex As Exception [Link]([Link], "Error", [Link], [Link]) End Try End Sub Private Sub listarTipMatrimonio() Dim loTipMat As New S30TipMatri_Presentacion [Link] = loTipMat.S30BuscarTipoMatrimonio() [Link] = "N_TipMat" [Link] = "C_TipMAt" End Sub
Private Sub btnDelete__Click(ByVal sender As [Link], ByVal e As [Link]) Handles btnDelete_.Click Try If Me.txtC_actMat.[Link] = 0 Then [Link]("Ud. primero debe de realizar la busqueda del acta de matrimonio que desea eliminar") Else If MsgBox("Esta Seguro de Eliminar El Registro Seleccionado ?", [Link], "Alerta") = [Link] Then [Link].S30EliminarActaMatrimonio(Me.txtC_actMat.[Link]) 'S30EliminarActaMatrimonio(Me.txtC_actMat.[Link]) [Link]() [Link](False) End If
End If Catch ex As Exception [Link]([Link], "Error", [Link]) End Try End Sub Private Sub btnSave__Click(ByVal sender As [Link], ByVal e As [Link]) Handles btnSave_.Click Dim band As Boolean = False Dim dtActMatPersona As DataTable Try If [Link] > 0 AndAlso [Link] IsNot Nothing Then If Me.txtC_Fun.[Link] = 0 Then [Link]("Debe seleccionar a la Autoridad Celebrante") Else If [Link] = 0 Or [Link] = 0 Then [Link]("Faltan datos por ingresar") band = True 'desabilito botones Else If [Link] = 4 Then If [Link] = "2" Then 'modificar acta matrimonio If [Link] = 0 Then [Link]("Ud. tiene que ingresar el motivo por la cual va a modificar") band = True Else dtActMatPersona = [Link] [Link] = "dtActMatPersona" [Link](Me.txtC_actMat.[Link], [Link], [Link], Me.txtC_Fun.Text, [Link], [Link], [Link], [Link], dtActMatPersona) [Link] = False [Link] = False End If End If If [Link] = "1" Then dtActaMatrimonio = [Link] [Link] = "dtActMatPersona"
[Link].S30AgregarActaCelebracion([Link], [Link], Me.txtC_Fun.Text, [Link], [Link], [Link], gcLogin, dtActaMatrimonio) [Link]("Se registro con exito...!!") '[Link](False) band = True End If Else [Link]("Debes contar con 4 intervinientes para el registro") Me.Cambio_Estado = False [Link](True) End If ' End If Me.Cambio_Estado = False [Link](band) End If Else [Link]("Ud. debe tener ingresar la informacion de los intervienientes") End If Catch ex As Exception [Link]([Link]) [Link]() End Try End Sub Private Sub IniciaGridPersonas() Dim loActaPersona As New S30ActMatPersonas_Presentacion Try [Link] = False [Link] = loActaPersona.S30BuscarActMatPersona(Nothing, "") Catch ex As Exception [Link]([Link], "Error", [Link], [Link]) End Try End Sub Private Sub txtExp_KeyPress(ByVal sender As Object, ByVal e As [Link])
If [Link]([Link]) Then [Link] = False ElseIf [Link]([Link]) Then [Link] = False Else [Link] = True End If End Sub Private Sub btnQuitar_Click_1(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] Dim loActMatPersonas As New S30ActMatPersonas_Presentacion Dim dtPersonas As New DataTable Try If [Link] > 0 AndAlso [Link] IsNot Nothing Then dtPersonas = DirectCast([Link], DataTable) [Link]([Link]).Delete() [Link]() [Link] = False [Link] = dtPersonas End If Catch ex As Exception [Link]([Link], "Error", [Link], [Link]) End Try End Sub End Class
Buscar persona
Private Sub btnBuscar_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] Dim dtPersonas As New DataTable Try If [Link] = 0 Then If [Link] = "Por Nombre" Then
' dtPersonas = [Link].S30BuscarPersona("", [Link], "02") [Link] = "dtPersonas" [Link] = False [Link] = dtPersonas End If Else [Link]("Ud. debe seleccionar una opcion") End If Catch ex As Exception [Link]([Link], "Error", [Link]) End Try End Sub Private Sub FrmBuscarPersona_Load(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] listarCombo() End Sub Private Sub listarCombo() [Link]("Por Documento") [Link]("Por Nombre") End Sub End Class