diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index f7e559b31..027f645fe 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -1953,7 +1953,7 @@ Partial Class OC_OC
         If isWithFamily() Then
             DdlClasificacion.DataSource = GlobalDTSubFamilias(CveEmpresaActual).FiltraParametros("EstatusCategoria = 'Activo' AND Estatus = 'Activo'")
         Else
-            DdlClasificacion.DataSource = GlobalDTClasificaciones(CveEmpresaActual)
+            DdlClasificacion.DataSource = GlobalDTClasificaciones(CveEmpresaActual).FiltraParametros(" Estatus = 'Activo' ")
         End If
 
         DdlClasificacion.DataBind()
@@ -2408,7 +2408,7 @@ Partial Class OC_OC
         End If
 
         'Entrega Directa requiere Cliente y Vendedor
-        If ChkEntregaDirecta.Checked And Ddlcliente.txtValue.Value.ToEntero <= 0 Then
+        If ChkEntregaDirecta.Checked AndAlso Ddlcliente.txtValue.Value.ToEntero <= 0 Then
             Alert("Al ser una Entrega Directa es necesario seleccionar un cliente, por favor seleccione uno.")
             Return True
         End If
@@ -2425,11 +2425,17 @@ Partial Class OC_OC
             Return True
         End If
 
-        If Ddlcliente.txtValue.Value.ToEntero > 0 And DdlVendedor.SelectedValue.ToEntero <= 0 Then
+        If Ddlcliente.txtValue.Value.ToEntero > 0 AndAlso DdlVendedor.SelectedValue.ToEntero <= 0 Then
             Alert("Debe de seleccionar Un vendedor ", TipoMensaje.MsgAdvertencia)
             TieneError = True
         End If
 
+        'validación EMD/PRISAY, que tengan método de pago
+        If UsuarioActual.CveEmpresa.Contiene(13, 83) AndAlso DdlMetodoPago.SelectedValue.ToEntero <= -1 Then
+            Alert("Debe de seleccionar método de pago.", TipoMensaje.MsgAdvertencia)
+            TieneError = True
+        End If
+
         ''validación que para empresas llanteras, y la clasif son llantas, que requiere la fecha de estimación
         If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then