Impresion de PDF PV, Verificar saldo de almacen al facturar REM

Compras/PopUpVerFactura.aspx.vb

@@ -72,7 +72,6 @@ Partial Class PopUpVerFactura
             Return AppDomain.CurrentDomain.BaseDirectory & "Empresas\" & UsuarioActual.CveEmpresa & "\"
         End Get
     End Property
-
     Private ReadOnly Property DomicilioFiscalCompu As String
         Get
             Dim SisEmpresa As New ClsSisEmpresas()
@@ -85,23 +84,31 @@ Partial Class PopUpVerFactura
             End If
             Return ""
         End Get
-    End Property
+    End Property
+    'Private Property SessionPorImpresion As Boolean
+    '    Get
+    '        Return CBool(IfNull(ViewState("SessionPorImpresion"), False, ViewState("SessionPorImpresion")))
+    '    End Get
+    '    Set(value As Boolean)
+    '        ViewState("SessionPorImpresion") = value
+    '    End Set
+    'End Property
 #End Region
-
-
+
+
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
             'CREA EL OBJECTO USUARIO A PARTIR DEL TOKEN
             If Request.Headers("ADSToken") IsNot Nothing Then
                 Dim UserParams As Hashtable = Parametros(Decripta((Request.Headers("ADSToken").ToString)))
                 Dim CveEmpresaToken As Integer = UserParams("CVEEMPRESA").ToString().ToEntero()
+                Dim CveUsuario As Integer = IfNull(UserParams("CVEUSUARIO"), 100, UserParams("CVEUSUARIO").ToString().ToEntero()).ToString().ToEntero()
 
-                Dim UsuarioToken = ValidaUsuarioSistema(CveEmpresaToken)
+                Dim UsuarioToken = ValidaUsuarioSistema(CveEmpresaToken, CveUsuario)
 
-                If UsuarioToken IsNot Nothing Then
+                If UsuarioToken IsNot Nothing AndAlso UsuarioActual Is Nothing Then
                     Context.Session("UsuarioSIG") = UsuarioToken
                 End If
-
             End If
 
             If Request("RFC") IsNot Nothing AndAlso Request("File") IsNot Nothing Then
@@ -168,15 +175,15 @@ Partial Class PopUpVerFactura
 
 
         End If
-    End Sub
-
+    End Sub
+
 #Region "U S U A R I O - T O K E N"
-
-    Private Function ValidaUsuarioSistema(CveEmpresa As Integer) As Usuario
+
+    Private Function ValidaUsuarioSistema(CveEmpresa As Integer, Optional CveUsuario As Integer = 100) As Usuario
 
         Dim UsuarioToken As Usuario = Nothing
         Dim ObjUsuarios As New ClsSisUsuarios
-        If ObjUsuarios.GetUsuarios(100) Then
+        If ObjUsuarios.GetUsuarios(CveUsuario) Then
             If ObjUsuarios.DtResultados.Rows.Count > 0 Then
                 Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
                 Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()