From 7924558a00d38afe996e682eed59911256514827 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 15 May 2025 14:16:41 -0700
Subject: [PATCH] =?UTF-8?q?--=20correcci=C3=B3n=20=20bdh-=20factura=20sin?=
 =?UTF-8?q?=20virtual?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 97a59218f..505f8942e 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -2972,11 +2972,11 @@ Partial Class Compras_Compras
                 CvePrePoliza = dr("CvePrePoliza").ToString.ToEntero
                 EstatusAlmacen = dr("EstatusAlmacen").ToString.ToEntero
                 DdlTipoCompra.SelectedValueExist(dr("CveTipoCompra"))
-                If DdlTipoCompra.SelectedValue = "16" Then
+                TipoCompraOriginal = dr("CveTipoCompra").ToString.ToEntero
+                If TipoCompraOriginal = 16 Then
                     DdlTipoCompra.Items.Add(New ListItem("Apoyo sin virtual", "16"))
                     DdlTipoCompra.SelectedValue = dr("CveTipoCompra").ToString
                 End If
-                TipoCompraOriginal = dr("CveTipoCompra").ToString.ToEntero
                 CveTipoConcepto = dr("CveTipoConcepto").ToString.ToEntero
                 ChkEsNoDeducible.Checked = dr("NoDeducible").ToString.ToEntero > 0
                 If ChkEsNoDeducible.Checked Then AplicarNoDeducible()