42 lines
1.0 KiB
VB.net
42 lines
1.0 KiB
VB.net
Option Explicit On
|
|
Option Strict On
|
|
|
|
Partial Class RepContratosCalendario
|
|
Inherits ClsPaginas
|
|
|
|
#Region "PROPIEDADES"
|
|
|
|
#End Region
|
|
|
|
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
|
If Not IsPostBack Then
|
|
InicializaCalendar()
|
|
CargaDatos()
|
|
|
|
End If
|
|
InicializaCalendar()
|
|
|
|
End Sub
|
|
Private Sub CargaDatos()
|
|
Dim ObjContratos As New ClsContratos
|
|
If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, TipoContrato:=2) Then
|
|
GvContratos.DataSource = ObjContratos.DtResultados
|
|
End If
|
|
ObjContratos.Dispose()
|
|
GvContratos.DataBind()
|
|
|
|
End Sub
|
|
Private Sub InicializaCalendar()
|
|
RegistraScript("InitCalendar();")
|
|
DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True
|
|
End Sub
|
|
|
|
Protected Sub ActualizarContrato(sender As Object, e As System.EventArgs)
|
|
RegistraScript("$('#ModalActualizar').modal('show');")
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
End Class
|