BDH. Validar si tiene ajustes por garantia. si tiene el concepto de descuento por garantia.

Ventas/PV.aspx.vb

@@ -3465,6 +3465,11 @@ Partial Class PV
             MandarCorreoSupervisor = False
         End If
 
+        If TmpDT.FiltraParametros("Obs = 'Descuento por garantía'").Rows.Count > 0 AndAlso (TmpDTAjustes Is Nothing OrElse TmpDTAjustes.Rows.Count = 0) Then
+            Alert("No se ha especificado la garantía", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         'If TmpDTAjustes IsNot Nothing AndAlso Not TmpDTAjustes.Rows.Count > 0 AndAlso UsuarioActual.Empresa.Funcionalidad(531).ToString = "1" Then
         '    RegistraScript("$('#DModalRecepcionUsados').modal('show');")
         'Else