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

-- cambios en manejo de GlobalDTs

Browse Source
This commit is contained in:
rrene
2023-02-01 10:55:36 -07:00
parent 438abc98cf
commit 8465bda048
16 changed files with 68 additions and 63 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Compras/RepComprasG.aspx.vb
View File

@@ -30,7 +30,7 @@ Partial Class Compras_RepComprasG
'TxtFechaICaptura.Text = Now.AddMonths(-1).FirstDayOfMonth.ToShortDateString 'TxtFechaICaptura.Text = Now.AddMonths(-1).FirstDayOfMonth.ToShortDateString
'TxtFechaFCaptura.Text = Now.ToShortDateString 'TxtFechaFCaptura.Text = Now.ToShortDateString
DDlUsuarioCaptura.DataSource = GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) DDlUsuarioCaptura.DataSource = GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa)
DDlUsuarioCaptura.DataBind() DDlUsuarioCaptura.DataBind()
DdlEstatusCompra.DataSource = GlobalDTCompEstatusFactura.FiltraParametros("CveEstatusFactura IN (1,2)") DdlEstatusCompra.DataSource = GlobalDTCompEstatusFactura.FiltraParametros("CveEstatusFactura IN (1,2)")

2
Compras/RepComprasPeriodo.aspx.vb
View File

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

4
Compras/RepCxP.aspx.vb
View File

@@ -124,9 +124,7 @@ Partial Class Compras_RepCxP
DdlProveedor.ddl.Items.Insert(0, New ListItem("Todos", "-1")) DdlProveedor.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
End If End If
DdlUsuarioResponsable.DataSource = GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa)
DdlUsuarioResponsable.DataSource = GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa).FiltraParametros("ProveedoresResponsables > 0")
DdlUsuarioResponsable.DataBind() DdlUsuarioResponsable.DataBind()
'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) 'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)

2
Compras/RepCxPDetalle.aspx.vb
View File

@@ -245,7 +245,7 @@ Partial Class RepCxPDetalle
'CargaUsuarios 'CargaUsuarios
Dim UsuarioResponsable As Integer = IfNull(Request("CveUsuarioResponsable"), -1).ToString.ToEntero Dim UsuarioResponsable As Integer = IfNull(Request("CveUsuarioResponsable"), -1).ToString.ToEntero
DdlUsuarioResponsable.DataSource = GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa).FiltraParametros("ProveedoresResponsables > 0") DdlUsuarioResponsable.DataSource = GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa)
DdlUsuarioResponsable.DataBind() DdlUsuarioResponsable.DataBind()
DdlUsuarioResponsable.SelectedValueExist(UsuarioResponsable) DdlUsuarioResponsable.SelectedValueExist(UsuarioResponsable)

2
Compras/RepCxPPeriodo.aspx.cs
View File

@@ -67,7 +67,7 @@ public partial class Compras_RepCxPPeriodo : ClsPaginas
DdlUsuarioResponsable.DataSource = GlobalDTUsuarioResponsable.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}").FiltraParametros("ProveedoresResponsables > 0"); DdlUsuarioResponsable.DataSource = get_GlobalDTUsuarioResponsable ( UsuarioActual.CveEmpresa );
DdlUsuarioResponsable.DataBind(); DdlUsuarioResponsable.DataBind();
DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1); DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1);

2
Compras/RepProductosServiciosPeriodo.aspx.cs
View File

