From 2db67a928f5905b4110e5bf4c09babc85e5f1a30 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 7 May 2024 10:18:51 -0700 Subject: [PATCH] =?UTF-8?q?--=20para=20grupo=20EMD.=20que=20sea=20requerid?= =?UTF-8?q?o=20especificar=20el=20m=C3=A9todo=20de=20pago?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- OC/OC.aspx.vb | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) 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