diff --git a/Inventarios/RepNotasSinAlmacen.aspx.vb b/Inventarios/RepNotasSinAlmacen.aspx.vb
index d73264f4a..fb5cdbac1 100644
--- a/Inventarios/RepNotasSinAlmacen.aspx.vb
+++ b/Inventarios/RepNotasSinAlmacen.aspx.vb
@@ -213,7 +213,7 @@ Partial Class RepNotasSinAlmacen
 
     Private Sub ImprimirPDFExcel(Optional Formato As String = "PDF")
         Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+        Dim logouri As String = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
 
         'OBTENEMOS LOS DATOS
         'Dim CveCliente As Integer = -1
@@ -292,7 +292,7 @@ Partial Class RepNotasSinAlmacen
             Dim CveCompra As Integer = GvRow.DataKey("CveCompra").ToEntero()
             Dim CvePS As Integer = GvRow.DataKey("CvePS").ToEntero()
 
-            Dim PS = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimeroValor("PSCodigo", $"CvePS = {CvePS}")
+            Dim PS As String = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimeroValor("PSCodigo", $"CvePS = {CvePS}")
 
             Dim ObjCompras As New ClsCompras
             Dim ObjEventos As New ClsOIEventos