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-18 18:07:33 -07:00
parent b6881ad6c1
commit 2894c88c02
2 changed files with 30 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
App_Code/ClsPaginas.vb
View File

@@ -174,12 +174,12 @@ Public Class ClsPaginas
Application("GlobalTipoCambioEuro") = value Application("GlobalTipoCambioEuro") = value
End Set End Set
End Property End Property
Property GlobalDTUsuarios(Optional CveUsuario As Integer = -1, Optional CveEmpresa As Integer = -1, Optional CveCliente As Integer = -1, Optional CveProveedor As Integer = -1) As DataTable Public Shared Property GlobalDTUsuarios(Optional CveUsuario As Integer = -1, Optional CveEmpresa As Integer = -1, Optional CveCliente As Integer = -1, Optional CveProveedor As Integer = -1) As DataTable
Get Get
Dim AppNombre As String = $"GlobalDTUsuarios-{CveEmpresa}" Dim AppNombre As String = $"GlobalDTUsuarios-{CveEmpresa}"
If Application(AppNombre) Is Nothing Then If HttpContext.Current.Application(AppNombre) Is Nothing Then
Using ObjUsuarios As New ClsSisUsuarios Using ObjUsuarios As New ClsSisUsuarios
If ObjUsuarios.GetUsuariosEmpresas(-1, CveEmpresa) Then Application(AppNombre) = ObjUsuarios.DtResultados If ObjUsuarios.GetUsuariosEmpresas(-1, CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjUsuarios.DtResultados
End Using End Using
End If End If
Dim Str As New StringBuilder Dim Str As New StringBuilder
@@ -188,16 +188,16 @@ Public Class ClsPaginas
If CveCliente <> -1 Then Str.AppendFormat(" {0} CveCliente = {1}", If(Str.Length > 0, "AND", ""), CveCliente) If CveCliente <> -1 Then Str.AppendFormat(" {0} CveCliente = {1}", If(Str.Length > 0, "AND", ""), CveCliente)
If CveProveedor <> -1 Then Str.AppendFormat(" {0} CveProveedor = {1}", If(Str.Length > 0, "AND", ""), CveProveedor) If CveProveedor <> -1 Then Str.AppendFormat(" {0} CveProveedor = {1}", If(Str.Length > 0, "AND", ""), CveProveedor)
If CveUsuario <> -1 OrElse CveEmpresa <> -1 Then If CveUsuario <> -1 OrElse CveEmpresa <> -1 Then
Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows) Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
GlobalDTUsuarios = Dv.ToTable GlobalDTUsuarios = Dv.ToTable
Dv.Dispose() Dv.Dispose()
Else Else
GlobalDTUsuarios = DirectCast(Application(AppNombre), DataTable) GlobalDTUsuarios = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
End If End If
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Dim AppNombre As String = $"GlobalDTUsuarios-{CveEmpresa}" Dim AppNombre As String = $"GlobalDTUsuarios-{CveEmpresa}"
Application(AppNombre) = value HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property
Property GlobalDTNomConceptos(CveEmpresa As Integer) As DataTable Property GlobalDTNomConceptos(CveEmpresa As Integer) As DataTable

48
asmx/WSApp.asmx
View File

