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

-- cambio de GlobalDTSubProyectos

Browse Source 
- cambio en GlobalDTUsuarios
This commit is contained in:
rrene
2024-08-01 05:46:28 -07:00
parent 14f053bc86
commit 1c14bceea9
240 changed files with 692 additions and 689 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
Compras/Compras.aspx.vb
View File

@@ -11123,7 +11123,7 @@ Partial Class Compras_Compras
e.Row.FCDropDownList("DdlPersonalGv").DataBind()
If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Or UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
e.Row.FCDropDownList("DdlSubProyectoPersonal").DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
e.Row.FCDropDownList("DdlSubProyectoPersonal").DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa))
e.Row.FCDropDownList("DdlSubProyectoPersonal").Items.Insert(0, New ListItem("Seleccione", "-1"))
e.Row.FCDropDownList("DdlSubProyectoPersonal").DataBind()
e.Row.FCDropDownList("DdlProyectoPersonal").Visible = False
@@ -14098,7 +14098,7 @@ Partial Class Compras_Compras
Dim porcentajes As String() = StringProrrateo.Split(New Char() {";"c})
Dim prtDT As DataTable = TmpDT.Copy
Dim GBSP As DataTable = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToString.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa)
Dim GBSP As DataTable = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=DdlProyecto.SelectedValue.ToString.ToEntero)
TmpDT.Clear()
Dim subtotal As Decimal = TxtSubTotal.Text.ToDecimal
@@ -14979,7 +14979,7 @@ Partial Class Compras_Compras
End If '876906
Dim PSRow As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS_RNC).FiltroPrimero("")
Dim CveSubProyectoPrincipal As Integer = AsignarSubProyectoPrincipal()
Dim SubProyecto As String = GlobalDTSubProyectos(-1, CveSubProyectoPrincipal, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto")
Dim SubProyecto As String = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyectoPrincipal).FiltroPrimeroValor("SubProyecto")
Dim CveTipoPS As Integer = PSRow("CveTipoPS").ToString.ToEntero
If PSRow("CvePSCargo").ToString <> "" Then
@@ -17103,7 +17103,7 @@ Partial Class Compras_Compras
'HdnIVAPS.Value = If(PS.Rows(0)("IVA").ToString = "-1", ViewState("IVA"), PS.Rows(0)("IVA").ToString).ToString
ViewState("IVAPS") = PS("IVA").ToString
If ViewState("IVAPS").ToString.ToEntero() = -1 Then
Dim Drr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyecto.SelectedValue.ToEntero())(0)
Dim Drr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero())(0)
ViewState("IVAPS") = Drr("IVA").ToString().ToDouble()
DdlProyecto.SelectedValueExist(Drr("CveProyecto"))
@@ -17755,7 +17755,7 @@ Partial Class Compras_Compras
'RESPETAR VALORES DE LA PANTALLA
'IVA = PSRow("IVA").ToString.ToDouble
'If IVA = -1 Then
' IVA = GlobalDTSubProyectos(-1, DdlSubProyecto.SelectedValue.ToEntero()).FiltroPrimeroValor("IVA").ToDouble
' IVA = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero()).FiltroPrimeroValor("IVA").ToDouble
'End If
'RetIVA = If(PSRow("RetIVA").ToString = "-1", ViewState("RetIVA"), PSRow("RetIVA").ToString).ToString.ToDouble
'RetISR = If(PSRow("RetISR").ToString = "-1", ViewState("RetISR"), PSRow("RetISR").ToString).ToString.ToDouble
@@ -21078,7 +21078,7 @@ Partial Class Compras_Compras
Return False
End If
SubProyecto = GlobalDTSubProyectos(-1, CveSubProyectoPrincipal, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto")
SubProyecto = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyectoPrincipal).FiltroPrimeroValor("SubProyecto")
If PSRow IsNot Nothing Then
@@ -21833,7 +21833,7 @@ Public Class ClsCompraManagerCompras
Me.CveTipoPoliza = 3
Me.NumeroReembolso = NumeroReembolso
Dim dRowSubProyecto As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
Dim dRowSubProyecto As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto).FiltroPrimero("")
If dRowSubProyecto IsNot Nothing Then
Me.Proyecto = dRowSubProyecto("Proyecto").ToString
@@ -21884,7 +21884,7 @@ Public Class ClsCompraManagerCompras
Me.Total = Total
Me.PorcentajeIVA = PorcentajeIVA
Dim dRowSubProyecto As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
Dim dRowSubProyecto As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto).FiltroPrimero("")
If dRowSubProyecto IsNot Nothing Then
Me.Proyecto = dRowSubProyecto("Proyecto").ToString

