diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index bd627774c..67dd9a69b 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -12603,52 +12603,7 @@ Partial Class Compras_Compras
     End Sub
 #End Region
 
-#Region "C O N T R A T O S"
-    'Protected Sub ImgBtnBuscarContrato_Click(sender As Object, e As ImageClickEventArgs) Handles ImgBtnBuscarContrato.Click
-    '    If CveProveedor <= 0 Then
-    '        Alert("Debe de Seleccionar un proveedor")
-    '        Exit Sub
-    '    End If
 
-    '    RegistraScript(String.Format("AbrirVentana('/Contratos/PopUpBuscarContrato.aspx?V=VCCOMP',730,300,'N');"))
-    'End Sub
-
-    'Protected Sub CargaVContrato(sender As Object, e As EventArgs)
-    '    CargaVContrato2(HdnVCveContrato.Value)
-    'End Sub
-
-    'Protected Sub CargaVContrato2(CveContrato As String)
-    '    If TxtContrato.Text <> "" Then
-    '        Dim ObjContratos As New ClsContratos
-    '        Dim DTContratosTemp As DataTable = Nothing
-
-    '        GvContratos1.DataSource = TmpDT
-    '        GvContratos1.DataBind()
-    '        UPGVContratos1.Update()
-
-    '        Dim ArrayCveContratos As String() = HdnVCveContrato.Value.Split(New Char() {","c})
-    '        For i As Integer = 1 To ArrayCveContratos.Count
-    '            If ObjContratos.GetContratosDetalle(ArrayCveContratos(i - 1).ToEntero) Then
-    '                If IsNothing(DTContratosTemp) Then
-    '                    DTContratosTemp = ObjContratos.DtResultados.Copy
-    '                Else
-    '                    DTContratosTemp.Merge(ObjContratos.DtResultados)
-    '                End If
-    '            Else
-    '                Alert("Ocurrio un ERROR al cargar el Contrato")
-    '                DTContratosTemp.Rows.Clear()
-    '                Exit For
-    '            End If
-    '        Next
-
-    '        GvContratos2.DataSource = DTContratosTemp
-    '        GvContratos2.DataBind()
-    '        UPGVContratos2.Update()
-
-    '        ObjContratos.Dispose()
-    '    End If
-    'End Sub
-#End Region
 
 #Region "TAB ALMACEN - INVENTARIOS     ISRAEL PIÑA - 5 FEBRERO 2015"
 
@@ -18148,7 +18103,7 @@ Partial Class Compras_Compras
         Dim ObjContratos As New ClsContratos
         Dim TieneError As Boolean = False
         Dim Mensaje As String = ""
-        Dim dttemp As DataTable = GlobalDTContratos().FiltraParametros(String.Format("CveSubProyecto = {0}", DdlSubProyecto.SelectedValue.ToString))
+        Dim dttemp As DataTable = Nothing ' GlobalDTContratos().FiltraParametros(String.Format("CveSubProyecto = {0}", DdlSubProyecto.SelectedValue.ToString))
         If dttemp IsNot Nothing AndAlso dttemp.Rows.Count > 0 Then
             Dim drContrato As DataRow = dttemp.Rows(0)
             If ObjContratos.GetContratosDetalle(drContrato("CveContrato").ToString.ToEntero) Then
@@ -18165,19 +18120,19 @@ Partial Class Compras_Compras
                                     TieneError = True
                                 End If
                             Else
-                                Mensaje = "Este producto no pertence al contrato seleccionado"
+                                Mensaje = "Este producto no pertenece al contrato seleccionado."
                                 TieneError = True
                             End If
                         Else
-                            Mensaje = "Error al consultar el contrato"
+                            Mensaje = "Error al consultar el contrato."
                         End If
                     End If
                 Else
-                    Mensaje = "Este producto no pertence al contrato seleccionado"
+                    Mensaje = "Este producto no pertenece al contrato seleccionado."
                     TieneError = True
                 End If
             Else
-                Mensaje = "Error al consultar el contrato"
+                Mensaje = "Error al consultar el contrato."
 
             End If
         End If