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 <strong>serie</strong> para la poliza en la sección de Observaciones", TipoMensaje.MsgAdvertencia)
+                    Exit Sub
+                ElseIf FaltaObservacion = 20342 Then
+                    Alert("No se ha especificado el <strong>kilometraje</strong> 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