From dcdaf8c422ed17416819b73d855b4019c62d373f Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 15 Mar 2022 17:59:25 -0700
Subject: [PATCH] -- al agrear poliza virtual, excluir marca lth especiales

---
 Ventas/PV.aspx.vb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index e7065a8a7..f13451d87 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -7480,8 +7480,8 @@ Partial Class PV
         Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
 
         If DrPS IsNot Nothing Then
-            'SOLO DEBE AGREGAR POLIZA VIRTUAL SI ES ACUMULADOR
-            If Not DrPS("CveClasificacion").ToString().ToEntero().Contiene(20520, 20522, 20513, 20511, 20521, 20512, 20514, 20229) Then
+            'SOLO DEBE AGREGAR POLIZA VIRTUAL SI ES ACUMULADOR, y que no sea marca "LTH ESPECIALES"
+            If Not (DrPS("CveClasificacion").ToString().ToEntero().Contiene(20520, 20522, 20513, 20511, 20521, 20512, 20514, 20229) AndAlso DrPS("CveMarca").ToString <> "1050") Then
                 Return Retorno
             End If
         Else