-- para grupo EMD. que sea requerido especificar el método de pago

This commit is contained in:
2024-05-07 10:18:51 -07:00
parent 11a34d4333
commit 2db67a928f

View File

@@ -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