@@ -129,7 +129,7 @@ public partial class Compras_RepProductosServiciosPeriodo : ClsPaginas
{ {
//Carga Proveedores //Carga Proveedores
DdlProveedores.DataSource = get_GlobalDTCompProveedores(UsuarioActual.CveEmpresa); DdlProveedores.DataSource = get_GlobalDTCompProveedores(UsuarioActual.CveEmpresa);
DdlProveedores.DataBind(); DdlProveedores.DataBind();
//Carga Tipo de Gasto //Carga Tipo de Gasto
DdlTipoGasto.DataSource = get_GlobalDTTiposGastos(UsuarioActual.CveEmpresa); DdlTipoGasto.DataSource = get_GlobalDTTiposGastos(UsuarioActual.CveEmpresa);

6
Contabilidad/FisImpuestos.aspx.vb
View File

@@ -167,7 +167,7 @@ Partial Class Contabilidad_FisImpuestos
Dim objConta As New ClsContabilidad Dim objConta As New ClsContabilidad
Dim DtTemp As New DataTable Dim DtTemp As New DataTable
Dim _CvePrePoliza As Integer = 0 Dim _CvePrePoliza As Integer = 0
Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(62).FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa), "Orden") Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, 62).FiltraParametros("", "Orden")
Dim DtTempDetalle As New DataTable Dim DtTempDetalle As New DataTable
With DtTempDetalle.Columns With DtTempDetalle.Columns
@@ -247,7 +247,7 @@ Partial Class Contabilidad_FisImpuestos
Private Sub CargaDetallesPlantilla() Private Sub CargaDetallesPlantilla()
Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(62).FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa), "Orden") Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, 62).FiltraParametros("", "Orden")
Dim Cuenta As String = "" Dim Cuenta As String = ""
Dim IdCuenta As Integer = 0 Dim IdCuenta As Integer = 0
Dim CodigoCuenta As String = "" Dim CodigoCuenta As String = ""
@@ -343,7 +343,7 @@ Partial Class Contabilidad_FisImpuestos
Protected Sub GvMov_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvMov.RowDataBound Protected Sub GvMov_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvMov.RowDataBound
Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(62).FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa), "Orden") Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, 62).FiltraParametros("", "Orden")
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then

10
Contabilidad/PlantillasPolizasDetalle.aspx.vb
View File

@@ -242,14 +242,14 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
Public Sub updatatos() Public Sub updatatos()
Dim ObjPlantillaPolizaDetalle As New ClsContabilidad Dim ObjPlantillaPolizaDetalle As New ClsContabilidad
If ObjPlantillaPolizaDetalle.GetConta_PlantillasPolizasDetalle(-1, -1) Then If ObjPlantillaPolizaDetalle.GetConta_PlantillasPolizasDetalle(-1, UsuarioActual.CveEmpresa) Then
ViewState("DTPlantillaPolizaDetalle") = ObjPlantillaPolizaDetalle.DtResultados.FiltraParametros(String.Format(" CvePlantillaPoliza={0} AND CveEmpresa = {1}", CvePlantillaPoliza, UsuarioActual.CveEmpresa)) ViewState("DTPlantillaPolizaDetalle") = ObjPlantillaPolizaDetalle.DtResultados.FiltraParametros(String.Format(" CvePlantillaPoliza={0} AND CveEmpresa = {1}", CvePlantillaPoliza, UsuarioActual.CveEmpresa))
GlobalDTContaPlantillasPolizasDetalle(CvePlantillaPoliza) = ObjPlantillaPolizaDetalle.DtResultados ' GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, CvePlantillaPoliza) = ObjPlantillaPolizaDetalle.DtResultados
End If
If ObjPlantillaPolizaDetalle.GetConta_PlantillasPolizas(-1, -1) Then
GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa) = ObjPlantillaPolizaDetalle.DtResultados
End If End If
GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa) = Nothing
ObjPlantillaPolizaDetalle.Dispose() ObjPlantillaPolizaDetalle.Dispose()
End Sub End Sub
Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click

2
Contabilidad/RegPrePoliza1.aspx.vb
View File

@@ -636,7 +636,7 @@ Partial Class ContabilidadC_RegPrePoliza
Dim CvePlantilla As Integer = DdlPlantilla.SelectedValue.ToEntero Dim CvePlantilla As Integer = DdlPlantilla.SelectedValue.ToEntero
Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(CvePlantilla).FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa), "Orden") Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, CvePlantilla).FiltraParametros("", "Orden")
Dim Cuenta As String = "" Dim Cuenta As String = ""
Dim IdCuenta As Integer = 0 Dim IdCuenta As Integer = 0
Dim CodigoCuenta As String = "" Dim CodigoCuenta As String = ""

15
GPS/UsuariosRastreo.aspx.vb
View File

