13 lines
525 B
VB.net
13 lines
525 B
VB.net
|
Public Class FrmVigenciaAlertas
|
|||
|
|
Private Sub btnCon_Click(sender As Object, e As EventArgs) Handles btnCon.Click
|
|||
|
|
Dim frm As frmVigenciaCon = New frmVigenciaCon(0)
|
|||
|
|
frm.Text = "Aviso de Vigencia de Alertas Con Transacción"
|
|||
|
|
frm.Show()
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub btnSin_Click(sender As Object, e As EventArgs) Handles btnSin.Click
|
|||
|
|
Dim frm As frmVigenciaCon = New frmVigenciaCon(1)
|
|||
|
|
frm.Text = "Aviso de Vigencia de Alertas Sin Transacción"
|
|||
|
|
frm.Show()
|
|||
|
|
End Sub
|
|||
|
|
End Class
|