diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index d77b1c6be..0ac68a0f0 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -2240,7 +2240,7 @@ Partial Class OC
         End If
 
         'Valida que tenga proveedore
-        If (EsNuevo = True AndAlso TipoOC.ToUpper = "OC"4) AndAlso DdlProveedores.SelectedValue.ToEntero() <= 0 Then
+        If (EsNuevo = True AndAlso TipoOC.ToUpper = "OC") AndAlso DdlProveedores.SelectedValue.ToEntero() <= 0 Then
             Alert("Debe seleccionar un proveedor.", TipoMensaje.MsgAdvertencia)
             TieneError = True
         End If