@@ -51,13 +51,14 @@ Partial Class GPS_UsuariosRastreo
End Sub End Sub
Public Sub CargaGlobal() Public Sub CargaGlobal()
Dim ObjUsuarios As New ClsSisUsuarios GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
If ObjUsuarios.GetUsuariosEmpresas(-1) Then 'Dim ObjUsuarios As New ClsSisUsuarios
GlobalDTUsuarios(-1) = ObjUsuarios.DtResultados 'If ObjUsuarios.GetUsuariosEmpresas(-1) Then
Else ' GlobalDTUsuarios(-1) = ObjUsuarios.DtResultados
GlobalDTUsuarios() = Nothing 'Else
End If ' GlobalDTUsuarios() = Nothing
ObjUsuarios.Dispose() 'End If
'ObjUsuarios.Dispose()
End Sub End Sub
Protected Sub GvUsuarios_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvUsuarios.RowDataBound Protected Sub GvUsuarios_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvUsuarios.RowDataBound

2
General/SaldosIniciales.aspx.vb
View File

@@ -1408,7 +1408,7 @@ Partial Class General_SaldosIniciales
If Not ObjClientes.AddCliente(RazonSocial, RazonSocial, Calle, NumExt.ToString(), "", Colonia, Poblacion, Poblacion, Estado, Pais, RFC, CodigoPostal, Telefono, Contacto, "", "", "", "", "", -1, False, 0, 0, False, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", CveVendedor, PlazoCobranza, -1, If Not ObjClientes.AddCliente(RazonSocial, RazonSocial, Calle, NumExt.ToString(), "", Colonia, Poblacion, Poblacion, Estado, Pais, RFC, CodigoPostal, Telefono, Contacto, "", "", "", "", "", -1, False, 0, 0, False, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", CveVendedor, PlazoCobranza, -1,
"-1", "-1", -1, "-1", -1, "0", -1, "0", 0, "", 0, "", 0, "", 0, "", "", Codigo, LimiteCredito, False, "", "", "", False, "", "", "", "", "", False, "", "", "", False, 0, -1, EsDistribuidor:=EsDistribuidor, CveClienteClasificacion:=CveClasificación, CargoUsado:=CargoUsado, "-1", "-1", -1, "-1", -1, "0", -1, "0", 0, "", 0, "", 0, "", 0, "", "", Codigo, LimiteCredito, False, "", "", "", False, "", "", "", "", "", False, "", "", "", False, 0, -1, EsDistribuidor:=EsDistribuidor, CveClienteClasificacion:=CveClasificación, CargoUsado:=CargoUsado,
BonificacionUsado:=BonificacionUsado, CobranzaContacto:=CobranzaContacto, CobranzaCorreo:=CobranzaCorreo, DiasEspecifico:=DiasPagoEspecifico, DiasRevision:=DìaVisita, CobranzaTelefono:=CobranzaTelefono, CveFormaPago33:=CveFormaPago33, CveUsoCFDI:=CveUsoCFDI, CveSATEstado:=CveSATEstado, CveAdminTrayecto:=0) Then BonificacionUsado:=BonificacionUsado, CobranzaContacto:=CobranzaContacto, CobranzaCorreo:=CobranzaCorreo, DiasEspecifico:=DiasPagoEspecifico, DiasRevision:=DìaVisita, CobranzaTelefono:=CobranzaTelefono, CveFormaPago:=CveFormaPago33, CveUsoCFDI:=CveUsoCFDI, CveSATEstado:=CveSATEstado, CveAdminTrayecto:=0) Then
ErrorClientes = True ErrorClientes = True
RFC.GuardaLog RFC.GuardaLog

3
Nomina/CargaArchivosNomina.aspx.cs
View File