@@ -96,7 +96,7 @@ Public Class WSApp
Salida = New WSUSER Salida = New WSUSER
Salida.CveUsuario = UsuarioActual.CveUsuario Salida.CveUsuario = UsuarioActual.CveUsuario
Salida.CveEmpresa = UsuarioActual.CveEmpresa Salida.CveEmpresa = UsuarioActual.CveEmpresa
Salida.Empresa = GlobalDTUsuarios(UsuarioActual.CveUsuario).FiltroPrimeroValor("Empresa") Salida.Empresa = ClsPaginas.GlobalDTUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Empresa")
Salida.CveCliente = UsuarioActual.CveCliente Salida.CveCliente = UsuarioActual.CveCliente
Salida.Usuario = UsuarioActual.Usuario Salida.Usuario = UsuarioActual.Usuario
Salida.Nombre = UsuarioActual.Nombre Salida.Nombre = UsuarioActual.Nombre
@@ -145,7 +145,7 @@ Public Class WSApp
Salida = New WSUSER Salida = New WSUSER
Salida.CveUsuario = UsuarioActual.CveUsuario Salida.CveUsuario = UsuarioActual.CveUsuario
Salida.CveEmpresa = UsuarioActual.CveEmpresa Salida.CveEmpresa = UsuarioActual.CveEmpresa
Salida.Empresa = GlobalDTUsuarios(UsuarioActual.CveUsuario).FiltroPrimeroValor("Empresa") Salida.Empresa = ClsPaginas.GlobalDTUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Empresa")
Salida.CveCliente = UsuarioActual.CveCliente Salida.CveCliente = UsuarioActual.CveCliente
Salida.Usuario = UsuarioActual.Usuario Salida.Usuario = UsuarioActual.Usuario
Salida.Nombre = UsuarioActual.Nombre Salida.Nombre = UsuarioActual.Nombre
@@ -242,7 +242,7 @@ Public Class WSApp
End Function End Function
<WebMethod()> <WebMethod()>
Public Function GetClasificaciones() As String Public Function GetClasificaciones() As String
Return GlobalDTClasificaciones(CveEmpresa).ToJson() Return ClsPaginas.GlobalDTClasificaciones(CveEmpresa).ToJson()
End Function End Function
<WebMethod()> <WebMethod()>
Public Function GetPrecioLista() As String Public Function GetPrecioLista() As String
@@ -256,7 +256,7 @@ Public Class WSApp
End Function End Function
<WebMethod()> <WebMethod()>
Public Function GetUnidadesMedida() As String Public Function GetUnidadesMedida() As String
Return GlobalDTUnidadesMedida(CveEmpresa).ToJson() Return ClsPaginas.GlobalDTUnidadesMedida(CveEmpresa).ToJson()
End Function End Function
<WebMethod()> <WebMethod()>
@@ -275,7 +275,7 @@ Public Class WSApp
Dim ObjPS As New ClsProductosServicios Dim ObjPS As New ClsProductosServicios
Try Try
For Each PS In ListaPS For Each PS In ListaPS
Dim CveTipoPS As Integer = GlobalDTPSSimplificado(CveEmpresa, CvePS:=PS.CvePS).FiltroPrimeroValor("CveTipoPS").ToEntero() Dim CveTipoPS As Integer = ClsPaginas.GlobalDTPSSimplificado(CveEmpresa, CvePS:=PS.CvePS).FiltroPrimeroValor("CveTipoPS").ToEntero()
If CveTipoPS > 0 Then If CveTipoPS > 0 Then
If CveTipoPS = 2 Then If CveTipoPS = 2 Then
If ObjPS.GetPSExistencias(PS.CvePS, -1, -1, CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm")) Then If ObjPS.GetPSExistencias(PS.CvePS, -1, -1, CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm")) Then
@@ -556,10 +556,10 @@ Public Class WSApp
If CveSubProyecto <= 0 Then If CveSubProyecto <= 0 Then
'SE ASIGNA EL SUBPROYECTO MATRIZ, EN CASO DE NO ENCONTRARSE SE LE ASIGNA CUALQUIERA 'SE ASIGNA EL SUBPROYECTO MATRIZ, EN CASO DE NO ENCONTRARSE SE LE ASIGNA CUALQUIERA
Dim Dr As DataRow = Nothing Dim Dr As DataRow = Nothing
If GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("TipoSucursal = 1").Rows.Count > 0 Then If ClsPaginas.GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("TipoSucursal = 1").Rows.Count > 0 Then
Dr = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("TipoSucursal = 1").Rows(0) Dr = ClsPaginas.GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("TipoSucursal = 1").Rows(0)
ElseIf GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).Rows.Count > 0 Then ElseIf ClsPaginas.GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).Rows.Count > 0 Then
Dr = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).Rows(0) Dr = ClsPaginas.GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).Rows(0)
End If End If
If Dr IsNot Nothing Then If Dr IsNot Nothing Then
@@ -591,9 +591,9 @@ Public Class WSApp
Case 1 Case 1
ObjFactura.TipoCambio = "1" ObjFactura.TipoCambio = "1"
Case 2 Case 2
ObjFactura.TipoCambio = GlobalTipoCambio(Now).ToString ObjFactura.TipoCambio = ClsPaginas.GlobalTipoCambio(Now).ToString
Case Else Case Else
ObjFactura.TipoCambio = GlobalTipoCambio(Now).ToString ObjFactura.TipoCambio = ClsPaginas.GlobalTipoCambio(Now).ToString
End Select End Select
ObjFactura.CveVendedor = -1 ObjFactura.CveVendedor = -1
@@ -613,8 +613,8 @@ Public Class WSApp
ObjFactura.TipoCambio = 1 ObjFactura.TipoCambio = 1
ObjFactura.ConvertirPesos = False ObjFactura.ConvertirPesos = False
ObjFactura.CveMoneda = CveMoneda ObjFactura.CveMoneda = CveMoneda
ObjFactura.Moneda = GlobalDTMonedas.FiltroPrimeroValor("Moneda", $"CveMoneda = {CveMoneda} ") ObjFactura.Moneda = ClsPaginas.GlobalDTMonedas.FiltroPrimeroValor("Moneda", $"CveMoneda = {CveMoneda} ")
ObjFactura.MonedaSAT = GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", "CveMoneda = 1") ObjFactura.MonedaSAT = ClsPaginas.GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", "CveMoneda = 1")
ObjFactura.TipoDocto = "Rem" ObjFactura.TipoDocto = "Rem"
ObjFactura.RefDocto = "" ObjFactura.RefDocto = ""
'ObjFactura.CveMesa = -1 'ObjFactura.CveMesa = -1
@@ -645,8 +645,8 @@ Public Class WSApp
ObjFactura.CveSubProyecto = CveSubProyecto ObjFactura.CveSubProyecto = CveSubProyecto
ObjFactura.CveSubProyectoCobranza = CveSubProyecto ObjFactura.CveSubProyectoCobranza = CveSubProyecto
ObjFactura.CveSubProyectoEjecucion = CveSubProyecto ObjFactura.CveSubProyectoEjecucion = CveSubProyecto
ObjFactura.SubProyecto = New SubProyectoModel(GlobalDTSubProyectos(-1).FiltroPrimero($"CveSubProyecto = {CveSubProyecto}")) ObjFactura.SubProyecto = New SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(-1).FiltroPrimero($"CveSubProyecto = {CveSubProyecto}"))
ObjFactura.SubProyectoMatriz = New SubProyectoModel(GlobalDTSubProyectos(-1, CveSubProyecto:=-1, CveEmpresa:=CveEmpresa).FiltroPrimero("TipoSucursal=1")) ObjFactura.SubProyectoMatriz = New SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(-1, CveSubProyecto:=-1, CveEmpresa:=CveEmpresa).FiltroPrimero("TipoSucursal=1"))
'CLIENTE 'CLIENTE
ObjFactura.CveCliente = CveCliente ObjFactura.CveCliente = CveCliente
@@ -657,20 +657,20 @@ Public Class WSApp
If ObjCliente.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, CveEmpresa, -1, TipoCliente:=-1) Then If ObjCliente.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, CveEmpresa, -1, TipoCliente:=-1) Then
If ObjCliente.DtResultados.Rows.Count > 0 Then If ObjCliente.DtResultados.Rows.Count > 0 Then
ObjFactura.CveFormaPago33 = ObjCliente.CveFormaPago33 ObjFactura.CveFormaPago33 = ObjCliente.CveFormaPago33
ObjFactura.FormaPago33 = GlobalDTVtaFormaPago.FiltroPrimeroValor("FormaPago", $"CveFormaPago = {ObjCliente.CveFormaPago33}") ObjFactura.FormaPago33 = ClsPaginas.GlobalDTVtaFormaPago.FiltroPrimeroValor("FormaPago", $"CveFormaPago = {ObjCliente.CveFormaPago33}")
ObjFactura.FormaPagoSAT33 = GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", $"CveFormaPago = {ObjCliente.CveFormaPago33}") ObjFactura.FormaPagoSAT33 = ClsPaginas.GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", $"CveFormaPago = {ObjCliente.CveFormaPago33}")
ObjFactura.CveMetodoPago33 = ObjCliente.CveMetodoPago33 ObjFactura.CveMetodoPago33 = ObjCliente.CveMetodoPago33
ObjFactura.MetodoPago33 = GlobalDTVtaMetodoPago.FiltroPrimeroValor("MetodoPago", $"CveMetodoPago = {ObjCliente.CveMetodoPago33}") ObjFactura.MetodoPago33 = ClsPaginas.GlobalDTVtaMetodoPago.FiltroPrimeroValor("MetodoPago", $"CveMetodoPago = {ObjCliente.CveMetodoPago33}")
ObjFactura.ClaveMetodoPagoSAT = GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", $"CveMetodoPago = {ObjCliente.CveMetodoPago33}") ObjFactura.ClaveMetodoPagoSAT = ClsPaginas.GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", $"CveMetodoPago = {ObjCliente.CveMetodoPago33}")
ObjFactura.CveUsoCFDI = ObjCliente.CveUsoCFDI ObjFactura.CveUsoCFDI = ObjCliente.CveUsoCFDI
ObjFactura.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", $"CveUsoCFDI = {ObjCliente.CveUsoCFDI}") ObjFactura.UsoCFDI = ClsPaginas.GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", $"CveUsoCFDI = {ObjCliente.CveUsoCFDI}")
ObjFactura.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {ObjCliente.CveUsoCFDI}") ObjFactura.ClaveUsoCFDI = ClsPaginas.GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {ObjCliente.CveUsoCFDI}")
ObjFactura.CveMetodoPago = ObjCliente.CveMetodoPago33 ObjFactura.CveMetodoPago = ObjCliente.CveMetodoPago33
If GlobalDTMetodosPago.FiltraParametros($"CveMetodoPago = {ObjCliente.CveMetodoPago33}").Rows.Count > 0 Then If ClsPaginas.GlobalDTMetodosPago.FiltraParametros($"CveMetodoPago = {ObjCliente.CveMetodoPago33}").Rows.Count > 0 Then
ObjFactura.MetodoPago = GlobalDTMetodosPago.FiltraParametros($"CveMetodoPago = {ObjCliente.CveMetodoPago33}").Rows(0)("MetodoPago").ToString ObjFactura.MetodoPago = ClsPaginas.GlobalDTMetodosPago.FiltraParametros($"CveMetodoPago = {ObjCliente.CveMetodoPago33}").Rows(0)("MetodoPago").ToString
Else Else
ObjFactura.CveMetodoPago = 1 ObjFactura.CveMetodoPago = 1
ObjFactura.MetodoPago = "Efectivo" ObjFactura.MetodoPago = "Efectivo"
@@ -905,7 +905,7 @@ Public Class WSApp
End If End If
Dim DrSubProyecto As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto).Rows(0) Dim DrSubProyecto As DataRow = ClsPaginas.GlobalDTSubProyectos(-1, CveSubProyecto).Rows(0)
Row = TmpDT.NewRow() Row = TmpDT.NewRow()
Row("CveProyecto") = DrSubProyecto("CveProyecto").ToString().ToEntero() Row("CveProyecto") = DrSubProyecto("CveProyecto").ToString().ToEntero()