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

-- mensaje para E141

Browse Source
This commit is contained in:
rrene
2023-07-16 17:02:17 -07:00
parent 24ba71bfe2
commit bff73be8a8
1 changed files with 8 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
OC/OC.aspx.vb
View File

@@ -2401,7 +2401,15 @@ Partial Class OC_OC
TieneError = True TieneError = True
End If 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
Dim dtc As DataTable = DtDetalle.FiltraParametros("Clasificacion like '%Llanta%'")
If dtc IsNot Nothing AndAlso dtc.Rows.Count > 0 AndAlso TxtFechaEstimadaEntrega.Text.ToDate <= MinFecha Then
Alert("Cuando se incluyan productos llantas, deberán especificar fecha estimada de entrega.", TipoMensaje.MsgAdvertencia)
TieneError = True
End If
End If
'SI ES REQUISICION, NO REQUIERE COTIZACION Y ES ESTATUSFINALOK... ENTONCES DEBE DE TENER UN PROVEEDOR SELECCIONADO Y LOS PRECIOS CAPTURADOS 'SI ES REQUISICION, NO REQUIERE COTIZACION Y ES ESTATUSFINALOK... ENTONCES DEBE DE TENER UN PROVEEDOR SELECCIONADO Y LOS PRECIOS CAPTURADOS
'If (TipoOC = "REQ" And ChkCotizacion.Checked = False And CboE.SelectedValue.ToEntero = CveEstatusFinalOK) OrElse TipoOC = "OC" Then 'If (TipoOC = "REQ" And ChkCotizacion.Checked = False And CboE.SelectedValue.ToEntero = CveEstatusFinalOK) OrElse TipoOC = "OC" Then
@@ -2590,9 +2598,6 @@ Partial Class OC_OC
'VALIDACIONES PARA GUARDAR 'VALIDACIONES PARA GUARDAR
If ValidaGuardar() Then Exit Sub If ValidaGuardar() Then Exit Sub
Dim MsgError As String = "Hubo un error al registrar" Dim MsgError As String = "Hubo un error al registrar"
'VARIABLES 'VARIABLES
Dim CveProveedorSucursal As Integer = -1 Dim CveProveedorSucursal As Integer = -1