From a6c2172f246931cf735f318d10ea4e9921f35ba7 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 15 Nov 2023 10:19:49 -0700 Subject: [PATCH] option explicit --- Inventarios/RepNotasSinAlmacen.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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