AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

option explicit

Browse Source
This commit is contained in:
rrene
2023-11-15 10:19:49 -07:00
parent c38e51acff
commit a6c2172f24
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Inventarios/RepNotasSinAlmacen.aspx.vb
View File

@@ -213,7 +213,7 @@ Partial Class RepNotasSinAlmacen
Private Sub ImprimirPDFExcel(Optional Formato As String = "PDF") Private Sub ImprimirPDFExcel(Optional Formato As String = "PDF")
Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") 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 'OBTENEMOS LOS DATOS
'Dim CveCliente As Integer = -1 'Dim CveCliente As Integer = -1
@@ -292,7 +292,7 @@ Partial Class RepNotasSinAlmacen
Dim CveCompra As Integer = GvRow.DataKey("CveCompra").ToEntero() Dim CveCompra As Integer = GvRow.DataKey("CveCompra").ToEntero()
Dim CvePS As Integer = GvRow.DataKey("CvePS").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 ObjCompras As New ClsCompras
Dim ObjEventos As New ClsOIEventos Dim ObjEventos As New ClsOIEventos