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()