--Se agregaron el módulo 603 RepContratosCalendario a ClsPaginas. Se agrega el case a ProcessRequest "contratos_transportes" y la función GetContratos para mostrarlos en calendario(faltan ajustes específicos). Se agrega el apartado de chofer al modal al agregar contratos(falta ver a dónde se asignará esa variable, si se crea otra o se asignada a alguna de las variables ya existentes). Se crea y alimenta RepContratosCalendarios para mostrar el calendario de contratos.

Transportes/RepContratos.aspx.vb

@@ -1,5 +1,6 @@
 Option Explicit On
 Option Strict On
+Imports Extensiones
 Imports Extensiones.ModExtensiones
 
 Partial Class ListadoContratos
@@ -15,12 +16,12 @@ Partial Class ListadoContratos
     End Property
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
+            DdlClientes.setEsWebService(True)
             InicializaCombos()
             CargaDatos()
         End If
     End Sub
     Private Sub InicializaCombos()
-        DdlClientes.setEsWebService(True)
         'Lista Activos Fijos'
         Dim ObjAF As New ClsAF()
         If ObjAF.GetActivosFijos(-1, 13, "-1", "-1", -1, -1, "-1", -1, -1, -1, -1, 1, "-1", -1, -1, -1) Then
@@ -31,6 +32,14 @@ Partial Class ListadoContratos
         End If
         DdlTransporte.DataBind()
         ObjAF.Dispose()
+
+        'Lista Chofer'
+        DdlChofer.DataSource = GlobalDTRHPersonal(185)
+        DdlChofer.DataBind()
+        DdlChofer.Items.Insert(0, New ListItem("Seleccione", ""))
+
+
+        UpModal.Update()
     End Sub
     Private Sub CargaDatos()
         Dim ObjContratos As New ClsContratos