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

-- cambio en GlobalDT

Browse Source
This commit is contained in:
rrene
2023-02-01 01:04:12 -07:00
parent ebd8267ac3
commit 2a16eb2d68
6 changed files with 22 additions and 2845 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
App_Code/ClsPaginas.vb
View File

@@ -1706,7 +1706,7 @@ Public Class ClsPaginas
' Application("GlobalDTProductosServicios") = value
' End Set
'End Property
ReadOnly Property GlobalDTPS(CveEmpresa As Integer, Optional CvePS As Integer = -1, Optional SATClavePS As String = "-1", Optional AplicaParaVenta As Integer = -1, Optional Estatus As Integer = -1, Optional Codigo As String = "-1") As DataTable
Public Shared ReadOnly Property GlobalDTPS(CveEmpresa As Integer, Optional CvePS As Integer = -1, Optional SATClavePS As String = "-1", Optional AplicaParaVenta As Integer = -1, Optional Estatus As Integer = -1, Optional Codigo As String = "-1") As DataTable
Get
Dim ObjPS As New ClsProductosServicios

2851
Ashx/SIGFacturacion.ashx
View File

File diff suppressed because it is too large Load Diff

2
Compras/CatProveedores.aspx.vb
View File

@@ -22,7 +22,7 @@ Partial Class Compras_CatProveedores
End Sub
Private Sub InicializaValores()
DdlResponsable.DataSource = GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DdlResponsable.DataSource = GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa)
DdlResponsable.DataBind()
DdlResponsable.Items.Insert(0, New ListItem("Todos", "-1"))

2
Compras/RepCompras.aspx.vb
View File

@@ -143,7 +143,7 @@ Partial Class Compras_RepCompras
DdlTipoGasto.DataBind()
'CargaUsuarios
DdlUsuario.DataSource = GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DdlUsuario.DataSource = GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa)
DdlUsuario.DataBind()
'Carga Usuarios Captura

2
Compras/RepComprasDetalle.aspx.vb
View File

@@ -253,7 +253,7 @@ Partial Class Compras_RepComprasDetalle
DdlProveedores.SelectedValue = "-1"
'CargaUsuarios
DdlUsuario.DataSource = GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DdlUsuario.DataSource = GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa)
DdlUsuario.DataBind()
'Carga Usuario Capturo

8
Sistemas/PopUpCambiaUsuario.aspx.vb
View File

@@ -25,9 +25,9 @@ Partial Class Sistemas_PopUpCambiaUsuario
RegistraScript("window.close();")
End If
Dim DtEmp As DataTable = GlobalDTEmpresas.Copy
Dim DtEmp As DataTable = GlobalDTEmpresas(CveEmpresa:=-1).Copy
Dim NombreEmp As String = UsuarioActual.Empresa.Empresa
'''condición para ocultar los nombres de las empresas y ponerles "mi empresa de venta (xxx)"
''condición para ocultar los nombres de las empresas y ponerles "mi empresa de venta (xxx)"
''If UsuarioActual.CveUsuario = 100 Then
'' Dim customerRow() As Data.DataRow
@@ -62,6 +62,8 @@ Partial Class Sistemas_PopUpCambiaUsuario
Case "BDH" : CveEmpresa = "140"
Case "ECONOLLANTAS" : CveEmpresa = "141"
Case "SERVEC" : CveEmpresa = "153"
Case "CITRUS" : CveEmpresa = "172"
Case "KINO" : CveEmpresa = "173"
End Select
End If
DdlEmpresa.DataBind()
@@ -195,7 +197,7 @@ Partial Class Sistemas_PopUpCambiaUsuario
End Sub
Private Sub CargaUsuarios(Optional Orden As String = "Nombre")
Dim dtt As DataTable = GlobalDTUsuarios(-1, DdlEmpresa.SelectedValue.ToEntero)
Dim dtt As DataTable = GlobalDTUsuarios(-1, CveEmpresa:=DdlEmpresa.SelectedValue.ToEntero)
'If DdlRol.SelectedValue <> "-1" Then
' dtt = dtt.FiltraParametros("CveRol=" & DdlRol.SelectedValue)
'End If