diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index b4c16c542..cc4173b9f 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -21596,8 +21596,8 @@ Partial Class Ventas
 
         'BUSCA POR CODIGO DE BARRAS
         If Not CvePS > 0 AndAlso TxtCodigoBarras.Text.Trim() <> "" Then
-            CodigoBarras = TxtCodigoBarras.Text.Trim()
-            DrProducto = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras = '{CodigoBarras}'")
+
+            DrProducto = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras = '{TxtCodigoBarras.Text.Trim()}'")
             If DrProducto IsNot Nothing Then
                 If DrProducto("Inv_CveMetodoInventario").ToString() = "5" OrElse DrProducto("AplicaSerie").ToString = "True" Then 'si es serie
                     TxtCodigoSerie.Focus()