client/Reportes/VigenciaAlertas/FrmVigenciaAlertas.vb

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