23
Compras/PopUpVerFactura.aspx.vb
View File

@@ -2791,7 +2791,7 @@ Partial Class PopUpVerFactura
Dim CantidadProductos As Decimal = 0
Dim CantidadUsados As Decimal = 0
If CveConcepto = 3 Or CveConcepto = 18 Or CveConcepto = 30 Or CveConcepto = 34 Or CveConcepto = 35 Or CveConcepto = 16 Or CveConcepto = 7 Or CveConcepto = 40 Then 'SALIDA Y DEVOLUCION DEL CLIENTE
If CveConcepto.Contiene(3, 18, 30, 34, 16, 7, 40) Then 'SALIDA Y DEVOLUCION DEL CLIENTE
If ObjInventarios.GetMovimientosDetalleImpresion(CveMovimiento, UsuarioActual.CveEmpresa, Resumen:=Resumen) Then
DtMovimientos = ObjInventarios.DtResultados
@@ -3151,7 +3151,7 @@ Partial Class PopUpVerFactura
End If
Case 3, 16, 37, 40, 45, 47 ' S A L I D A S
Case 3, 16, 37, 40, 45, 47 ' S A L I D A S
'Dim Archivo As New System.IO.FileInfo(String.Format("Empresas/{0}/Formatos/Salidas.rdlc", 72))
'Dim Imagen As New System.IO.FileInfo(String.Format("Empresas/{0}/Logo.png", 72))
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Salidas.rdlc", UsuarioActual.Empresa.Ruta))
@@ -3611,7 +3611,7 @@ Partial Class PopUpVerFactura
ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios")
End If
Case 8, 26 ' T R A S L A D O - S A L I D A
Case 8, 26, 35 ' T R A S L A D O - S A L I D A
Dim params As New List(Of ReportParameter)
Dim RutaFormato As String = "{0}Formatos\Traslado.rdlc"
@@ -3619,8 +3619,6 @@ Partial Class PopUpVerFactura
RutaFormato = "{0}Formatos\TrasladoUsado.rdlc"
End If
params.Add(New ReportParameter("CveConcepto", "8")) 'FolioTraspaso.ToString
'params.Add(New ReportParameter("TipoTraslado", "AVISO")) 'FolioTraspaso.ToString
params.Add(New ReportParameter("SubProyecto", String.Format("Traslado de: {0} A {1}", Almacen, AlmacenDestino))) 'DdlAlmacenDestino.SelectedItem.ToString
@@ -3641,7 +3639,9 @@ Partial Class PopUpVerFactura
Dim CveContrato As Integer = 0
If DtMovimientos IsNot Nothing AndAlso DtMovimientos.Rows.Count > 0 Then
CveContrato = DtMovimientos.FiltroPrimeroValor("CveContrato").ToEntero
If DtMovimientos.Columns.Contains("CveContrato") Then
CveContrato = DtMovimientos.FiltroPrimeroValor("CveContrato").ToEntero
End If
End If
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
@@ -3721,8 +3721,6 @@ Partial Class PopUpVerFactura
ObjVentas.Dispose()
End If
params.Add(New ReportParameter("ClienteNombre", ClienteNombre))
params.Add(New ReportParameter("EnvioContacto", EnvioContacto))
params.Add(New ReportParameter("EnvioDireccion", EnvioDireccion))
@@ -3767,7 +3765,6 @@ Partial Class PopUpVerFactura
End If
End If
Dim Archivo As New System.IO.FileInfo(String.Format(RutaFormato, UsuarioActual.Empresa.Ruta))
Dim NombreArchivo As String = If(Consola <> "-1" And Consola.Trim.Length > 0, $"Aviso de Traslado - {Folio} Consola", $"Aviso de Traslado - {Folio}")
@@ -5129,7 +5126,7 @@ Partial Class PopUpVerFactura
If UsuarioActual.CveEmpresa.Contiene(72) Then
Dim SBDomicilioSucursal As New StringBuilder()
Dim DRSucursal As DataRow = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, CveSubProyecto:=dr("CveSubProyecto").ToString.ToEntero, Estatus:=1).FiltroPrimero("")
Dim DRSucursal As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=dr("CveSubProyecto").ToString.ToEntero, Estatus:=1).FiltroPrimero("")
If DRSucursal IsNot Nothing Then
Dim CiudadSucursal As String = String.Format("{0},{1}", DRSucursal("Municipio"), DRSucursal("Estado"))
@@ -5253,7 +5250,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("CodigoPostal", ""))
If UsuarioActual.CveEmpresa = 119 Then
params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("IdUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre")))
params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("IdUsuario").ToString.ToEntero, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Nombre")))
End If
If Archivo.Exists Then
@@ -5465,7 +5462,7 @@ Partial Class PopUpVerFactura
If UsuarioActual.CveEmpresa.Contiene(141) Then
Dim InicialesUsuarioGenero As String = ""
Try
Dim NombreUsuarioRenero As String = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("Nombre", $"CveUsuario ={ObjIE.CveUsuario}")
Dim NombreUsuarioRenero As String = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Nombre", $"CveUsuario ={ObjIE.CveUsuario}")
If NombreUsuarioRenero.Trim.Length > 0 Then
NombreUsuarioRenero.Split(" "c).ToList().ForEach(Sub(i) InicialesUsuarioGenero += i(0))
End If
@@ -6427,7 +6424,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("Fecha", Fecha.ToShortDateString))
End If
If UsuarioActual.CveEmpresa.Contiene(119, 141, 193, 195, 197, 189) Then
params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(drp("CveUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre")))
params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(drp("CveUsuario").ToString.ToEntero, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Nombre")))
End If
If UsuarioActual.CveEmpresa.Contiene(140, 141) Then
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))

