AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
rrene
2024-05-07 10:18:51 -07:00
parent 11a34d4333
commit 2db67a928f
1 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
OC/OC.aspx.vb
View File

@@ -1953,7 +1953,7 @@ Partial Class OC_OC
If isWithFamily() Then If isWithFamily() Then
DdlClasificacion.DataSource = GlobalDTSubFamilias(CveEmpresaActual).FiltraParametros("EstatusCategoria = 'Activo' AND Estatus = 'Activo'") DdlClasificacion.DataSource = GlobalDTSubFamilias(CveEmpresaActual).FiltraParametros("EstatusCategoria = 'Activo' AND Estatus = 'Activo'")
Else Else
DdlClasificacion.DataSource = GlobalDTClasificaciones(CveEmpresaActual) DdlClasificacion.DataSource = GlobalDTClasificaciones(CveEmpresaActual).FiltraParametros(" Estatus = 'Activo' ")
End If End If
DdlClasificacion.DataBind() DdlClasificacion.DataBind()
@@ -2408,7 +2408,7 @@ Partial Class OC_OC
End If End If
'Entrega Directa requiere Cliente y Vendedor '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.") Alert("Al ser una Entrega Directa es necesario seleccionar un cliente, por favor seleccione uno.")
Return True Return True
End If End If
@@ -2425,11 +2425,17 @@ Partial Class OC_OC
Return True Return True
End If 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) Alert("Debe de seleccionar Un vendedor ", TipoMensaje.MsgAdvertencia)
TieneError = True TieneError = True
End If 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 ''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 If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then