diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb
index 073f98587..389ffd36f 100644
--- a/Compras/Proveedores.aspx.vb
+++ b/Compras/Proveedores.aspx.vb
@@ -768,6 +768,11 @@ Partial Class Compras_Proveedores
                 DdlCveUsuarioResponsable.SelectedValue = ObjProveedor.CveUsuarioResponsable.ToString
                 DdlCveTipoProveedor.SelectedValue = ObjProveedor.CveTipoProveedor.ToString
 
+                'EMD: Si no es prisila desablita este campo
+                If UsuarioActual.CveEmpresa = 13 AndAlso Not UsuarioActual.CveUsuario.Contiene(58, 100) Then
+                    DdlCveTipoProveedor.Enabled = False
+                    DdlCveTipoProveedor.Attributes.Add("disabled", "disabled")
+                End If
 
                 If TxtRazonSocial.Text.Trim = TxtNombreComercial.Text.Trim Then TxtRazonSocial.Attributes.Add("onKeyUp", "SetText(" & TxtRazonSocial.ClientID & ", " & TxtNombreComercial.ClientID & ")")