4
Compras/Proveedores.aspx.vb
View File

@@ -4554,7 +4554,7 @@ Partial Class Compras_Proveedores
' Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
'End If
'ObjUsuarios.Dispose()
GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
End Sub
Protected Sub GvUsuarios_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvUsuarios.RowDataBound
@@ -4918,7 +4918,7 @@ Partial Class Compras_Proveedores
DdlSubProyectoFiltro.DataBind()
'CargaUsuarios
DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DdlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
DdlUsuario.DataBind()
'Carga Productos

2
Compras/RepAnt-NC-EXC.aspx.cs
View File

@@ -50,7 +50,7 @@ public partial class Compras_RepAnt_NC_EXC : ClsPaginas
protected void CargaSucursales()
{
DdlSucursal.DataSource = get_GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa);
DdlSucursal.DataSource = get_GlobalDTSubProyectos( UsuarioActual.CveEmpresa);
DdlSucursal.DataBind();
DdlSucursal.Items.Insert(0, new ListItem("Todos", "-1"));
}

2
Compras/RepAnt-NC-EXCDetalle.aspx.cs
View File

@@ -77,7 +77,7 @@ public partial class Compras_RepAnt_NC_EXCDetalle : ClsPaginas
protected void CargaSucursales()
{
DdlSucursal.DataSource = get_GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa);
DdlSucursal.DataSource = get_GlobalDTSubProyectos(UsuarioActual.CveEmpresa);
DdlSucursal.DataBind();
DdlSucursal.Items.Insert(0, new ListItem("Todos", "-1"));
DdlSucursal.SelectedValue = "-1";

