diff --git a/Transportes/RepContratosCalendario.aspx.vb b/Transportes/RepContratosCalendario.aspx.vb
index 251793fff..0f72b315c 100644
--- a/Transportes/RepContratosCalendario.aspx.vb
+++ b/Transportes/RepContratosCalendario.aspx.vb
@@ -111,15 +111,15 @@ Partial Class RepContratosCalendario
         ObjContratos.IniciaTransacSQL()
 
         If ObjContratos.UpdateContratoAF(CveContrato.Value.ToEntero, DdlAF.SelectedValue.ToEntero, DdlChofer.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
-                    ObjContratos.Commit()
-                    Alert("Actualizado Correctamente.")
-                Else
-                    ObjContratos.RollBack()
-                End If
-
-                ObjContratos.Dispose()
-                CargaDatos()
+            ObjContratos.Commit()
+            Alert("Actualizado Correctamente.")
+        Else
+            ObjContratos.RollBack()
+        End If
 
+        ObjContratos.Dispose()
+        CargaDatos()
+    End Sub
     Protected Sub UpdateModal(sender As Object, e As EventArgs)
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)