--Se pasa calendarios y repcontratos a sólo la clase de ClsContratos

Transportes/RepContratos.aspx.vb

@@ -81,14 +81,23 @@ Partial Class ListadoContratos
             Exit Sub
         End If
 
+        'Aumentamos Folio
+        Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero
+        Dim ObjFolios As New ClsGralFolios
+        If ObjFolios.UpdateFolioActual(CveSubProyecto, "Con", True, UsuarioActual.CveEmpresa) Then
+            ObjFolios.Dispose()
+        End If
+
+        'Agregamos Contrato
         Dim ObjContratos As New ClsContratos
         ObjContratos.IniciaTransacSQL()
-
         If ObjContratos.AddContratos(LbFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", 10, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, TxtPesos.Text.ToDecimal, TxtDolares.Text.ToDecimal, -1, 0, CveContratoTipo:=34, CveContratosEstatus:=50, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CantidadPasajeros:=TxtCantidadPasajeros.Text.ToEntero, Observaciones:=TxtObservaciones.Text) > 0 Then
             ObjContratos.Commit()
             Alert("Agregado Correctamente.")
         End If
+        ObjContratos.Dispose()
 
+        'Reiniciamos modal
         TxtDescripcion.Text = ""
         TxtFechaSalida.Text = ""
         TxtFechaRegreso.Text = ""
@@ -101,7 +110,6 @@ Partial Class ListadoContratos
         TxtAnticipo.Text = ""
         TxtCantidadPasajeros.Text = ""
 
-        ObjContratos.Dispose()
         UpModal.Update()
         CargaDatos()
 
@@ -192,4 +200,10 @@ Partial Class ListadoContratos
 
         End If
     End Sub
+
+    Protected Sub GoContratoDetalle(sender As Object, e As EventArgs)
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        Dim CveContrato As String = GvRow.DataKey("CveContrato")
+        Response.Redirect(String.Format("~/Transportes/RepContratoDetalle.aspx?CveContrato={0}", CveContrato))
+    End Sub
 End Class