diff --git a/Inventarios/PopUpExistenciasAlmacen.aspx.vb b/Inventarios/PopUpExistenciasAlmacen.aspx.vb
index 4f276a596..d12d6cc59 100644
--- a/Inventarios/PopUpExistenciasAlmacen.aspx.vb
+++ b/Inventarios/PopUpExistenciasAlmacen.aspx.vb
@@ -122,7 +122,7 @@ Partial Class Inventarios_Default
                     GV.DataSource = ObjInventarios.DtResultados
                 Else
                     GV.DataSource = Nothing
-                    Dim Js = If(Tipo = 1, "", "window.setTimeout(Focus,200);")
+                    Dim Js As String = If(Tipo = 1, "", "window.setTimeout(Focus,200);")
                     Alert("No se encontraron registros con los parámetros solicitados.", Extensiones.TipoMensaje.MsgAdvertencia)
                 End If
             End If
@@ -237,7 +237,7 @@ Partial Class Inventarios_Default
             Exit Sub
         End If
 
-        Dim DrPS = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras = '{TxtCodigoPS.Text}'")
+        Dim DrPS As Data.DataRow = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras = '{TxtCodigoPS.Text}'")
         If DrPS Is Nothing Then
             Alert($"No se ha encontrado un producto del Codigo ""<b>{TxtCodigoPS.Text}</b>"". ", TipoMensaje.MsgAdvertencia, "window.setTimeout(Focus,200);")
             TxtCodigoPS.Text = ""