-- mensaje para E141

OC/OC.aspx.vb

@@ -2401,7 +2401,15 @@ Partial Class OC_OC
             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
 
+            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
         '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
         If ValidaGuardar() Then Exit Sub
 
-
-
-
         Dim MsgError As String = "Hubo un error al registrar"
         'VARIABLES
         Dim CveProveedorSucursal As Integer = -1