-- cambio de GlobalDTSubProyectos

- cambio en GlobalDTUsuarios

Ventas/PV.aspx.vb

@@ -2664,7 +2664,7 @@ Partial Class PV
                     LblEnviarMail.Visible = True
 
                     Dim dr As DataRow = Nothing
-                    dr = GlobalDTSubProyectos(-1).FiltroPrimero("Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa)
+                    dr = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimero("Estatus = 'Activo'   ")
                     If dr IsNot Nothing Then
                         ViewState("MatCalle") = dr("Calle")
                         ViewState("MatNoExt") = dr("NoExt")
@@ -2796,7 +2796,7 @@ Partial Class PV
         UpPS.Update()
     End Sub
     Private Sub CargaFormatoSucursal()
-        Dim dr As DataRow = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto = {0}", If(DdlSubProyectoDatos.SelectedValue = "", "-1", DdlSubProyectoDatos.SelectedValue)))
+        Dim dr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto = {0}", If(DdlSubProyectoDatos.SelectedValue = "", "-1", DdlSubProyectoDatos.SelectedValue)))
         If dr IsNot Nothing Then
             ViewState("SucCalle") = dr("Calle")
             ViewState("SucNoExt") = dr("NoExt")
@@ -4158,10 +4158,10 @@ Partial Class PV
                         If TipoPrecioLista = 10 Then
                             CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero()
                             If CvePrecioListaPS <= 0 Then
-                                CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
+                                CvePrecioListaPS = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
                             End If
                         Else
-                            CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
+                            CvePrecioListaPS = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
                             If CvePrecioListaPS <= 0 Then
                                 CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero()
                             End If
@@ -5538,7 +5538,7 @@ Partial Class PV
                 PU = ObjDescuento.PU
             End If
 
-            Dim RowSP As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).Rows(0)
+            Dim RowSP As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero).Rows(0)
             Dim CveProyecto As Integer = -1 ' 
             Dim Proyecto As String = ""
 
@@ -5867,7 +5867,7 @@ Partial Class PV
 
     'Protected Sub CargarCodigo()
     '    Dim TipoVenta As Integer = 0
-    '    Dim drSucursal As DataRow = GlobalDTSubProyectos(-1).FiltroPrimero(String.Format("CveSubProyecto = {0}", DdlSubProyectoDatos.SelectedValue))
+    '    Dim drSucursal As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa.FiltroPrimero(String.Format("CveSubProyecto = {0}", DdlSubProyectoDatos.SelectedValue))
 
     '    If drSucursal IsNot Nothing Then TipoVenta = drSucursal("TipoVenta").ToString.ToEntero
 
@@ -5880,7 +5880,7 @@ Partial Class PV
     'End Sub
     Protected Sub CargarCodigo()
         Dim TipoVenta As Integer = 0
-        Dim drSucursal As DataRow = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto = {0}", If(DdlSubProyectoDatos.SelectedValue = "", "-1", DdlSubProyectoDatos.SelectedValue)))
+        Dim drSucursal As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto = {0}", If(DdlSubProyectoDatos.SelectedValue = "", "-1", DdlSubProyectoDatos.SelectedValue)))
 
         If drSucursal IsNot Nothing Then TipoVenta = drSucursal("TipoVenta").ToString.ToEntero
 
@@ -6473,7 +6473,7 @@ Partial Class PV
             CargaComboCFDICliente()
 
             'carga datos particulares de la sucursal
-            Dim dr As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero).FiltroPrimero("")
+            Dim dr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero).FiltroPrimero("")
 
             If dr IsNot Nothing Then
                 TxtCPCliente.Text = dr("CP").ToString
@@ -6609,7 +6609,7 @@ Partial Class PV
 
 
         If DdlSubProyectoDatos.SelectedValue.ToEntero() > 0 Then
-            Dim Dr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa).Rows(0)
+            Dim Dr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero()).Rows(0)
             If Dr IsNot Nothing Then
                 If Dr("CvePrecioLista").ToString().ToEntero() > 0 Then
                     CvePrecioLista = Dr("CvePrecioLista").ToString().ToEntero()
@@ -7285,10 +7285,10 @@ Partial Class PV
                 If TipoPrecioLista = 10 Then
                     CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero()
                     If CvePrecioListaPS <= 0 Then
-                        CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
+                        CvePrecioListaPS = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero()).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
                     End If
                 Else
-                    CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
+                    CvePrecioListaPS = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero()).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
                     If CvePrecioListaPS <= 0 Then
                         CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero()
                     End If
@@ -8378,7 +8378,7 @@ Partial Class PV
             ObjUsuario.Dispose()
 
             If Usuario IsNot Nothing Then
-                Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario)
+                Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario, Usuario.CveEmpresa)
                 ADSSessionConfig.sessionUser = Usuario
                 ADSSessionConfig.sessionUser.CvePlataforma = 1
                 ADSSessionConfig.sessionDpage = False