2
Compras/RepCompras.aspx.vb
View File

@@ -96,7 +96,7 @@ Partial Class Compras_RepCompras
DdlUsuario.DataBind()
'Carga Usuarios Captura
DDlUsuarioCaptura.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
DDlUsuarioCaptura.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
DDlUsuarioCaptura.DataBind()
'Carga Monedas

4
Compras/RepComprasDetalle.aspx.vb
View File

@@ -202,7 +202,7 @@ Partial Class Compras_RepComprasDetalle
DdlUsuario.DataBind()
'Carga Usuario Capturo
DDlUsuarioCaptura.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
DDlUsuarioCaptura.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
DDlUsuarioCaptura.DataBind()
'Carga Grupos
@@ -223,8 +223,6 @@ Partial Class Compras_RepComprasDetalle
Dim AnioMes As String = If(FechaF <> "-1", "-1", IfNull(Request("AnioMes"), "-1").ToString())
If RblTipoCambio.SelectedValue.ToEntero = 3 And TxtEspecifico.Text <> "" Then
TCEspecifico = TxtEspecifico.Text.ToDouble
Else

2
Compras/RepComprasPeriodo.aspx.vb
View File

@@ -66,7 +66,7 @@ Partial Class Compras_RepComprasPeriodo
DdlUsuario.DataBind()
'Carga Usuarios Captura
DDlUsuarioCaptura.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
DDlUsuarioCaptura.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
DDlUsuarioCaptura.DataBind()
'Carga Monedas

2
Compras/RepCxP.aspx.vb
View File

@@ -166,7 +166,7 @@ Partial Class Compras_RepCxP
If UsuarioActual.CveEmpresa = 66 Then DdlEstatusCompra.SelectedIndex = 2 : DdlGrupo.SelectedValue = "8"
DdlUsuarioRegistro.DataSource = GlobalDTUsuarios.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa), "Nombre")
DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre")
DdlUsuarioRegistro.DataBind()
DdlUsuarioRegistro.Items.Insert(0, New ListItem("Todos", "-1"))
txtCorteA.Text = $"31/12/{NowADS().Year}"

2
Compras/RepCxPDetalle.aspx.vb
View File

@@ -259,7 +259,7 @@ Partial Class RepCxPDetalle
DdlUsuarioResponsable.SelectedValueExist(UsuarioResponsable)
Dim UsuarioRegistro As Integer = IfNull(Request("CveUsuario"), -1).ToString.ToEntero
DdlUsuarioRegistro.DataSource = GlobalDTUsuarios.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa), "Nombre") 'GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre") 'GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DdlUsuarioRegistro.DataBind()
DdlUsuarioRegistro.Items.Insert(0, New ListItem("Todos", "-1"))
DdlUsuarioRegistro.SelectedValueExist(UsuarioRegistro)

2
Compras/RepCxPPeriodo.aspx.cs
View File

@@ -81,7 +81,7 @@ public partial class Compras_RepCxPPeriodo : ClsPaginas
if (UsuarioActual.CveEmpresa == 66) { DdlEstatusCompra.SelectedIndex = 2; DdlGrupo.SelectedValue = "8"; }
DdlUsuarioRegistro.DataSource = get_GlobalDTUsuarios().FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa), "Nombre");
DdlUsuarioRegistro.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros( "", "Nombre");
DdlUsuarioRegistro.DataBind();
DdlUsuarioRegistro.Items.Insert(0, new ListItem("Todos", "-1"));

2
Compras/RepPUESinPago.aspx.vb
View File

@@ -27,7 +27,7 @@ Partial Class Compras_RepPUESinPago
TxtFechaI.Text = FirstDayOfMonth(NowADS()).ToShortDateString
TxtFechaF.Text = NowADS().LastDayOfMonth.ToShortDateString
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))

