From 14545bdcadc9db511cb16cac5da7c13f8177bc84 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Fri, 3 Jan 2020 12:04:35 -0700 Subject: [PATCH] =?UTF-8?q?se=20agreg=C3=B3=20validaci=C3=B3n=20para=20el?= =?UTF-8?q?=20caso=20de=20empresa=20llantera=20donde=20ser=20requiere=20el?= =?UTF-8?q?=20texto=20de=20observaciones=20con=20informaci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/Ventas.aspx.vb | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 41dcec827..88e690f9c 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -6454,6 +6454,27 @@ Partial Class Ventas End If End If + 'Valida si en caso de que el detalle tenga llantas o polizas se agreguén kilometraje/serie en la parte de observaciones(solo para el caso de empresas llanteras) + If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then + If TxtObsFact.Text = "" Then + Dim FaltaObservacion As Integer = -1 + For Each PS As GridViewRow In GvPS.Rows + Dim PsRenglon As GridViewRow = PS + Dim CveClasificacion As Integer = PsRenglon.DataKey("CveClasificacion").ToEntero + If CveClasificacion = 20345 Or CveClasificacion = 20342 Then + FaltaObservacion = CveClasificacion + Exit For + End If + Next + If FaltaObservacion = 20345 Then + Alert("No se ha especificado la serie para la poliza en la sección de Observaciones", TipoMensaje.MsgAdvertencia) + Exit Sub + ElseIf FaltaObservacion = 20342 Then + Alert("No se ha especificado el kilometraje para la llanta en el sección de Observaciones", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + End If + End If If UsuarioActual.Empresa.Funcionalidad(135) = "1" And DdlTipoComprobante.SelectedValue = "Cot" Then Alert("Se mando autorización al supervisor.", TipoMensaje.MsgInformacion) @@ -6494,6 +6515,7 @@ Partial Class Ventas End If EmitirImprimirNew() + End Sub #End Region