Nombre de usuario en corte

Compras/PopUpVerFactura.aspx.vb

@@ -1741,6 +1741,7 @@ Partial Class PopUpVerFactura
                 If ObjVta.GetVta_Cortes("-1", "-1", -1, CveCorte, UsuarioActual.CveEmpresa, -1) AndAlso ObjVta.DtResultados.Rows.Count > 0 Then
                     FechaConsulta = ObjVta.DtResultados.FiltroPrimeroValor("FechaInicial").ToString().ToDate().Date
                     CveSubProyecto = ObjVta.DtResultados.FiltroPrimeroValor("CveSubProyecto").ToEntero()
+                    Nombre = ObjVta.DtResultados.FiltroPrimeroValor("UsuarioNombre").ToString
                 End If
             End Using
         End If
@@ -1761,7 +1762,7 @@ Partial Class PopUpVerFactura
 
             If RowInfo IsNot Nothing Then
                 Fecha = RowInfo("FechaInicial").ToString
-                Nombre = RowInfo("Nombre").ToString
+
             End If
 
         End If

Ventas/CatAutorizacionLimites.aspx.vb

@@ -88,8 +88,11 @@ Partial Class Ventas_CatAutorizacionLimites
         FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim.ToDate, MinFecha)
         FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim.ToDate, MaxFecha)
 
+        Dim CveUsuarioConsulta As Integer = UsuarioActual.CveUsuario
+        If UsuarioActual.Empresa.Funcionalidad(595) = "3" Then CveUsuarioConsulta = -1
+
         Dim ObjGral As New ClsVentas
-        If ObjGral.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, DdlVendedorFiltro.SelectedValue.ToEntero(), "-1", CveEstatus:=DdlEstatus.SelectedValue.ToEntero(), FechaI:=FechaI, FechaF:=FechaF, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
+        If ObjGral.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, DdlVendedorFiltro.SelectedValue.ToEntero(), "-1", CveEstatus:=DdlEstatus.SelectedValue.ToEntero(), FechaI:=FechaI, FechaF:=FechaF, CveUsuarioConsulta:=CveUsuarioConsulta) Then
             GvDatos.DataSource = ObjGral.DtResultados
         End If
         ObjGral.Dispose()