From cc84ef2e5996bc0b292c7e526fbe3924e734e52a Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 27 Sep 2023 07:17:16 -0700
Subject: [PATCH] option explciit

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

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 = ""