6
Compras/RepPagado.aspx.cs
View File

@@ -51,12 +51,12 @@ public partial class Compras_RepPagado : ClsPaginas
DdlProveedores.SelectedValue = "-1";
//Carga Usuarios
DdlUsuario.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa);
DdlUsuario.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa);
DdlUsuario.Items.Insert(0, new ListItem("Todos", "-1"));
DdlUsuario.DataBind();
//Carga Responsable
DdlResponsable.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa);
DdlResponsable.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa);
DdlResponsable.Items.Insert(0, new ListItem("Todos", "-1"));
DdlResponsable.DataBind();
@@ -73,8 +73,6 @@ public partial class Compras_RepPagado : ClsPaginas
TxtFechaICompra.Text = MinFecha.ToShortDateString(); //$"01/01/{NowADS().Year}";
TxtFechaFCompra.Text = NowADS().ToShortDateString();
}
private void ProcesaRequest()
{
if (DateTime.TryParse(Request["FechaInicio"], out DateTime fechaInicio))

4
Compras/RepPagadoDetalle.aspx.cs
View File

@@ -55,12 +55,12 @@ public partial class Compras_RepPágadoDetalle : ClsPaginas
DdlProveedores.SelectedValue = "-1";
//Carga Usuarios
DdlUsuario.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa);
DdlUsuario.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa);
DdlUsuario.Items.Insert(0, new ListItem("Todos", "-1"));
DdlUsuario.DataBind();
//Carga Responsable
DdlResponsable.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa);
DdlResponsable.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa);
DdlResponsable.Items.Insert(0, new ListItem("Todos", "-1"));
DdlResponsable.DataBind();

4
Compras/RepPagadoPeriodo.aspx.cs
View File

@@ -56,12 +56,12 @@ public partial class Compras_RepPagadoPeriodo : ClsPaginas
DdlProveedores.SelectedValue = "-1";
//Carga Usuarios
DdlUsuario.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa);
DdlUsuario.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa);
DdlUsuario.Items.Insert(0, new ListItem("Todos", "-1"));
DdlUsuario.DataBind();
//Carga Responsable
DdlResponsable.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa);
DdlResponsable.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa);
DdlResponsable.Items.Insert(0, new ListItem("Todos", "-1"));
DdlResponsable.DataBind();

2
Compras/RepProductosServicios.aspx.vb
View File

@@ -81,7 +81,7 @@ Partial Class Compras_RepProductosServicios
DdlProveedor.SelectedValue = "-1"
'CargaUsuarios
DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DdlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
DdlUsuario.DataBind()
'CargaEstatus

2
Compras/RepProductosServiciosDetalle.aspx.vb
View File

@@ -203,7 +203,7 @@ Partial Class Compras_RepProductosServiciosDetalle
DdlProveedor.SelectedValue = "-1"
'CargaUsuarios
DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DdlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
DdlUsuario.DataBind()
'CargaEstatus

2
Compras/RepProductosServiciosPeriodo.aspx.cs
View File

@@ -76,7 +76,7 @@ public partial class Compras_RepProductosServiciosPeriodo : ClsPaginas
//Carga Tipo de Gasto
DdlTipoGasto.DataSource = get_GlobalDTTiposGastos(UsuarioActual.CveEmpresa);
DdlTipoGasto.DataBind();
DdlTipoGasto.DataBind();
//Carga Usuarios Responsable
DdlUsuario.DataSource = get_GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa);

2
Compras/eFacturas.aspx.vb
View File

@@ -5996,7 +5996,7 @@ Public Class ClsCompraManager
Me.CveTipoPoliza = 3
Me.NumeroReembolso = NumeroReembolso
Dim dRowSubProyecto As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
Dim dRowSubProyecto As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto).FiltroPrimero("")
If dRowSubProyecto IsNot Nothing Then
Me.Proyecto = dRowSubProyecto("Proyecto").ToString