Documentacion ajsutes, rep ingresos

Edoc/Contratos.aspx.vb

@@ -72,6 +72,7 @@ Partial Class Proveedores_Contratos
         End If
 
         ObjProveedor.Dispose()
+
         DdlTipoContrato.DataBind()
 
         DdlTipoContrato.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -163,6 +164,7 @@ Partial Class Proveedores_Contratos
         If Not ErrorProceso Then
 
             ObjProv.Commit()
+            ObjProv.Dispose()
 
             If CveContrato > 0 Then
                 Alert("Contrato Actualizado Correctamente.")
@@ -177,9 +179,11 @@ Partial Class Proveedores_Contratos
         Else
 
             ObjProv.RollBack()
+            ObjProv.Dispose()
+
         End If
 
-        ObjProv.Dispose()
+
 
 
 
@@ -198,12 +202,14 @@ Partial Class Proveedores_Contratos
             ErrorProceso = True
         End If
 
+        ObjProv.Dispose()
+
         If Not ErrorProceso Then
             CargaDatos()
         End If
 
 
-        ObjProv.Dispose()
+
 
     End Sub
     Protected Sub BtnCatRepresentantes_Click(sender As Object, e As EventArgs)