@@ -64,7 +64,6 @@ public partial class Nomina_CargaArchivosNomina : System.Web.UI.Page
} }
using (var workbook = new XLWorkbook(URLFile)) using (var workbook = new XLWorkbook(URLFile))
{ {
int position = 1;
foreach (IXLWorksheet wokitem in workbook.Worksheets) foreach (IXLWorksheet wokitem in workbook.Worksheets)
{ {
workname = wokitem.Name; workname = wokitem.Name;
@@ -112,7 +111,7 @@ public partial class Nomina_CargaArchivosNomina : System.Web.UI.Page
{ {
if (objbase.ExcelToBD(xml)) if (objbase.ExcelToBD(xml))
{ {
Alert("Información capturada", ModExtensiones.TipoMensaje.MsgInformacion); this.Alert("Información capturada", ModExtensiones.TipoMensaje.MsgInformacion);
} }
} }
GVDatos.DataSource = dt; GVDatos.DataSource = dt;

36
Sistemas/CatSesiones.aspx.vb
View File

@@ -300,30 +300,32 @@ Partial Class Sistemas_CatSesiones
'Generales 'Generales
Private Sub CargaUsuarios() Private Sub CargaUsuarios()
'Carga Usuarios 'Carga Usuarios
Dim ObjUsuarios As New ClsSisUsuarios 'Dim ObjUsuarios As New ClsSisUsuarios
If ObjUsuarios.GetUsuariosEmpresas(-1) Then 'If ObjUsuarios.GetUsuariosEmpresas(-1) Then
Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados ' Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados ' Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados
Else 'Else
Application("GlobalDTUsuarios") = Nothing ' Application("GlobalDTUsuarios") = Nothing
End If 'End If
GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
'If ObjUsuarios.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing 'If ObjUsuarios.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing
ObjUsuarios.Dispose() 'ObjUsuarios.Dispose()
'Fin Carga Usuarios 'Fin Carga Usuarios
End Sub End Sub
Private Sub CargaUsuariosResponsable() Private Sub CargaUsuariosResponsable()
'Carga Usuarios 'Carga Usuarios
Dim ObjUsuarios As New ClsSisUsuarios GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa) = Nothing
If ObjUsuarios.GetUsuariosEmpresas(-1) Then 'Dim ObjUsuarios As New ClsSisUsuarios
Alert(ObjUsuarios.DtResultados.Rows.Count.ToString) 'If ObjUsuarios.GetUsuariosEmpresas(-1) Then
Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados ' Alert(ObjUsuarios.DtResultados.Rows.Count.ToString)
Else ' Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados
Application("GlobalDTUsuarioResponsable") = Nothing 'Else
End If ' Application("GlobalDTUsuarioResponsable") = Nothing
ObjUsuarios.Dispose() 'End If
'Fin Carga Usuarios 'ObjUsuarios.Dispose()
''Fin Carga Usuarios
End Sub End Sub

14
Sistemas/PopUpAddUsuario.aspx.vb
View File

@@ -563,12 +563,14 @@ Partial Class Sistemas_PopUpAddUsuario
GPS.Dispose() GPS.Dispose()
End Sub End Sub
Private Sub RecargarGlobalUsuarios() Private Sub RecargarGlobalUsuarios()
Dim ObjUsuarios As New ClsSisUsuarios GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
If ObjUsuarios.GetUsuariosEmpresas(-1) Then GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados 'Dim ObjUsuarios As New ClsSisUsuarios
Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados.FiltraParametros("ProveedoresResponsables > 0") 'If ObjUsuarios.GetUsuariosEmpresas(-1) Then
End If ' Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
ObjUsuarios.Dispose() ' Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados.FiltraParametros("ProveedoresResponsables > 0")
'End If
'ObjUsuarios.Dispose()
End Sub End Sub
#Region "MANDAR CORREOS" #Region "MANDAR CORREOS"

11
Sistemas/PopUpPerfil.aspx.vb
View File

@@ -126,10 +126,11 @@ Partial Class Sistemas_PopUpPerfil
CargaGlobal() CargaGlobal()
End Sub End Sub
Private Sub CargaGlobal() Private Sub CargaGlobal()
Dim ObjUsuarios As New ClsSisUsuarios GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
If ObjUsuarios.GetUsuariosEmpresas(-1) Then 'Dim ObjUsuarios As New ClsSisUsuarios
Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados 'If ObjUsuarios.GetUsuariosEmpresas(-1) Then
End If ' Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
ObjUsuarios.Dispose() 'End If
'ObjUsuarios.Dispose()
End Sub End Sub
End Class End Class

10
Sistemas/UsuarioDetalle.aspx.vb
View File

@@ -1386,10 +1386,12 @@ Partial Class Sistemas_UsuarioDetalle
GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
'RECARGA GLOBAL EMPRESAS USUARIOS 'RECARGA GLOBAL EMPRESAS USUARIOS
If ObjUsuarios.GetUsuariosEmpresas(-1) Then GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa) = Nothing
Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados.FiltraParametros("ProveedoresResponsables > 0") 'If ObjUsuarios.GetUsuariosEmpresas(-1, UsuarioActual.CveEmpresa) Then
End If ' Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
' Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados.FiltraParametros("ProveedoresResponsables > 0")
'End If
End Sub End Sub
Private Sub EnviaCorreo() Private Sub EnviaCorreo()