diff --git a/AF/PopUpBuscarAF.aspx.vb b/AF/PopUpBuscarAF.aspx.vb index cc61ddb46..962cb9ff2 100644 --- a/AF/PopUpBuscarAF.aspx.vb +++ b/AF/PopUpBuscarAF.aspx.vb @@ -235,7 +235,7 @@ Partial Class AF_PopUpBuscarAF End Sub Private Sub CargaSubProyecto() DdlSubProyecto.Items.Clear() - DdlSubProyecto.DataSource = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa) + DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=DdlProyecto.SelectedValue.ToEntero) DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) diff --git a/AF/RepAF.aspx.vb b/AF/RepAF.aspx.vb index f53192c02..9ace0232a 100644 --- a/AF/RepAF.aspx.vb +++ b/AF/RepAF.aspx.vb @@ -42,11 +42,11 @@ Partial Class AF_RepAF 'CargaDatos() ' If UsuarioActual.Empresa.GralSoloProyecto Then - DivProyecto.Visible = False - LblSubProyecto.Text = "Proyecto: " - DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) - DdlSubProyecto.DataBind() - DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) + DivProyecto.Visible = False + LblSubProyecto.Text = "Proyecto: " + DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) + DdlSubProyecto.DataBind() + DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) ' End If End If End Sub diff --git a/AF/RepFlotillas.aspx.vb b/AF/RepFlotillas.aspx.vb index 2266fba07..84ff13ac3 100644 --- a/AF/RepFlotillas.aspx.vb +++ b/AF/RepFlotillas.aspx.vb @@ -31,7 +31,7 @@ Partial Class AF_RepFlotillas DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1")) 'CentroCosto - DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) + DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) End Sub diff --git a/AF/ResguardoAF.aspx.vb b/AF/ResguardoAF.aspx.vb index 5da763414..a2a9988b6 100644 --- a/AF/ResguardoAF.aspx.vb +++ b/AF/ResguardoAF.aspx.vb @@ -87,7 +87,7 @@ Partial Class AF_ResguardoAF TxtFechaT.Text = NowADS().ToShortDateString CargaAFResguardosTraslado() - DdlSubProyectoT.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) + DdlSubProyectoT.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubProyectoT.DataBind() DdlSubProyectoT.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlResponsableT.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("CveEstatusPersonal = 1", "NombreCompleto") @@ -103,7 +103,7 @@ Partial Class AF_ResguardoAF 'RECEPCION - DdlSubProyectoRT.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) + DdlSubProyectoRT.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubProyectoRT.DataBind() DdlSubProyectoRT.Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "0")) DdlSubProyectoRT.Items.Insert(0, New ListItem("Seleccione", "-1")) @@ -115,7 +115,7 @@ Partial Class AF_ResguardoAF 'LIBERACION - DdlSubProyectoRL.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) + DdlSubProyectoRL.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubProyectoRL.DataBind() DdlSubProyectoRL.Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "0")) DdlSubProyectoRL.Items.Insert(0, New ListItem("Seleccione", "-1")) diff --git a/AF/ValesCombustible.aspx.vb b/AF/ValesCombustible.aspx.vb index dfcd4a56d..5528f933f 100644 --- a/AF/ValesCombustible.aspx.vb +++ b/AF/ValesCombustible.aspx.vb @@ -43,7 +43,7 @@ Partial Class AF_ValesCombustible DdlRHPersonal.DataBind() DdlRHPersonal.Items.Insert(0, New ListItem("Seleccione", "-1")) - DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) + DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) @@ -51,7 +51,7 @@ Partial Class AF_ValesCombustible ' LtlSubProyecto.Text = "Proyecto" ' DdlSubProyecto.Items.Clear() - ' DdlSubProyecto.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)) + ' DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos( UsuarioActual.CveEmpresa )) ' DdlSubProyecto.DataBind() ' DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) ' DivProyecto.Visible = False diff --git a/Acarreos/AcarreosConcluidos.aspx.vb b/Acarreos/AcarreosConcluidos.aspx.vb index 0770ad579..170f02384 100644 --- a/Acarreos/AcarreosConcluidos.aspx.vb +++ b/Acarreos/AcarreosConcluidos.aspx.vb @@ -91,13 +91,13 @@ Partial Class Acarreos_AcarreosAutoConciliacion Private Sub CargaDdlSubProyectoOrigen() DdlSubProyectoOrigen.Items.Insert(0, New ListItem("Todos", "-1")) - DdlSubProyectoOrigen.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1) + DdlSubProyectoOrigen.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Estatus:=1) DdlSubProyectoOrigen.DataBind() UPDatos.Update() End Sub Private Sub CargaDdlSubProyectoDestino() DdlSubProyectoDestino.Items.Insert(0, New ListItem("Todos", "-1")) - DdlSubProyectoDestino.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1) + DdlSubProyectoDestino.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Estatus:=1) DdlSubProyectoDestino.DataBind() UPDatos.Update() End Sub diff --git a/Acarreos/RegistroContratosAcarreos.aspx.vb b/Acarreos/RegistroContratosAcarreos.aspx.vb index 661f28235..7b332b050 100644 --- a/Acarreos/RegistroContratosAcarreos.aspx.vb +++ b/Acarreos/RegistroContratosAcarreos.aspx.vb @@ -182,14 +182,14 @@ Partial Class Acarreos_ContratosAcarreos Private Sub CargaDdlSubProyectoOrigen() DdlSubProyectoOrigen.Items.Insert(0, New ListItem("Seleccione", "-1")) - DdlSubProyectoOrigen.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1) + DdlSubProyectoOrigen.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Estatus:=1) DdlSubProyectoOrigen.DataBind() UpProyecto.Update() End Sub Private Sub CargaDdlSubProyectoDestino() DdlSubProyectoDestino.Items.Insert(0, New ListItem("Seleccione", "-1")) - DdlSubProyectoDestino.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1) + DdlSubProyectoDestino.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Estatus:=1) DdlSubProyectoDestino.DataBind() UpProyecto.Update() End Sub diff --git a/Acarreos/RepAcarreos.aspx.vb b/Acarreos/RepAcarreos.aspx.vb index 0e43a11d2..97cd13f3b 100644 --- a/Acarreos/RepAcarreos.aspx.vb +++ b/Acarreos/RepAcarreos.aspx.vb @@ -76,13 +76,13 @@ Partial Class Acarreos_RepAcarreos Private Sub CargaDdlSubProyectoOrigen() DdlSubProyectoOrigen.Items.Insert(0, New ListItem("Todos", "-1")) - DdlSubProyectoOrigen.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1) + DdlSubProyectoOrigen.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubProyectoOrigen.DataBind() UPDatos.Update() End Sub Private Sub CargaDdlSubProyectoDestino() DdlSubProyectoDestino.Items.Insert(0, New ListItem("Todos", "-1")) - DdlSubProyectoDestino.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1) + DdlSubProyectoDestino.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubProyectoDestino.DataBind() UPDatos.Update() End Sub diff --git a/Acarreos/RepAcarreosDetalle.aspx.vb b/Acarreos/RepAcarreosDetalle.aspx.vb index c62913d3e..2b6131edd 100644 --- a/Acarreos/RepAcarreosDetalle.aspx.vb +++ b/Acarreos/RepAcarreosDetalle.aspx.vb @@ -108,14 +108,14 @@ Partial Class Acarreos_RepAcarreosDetalle Private Sub CargaDdlSubProyectoOrigen() DdlSubProyectoOrigen.Items.Insert(0, New ListItem("Todos", "-1")) - DdlSubProyectoOrigen.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1) + DdlSubProyectoOrigen.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubProyectoOrigen.DataBind() UPDatos.Update() End Sub Private Sub CargaDdlSubProyectoDestino() DdlSubProyectoDestino.Items.Insert(0, New ListItem("Todos", "-1")) - DdlSubProyectoDestino.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1) + DdlSubProyectoDestino.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubProyectoDestino.DataBind() UPDatos.Update() End Sub diff --git a/Acarreos/RepContratosAcarreos.aspx.vb b/Acarreos/RepContratosAcarreos.aspx.vb index 6adf28707..629a9297f 100644 --- a/Acarreos/RepContratosAcarreos.aspx.vb +++ b/Acarreos/RepContratosAcarreos.aspx.vb @@ -59,13 +59,13 @@ Partial Class Acarreos_RepContratosAcarreos Private Sub CargaDdlSubProyectoOrigen() DdlSubProyectoOrigen.Items.Insert(0, New ListItem("Todos", "-1")) - DdlSubProyectoOrigen.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1) + DdlSubProyectoOrigen.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubProyectoOrigen.DataBind() UPDatos.Update() End Sub Private Sub CargaDdlSubProyectoDestino() DdlSubProyectoDestino.Items.Insert(0, New ListItem("Todos", "-1")) - DdlSubProyectoDestino.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1) + DdlSubProyectoDestino.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubProyectoDestino.DataBind() UPDatos.Update() End Sub diff --git a/App_Code/CalendarEvent.vb b/App_Code/CalendarEvent.vb index f0a7a8aca..6bd2224a0 100644 --- a/App_Code/CalendarEvent.vb +++ b/App_Code/CalendarEvent.vb @@ -47,6 +47,11 @@ Public Class CalendarEvent Public Property SerieFolioCompra As String Public Property CveVenta As Integer Public Property SerieFolioVenta As String + + Public Property CveVentaRemision As Integer = -1 + Public Property RemisionSerieFolio As String = "" + Public Property RemisionSaldo As Decimal = -1 + Public Property CveActivoFijo As Integer Public Property CveTipoAF As Integer @@ -64,6 +69,7 @@ Public Class CalendarEvent Public Property CveMoneda As Integer Public Property Moneda As String - + Public Property NumChoferes As Integer = 1 + Public Property TipoEstatus As Integer = -1 End Class diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index c9ffe1b18..896018f1c 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -1338,7 +1338,7 @@ Public Class ClsClientes End Function ''' Obtiene las Remisiones No Facturas de un Cliente,El parametro Ventas debe ser las "CveVenta" separadas por coma - Public Function GetVentasRemisionesTotales(CveCliente As Integer, Ventas As String, Tipo As Integer) As Boolean + Public Function GetVentasRemisionesTotales(CveCliente As Integer, Ventas As String, Tipo As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasRemisionesTotales") @@ -1346,6 +1346,7 @@ Public Class ClsClientes .Add("@CveCliente", SqlDbType.Int).Value = CveCliente .Add("@Ventas", SqlDbType.VarChar).Value = Ventas .Add("@Tipo", SqlDbType.Int).Value = Tipo + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try @@ -1358,7 +1359,7 @@ Public Class ClsClientes Return Retorno End Function - Public Function GetVentasRemisionesPagos(CveCliente As Integer, Ventas As String, Optional TipoDocto As String = "Rem") As Boolean + Public Function GetVentasRemisionesPagos(CveCliente As Integer, Ventas As String, CveEmpresa As Integer, Optional TipoDocto As String = "Rem") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasRemisionesPagos") @@ -1366,6 +1367,7 @@ Public Class ClsClientes .Add("@CveCliente", SqlDbType.Int).Value = CveCliente .Add("@Ventas", SqlDbType.VarChar).Value = Ventas .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try diff --git a/App_Code/ClsCompraManager.vb b/App_Code/ClsCompraManager.vb index fcdc08bc1..96e43391a 100644 --- a/App_Code/ClsCompraManager.vb +++ b/App_Code/ClsCompraManager.vb @@ -549,7 +549,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 @@ -595,7 +595,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 diff --git a/App_Code/ClsContratos.vb b/App_Code/ClsContratos.vb index 6d8b7fdf3..22f47b871 100644 --- a/App_Code/ClsContratos.vb +++ b/App_Code/ClsContratos.vb @@ -193,6 +193,7 @@ Public Class ClsContratos Public Property CvePartida As Integer Public Property CveDestino As Integer Public Property CveMasivo As Integer + Public Property NumChoferes As Integer = 1 #End Region #Region " C O N T R A T O S " @@ -318,7 +319,8 @@ Public Class ClsContratos Me.CantidadPasajeros = Data.Rows(0)("CantidadPasajeros").ToString.ToEntero Me.CvePartida = Data.Rows(0)("CvePartida").ToString.ToEntero Me.CveDestino = Data.Rows(0)("CveDestino").ToString.ToEntero - Me.CveMasivo = Data.Rows(0)("CveMasivo").ToString.ToEntero + Me.CveMasivo = Data.Rows(0)("CveMasivo").ToString.ToEntero + Me.NumChoferes = Data.Rows(0)("NumChoferes").ToString.ToEntero End If Retorno = True @@ -423,7 +425,8 @@ Public Class ClsContratos Optional CveContratosEstatus As Integer = -1, Optional CveContratoTipo As Integer = -1, Optional TipoCambio As Double = -1, Optional CveSucursalCliente As Integer = -1, Optional CveAlmacenOrigen As Integer = -1, Optional CveAlmacenDestino As Integer = -1, Optional PorcentajeComision As Integer = -1, Optional TipoGarantia As Integer = -1, Optional Folio As Integer = -1, Optional FechaVenc As Date = Nothing, Optional EstatusFianza As Integer = -1, Optional CveContratoPlantilla As Integer = -1, Optional CveCuentaEquipo As Integer = -1, Optional CveVendedor As Integer = -1, Optional Observaciones As String = "", Optional CveDireccionEnvio As Integer = -1, Optional AplicaImpuestosLocales As Boolean = False, Optional CorreoNotificacionPedDev As String = "", Optional FacturacionCicilica As Boolean = False, Optional FacturacionCiclicaAutomatico As Boolean = False, - Optional DiaMesFacturacion As Integer = 1, Optional CvePeriodo As Integer = -1, Optional ObservacionesGenerales As String = "", Optional CveTipoAF As Integer = Nothing, Optional CveChofer As Integer = Nothing, Optional CveChofer2 As Integer = Nothing, Optional CveAF As Integer = Nothing, Optional CantidadPasajeros As Integer = Nothing, Optional CvePartida As Integer = Nothing, Optional CveDestino As Integer = Nothing, Optional CveMasivo As Integer = Nothing) As Boolean + Optional DiaMesFacturacion As Integer = 1, Optional CvePeriodo As Integer = -1, Optional ObservacionesGenerales As String = "", Optional CveTipoAF As Integer = Nothing, Optional CveChofer As Integer = Nothing, Optional CveChofer2 As Integer = Nothing, Optional CveAF As Integer = Nothing, + Optional CantidadPasajeros As Integer = Nothing, Optional CvePartida As Integer = Nothing, Optional CveDestino As Integer = Nothing, Optional CveMasivo As Integer = -1, Optional NumChoferes As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Con_ContratosUpdate") @@ -487,6 +490,7 @@ Public Class ClsContratos .Add("@CvePartida", SqlDbType.Int).Value = CvePartida .Add("@CveDestino", SqlDbType.Int).Value = CveDestino .Add("@CveMasivo", SqlDbType.Int).Value = CveMasivo + .Add("@NumChoferes", SqlDbType.Int).Value = NumChoferes End With Try SqlAdapter.Fill(Data) @@ -684,7 +688,7 @@ Public Class ClsContratos Return Retorno End Function - Public Function GetContratosValUnidadesAgendadas(CveAF As Integer, FechaInicial As DateTime, FechaFinal As DateTime, CveEmpresa As Integer, CveContrato As Integer) As Boolean + Public Function GetContratosValUnidadesAgendadas(CveAF As Integer, FechaInicial As DateTime, FechaFinal As DateTime, CveEmpresa As Integer, CveContrato As Integer, Optional Opcion As Integer = 1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Con_ContratosValUnidadesAgendadasGet") @@ -694,6 +698,7 @@ Public Class ClsContratos .Add("@FechaFinal", SqlDbType.DateTime).Value = FechaFinal .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveContrato", SqlDbType.Int).Value = CveContrato + .Add("@Opcion", SqlDbType.Int).Value = Opcion End With Try SqlAdapter.Fill(Data) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 496459e94..d78ec663b 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -4684,7 +4684,8 @@ Public Class ClsInventarios Return Retorno End Function - Public Function RepTrasladoSolicitud(CveAlmacenOrigen As Integer, CveAlmacenDestino As Integer, CveTrasladoEstatus As Integer, FechaInicio As DateTime, FechaFin As DateTime, CveUsuario As Integer, OpcionAlmacen As Integer, CveContrato As Integer, CveEmpresa As Integer) As Boolean + Public Function RepTrasladoSolicitud(CveAlmacenOrigen As Integer, CveAlmacenDestino As Integer, CveTrasladoEstatus As Integer, FechaInicio As DateTime, FechaFin As DateTime, CveUsuario As Integer, OpcionAlmacen As Integer, CveContrato As Integer, + CveEmpresa As Integer, Optional CveUsuarioConsulta As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_TraspasoSolicitudGetRep") @@ -4698,6 +4699,7 @@ Public Class ClsInventarios .Add("@CveContrato", SqlDbType.Int).Value = CveContrato .Add("@OpcionAlmacen", SqlDbType.Int).Value = OpcionAlmacen .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta End With Try diff --git a/App_Code/ClsOC.vb b/App_Code/ClsOC.vb index aca7aa3b2..3fb0c1389 100644 --- a/App_Code/ClsOC.vb +++ b/App_Code/ClsOC.vb @@ -1143,13 +1143,14 @@ Public Class ClsOC Return Retorno End Function - Public Function GetOrdenesDetalle(pCveOrdenCompra As Integer) As Boolean + Public Function GetOrdenesDetalle(CveOrdenCompra As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OC_OrdenesCompraDetalleGet") With SqlAdapter.SelectCommand.Parameters - .Add("@CveOrdenCompra", SqlDbType.Int).Value = pCveOrdenCompra + .Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index c85797b27..76e571b5f 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -270,7 +270,7 @@ Public Class ClsPaginas Application("GlobalTipoCambioEuro") = value End Set End Property - 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 + Public Shared Property GlobalDTUsuarios(CveUsuario As Integer, CveEmpresa As Integer, Optional CveCliente As Integer = -1, Optional CveProveedor As Integer = -1) As DataTable Get Dim AppNombre As String = $"GlobalDTUsuarios-{CveEmpresa}" If HttpContext.Current.Application(AppNombre) Is Nothing Then @@ -1331,7 +1331,7 @@ Public Class ClsPaginas HttpContext.Current.Application(AppNombre) = value End Set End Property - Public Shared Property GlobalDTUnidadesMedida(Optional CveEmpresa As Integer = -1) As DataTable + Public Shared Property GlobalDTUnidadesMedida(CveEmpresa As Integer) As DataTable Get Dim AppNombre As String = $"GlobalDTUnidadesMedida-{CveEmpresa}" 'sino existe, recarga los datos @@ -1347,7 +1347,7 @@ Public Class ClsPaginas HttpContext.Current.Application(AppNombre) = value End Set End Property - Property GlobalDTUnidadesMedidaAlias(Optional CveEmpresa As Integer = -1) As DataTable + Property GlobalDTUnidadesMedidaAlias(CveEmpresa As Integer) As DataTable Get Dim AppNombre As String = $"GlobalDTUnidadesMedidaAlias-{CveEmpresa}" 'sino existe, recarga los datos @@ -1572,7 +1572,7 @@ Public Class ClsPaginas HttpContext.Current.Application(AppNombre) = value End Set End Property - Public Shared Property GlobalDTSubProyectos(CveProyecto As Integer, Optional CveSubProyecto As Integer = -1, Optional CveEmpresa As Integer = -1, Optional Estatus As Integer = 1) As DataTable + Public Shared Property GlobalDTSubProyectos(CveEmpresa As Integer, Optional CveSubProyecto As Integer = -1, Optional CveProyecto As Integer = -1, Optional Estatus As Integer = 1) As DataTable Get Dim AppNombre As String = $"GlobalDTSubProyectos-{CveEmpresa}" 'sino existe, recarga los datos @@ -2411,7 +2411,7 @@ Public Class ClsPaginas End Set End Property - Property GlobalDTTipoVenta(Optional CveEmpresa As Integer = -1) As DataTable + Property GlobalDTTipoVenta(CveEmpresa As Integer) As DataTable Get Dim AppNombre As String = $"GlobalDTTipoVenta-{CveEmpresa}" 'sino existe, recarga los datos @@ -4426,7 +4426,7 @@ Public Class ClsPaginas HttpContext.Current.Application(AppNombre) = value End Set End Property - Public Shared Property GlobalDTVtaCondicionesEntrega(Optional CveEmpresa As Integer = -1) As DataTable + Public Shared Property GlobalDTVtaCondicionesEntrega(CveEmpresa As Integer) As DataTable Get Dim AppNombre As String = $"GlobalDTVtaCondicionesEntrega-{CveEmpresa}" 'sino existe, recarga los datos @@ -5027,7 +5027,7 @@ Public Class ClsPaginas If AplicaTodos <> "" Then DdlProyecto.Items.Insert(0, New ListItem(AplicaTodos, "-1")) End If If DdlSubProyectoMultiple IsNot Nothing Then - DdlSubProyectoMultiple.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)) + DdlSubProyectoMultiple.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Estatus:=1)) DdlSubProyectoMultiple.DataBind() If AplicaTodos <> "" Then DdlSubProyectoMultiple.Items.Insert(0, New ListItem(AplicaTodos, "-1")) End If @@ -5038,7 +5038,7 @@ Public Class ClsPaginas Public Sub CargarSubProyecto(DdlSubProyecto As ListControl, CveProyecto As String, Optional AplicaTodos As String = "Seleccione") DdlSubProyecto.Items.Clear() DdlSubProyecto.ClearSelection() - DdlSubProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto.ToEntero(), UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(CveProyecto.ToEntero(), -1, UsuarioActual.CveEmpresa, 1)) + DdlSubProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto.ToEntero(), UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto.ToEntero(), Estatus:=1)) DdlSubProyecto.DataBind() If AplicaTodos <> "" Then If DdlSubProyecto.GetType() Is GetType(ListBox) Then @@ -5608,7 +5608,7 @@ Public Class ClsPaginas 'Vta.Subproyecto = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.SucursalModel) Dim CveSubProyecto As Integer = dtVentas(0)("CveSubProyecto").ToString().ToEntero() - Dim DtSubProyecto As DataTable = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyecto, CveEmpresa:=dtVentas(0)("CveEmpresa").ToString().ToEntero()) + Dim DtSubProyecto As DataTable = GlobalDTSubProyectos(dtVentas(0)("CveEmpresa").ToString.ToEntero, CveSubProyecto:=CveSubProyecto) Vta.SubProyecto = DtSubProyecto.Rows(0).DataRowToObject(Of Modelos.SubProyectoModel) 'Vta.SubProyecto = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.SubProyectoModel) @@ -7725,7 +7725,7 @@ Public Class ClsPaginas End If ObjEmpresa.Dispose() Dim dtOC As DataTable = ObjOC.DtResultados - If ObjOC.GetOrdenesDetalle(ObjOC.CveOrdenCompra) Then 'Obtenemos el Detalle de la Oorden de Compra + If ObjOC.GetOrdenesDetalle(ObjOC.CveOrdenCompra, ObjOC.CveEmpresa) Then 'Obtenemos el Detalle de la Oorden de Compra DtDetalle = ObjOC.DtResultados End If @@ -7776,7 +7776,7 @@ Public Class ClsPaginas If CveSubProyectoEntrega > 0 Then - Dim DTSubProyectoEntrega As DataTable = GlobalDTSubProyectos(-1, CveSubProyectoEntrega, UsuarioActual.CveEmpresa) + Dim DTSubProyectoEntrega As DataTable = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyectoEntrega) params.Add(New ReportParameter("SubProyectoEntrega", DTSubProyectoEntrega(0)("SubProyecto").ToString)) @@ -7795,15 +7795,9 @@ Public Class ClsPaginas params.Add(New ReportParameter("SubProyectoEntregaDir", SubProyectoEntregaDir)) End If - End If - - End If - - - Dim CveUsuarioSol As Integer = dtOC(0)("CveUsuarioSolicito").ToString.ToEntero Dim CveUsuarioAut As Integer = dtOC(0)("CveUsuarioAutorizo").ToString.ToEntero Dim drSol As DataRow = GlobalDTUsuarios(CveUsuarioSol, EmpresaActual.CveEmpresa).FiltroPrimero("") 'DataRow (incluye el NOMBRE de quien SOLICITÓ la OC) @@ -7881,7 +7875,7 @@ Public Class ClsPaginas params.Add(New ReportParameter("TipoOC", If(ObjOC.Tipo = "OC", "Orden de Compra", "Requisición"))) params.Add(New ReportParameter("UsoCFDI", ObjOC.UsoCFDI)) - If UsuarioActual.CveEmpresa.Contiene(72, 80, 172) Or (UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso UsuarioActual.CveEmpresa = 197) Then + If UsuarioActual.CveEmpresa.Contiene(72, 80, 172) Or (UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso UsuarioActual.CveEmpresa.Contiene(197, 189)) Then params.Add(New ReportParameter("FolioAdicional", dtOC(0)("FolioAdicional").ToString)) params.Add(New ReportParameter("Vendedor", dtOC(0)("Vendedor").ToString)) params.Add(New ReportParameter("Observacion", dtOC(0)("PrioridadObservacion").ToString)) @@ -10364,6 +10358,7 @@ Public Class ClsPaginas PaginaDict.Add("/Inventarios/PopUpBuscarMovto.aspx".ToUpper(), 219) PaginaDict.Add("/Inventarios/RepMaterialResguardo.aspx".ToUpper(), 493) PaginaDict.Add("/Inventarios/TrasladoSolicitud.aspx".ToUpper(), 524) + PaginaDict.Add("/Inventarios/TrasladoSolicitudOld.aspx".ToUpper(), -1) PaginaDict.Add("/Inventarios/RepTrasladoSolicitud.aspx".ToUpper(), 514) PaginaDict.Add("/Inventarios/CatGrupoPS.aspx".ToUpper(), 849) PaginaDict.Add("/Inventarios/KardexAlmacen.aspx".ToUpper(), 639) diff --git a/App_Code/ClsSisUsuarioAutenticacion.vb b/App_Code/ClsSisUsuarioAutenticacion.vb index 7491db69c..5b8070cbc 100644 --- a/App_Code/ClsSisUsuarioAutenticacion.vb +++ b/App_Code/ClsSisUsuarioAutenticacion.vb @@ -246,7 +246,7 @@ Public Class ClsSisUsuarioAutenticacion 'cargo los modulos del usuario y genero el menú Dim dttmp As DataTable = ObjUsr.GetUsuariosRolesModulos(Retorno.CveUsuario, Retorno.CveEmpresa) - If GenerarMenu Then GeneraMenu(Retorno.CveUsuario, dttmp, Retorno.CvePlataforma) + If GenerarMenu Then GeneraMenu(Retorno.CveUsuario, dttmp, Retorno.CveEmpresa, Retorno.CvePlataforma) Dim UsuariosModulos As New HybridDictionary For Each Row As DataRow In dttmp.Rows @@ -506,7 +506,7 @@ Public Class ClsSisUsuarioAutenticacion - Private Function GeneraMenu(CveUsuario As Integer, dtMenu As DataTable, Optional CvePlataforma As Integer = 1) As Boolean + Private Function GeneraMenu(CveUsuario As Integer, dtMenu As DataTable, CveEmpresa As Integer, Optional CvePlataforma As Integer = 1) As Boolean Dim Retorno As Boolean = False dtMenu.TableName = "UsuariosModulos" @@ -522,9 +522,9 @@ Public Class ClsSisUsuarioAutenticacion Carpeta.DirectoryExistsCreate Select Case CvePlataforma Case 6, 7 - dtMenu.FiltraParametros($"CvePlataforma = {CvePlataforma}").WriteXml($"{Carpeta}/{CveUsuario}.xml", XmlWriteMode.WriteSchema) + dtMenu.FiltraParametros($"CvePlataforma = {CvePlataforma}").WriteXml($"{Carpeta}/{CveEmpresa}-{CveUsuario}.xml", XmlWriteMode.WriteSchema) Case Else - dtMenu.FiltraParametros("CvePlataforma = 1").WriteXml($"{Carpeta}/{CveUsuario}.xml", XmlWriteMode.WriteSchema) + dtMenu.FiltraParametros("CvePlataforma = 1").WriteXml($"{Carpeta}/{CveEmpresa}-{CveUsuario}.xml", XmlWriteMode.WriteSchema) End Select Retorno = True diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 5ea5979ef..2732e461b 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -3401,6 +3401,7 @@ Public Class ClsVentas .Add("@EsFilial", SqlDbType.Int).Value = EsFilial End With Try + SqlAdapter.SelectCommand.CommandTimeout = 0 SqlAdapter.Fill(Data) Retorno = True Catch ex As Exception @@ -7404,6 +7405,26 @@ Public Class ClsVentas End Function + Public Function UpdateVentaAdjunto(CveVenta As Integer, Adjunto As String, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_VentaAdjuntoUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + .Add("@Adjunto", SqlDbType.VarChar).Value = Adjunto + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar el adjunto de la venta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + #Region "IDisposable Support" diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 220fc411a..898dfd815 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -1915,7 +1915,7 @@ Namespace Modelos dr("Consec") = ii If drpss("IVA").ToString = "-1" Then - dr("PorcentajeIVA") = SubProyectoPorcentajeIVA ' GlobalDTSubProyectos(-1,cves DrPS("IVA") + dr("PorcentajeIVA") = SubProyectoPorcentajeIVA Else dr("PorcentajeIVA") = drpss("IVA") End If @@ -3033,7 +3033,7 @@ Namespace Modelos Dim DtPagosVenta As DataTable = Nothing If ObjClientes IsNot Nothing Then - If ObjClientes.GetVentasRemisionesPagos(CveCliente, Me.CveVenta.ToString(), ObjFactura.TipoDocto) Then + If ObjClientes.GetVentasRemisionesPagos(CveCliente, Me.CveVenta.ToString(), ObjFactura.CveEmpresa, ObjFactura.TipoDocto) Then DtPagosVenta = ObjClientes.DtResultados.Copy() Else ErrorPrepoliza = True @@ -3900,7 +3900,7 @@ Namespace Modelos importeMovimiento = ((TmpDTDetalle.SUM("TotalImporte", String.Format("CveClasificacion = {0} AND CveSubProyecto = {1} AND PorcentajeIVA = {2}", Row2("CveClasificacion"), Row2("CveSubProyecto"), Row2("PorcentajeIVA"))).ToString.ToDecimal) * ValorMultiplicador) importeMX = importeMovimiento * tipoCambio * Multiplicador FechaMovimiento = ObjFactura.FechaPago - Concepto = $"{ObjFactura.SerieFolio} {If(Row2("CveClasificacion").ToString.ToEntero > 0, ClsPaginas.GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString}"), "")} - {If(Row2("CveSubProyecto").ToString.ToEntero > 0, ClsPaginas.GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString}"), "Sin SubProyecto Asignado")}" + Concepto = $"{ObjFactura.SerieFolio} {If(Row2("CveClasificacion").ToString.ToEntero > 0, ClsPaginas.GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString}"), "")} - {If(Row2("CveSubProyecto").ToString.ToEntero > 0, ClsPaginas.GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString}"), "Sin SubProyecto Asignado")}" If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" 'Nota cuando es Nota de crédiot, debe de tomar el devoluciones y rebajas @@ -3938,7 +3938,7 @@ Namespace Modelos importeMX = importeMovimiento * tipoCambio * Multiplicador FechaMovimiento = ObjFactura.FechaPago - Concepto = $"{ObjFactura.SerieFolio} {If(Row2("CveClasificacion").ToString.ToEntero > 0, ClsPaginas.GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString}"), "")} - {If(Row2("CveSubProyecto").ToString.ToEntero > 0, ClsPaginas.GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString}"), "Sin SubProyecto Asignado")}" + Concepto = $"{ObjFactura.SerieFolio} {If(Row2("CveClasificacion").ToString.ToEntero > 0, ClsPaginas.GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString}"), "")} - {If(Row2("CveSubProyecto").ToString.ToEntero > 0, ClsPaginas.GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString}"), "Sin SubProyecto Asignado")}" If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" 'Nota cuando es Nota de crédiot, debe de tomar el devoluciones y rebajas @@ -3971,7 +3971,7 @@ Namespace Modelos importeMovimiento = (TmpDTDetalle.SUM("Descuento", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador importeMX = importeMovimiento * tipoCambio * Multiplicador FechaMovimiento = ObjFactura.FechaPago - Concepto = $"{ObjFactura.SerieFolio} {If(Row2("CveClasificacion").ToString().ToEntero() > 0, ClsPaginas.GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}"), "")} - {If(Row2("CveSubProyecto").ToString().ToEntero() > 0, ClsPaginas.GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString()}"), "Sin SubProyecto Asignado")}" + Concepto = $"{ObjFactura.SerieFolio} {If(Row2("CveClasificacion").ToString().ToEntero() > 0, ClsPaginas.GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}"), "")} - {If(Row2("CveSubProyecto").ToString().ToEntero() > 0, ClsPaginas.GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString()}"), "Sin SubProyecto Asignado")}" If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" 'Nota cuando es Nota de crédiot, debe de tomar el devoluciones y rebajas @@ -7888,12 +7888,12 @@ Namespace Modelos Public Sub SetSubProyecto() If CveSubProyecto > 0 AndAlso UsuarioActual IsNot Nothing Then - SubProyecto = New Modelos.SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")) + SubProyecto = New Modelos.SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto).FiltroPrimero("")) End If End Sub Public Sub SetSubProyectoMatriz() If UsuarioActual IsNot Nothing Then - Dim Row As Data.DataRow = ClsPaginas.GlobalDTSubProyectos(-1, CveSubProyecto:=-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal=1") + Dim Row As Data.DataRow = ClsPaginas.GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal=1") If Not IsNothing(Row) Then SubProyectoMatriz = New Modelos.SubProyectoModel(Row) End If @@ -7950,12 +7950,12 @@ Namespace Modelos Public Sub SetSubProyecto(obj As ClsPaginas) If CveSubProyecto > 0 AndAlso Not IsNothing(obj) Then - SubProyecto = New Modelos.SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(-1, CveEmpresa:=obj.UsuarioActual.CveEmpresa).FiltroPrimero($"CveSubProyecto = {CveSubProyecto}")) + SubProyecto = New Modelos.SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(obj.UsuarioActual.CveEmpresa).FiltroPrimero($"CveSubProyecto = {CveSubProyecto}")) End If End Sub Public Sub SetSubProyectoMatriz(obj As ClsPaginas) If Not IsNothing(obj) Then - Dim Row As Data.DataRow = ClsPaginas.GlobalDTSubProyectos(-1, CveSubProyecto:=-1, CveEmpresa:=obj.UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal=1") + Dim Row As Data.DataRow = ClsPaginas.GlobalDTSubProyectos(obj.UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal=1") If Not IsNothing(Row) Then SubProyectoMatriz = New Modelos.SubProyectoModel(Row) End If diff --git a/Ashx/CargaEventos.ashx b/Ashx/CargaEventos.ashx index 8574dd9a6..323dcd810 100644 --- a/Ashx/CargaEventos.ashx +++ b/Ashx/CargaEventos.ashx @@ -552,13 +552,28 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState cevent.Anticipo = dr("ImporteMin").ToString.ToDecimal cevent.CveActivoFijo = dr("CveAF").ToString.ToEntero cevent.CveTipoAF = dr("CveTipoAF").ToString.ToEntero - cevent.backgroundColor = dr("BackgroundColor").ToString cevent.CantidadPasajeros = dr("CantidadPasajeros").ToString cevent.NumeroContrato = dr("NumeroContrato").ToString cevent.Observaciones = dr("Observaciones").ToString cevent.CveSubProyecto = dr("CveSubProyecto").ToString.ToEntero cevent.CveMoneda = dr("CveMoneda").ToString.ToEntero cevent.Moneda = dr("Moneda").ToString + cevent.NumChoferes = dr("NumChoferes").ToString.ToEntero + + cevent.CveVentaRemision = dr("CveVentaRemision").ToString.ToEntero + cevent.RemisionSerieFolio = dr("RemisionSerieFolio").ToString + cevent.RemisionSaldo = dr("RemisionSaldo").ToString.ToDecimal + cevent.TipoEstatus = dr("TipoEstatus").ToString.ToEntero + cevent.backgroundColor = dr("backgroundColor").ToString + + Dim BGC_Atencion As String = "#bc9b1b" + If cevent.TipoEstatus <> 4 AndAlso cevent.TipoEstatus <> 3 Then + If dr("CveChofer").ToString.ToEntero <= 0 Or (dr("CveChofer2").ToString.ToEntero <= 0 And cevent.NumChoferes = 2) Or dr("CveAF").ToString.ToEntero <= 0 Then + cevent.backgroundColor = BGC_Atencion + End If + End If + + If Not cevent.recurrenciatipo > 0 Then diff --git a/Ashx/E141.ashx b/Ashx/E141.ashx index 994c995bb..50a0603aa 100644 --- a/Ashx/E141.ashx +++ b/Ashx/E141.ashx @@ -821,8 +821,8 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe ObjFactura.CveSubProyecto = CveSubProyecto ObjFactura.CveSubProyectoCobranza = CveSubProyecto ObjFactura.CveSubProyectoEjecucion = CveSubProyecto - ObjFactura.SubProyecto = New Modelos.SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(-1, CveEmpresa:=CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto = {0}", CveSubProyecto))) - ObjFactura.SubProyectoMatriz = New Modelos.SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(-1, CveSubProyecto:=-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal=1")) + ObjFactura.SubProyecto = New Modelos.SubProyectoModel(ClsPaginas.GlobalDTSubProyectos( CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto = {0}", CveSubProyecto))) + ObjFactura.SubProyectoMatriz = New Modelos.SubProyectoModel(ClsPaginas.GlobalDTSubProyectos( UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal=1")) 'CLIENTE ObjFactura.CveCliente = CveCliente @@ -1326,7 +1326,7 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe Dim PorcentajeIVADefault As Decimal = 0.16D - Dim DrSubProyecto As DataRow = ClsPaginas.GlobalDTSubProyectos(-1, JsonRequest("branch_office_id").ToEntero(), CveEmpresa:=CveEmpresa).Rows(0) + Dim DrSubProyecto As DataRow = ClsPaginas.GlobalDTSubProyectos( CveEmpresa, cvesubproyecto:=JsonRequest("branch_office_id").ToEntero()).Rows(0) If DrSubProyecto IsNot Nothing Then PorcentajeIVADefault = DrSubProyecto("IVA").ToString().ToDecimal() @@ -1415,7 +1415,7 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe Dim Row As DataRow = Nothing Dim TotalCalculableImpuestos As Decimal = 0 PU = Math.Round(PU, 6) ' el precio unitario puede llevar hasta 6 decimales permitidos - Dim DrSubProyecto As DataRow = ClsPaginas.GlobalDTSubProyectos(-1, CveSubProyecto).Rows(0) + Dim DrSubProyecto As DataRow = ClsPaginas.GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto).Rows(0) Row = TmpDT.NewRow() Row("CveProyecto") = DrSubProyecto("CveProyecto").ToString().ToEntero() @@ -1593,7 +1593,7 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe Dim data As New JArray - Dim DtSucursales As DataTable = ClsPaginas.GlobalDTSubProyectos(-1, CveEmpresa:=CveEmpresa).FiltraParametros("EsSucursal = True") + Dim DtSucursales As DataTable = ClsPaginas.GlobalDTSubProyectos(CveEmpresa).FiltraParametros("EsSucursal = True") If DtSucursales IsNot Nothing Then Try For Each Row As DataRow In DtSucursales.Rows diff --git a/Ashx/SIGFacturacion.ashx b/Ashx/SIGFacturacion.ashx index 5e4dedbd0..6a88e43ea 100644 --- a/Ashx/SIGFacturacion.ashx +++ b/Ashx/SIGFacturacion.ashx @@ -136,14 +136,14 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState If Not String.IsNullOrEmpty(CveRemisiones) Then Dim ObjClientes As New ClsClientes - If ObjClientes.GetVentasRemisionesTotales(CveCliente, CveRemisiones, 1) Then + If ObjClientes.GetVentasRemisionesTotales(CveCliente, CveRemisiones, 1, UsuarioActual.CveEmpresa) Then DTRemisionesPS = ObjClientes.DtResultados.Copy() End If ObjClientes.Dispose() If DTRemisionesPS IsNot Nothing AndAlso DTRemisionesPS.Rows.Count > 0 Then Dim Resp As New Modelos.Factura.MMensajeFactura - Dim CveSubProyectoMatriz As Integer = ClsPaginas.GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero() + Dim CveSubProyectoMatriz As Integer = ClsPaginas.GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero() Dim ObjFactura = CreaFactura(Resp, UsuarioActual, DTRemisionesPS, RowCliente("CveCliente").ToString().ToEntero(), CveSubProyectoMatriz, 1, DatosRemisiones, FechaI, FechaF) @@ -312,8 +312,8 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState ObjFactura.CveSubProyecto = CveSubProyecto ObjFactura.CveSubProyectoCobranza = CveSubProyecto ObjFactura.CveSubProyectoEjecucion = CveSubProyecto - ObjFactura.SubProyecto = New SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(-1).FiltroPrimero(String.Format("CveSubProyecto = {0}", CveSubProyecto))) - ObjFactura.SubProyectoMatriz = New SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(-1, CveSubProyecto:=-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal=1")) + ObjFactura.SubProyecto = New SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto = {0}", CveSubProyecto))) + ObjFactura.SubProyectoMatriz = New SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=-1 ).FiltroPrimero("TipoSucursal=1")) 'CLIENTE ObjFactura.CveCliente = CveCliente @@ -677,7 +677,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState Dim Row As DataRow = Nothing Dim TotalCalculableImpuestos As Decimal = 0 PU = Math.Round(PU, 6) ' el precio unitario puede llevar hasta 6 decimales permitidos - Dim DrSubProyecto As DataRow = ClsPaginas.GlobalDTSubProyectos(-1, CveSubProyecto).Rows(0) + Dim DrSubProyecto As DataRow = ClsPaginas.GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto).Rows(0) Row = TmpDT.NewRow() Row("CveProyecto") = DrSubProyecto("CveProyecto").ToString().ToEntero() diff --git a/Ashx/SIGFacturacionCiclica.ashx b/Ashx/SIGFacturacionCiclica.ashx index 19cd3da04..540f6df90 100644 --- a/Ashx/SIGFacturacionCiclica.ashx +++ b/Ashx/SIGFacturacionCiclica.ashx @@ -332,9 +332,8 @@ Public Class SIGFacturacionCiclica : Implements IHttpHandler, IRequiresSessionSt ObjFactura.CveSubProyectoCobranza = CveSubProyecto.ToEntero ObjFactura.CveSubProyectoEjecucion = CveSubProyecto.ToEntero - ObjFactura.SubProyecto = New Modelos.SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(-1).FiltroPrimero(String.Format("CveSubProyecto = {0}", ObjFactura.CveSubProyecto))) - ObjFactura.SubProyectoMatriz = New Modelos.SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(-1, CveSubProyecto:=-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal=1")) - + ObjFactura.SubProyecto = New Modelos.SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto = {0}", ObjFactura.CveSubProyecto))) + ObjFactura.SubProyectoMatriz = New Modelos.SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=-1).FiltroPrimero("TipoSucursal=1")) SubProyecto = DR("SubProyectoContrato").ToString diff --git a/Bancos/CuentasBancariasDetalle.aspx.vb b/Bancos/CuentasBancariasDetalle.aspx.vb index bffdc7410..c89f3e3ee 100644 --- a/Bancos/CuentasBancariasDetalle.aspx.vb +++ b/Bancos/CuentasBancariasDetalle.aspx.vb @@ -38,7 +38,7 @@ Partial Class Bancos_CuentasBancariasDetalle CargaCuentasPadre() ViewState("DTUsuarios") = Nothing - Dim tablaUsuariosAux As DataTable = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre", DistinctColumns:={"CveUsuario", "Nombre", "Usuario"}) + Dim tablaUsuariosAux As DataTable = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre", DistinctColumns:={"CveUsuario", "Nombre", "Usuario"}) DdlUsuarios.DataSource = CargarDdlUsuarios(tablaUsuariosAux) DdlUsuarios.DataBind() @@ -123,7 +123,7 @@ Partial Class Bancos_CuentasBancariasDetalle DdlBanco.DataBind() DdlBanco.Items.Add(New ListItem("Empresa", "0")) - DdlSubProyectos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) + DdlSubProyectos.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubProyectos.DataBind() DdlSubProyectos.Items.Insert(0, New ListItem("-", "-1")) End Sub @@ -477,7 +477,7 @@ Partial Class Bancos_CuentasBancariasDetalle sUsuarios = $"{sUsuarios} {row("CveUsuario").ToString}," Next If sUsuarios <> "" Then - DdlUsuarios.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveUsuario NOT IN ({sUsuarios.Substring(0, sUsuarios.Length - 1)})", "Nombre") + DdlUsuarios.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros($"CveUsuario NOT IN ({sUsuarios.Substring(0, sUsuarios.Length - 1)})", "Nombre") DdlUsuarios.DataBind() End If End Sub diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb index bf4fd20c9..6b88b2c14 100644 --- a/Bancos/DepositosCaja.aspx.vb +++ b/Bancos/DepositosCaja.aspx.vb @@ -38,8 +38,8 @@ Partial Class Bancos_DepositosCaja BtnConsultar.Attributes.Add("onclick", "Consultar(this);") BtnDepositar.Attributes.Add("onclick", "Depositar(this);") - Dim StrEncriptPrueba As String = Encripta($"OP=DC&CveIE={2784391}&CuentaCaja={"TestCuantaCaja"}&CuentaDepo={"Test cuenta"}") - HplImprimirPDF.NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={StrEncriptPrueba}" + 'Dim StrEncriptPrueba As String = Encripta($"OP=DC&CveIE={2784391}&CuentaCaja={"TestCuantaCaja"}&CuentaDepo={"Test cuenta"}") + 'HplImprimirPDF.NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={StrEncriptPrueba}" If UsuarioActual.CveEmpresa = 189 Then If DdlTipoPago.Items.FindByValue("-1") IsNot Nothing Then diff --git a/Bancos/Devoluciones.aspx.cs b/Bancos/Devoluciones.aspx.cs index 588f11403..bc166e690 100644 --- a/Bancos/Devoluciones.aspx.cs +++ b/Bancos/Devoluciones.aspx.cs @@ -133,7 +133,7 @@ public partial class Bancos_Devoluciones : ClsPaginas } protected void CargaSubProyectos() { - DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(-1, CveEmpresa: UsuarioActual.CveEmpresa); + DdlSubProyecto.DataSource = get_GlobalDTSubProyectos( UsuarioActual.CveEmpresa); DdlSubProyecto.DataBind(); DdlSubProyecto.Items.Insert(0, new ListItem("Seleccione SubProyecto", "-1")); } diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index af33ff1b5..961d521e5 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -2137,7 +2137,7 @@ Partial Class Bancos_IE Dim importeMX As Decimal Dim Multiplicador As Integer - Dim tCveSubProyecto As Integer = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero + Dim tCveSubProyecto As Integer = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero 'OTROS INGRESOS/EGRESOS Dim TCC As Decimal = 1 @@ -2293,7 +2293,7 @@ Partial Class Bancos_IE If TxtOtrosIngresosEgresos.Text.ToDecimal <> 0 Then Dim TipoMovtoIE As Boolean = False Dim CveConcIE As Integer = 78 - Dim tCveSub As Integer = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero + Dim tCveSub As Integer = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero If Impo < 0 Then TipoMovtoIE = True Impo = Math.Abs(Impo) @@ -2360,8 +2360,7 @@ Partial Class Bancos_IE Dim ImporteAplicarMN As Decimal = 0.0D Dim ImporteAplicarME As Decimal = 0.0D Dim ReferenciaAplicar As String = ObjIE.Folio - Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero - + Dim CveSubProyecto As Integer = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero Dim ConceptoAplicar As String = $"Devolución de Proveedor {PagueseA} {TxtImporte.Text} NC:{SerieFolioDeCDin}" ImporteAplicar = TxtImporte.Text.ToDecimal diff --git a/Bancos/PagoAcreedor.aspx.cs b/Bancos/PagoAcreedor.aspx.cs index dbae5d93f..de1d871ad 100644 --- a/Bancos/PagoAcreedor.aspx.cs +++ b/Bancos/PagoAcreedor.aspx.cs @@ -57,12 +57,12 @@ public partial class Bancos_PagoAcreedor : ClsPaginas private void CargaSubproyectos() { - DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(-1, CveEmpresa: UsuarioActual.CveEmpresa); + DdlSubProyecto.DataSource = get_GlobalDTSubProyectos( UsuarioActual.CveEmpresa); DdlSubProyecto.DataBind(); DdlSubProyecto.Items.Insert(0, new ListItem("Seleccione", "-1")); - DdlSubProyectoPago.DataSource = get_GlobalDTSubProyectos(-1, CveEmpresa: UsuarioActual.CveEmpresa); + DdlSubProyectoPago.DataSource = get_GlobalDTSubProyectos( UsuarioActual.CveEmpresa); DdlSubProyectoPago.DataBind(); DdlSubProyectoPago.Items.Insert(0, new ListItem("Seleccione", "-1")); diff --git a/Bancos/PagoDeudor.aspx.cs b/Bancos/PagoDeudor.aspx.cs index 04f6e33d2..46a3b1198 100644 --- a/Bancos/PagoDeudor.aspx.cs +++ b/Bancos/PagoDeudor.aspx.cs @@ -60,12 +60,12 @@ public partial class Bancos_PagoDeudor : ClsPaginas private void CargaSubproyectos() { - DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(-1, CveEmpresa: UsuarioActual.CveEmpresa); + DdlSubProyecto.DataSource = get_GlobalDTSubProyectos( UsuarioActual.CveEmpresa); DdlSubProyecto.DataBind(); DdlSubProyecto.Items.Insert(0, new ListItem("Seleccione", "-1")); - DdlSubProyectoPago.DataSource = get_GlobalDTSubProyectos(-1, CveEmpresa: UsuarioActual.CveEmpresa); + DdlSubProyectoPago.DataSource = get_GlobalDTSubProyectos( UsuarioActual.CveEmpresa); DdlSubProyectoPago.DataBind(); DdlSubProyectoPago.Items.Insert(0, new ListItem("Seleccione", "-1")); diff --git a/Bancos/ProveedoresAbonar.aspx b/Bancos/ProveedoresAbonar.aspx index 1f8fa17e7..d4318ac11 100644 --- a/Bancos/ProveedoresAbonar.aspx +++ b/Bancos/ProveedoresAbonar.aspx @@ -446,10 +446,10 @@ <%-- 11 --%> - + % Desc. - + @@ -721,63 +721,36 @@ //} } - function calculaDescuentoEscalonado(saldo, TxtDescuento, TxtAbonar, chk,Text,Tipo) { - - let idTxtDescuento = TxtDescuento.id - let idTxtAbonar = TxtAbonar.id - - let descuentoValue = $("#" + idTxtDescuento).val().trim(); - let descuentoParts = descuentoValue.split('+'); - let abonarConDescuento = 0.0; - - - if (descuentoParts.length === 1) { - - - if (isNaN(parseFloat(descuentoParts[0])) || descuentoParts[0] == "0") { - $("#" + idTxtAbonar).val(saldo.toFixed(2)); - FnCambia(chk, TxtAbonar, saldo, 1, Text, Tipo); - - } else { - let descuento = saldo * (parseFloat(descuentoParts[0]) / 100); - abonarConDescuento = saldo - descuento; - $("#" + idTxtAbonar).val(FormatoNumero(abonarConDescuento.toFixed(2),2)); - FnCambia(chk, TxtAbonar, saldo, 1, Text, Tipo); - } - - } else if (descuentoParts.length === 2) { - - if (isNaN(parseFloat(descuentoParts[0]))) { - $("#" + idTxtAbonar).val(""); - FnCambia(chk, TxtAbonar, saldo, 1, Text, Tipo); - return; - } - - let descuento1 = saldo * (parseFloat(descuentoParts[0]) / 100); - - if (isNaN(parseFloat(descuentoParts[1]))) { - - let descuento = saldo * (parseFloat(descuentoParts[0]) / 100); - abonarConDescuento = saldo - descuento; - $("#" + idTxtAbonar).val(FormatoNumero(abonarConDescuento.toFixed(2), 2)); - FnCambia(chk, TxtAbonar, saldo, 1, Text, Tipo); - return; - } - - let descuento = saldo * (parseFloat(descuentoParts[0]) / 100); - abonarConDescuento = saldo - descuento; - - let abonarConDescuento2 = abonarConDescuento - (abonarConDescuento * (parseFloat(descuentoParts[1]) / 100)); - - $("#" + idTxtAbonar).val(FormatoNumero(abonarConDescuento2.toFixed(2), 2)); - FnCambia(chk, TxtAbonar, saldo, 1, Text, Tipo); - - - } else { - $("#" + idTxtAbonar).val(""); - FnCambia(chk, TxtAbonar, saldo, 1, Text, Tipo); - } + function calculaDescuentoEscalonado(saldo, TxtDescuento, TxtAbonar, chk, Text, Tipo) { + let idTxtDescuento = TxtDescuento.id; + let idTxtAbonar = TxtAbonar.id; + + let descuentoValue = $("#" + idTxtDescuento).val().trim(); + let descuentoParts = descuentoValue.split('+'); + let abonarConDescuento = saldo; + + if (descuentoParts.length === 0 || (descuentoParts.length === 1 && descuentoParts[0] === "")) { + $("#" + idTxtAbonar).val(saldo.toFixed(2)); + FnCambia(chk, TxtAbonar, saldo, 1, Text, Tipo); + return; + } + + for (let i = 0; i < descuentoParts.length; i++) { + let descuentoPart = descuentoParts[i].trim(); + + if (isNaN(parseFloat(descuentoPart)) || descuentoPart === "0") { + continue; + } + + let descuento = abonarConDescuento * (parseFloat(descuentoPart) / 100); + abonarConDescuento -= descuento; + } + + $("#" + idTxtAbonar).val(FormatoNumero(abonarConDescuento.toFixed(2), 2)); + FnCambia(chk, TxtAbonar, saldo, 1, Text, Tipo); } + + diff --git a/Bancos/RepCobrado.aspx.vb b/Bancos/RepCobrado.aspx.vb index 5acea6733..e792f72a4 100644 --- a/Bancos/RepCobrado.aspx.vb +++ b/Bancos/RepCobrado.aspx.vb @@ -40,7 +40,7 @@ Partial Class Ventas_RepRecuperacion DdlSubProyecto.DataBind() 'CargaUsuarios - DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa) DdlUsuario.DataBind() 'CargaResponsable diff --git a/Bancos/RepCobradoDetalle.aspx.vb b/Bancos/RepCobradoDetalle.aspx.vb index 52ee35b89..88a08495d 100644 --- a/Bancos/RepCobradoDetalle.aspx.vb +++ b/Bancos/RepCobradoDetalle.aspx.vb @@ -59,7 +59,7 @@ Partial Class Ventas_RepRecuperacionDetalle DdlSubProyecto.DataBind() 'CargaUsuarios - DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa) DdlUsuario.DataBind() 'CargaResponsable diff --git a/Bancos/RepCobradoPagado.aspx.vb b/Bancos/RepCobradoPagado.aspx.vb index a9a301a3a..017e017c1 100644 --- a/Bancos/RepCobradoPagado.aspx.vb +++ b/Bancos/RepCobradoPagado.aspx.vb @@ -217,7 +217,7 @@ Partial Class Bancos_RepCobradoPagado Private Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged DdlSubProyecto.Items.Clear() DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) - DdlSubProyecto.DataSource = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa) + DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=DdlProyecto.SelectedValue.ToEntero) DdlSubProyecto.DataBind() End Sub #End Region diff --git a/Bancos/RepEgresosSinComprobante.aspx.vb b/Bancos/RepEgresosSinComprobante.aspx.vb index 4c564e10d..8ba701429 100644 --- a/Bancos/RepEgresosSinComprobante.aspx.vb +++ b/Bancos/RepEgresosSinComprobante.aspx.vb @@ -34,7 +34,7 @@ Partial Class Bancos_RepEgresosSinComprobante DdlUsuarioResponsable.DataBind() If UsuarioActual.TienePermisoProceso(91) Then - DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre") + DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre") DdlUsuarioRegistro.DataBind() DdlUsuarioRegistro.Items.Insert(0, New ListItem("Todos", "-1")) Else @@ -51,7 +51,7 @@ Partial Class Bancos_RepEgresosSinComprobante DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Egs'") DdlTipoTransaccion.DataBind() - DdlUsuarioSolicito.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre") + DdlUsuarioSolicito.DataSource = GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre") DdlUsuarioSolicito.DataBind() DdlProveedores.setEsWebService(True) diff --git a/Bancos/RepIE.aspx.vb b/Bancos/RepIE.aspx.vb index f594d28de..210c08e60 100644 --- a/Bancos/RepIE.aspx.vb +++ b/Bancos/RepIE.aspx.vb @@ -97,7 +97,7 @@ Partial Class Bancos_RepIE CargaMoneda() CargaTipoTransaccion("-1") CargaUsuarioConcilio() - DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", DistinctColumns:={"Nombre", "CveUsuario"}) + DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("", DistinctColumns:={"Nombre", "CveUsuario"}) DdlUsuarioRegistro.databind txtFechaI.Text = NowADS().ToShortDateString diff --git a/Bancos/RepIngresosPorComprobar.aspx.vb b/Bancos/RepIngresosPorComprobar.aspx.vb index b4db04cea..32e006658 100644 --- a/Bancos/RepIngresosPorComprobar.aspx.vb +++ b/Bancos/RepIngresosPorComprobar.aspx.vb @@ -41,11 +41,11 @@ Partial Class Bancos_RepIngresosPorComprobar If UsuarioActual.TienePermisoProceso(91) Then - 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")) Else - DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(UsuarioActual.CveUsuario) + DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) DdlUsuarioRegistro.DataBind() End If @@ -261,7 +261,7 @@ Partial Class Bancos_RepIngresosPorComprobar UPDatos.Update() End If Next - DdlSubProyectoSaldar.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) + DdlSubProyectoSaldar.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubProyectoSaldar.DataBind() UPModalSaldar.Update() End Sub diff --git a/Bancos/RepProgramarRecursos.aspx.vb b/Bancos/RepProgramarRecursos.aspx.vb index a64e834f9..dfdd7142d 100644 --- a/Bancos/RepProgramarRecursos.aspx.vb +++ b/Bancos/RepProgramarRecursos.aspx.vb @@ -122,11 +122,11 @@ Partial Class Bancos_RepProgramarRecursos DdlEstatusCompra.DataBind() If UsuarioActual.TienePermisoProceso(91) Then - 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")) Else - DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(UsuarioActual.CveUsuario) + DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) DdlUsuarioRegistro.DataBind() End If @@ -167,14 +167,14 @@ Partial Class Bancos_RepProgramarRecursos RegistraScript(script, "random12345") proyectolabel.Visible = False - DdlSubProyecto.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)) + DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa)) DdlSubProyecto.DataBind() ' DdlEstatusCompra.SelectedValue = "2" 'las programadas 'DdlAgrupador.SelectedValue = "2" 'Gv.Columns(8).Visible = True DdlSubProyecto.Items.Insert(1, New ListItem("Sin Proyecto", "-2")) - ListSubProyecto.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)) + ListSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa)) ListSubProyecto.DataBind() End If @@ -188,10 +188,10 @@ Partial Class Bancos_RepProgramarRecursos DdlSubProyecto.SelectedValue = CveSubProyecto.ToString 'confirmo la seleccion, de no tener el dato, lo recargo If DdlSubProyecto.SelectedValue <> CveSubProyecto.ToString Then - Dim CveProy As Integer = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyecto).FiltroPrimeroValor("CveProyecto").ToEntero + Dim CveProy As Integer = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto).FiltroPrimeroValor("CveProyecto").ToEntero DdlSubProyecto.SelectedValue = CveSubProyecto.ToString - DdlSubProyecto.DataSource = GlobalDTSubProyectos(CveProy, -1, UsuarioActual.CveEmpresa, 1) + DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProy) DdlSubProyecto.DataBind() End If diff --git a/Bancos/RepProveedoresPagos.aspx.vb b/Bancos/RepProveedoresPagos.aspx.vb index c753e1c40..335c19e47 100644 --- a/Bancos/RepProveedoresPagos.aspx.vb +++ b/Bancos/RepProveedoresPagos.aspx.vb @@ -56,7 +56,7 @@ Partial Class Bancos_RepProveedoresPagos 'puede pagar de todos los usuarios o solo los que halla registrado If UsuarioActual.TienePermisoProceso(91) Then - 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")) Else @@ -64,7 +64,7 @@ Partial Class Bancos_RepProveedoresPagos DdlUsuarioRegistro.DataBind() End If - DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) + DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) diff --git a/Bancos/RepSaldosDAP.aspx.vb b/Bancos/RepSaldosDAP.aspx.vb index 1d8157710..a8e6a7736 100644 --- a/Bancos/RepSaldosDAP.aspx.vb +++ b/Bancos/RepSaldosDAP.aspx.vb @@ -14,11 +14,11 @@ Partial Class Bancos_RepSaldosDAP Private Sub Bancos_RepSaldosDAP_Load(sender As Object, e As EventArgs) Handles Me.Load If UsuarioActual.TienePermisoProceso(91) Then - 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")) Else - DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(UsuarioActual.CveUsuario) + DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) DdlUsuarioRegistro.DataBind() End If diff --git a/Bancos/Transferencias.aspx.vb b/Bancos/Transferencias.aspx.vb index def7ef6e3..2094cb900 100644 --- a/Bancos/Transferencias.aspx.vb +++ b/Bancos/Transferencias.aspx.vb @@ -461,7 +461,7 @@ Partial Class Bancos_Transferencias For Each Row As DataRow In dtcorreo.Rows ' CorreosCCP.Add(GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero)(0)("correo").ToString) - StrCorreos.AppendFormat("{0};", GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero)(0)("correo").ToString) + StrCorreos.AppendFormat("{0};", GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero, UsuarioActual.CveEmpresa)(0)("correo").ToString) Next Dim strBody As New StringBuilder diff --git a/CRM/AsignarVendedorEnProspectos.aspx.cs b/CRM/AsignarVendedorEnProspectos.aspx.cs index c3e28ef66..97abb1b58 100644 --- a/CRM/AsignarVendedorEnProspectos.aspx.cs +++ b/CRM/AsignarVendedorEnProspectos.aspx.cs @@ -35,7 +35,7 @@ public partial class CRM_AsignarVendedorEnProspectos : ClsPaginas private void CargaFiltros() { - DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(-1, CveEmpresa: UsuarioActual.CveEmpresa); + DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(UsuarioActual.CveEmpresa); DdlSubProyecto.Items.Insert(0, new ListItem("Seleccione", "-1")); DdlSubProyecto.DataBind(); diff --git a/CRM/CatEmpresasCRM.aspx.cs b/CRM/CatEmpresasCRM.aspx.cs index 9001fb0c6..34b2572be 100644 --- a/CRM/CatEmpresasCRM.aspx.cs +++ b/CRM/CatEmpresasCRM.aspx.cs @@ -240,7 +240,7 @@ public partial class CRM_CatEmpresasCRM : ClsPaginas } int CveSubProyecto = -1; - DataRow SubProyecto = get_GlobalDTSubProyectos(-1,CveEmpresa:UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("SubProyecto = '{0}'",Sucursal)); + DataRow SubProyecto = get_GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("SubProyecto = '{0}'",Sucursal)); if(SubProyecto != null) { CveSubProyecto = SubProyecto["CveSubProyecto"].ToString().ToEntero(); diff --git a/CRM/EmpresaCRM.aspx.cs b/CRM/EmpresaCRM.aspx.cs index 1a50f1336..9bd792eb3 100644 --- a/CRM/EmpresaCRM.aspx.cs +++ b/CRM/EmpresaCRM.aspx.cs @@ -1972,7 +1972,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas #endregion private void mandarCorreo(string Asunto, string body) { - DataTable Usuarios = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa); + DataTable Usuarios = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa); int CveUsuario = Usuarios.FiltroPrimeroValor("CveUsuario", String.Format("CveVendedor = {0}", DdlVendedorAsignado.SelectedValue)).ToEntero(); if (CveUsuario != UsuarioActual.CveUsuario) { diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index b7975235e..8a87f6cbb 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -1885,10 +1885,10 @@
- + - - + + @@ -1896,7 +1896,7 @@
- + Clasificación diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 0d7f05061..73fb13dfd 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1647,15 +1647,10 @@ Partial Class Compras_Compras DdlTipoComprobante.SelectedValueExist("DEV") End If - - If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 AndAlso DdlTipoComprobante.SelectedValue = "NC" Then - - ConfiguraseleccionRemisionNotaCredito() - End If End If @@ -4227,12 +4222,14 @@ Partial Class Compras_Compras Protected Sub BtnGuardar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnGuardar.Click + + + '------------------ INICIA VALIDACIONES ------------------ + If Not ValidaPresupuesto(2) Then Exit Sub End If - '------------------ INICIA VALIDACIONES ------------------ - If MetodoPagoOC = 0 AndAlso RBLPago.SelectedValue.ToEntero <> 2 AndAlso LblSaldoFactura.Text.ToDecimal > 0 Then Alert("La orden de compra se definió de contado, favor de especificar la compra de contado.", TipoMensaje.MsgAdvertencia) Exit Sub @@ -4689,6 +4686,11 @@ Partial Class Compras_Compras Exit Sub End If + If DdlMoneda.SelectedValue.ToEntero > 1 And TxtTC.Text.ToDecimal <= 10 Then + Alert("Al seleccionar dólares, el tipo de cambio debe ser superior a 10.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + '------------------TERMINA VALIDACIONES------------------ @@ -7686,7 +7688,6 @@ Partial Class Compras_Compras End If End If - If Not TieneError Then ObjCompras.Commit() If ObjContaAC IsNot Nothing Then ObjContaAC.Commit() @@ -7728,7 +7729,7 @@ Partial Class Compras_Compras Else ObjCompras.RollBack() If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack() - Alert("Ocurrio un error al guardar la compra. Por favor intente nuevamente.", TipoMensaje.MsgError) + Alert("Ocurrio un error al guardar la compra. Por favor intente nuevamente..", TipoMensaje.MsgError) End If @@ -8552,7 +8553,7 @@ Partial Class Compras_Compras If ArrAnticipos.Count > 0 Then For Each Ant As Compras_Compras.Anticipos In ArrAnticipos 'ImporteAnticipo += (Ant.Importe + Ant.ImporteComision) - ImporteAnticipo += (Ant.Importe) + ImporteAnticipo += ((Ant.Importe) + Ant.ImporteComision) Next End If @@ -10662,7 +10663,7 @@ Partial Class Compras_Compras 'RegistraScript(String.Format("$get('TxtOC').value = '{0}';tb_remove;", OC.Folio)) RegistraScript("tb_remove();") - If OC.GetOrdenesDetalle(CveOC) Then + If OC.GetOrdenesDetalle(CveOC, UsuarioActual.CveEmpresa) Then dt = OC.DtResultados End If End If @@ -11080,7 +11081,7 @@ Partial Class Compras_Compras Dim CveProyecto As Integer = If(gvRow.FCDropDownList("DdlProyectoPersonal").SelectedValue.ToEntero > 0, gvRow.FCDropDownList("DdlProyectoPersonal").SelectedValue.ToEntero, -1) gvRow.FCDropDownList("DdlSubProyectoPersonal").Items.Clear() If CveProyecto > 0 Or UsuarioActual.Empresa.Tipo_CentroCosto.Contiene(1, 2) Then - gvRow.FCDropDownList("DdlSubProyectoPersonal").DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(CveProyecto, -1, UsuarioActual.CveEmpresa, 1)) + gvRow.FCDropDownList("DdlSubProyectoPersonal").DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto)) End If gvRow.FCDropDownList("DdlSubProyectoPersonal").DataBind() gvRow.FCDropDownList("DdlSubProyectoPersonal").Items.Insert(0, New ListItem("Seleccione", "-1")) @@ -11123,7 +11124,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 @@ -11136,7 +11137,7 @@ Partial Class Compras_Compras e.Row.FCDropDownList("DdlSubProyectoPersonal").DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, e.Row.DBCampo("CveProyecto").ToEntero, UsuarioActual.CveEmpresa, -1, 1), - GlobalDTSubProyectos(e.Row.DBCampo("CveProyecto").ToEntero, -1, UsuarioActual.CveEmpresa, 1)) + GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=e.Row.DBCampo("CveProyecto").ToEntero)) End If e.Row.FCDropDownList("DdlSubProyectoPersonal").Items.Insert(0, New ListItem("Seleccione", "-1")) e.Row.FCDropDownList("DdlSubProyectoPersonal").DataBind() @@ -13484,7 +13485,7 @@ Partial Class Compras_Compras CargaGVsAF() CargaTipoCentroCostoOC() - GvOC1.DataSource = DTOCTemp + GvOC1.DataSource = DTOCTemp.FiltraParametros("", "CodigoPS") Dim DTCVEOCS As DataTable = DTOCTemp.FiltraParametros("", "", {"CveOrdenCompra"}) If DTCVEOCS IsNot Nothing AndAlso DTCVEOCS.Rows.Count > 1 Then @@ -13495,7 +13496,7 @@ Partial Class Compras_Compras GvOC1.DataBind() ' TmpDT = OrdenarTablas("CvePS", DTOCTemp, TmpDT) - GvOC2.DataSource = TmpDT + GvOC2.DataSource = TmpDT.FiltraParametros("", "CodigoPS") GvOC2.DataBind() UpGvOC1.Update() @@ -14098,7 +14099,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 @@ -14334,7 +14335,7 @@ Partial Class Compras_Compras Dim StrPromos As New StringBuilder For Each CveOCItem As String In ArrayCveOC.Distinct - If ObjOC.GetOrdenesDetalle(CveOCItem.ToEntero) AndAlso ObjOC.DtResultados.Rows.Count > 0 Then + If ObjOC.GetOrdenesDetalle(CveOCItem.ToEntero, UsuarioActual.CveEmpresa) AndAlso ObjOC.DtResultados.Rows.Count > 0 Then If IsNothing(DTOCTemp) Then DTOCTemp = ObjOC.DtResultados.Copy Else @@ -14540,24 +14541,10 @@ Partial Class Compras_Compras CargaTipoCentroCostoOC() - GvOC1.DataSource = DTOCGV + GvOC1.DataSource = DTOCGV.FiltraParametros("", "CveOrdenCompra, CodigoPS") GvOC1.DataBind() - 'PROCESO DE ASIGNACION DE CANTIDAD DEPENDIENDO DEL NoIdentificacion DEL XML Y EL NumeroParte DEL PRODUCTO - If UsuarioActual.Empresa.Funcionalidad(382).ToEntero > 0 Then - For Each Gvr As GridViewRow In GvOC1.Rows - Dim Change As Boolean = False - For Each Dr2 As DataRow In TmpDT.Rows - If Gvr.DataKey("NumeroParte").ToString = Dr2("NoIdentificacion").ToString() Then - Gvr.FCTextBox("TxtCantidad").Text = Dr2("Cantidad").ToString - Change = True - End If - Next - If Not Change Then - Gvr.FCTextBox("TxtCantidad").Text = "0" - End If - Next - End If + Dim DTCVEOGV As DataTable = DTOCGV.FiltraParametros("", "", {"CveOrdenCompra"}) If DTCVEOGV.Rows.Count > 1 Then @@ -14571,14 +14558,43 @@ Partial Class Compras_Compras RegistraScript($"CalculaTotalOCEdit('{ gvr.DataKey("PS").Replace("'", "").Replace(vbLf, " ").Replace(vbCrLf, " ") }', {gvr.DataKey("Cantidad").ToString.ToDouble}, {gvr.FCTextBox("TxtCantidad").ClientID}, {gvr.FCTextBox("TxtPU").ClientID}, {gvr.FCTextBox("TxtTotalOC1").ClientID}, {gvr.DataKey("IEPSPS").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IEPSImporte").ClientID}, {gvr.DataKey("IVA").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IVA").ClientID},{gvr.DataKey("RetIVA").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1RetIVA").ClientID},{gvr.DataKey("RetISR").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1RetISR").ClientID},{gvr.DataKey("IEPSPS").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IEPSIVA").ClientID},{gvr.DataKey("Descuento")},{gvr.FCHiddenField("HdnOC1Descuento").ClientID},{gvr.DataKey("IVAPorcentaje").ToString.ToDouble},{gvr.DataKey("RetIVAPorcentaje").ToString.ToDouble},{gvr.DataKey("RetISRPorcentaje").ToString.ToDouble},{gvr.DataKey("IEPSPSPorcentaje").ToString.ToDouble},{gvr.DataKey("IEPSPSIVAPorcentaje").ToString.ToDouble});", $"Gv{Cont}") Cont += 1 Next - UpGvOC1.Update() - - TmpDT = TmpDT.FiltraParametros("", "PU") - + TmpDT = TmpDT.FiltraParametros("", "CodigoPS") GvOC2.DataSource = TmpDT GvOC2.DataBind() + + 'PROCESO DE ASIGNACION DE CANTIDAD DEPENDIENDO DEL NoIdentificacion DEL XML Y EL NumeroParte DEL PRODUCTO + If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then + For Each Gvr As GridViewRow In GvOC1.Rows + Dim Change As Boolean = False + For Each Dr2 As DataRow In TmpDT.Rows + If Gvr.DataKey("NumeroParte").ToString = Dr2("NoIdentificacion").ToString() Then + Gvr.FCTextBox("TxtCantidad").Text = Dr2("Cantidad").ToString + Change = True + End If + Next + If Not Change Then + Gvr.FCTextBox("TxtCantidad").Text = "" + End If + Next + 'detectar los ps que no están en la OC, códigos que no están en la OC + 'mostrar los ps que no están en la oc + Dim strMsg As New StringBuilder + For Each Gvr As GridViewRow In GvOC2.Rows + Dim i As Integer = DTOCGV.FiltraParametros($"CvePS = '{Gvr.DataKey("CvePS")}'").Rows.Count + If i = 0 Then + strMsg.AppendFormat("- {0}
", Gvr.DataKey("CodigoPS")) + Gvr.BackColor = Drawing.Color.Red + End If + Next + If strMsg.Length > 0 Then Alert("Los siguientes productos facturados no están en la Orden de compra
" & strMsg.ToString, TipoMensaje.MsgAdvertencia) + + 'condicion temporal rmf + GvOC1.Columns(6).Visible = False + GvOC2.Columns(4).Visible = False + End If + UpGvOC2.Update() End Sub Protected Sub GvOC1_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvOC1.RowDataBound @@ -14979,7 +14995,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 @@ -15831,7 +15847,7 @@ Partial Class Compras_Compras prorrateo = (row("PU").ToString.ToDecimal * TotalServicios) / TotalFacturas If Not ObjInv.UpdateCostoIndirectoMovimientoDetalle(row("CveMovimientoDetalle").ToString.ToEntero, prorrateo) Then HayError = True - Exit For + Dim Drr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero())(0) End If Next @@ -17103,7 +17119,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, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero())(0) ViewState("IVAPS") = Drr("IVA").ToString().ToDouble() DdlProyecto.SelectedValueExist(Drr("CveProyecto")) @@ -17119,11 +17135,7 @@ Partial Class Compras_Compras Case 0.08 DdlIVA.SelectedValue = "1.08" End Select - End If - - - Else 'DdlIVA.SelectedValue = "1" ' DdlIVA.Enabled = False @@ -17137,7 +17149,6 @@ Partial Class Compras_Compras ViewState("RetIVA") = If(ViewState("RetIVA").ToString = "-1", "0", ViewState("RetIVA").ToString) ViewState("RetISR") = If(ViewState("RetISR").ToString = "-1", "0", ViewState("RetISR").ToString) - 'ViewState("RetIVA") = If(PS("RetIVA").ToString = "-1", If(ViewState("RetIVA").ToString = "-1", 0, ViewState("RetIVA")), PS("RetIVA").ToString).ToString 'ViewState("RetISR") = If(PS("RetISR").ToString = "-1", If(ViewState("RetISR").ToString = "-1", 0, ViewState("RetISR")), PS("RetISR").ToString).ToString Else @@ -17150,18 +17161,15 @@ Partial Class Compras_Compras End If ViewState("IEPSPSIVA") = If(PS("IEPSGrabaIVA").ToString = "True", PS("IEPSPorcentaje").ToString.ToDouble, 0) - 'TxtIVAModal.Text = FormatoNumero(ViewState("IVAPS").ToString().ToDouble * 100, 0) TxtRetIVAModal.Text = FormatoNumero(ViewState("RetIVA").ToString().ToDouble * 100, 6) TxtRetISRModal.Text = FormatoNumero(ViewState("RetISR").ToString().ToDouble * 100, 6) - If (CveFactura > 0 Or CveCompra > 0) And TxtIEPS.Text.ToDecimal = 0 And PS("IEPSPorcentaje").ToString.ToDecimal > 0 Then TxtIEPSModal.Text = "0" Alert("El producto seleccionado contiene IEPS, pero el acumulado de la factura no contiene IEPS, por lo que no se agregara el impuesto.", TipoMensaje.MsgAdvertencia) End If - UpIVA.Update() If PS("CveClasificacion").ToString IsNot Nothing Then @@ -17196,7 +17204,7 @@ Partial Class Compras_Compras CveProyecto = -1 End If - DdlSubProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(CveProyecto, -1, UsuarioActual.CveEmpresa, 1)) + DdlSubProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto)) DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) @@ -17755,7 +17763,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 @@ -17925,7 +17933,7 @@ Partial Class Compras_Compras Private Sub CargaSubProyectoAsignado() DdlAsignaSubProyecto.Items.Clear() If DdlAsignarProyecto.SelectedValue.ToEntero > 0 Then - DdlAsignaSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlAsignarProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(DdlAsignarProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, 1)) + DdlAsignaSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlAsignarProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=DdlAsignarProyecto.SelectedValue.ToEntero)) End If DdlAsignaSubProyecto.DataBind() DdlAsignaSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) @@ -21078,7 +21086,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 +21841,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 +21892,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 diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 760d15aa0..6178a49b9 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -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)) diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index 7d68495ee..6c937d58b 100644 --- a/Compras/Proveedores.aspx.vb +++ b/Compras/Proveedores.aspx.vb @@ -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 diff --git a/Compras/RepAnt-NC-EXC.aspx.cs b/Compras/RepAnt-NC-EXC.aspx.cs index b5ae1d458..3537ba061 100644 --- a/Compras/RepAnt-NC-EXC.aspx.cs +++ b/Compras/RepAnt-NC-EXC.aspx.cs @@ -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")); } diff --git a/Compras/RepAnt-NC-EXCDetalle.aspx.cs b/Compras/RepAnt-NC-EXCDetalle.aspx.cs index 8ffc6d98d..e4df1f84c 100644 --- a/Compras/RepAnt-NC-EXCDetalle.aspx.cs +++ b/Compras/RepAnt-NC-EXCDetalle.aspx.cs @@ -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"; diff --git a/Compras/RepCompras.aspx.vb b/Compras/RepCompras.aspx.vb index 6c08d50d5..f8edabf73 100644 --- a/Compras/RepCompras.aspx.vb +++ b/Compras/RepCompras.aspx.vb @@ -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 diff --git a/Compras/RepComprasDetalle.aspx.vb b/Compras/RepComprasDetalle.aspx.vb index c6be3b353..6a69044fc 100644 --- a/Compras/RepComprasDetalle.aspx.vb +++ b/Compras/RepComprasDetalle.aspx.vb @@ -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 diff --git a/Compras/RepComprasPeriodo.aspx.vb b/Compras/RepComprasPeriodo.aspx.vb index dd1dc4b00..d40b0f464 100644 --- a/Compras/RepComprasPeriodo.aspx.vb +++ b/Compras/RepComprasPeriodo.aspx.vb @@ -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 diff --git a/Compras/RepCxP.aspx.vb b/Compras/RepCxP.aspx.vb index 6472107ff..aeb8fdc41 100644 --- a/Compras/RepCxP.aspx.vb +++ b/Compras/RepCxP.aspx.vb @@ -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}" diff --git a/Compras/RepCxPDetalle.aspx.vb b/Compras/RepCxPDetalle.aspx.vb index 7cea6cea1..6d25c5c5c 100644 --- a/Compras/RepCxPDetalle.aspx.vb +++ b/Compras/RepCxPDetalle.aspx.vb @@ -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) diff --git a/Compras/RepCxPPeriodo.aspx.cs b/Compras/RepCxPPeriodo.aspx.cs index a72690cca..ecc8e6102 100644 --- a/Compras/RepCxPPeriodo.aspx.cs +++ b/Compras/RepCxPPeriodo.aspx.cs @@ -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")); diff --git a/Compras/RepPUESinPago.aspx.vb b/Compras/RepPUESinPago.aspx.vb index 30acba57f..469ec4e04 100644 --- a/Compras/RepPUESinPago.aspx.vb +++ b/Compras/RepPUESinPago.aspx.vb @@ -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")) diff --git a/Compras/RepPagado.aspx.cs b/Compras/RepPagado.aspx.cs index 9e6ec15c5..928eea1e4 100644 --- a/Compras/RepPagado.aspx.cs +++ b/Compras/RepPagado.aspx.cs @@ -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)) diff --git a/Compras/RepPagadoDetalle.aspx.cs b/Compras/RepPagadoDetalle.aspx.cs index 7ad32a7a9..e6794fb54 100644 --- a/Compras/RepPagadoDetalle.aspx.cs +++ b/Compras/RepPagadoDetalle.aspx.cs @@ -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(); diff --git a/Compras/RepPagadoPeriodo.aspx.cs b/Compras/RepPagadoPeriodo.aspx.cs index 977ffbc39..fd9407dec 100644 --- a/Compras/RepPagadoPeriodo.aspx.cs +++ b/Compras/RepPagadoPeriodo.aspx.cs @@ -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(); diff --git a/Compras/RepProductosServicios.aspx.vb b/Compras/RepProductosServicios.aspx.vb index 4c09f6965..990ab0642 100644 --- a/Compras/RepProductosServicios.aspx.vb +++ b/Compras/RepProductosServicios.aspx.vb @@ -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 diff --git a/Compras/RepProductosServiciosDetalle.aspx.vb b/Compras/RepProductosServiciosDetalle.aspx.vb index 9c3f6065f..dc15ec06c 100644 --- a/Compras/RepProductosServiciosDetalle.aspx.vb +++ b/Compras/RepProductosServiciosDetalle.aspx.vb @@ -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 diff --git a/Compras/RepProductosServiciosPeriodo.aspx.cs b/Compras/RepProductosServiciosPeriodo.aspx.cs index 5fd674633..24be7162f 100644 --- a/Compras/RepProductosServiciosPeriodo.aspx.cs +++ b/Compras/RepProductosServiciosPeriodo.aspx.cs @@ -76,7 +76,7 @@ public partial class Compras_RepProductosServiciosPeriodo : ClsPaginas DdlUsuario.DataBind(); //Carga Usuarios Captura - DDlUsuarioCaptura.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa); + DDlUsuarioCaptura.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa); DDlUsuarioCaptura.DataBind(); //Carga Monedas diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index 722ac2d7f..996ca07f0 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -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 diff --git a/Contabilidad/CatCuentasAsignaciones.aspx.vb b/Contabilidad/CatCuentasAsignaciones.aspx.vb index e428c921d..f708e4802 100644 --- a/Contabilidad/CatCuentasAsignaciones.aspx.vb +++ b/Contabilidad/CatCuentasAsignaciones.aspx.vb @@ -105,7 +105,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa) - DdlSubProyectos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=-1) + DdlSubProyectos.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Estatus:=-1) DdlSubProyectos.Items.Insert(0, New ListItem("-", "0")) Dim ObjBancos As New ClsBancos diff --git a/Contabilidad/ContabilizacionVentas.aspx.cs b/Contabilidad/ContabilizacionVentas.aspx.cs index c565f3bdc..4c8c5eee9 100644 --- a/Contabilidad/ContabilizacionVentas.aspx.cs +++ b/Contabilidad/ContabilizacionVentas.aspx.cs @@ -67,7 +67,7 @@ public partial class Contabilidad_ContabilizacionVentas : ClsPaginas DdlClientes.setEsWebService(true); DdlClientes.Attributes.Add("data-metodo", "getcliente"); - DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(-1, CveEmpresa: UsuarioActual.CveEmpresa); + DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(UsuarioActual.CveEmpresa); DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1")); DdlSubProyecto.DataBind(); diff --git a/Contabilidad/FiltraPolizas.aspx.vb b/Contabilidad/FiltraPolizas.aspx.vb index 5c54b4f99..c038c1e59 100644 --- a/Contabilidad/FiltraPolizas.aspx.vb +++ b/Contabilidad/FiltraPolizas.aspx.vb @@ -449,7 +449,7 @@ Partial Class Contabilidad_FiltraPolizas params.Add(New ReportParameter("Moneda", "")) params.Add(New ReportParameter("CodigoPostal", "")) If UsuarioActual.CveEmpresa = 119 Then - params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("CveUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre"))) + params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("CveUsuario").ToString.ToEntero, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Nombre"))) End If If UsuarioActual.CveEmpresa = 140 Then params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) diff --git a/Contabilidad/MovimientosconProveedores.aspx.vb b/Contabilidad/MovimientosconProveedores.aspx.vb index 4803b2a7c..7e926347c 100644 --- a/Contabilidad/MovimientosconProveedores.aspx.vb +++ b/Contabilidad/MovimientosconProveedores.aspx.vb @@ -171,7 +171,7 @@ Partial Class MovimientosconProveedores DdlTipoCuentas.Items.Add(New ListItem("Algun específico", "-2")) DdlTipoCuentas.SelectedIndex = 0 - DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1) + DdlSubproyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubproyecto.DataBind() End Sub Private Sub CargaDatos() diff --git a/Contabilidad/PlantillasPolizasDetalle.aspx.vb b/Contabilidad/PlantillasPolizasDetalle.aspx.vb index 41359a5ee..e3b735dab 100644 --- a/Contabilidad/PlantillasPolizasDetalle.aspx.vb +++ b/Contabilidad/PlantillasPolizasDetalle.aspx.vb @@ -368,7 +368,7 @@ Partial Class Contabilidad_PlantillasPolizasDetalle Public Sub CargaDDL() - DTSubProyectos = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) + DTSubProyectos = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DDLSubProyecto.DataSource = DTSubProyectos DDLSubProyecto.DataBind() DDLSubProyecto.Items.Insert(0, New ListItem(" - ", "-1")) diff --git a/Contabilidad/PolizasImpresion.aspx.vb b/Contabilidad/PolizasImpresion.aspx.vb index 4b3e80111..d6e6b81c9 100644 --- a/Contabilidad/PolizasImpresion.aspx.vb +++ b/Contabilidad/PolizasImpresion.aspx.vb @@ -33,7 +33,7 @@ Partial Class Contabilidad_PolizasImpresion TxtFechaInicio.Text = NowADS().AddDays(-1).ToShortDateString TxtFechaFin.Text = NowADS().ToShortDateString - DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) + DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa) DdlUsuarioRegistro.DataBind() @@ -133,7 +133,7 @@ Partial Class Contabilidad_PolizasImpresion DdlSegmentoNeg.DataValueField = "CveSubProyecto" DdlSegmentoNeg.DataTextField = "SubProyecto" - DdlSegmentoNeg.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa) + DdlSegmentoNeg.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSegmentoNeg.DataBind() DdlSegmentoNeg.Items.Insert(0, New ListItem("Todos", "-1")) DdlSegmentoNeg.Items.Insert(1, New ListItem("Sin Asignar", "-2")) @@ -196,7 +196,7 @@ Partial Class Contabilidad_PolizasImpresion 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 ImprimirPDF(ArchivoReporte, objcont.DtResultados, params) diff --git a/Contabilidad/RegPoliza.aspx.vb b/Contabilidad/RegPoliza.aspx.vb index 75acec78a..20d6f96c2 100644 --- a/Contabilidad/RegPoliza.aspx.vb +++ b/Contabilidad/RegPoliza.aspx.vb @@ -1184,9 +1184,9 @@ Partial Class RegPoliza For Each drt As DataRow In dtt.Rows 'PrePólizaDetalle Dim tCveCuenta As Integer = dtc.FiltroPrimeroValor("CveCuenta", $"IdCompaq={drt("IdCuenta")}").ToEntero - Dim tCveSub As Integer = If(drt("IdSegNeg").ToString <> "", GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"SubProyecto ='{drt("SegNeg")}'").ToEntero, -1) + Dim tCveSub As Integer = If(drt("IdSegNeg").ToString <> "", GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"SubProyecto ='{drt("SegNeg")}'").ToEntero, -1) 'If tCveSub <= 0 AndAlso drt("IdSegNeg").ToString.ToEntero = 0 Then 'toma el primero - ' tCveSub = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero + ' tCveSub = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero 'End If ' NowADS(), drt("IdCuenta").ToString.ToEntero, 0, If ObjConta.AddPrePolizasDetalle(tCvePrePoliza, drt("TipoMovto").ToString = "True", drt("Importe").ToString.ToDecimal, diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb index 9ac8ad949..a1766f387 100644 --- a/Contabilidad/RegPrePoliza.aspx.vb +++ b/Contabilidad/RegPrePoliza.aspx.vb @@ -581,7 +581,7 @@ Partial Class ContabilidadC_RegPrePoliza End If If e.Row.RowType = DataControlRowType.Header Then - 'e.Row.FCDropDownList("DdlSubProyectoFiltro").DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) + 'e.Row.FCDropDownList("DdlSubProyectoFiltro").DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) 'e.Row.FCDropDownList("DdlSubProyectoFiltro").DataBind() 'e.Row.FCDropDownList("DdlSubProyectoFiltro").Items.Insert(0, New ListItem("Todos", "-1")) End If @@ -660,7 +660,7 @@ Partial Class ContabilidadC_RegPrePoliza End Sub Private Sub CargaSubProyectos() - DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) + DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem(" - ", "-1")) @@ -841,7 +841,7 @@ Partial Class ContabilidadC_RegPrePoliza e.Row.FCTextBox("TxtAbono").Enabled = False End If - e.Row.FCDropDownList("DdlSubProyecto").DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) + e.Row.FCDropDownList("DdlSubProyecto").DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) e.Row.FCDropDownList("DdlSubProyecto").DataBind() e.Row.FCDropDownList("DdlSubProyecto").Items.Insert(0, New ListItem(" - ", "-1")) e.Row.FCDropDownList("DdlSubProyecto").SelectedValue = e.Row.DBCampo("CveSubProyecto") @@ -1386,7 +1386,7 @@ Partial Class ContabilidadC_RegPrePoliza DdlConceptosContablesE.Items.Insert(0, New ListItem(" - ", "-1")) End Sub Private Sub CargaSubProyectoE() - DdlSubProyectoE.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) + DdlSubProyectoE.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubProyectoE.DataBind() DdlSubProyectoE.Items.Insert(0, New ListItem(" - ", "-1")) End Sub @@ -2536,7 +2536,7 @@ Partial Class ContabilidadC_RegPrePoliza End If If Row("SubProyecto").ToString.Trim <> "" Then - CveSubProyecto = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=-1).FiltroPrimeroValor("CveSubProyecto", String.Format("SubProyecto = '{0}'", Row("SubProyecto").ToString.Trim)).ToEntero 'Row("CveSubProyecto").ToString.ToEntero + CveSubProyecto = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Estatus:=-1).FiltroPrimeroValor("CveSubProyecto", String.Format("SubProyecto = '{0}'", Row("SubProyecto").ToString.Trim)).ToEntero 'Row("CveSubProyecto").ToString.ToEntero If CveSubProyecto = 0 Then Alert(String.Format("El subproyecto {0} no se reconoció, favor de verificar el archivo.", Row("SubProyecto"))) diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index 63da41dd8..6980f4193 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -577,7 +577,7 @@ Partial Class ContabilidadC_RegPrePolizaS End If If e.Row.RowType = DataControlRowType.Header Then - 'e.Row.FCDropDownList("DdlSubProyectoFiltro").DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) + 'e.Row.FCDropDownList("DdlSubProyectoFiltro").DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) 'e.Row.FCDropDownList("DdlSubProyectoFiltro").DataBind() 'e.Row.FCDropDownList("DdlSubProyectoFiltro").Items.Insert(0, New ListItem("Todos", "-1")) End If @@ -656,7 +656,7 @@ Partial Class ContabilidadC_RegPrePolizaS End Sub Private Sub CargaSubProyectos() - DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) + DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem(" - ", "-1")) @@ -837,7 +837,7 @@ Partial Class ContabilidadC_RegPrePolizaS e.Row.FCTextBox("TxtAbono").Enabled = False End If - e.Row.FCDropDownList("DdlSubProyecto").DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) + e.Row.FCDropDownList("DdlSubProyecto").DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) e.Row.FCDropDownList("DdlSubProyecto").DataBind() e.Row.FCDropDownList("DdlSubProyecto").Items.Insert(0, New ListItem(" - ", "-1")) e.Row.FCDropDownList("DdlSubProyecto").SelectedValue = e.Row.DBCampo("CveSubProyecto") @@ -1382,7 +1382,7 @@ Partial Class ContabilidadC_RegPrePolizaS DdlConceptosContablesE.Items.Insert(0, New ListItem(" - ", "-1")) End Sub Private Sub CargaSubProyectoE() - DdlSubProyectoE.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) + DdlSubProyectoE.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubProyectoE.DataBind() DdlSubProyectoE.Items.Insert(0, New ListItem(" - ", "-1")) End Sub @@ -2532,7 +2532,7 @@ Partial Class ContabilidadC_RegPrePolizaS End If If Row("SubProyecto").ToString.Trim <> "" Then - CveSubProyecto = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=-1).FiltroPrimeroValor("CveSubProyecto", String.Format("SubProyecto = '{0}'", Row("SubProyecto").ToString.Trim)).ToEntero 'Row("CveSubProyecto").ToString.ToEntero + CveSubProyecto = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Estatus:=-1).FiltroPrimeroValor("CveSubProyecto", String.Format("SubProyecto = '{0}'", Row("SubProyecto").ToString.Trim)).ToEntero 'Row("CveSubProyecto").ToString.ToEntero If CveSubProyecto = 0 Then Alert(String.Format("El subproyecto {0} no se reconoció, favor de verificar el archivo.", Row("SubProyecto"))) diff --git a/Contabilidad/RepAnexoCatalogoAnual.aspx.vb b/Contabilidad/RepAnexoCatalogoAnual.aspx.vb index 626fd82a0..40421c6f8 100644 --- a/Contabilidad/RepAnexoCatalogoAnual.aspx.vb +++ b/Contabilidad/RepAnexoCatalogoAnual.aspx.vb @@ -180,8 +180,8 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual DdlEjercicio2.DataBind() - DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa) - DdlSubProyecto.DataBind() + DdlSubproyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) + DdlSubproyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) DdlSubProyecto.SelectedValue = "-1" diff --git a/Contabilidad/RepAnexoCatalogoMensualHorizontal.aspx.vb b/Contabilidad/RepAnexoCatalogoMensualHorizontal.aspx.vb index 2f0ba70a5..05095eda1 100644 --- a/Contabilidad/RepAnexoCatalogoMensualHorizontal.aspx.vb +++ b/Contabilidad/RepAnexoCatalogoMensualHorizontal.aspx.vb @@ -167,7 +167,7 @@ Partial Class Contabilidad_RepAnexoCatalogoMensualHorizontal DdlCuentas.DataBind() - DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1) + DdlSubproyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubproyecto.DataBind() End Sub Private Sub CargaDatos() diff --git a/Contabilidad/RepAnexoCatalogoVertical.aspx.vb b/Contabilidad/RepAnexoCatalogoVertical.aspx.vb index 0d54bd46a..64bd92293 100644 --- a/Contabilidad/RepAnexoCatalogoVertical.aspx.vb +++ b/Contabilidad/RepAnexoCatalogoVertical.aspx.vb @@ -55,7 +55,7 @@ Partial Class Contabilidad2_RepAnexoCatalogoVertical DdlEjercicio.DataBind() DdlEjercicio.SelectedValueExist(NowADS().Year.ToString) - DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa) + DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) DdlSubProyecto.SelectedValue = "-1" diff --git a/Contabilidad/RepBalanceGeneral.aspx.vb b/Contabilidad/RepBalanceGeneral.aspx.vb index 90e1e9770..89393e737 100644 --- a/Contabilidad/RepBalanceGeneral.aspx.vb +++ b/Contabilidad/RepBalanceGeneral.aspx.vb @@ -175,7 +175,7 @@ Partial Class Contabilidad_RepBalanceGeneral DdlEjercicio.DataBind() DdlEjercicio.SelectedValue = NowADS().Year.ToString - DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1) + DdlSubproyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubproyecto.DataBind() If UsuarioActual.TienePermisoProceso(346) Then LnkCerrar.Visible = True diff --git a/Contabilidad/RepBalanceGeneralVertical.aspx.vb b/Contabilidad/RepBalanceGeneralVertical.aspx.vb index ffd81bd39..59de76755 100644 --- a/Contabilidad/RepBalanceGeneralVertical.aspx.vb +++ b/Contabilidad/RepBalanceGeneralVertical.aspx.vb @@ -44,7 +44,7 @@ Partial Class Contabilidad_RepBalanceGeneralVertical DdlEjercicio.DataBind() DdlEjercicio.SelectedValueExist(NowADS().Year.ToString) - DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa) + DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) DdlSubProyecto.SelectedValue = "-1" diff --git a/Contabilidad/RepBalanzaComprobacion.aspx.vb b/Contabilidad/RepBalanzaComprobacion.aspx.vb index b25bec6b6..96760e3c7 100644 --- a/Contabilidad/RepBalanzaComprobacion.aspx.vb +++ b/Contabilidad/RepBalanzaComprobacion.aspx.vb @@ -97,7 +97,7 @@ Partial Class Contabilidad2_RepBalanzaComprobacion End If 'End If End If - DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1) + DdlSubproyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubproyecto.DataBind() If Not ErrorParametros Then diff --git a/Contabilidad/RepCambiosSituacionFinanciera.aspx.vb b/Contabilidad/RepCambiosSituacionFinanciera.aspx.vb index 227457d64..fc20d26d0 100644 --- a/Contabilidad/RepCambiosSituacionFinanciera.aspx.vb +++ b/Contabilidad/RepCambiosSituacionFinanciera.aspx.vb @@ -129,7 +129,7 @@ Partial Class AC2_RepCambiosSituacionFinanciera 'TxtFechaAl.Text = NowADS().ToShortDateString Dim Clsconta As New ClsContabilidad - DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1) + DdlSubproyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubproyecto.DataBind() If Clsconta.GetEjercicios(UsuarioActual.CveEmpresa) Then diff --git a/Contabilidad/RepEdoResultados2.aspx.vb b/Contabilidad/RepEdoResultados2.aspx.vb index 27805f9e9..c5e39d586 100644 --- a/Contabilidad/RepEdoResultados2.aspx.vb +++ b/Contabilidad/RepEdoResultados2.aspx.vb @@ -55,7 +55,7 @@ Partial Class Contabilidad_RepEdoResultados2 DdlClasificacion.DataBind() DdlClasificacion.Items.Insert(0, New ListItem("Todos", "-1")) - DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) + DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) diff --git a/Contabilidad/RepEdoResultados2Detalle.aspx.cs b/Contabilidad/RepEdoResultados2Detalle.aspx.cs index 067084904..b27f34e20 100644 --- a/Contabilidad/RepEdoResultados2Detalle.aspx.cs +++ b/Contabilidad/RepEdoResultados2Detalle.aspx.cs @@ -30,7 +30,7 @@ public partial class Contabilidad_RepEdoResultados2Detalle : ClsPaginas DdlClasificacion.DataBind(); DdlClasificacion.Items.Insert(0, new ListItem("Todos", "-1")); - DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(-1, CveEmpresa: UsuarioActual.CveEmpresa); + DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(UsuarioActual.CveEmpresa); DdlSubProyecto.DataBind(); DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1")); diff --git a/Contabilidad/RepEstadoResultados.aspx.vb b/Contabilidad/RepEstadoResultados.aspx.vb index d5af046a8..7427ce343 100644 --- a/Contabilidad/RepEstadoResultados.aspx.vb +++ b/Contabilidad/RepEstadoResultados.aspx.vb @@ -160,7 +160,7 @@ Partial Class Contabilidad2_RepEstadoResultados End If ClsConta.Dispose() - DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1) + DdlSubproyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubproyecto.DataBind() DdlEjercicio.DataBind() diff --git a/Contabilidad/RepEstadoResultadosHorizontal.aspx.vb b/Contabilidad/RepEstadoResultadosHorizontal.aspx.vb index 63bf9822c..236787764 100644 --- a/Contabilidad/RepEstadoResultadosHorizontal.aspx.vb +++ b/Contabilidad/RepEstadoResultadosHorizontal.aspx.vb @@ -2159,7 +2159,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal If IndexSubProyecto <= IndexSubProyectoMax Then - Dim TxtSub As String = GlobalDTSubProyectos(-1, CveSubProyecto:=dColumn.ColumnName.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto") + Dim TxtSub As String = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=dColumn.ColumnName.ToEntero).FiltroPrimeroValor("SubProyecto") CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub diff --git a/Contabilidad/RepFlujoEfectivo.aspx.vb b/Contabilidad/RepFlujoEfectivo.aspx.vb index ea01c9228..3c8593abc 100644 --- a/Contabilidad/RepFlujoEfectivo.aspx.vb +++ b/Contabilidad/RepFlujoEfectivo.aspx.vb @@ -64,7 +64,7 @@ Partial Class AC2_RepFlujoEfectivo 'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) Dim ObjConta As New ClsContabilidad - DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1) + DdlSubproyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubproyecto.DataBind() Dim FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", NowADS(), TxtFechaDel.Text.ToDate) diff --git a/Contabilidad/RepOrigenAplicacion.aspx.vb b/Contabilidad/RepOrigenAplicacion.aspx.vb index f13ef4a3b..51c04fd78 100644 --- a/Contabilidad/RepOrigenAplicacion.aspx.vb +++ b/Contabilidad/RepOrigenAplicacion.aspx.vb @@ -84,7 +84,7 @@ Partial Class Contabilidad2_RepOrigenAplicacion DdlEjercicio.DataSource = Nothing End If - DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1) + DdlSubproyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubproyecto.DataBind() DdlEjercicio.SelectedValue = NowADS().Year.ToString diff --git a/Contabilidad/RepVariacionHaciendaPublica.aspx.vb b/Contabilidad/RepVariacionHaciendaPublica.aspx.vb index 6c0466cd1..08777d1be 100644 --- a/Contabilidad/RepVariacionHaciendaPublica.aspx.vb +++ b/Contabilidad/RepVariacionHaciendaPublica.aspx.vb @@ -97,7 +97,7 @@ Partial Class AC_RepVariacionHaciendaPublica FechaDel = TxtFechaDel.Text FechaAl = TxtFechaAl.Text - DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1) + DdlSubproyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubproyecto.DataBind() Dim CveSubProyecto As String = DdlSubproyecto.SelectedValue.ToString diff --git a/Contratos/CatPresupuestos.aspx.vb b/Contratos/CatPresupuestos.aspx.vb index b1d26379f..bedfc4c03 100644 --- a/Contratos/CatPresupuestos.aspx.vb +++ b/Contratos/CatPresupuestos.aspx.vb @@ -38,7 +38,7 @@ Partial Class Contratos_CatPresupuestos Protected Sub CargaSubProyecto(CveProyecto As Integer) DdlSubProyecto.Items.Clear() If CveProyecto > 0 Then - DdlSubProyecto.DataSource = GlobalDTSubProyectos(CveProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto2"}) + DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto2"}) DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione un SubProyecto", "-1")) Else diff --git a/Contratos/Contrato.aspx.vb b/Contratos/Contrato.aspx.vb index fcfc33ffb..8bd3abcd6 100644 --- a/Contratos/Contrato.aspx.vb +++ b/Contratos/Contrato.aspx.vb @@ -921,7 +921,7 @@ Partial Class Contratos_Default Dim ObjFolios As New ClsGralFolios If ObjFolios.GetFolios("Con", UsuarioActual.CveEmpresa) Then If ObjFolios.DtResultados.FiltraParametros($"CveSubProyecto = {DdlSubProyectoContrato.SelectedValue}").Rows.Count > 0 Then - FolioSugerido = $"{GlobalDTSubProyectos(-1, DdlSubProyectoContrato.SelectedValue.ToEntero).FiltroPrimeroValor("Serie")}-{ObjFolios.DtResultados.FiltroPrimeroValor("FActual", $"CveSubProyecto = {DdlSubProyectoContrato.SelectedValue}")}" + FolioSugerido = $"{GlobalDTSubProyectos(UsuarioActual.CveEmpresa, DdlSubProyectoContrato.SelectedValue.ToEntero).FiltroPrimeroValor("Serie")}-{ObjFolios.DtResultados.FiltroPrimeroValor("FActual", $"CveSubProyecto = {DdlSubProyectoContrato.SelectedValue}")}" TxtNumeroContrato.Text = FolioSugerido Else Alert("La sucursal no cuenta con folios de contratos", TipoMensaje.MsgAdvertencia) @@ -1737,7 +1737,7 @@ Partial Class Contratos_Default End Sub Protected Sub CargaSubProyectoContrato(CveProyecto As Integer) DdlSubProyectoContrato.Items.Clear() - DdlSubProyectoContrato.DataSource = GlobalDTSubProyectos(CveProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto"}) + DdlSubProyectoContrato.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto"}) DdlSubProyectoContrato.DataBind() DdlSubProyectoContrato.Items.Insert(0, New ListItem("Seleccione un Proyecto", "-1")) End Sub diff --git a/Contratos/Contrato.vb b/Contratos/Contrato.vb index 9e0faaffb..382d550c6 100644 --- a/Contratos/Contrato.vb +++ b/Contratos/Contrato.vb @@ -835,7 +835,7 @@ Partial Class Contratos_Default End Sub Protected Sub CargaSubProyectoContrato(CveProyecto As Integer) DdlSubProyectoContrato.Items.Clear() - DdlSubProyectoContrato.DataSource = GlobalDTSubProyectos(CveProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto2"}) + DdlSubProyectoContrato.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto2"}) DdlSubProyectoContrato.DataBind() DdlSubProyectoContrato.Items.Insert(0, New ListItem("Seleccione un Proyecto", "-1")) End Sub diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb index 5085ff361..ac3ae3950 100644 --- a/Contratos/ContratoObra.aspx.vb +++ b/Contratos/ContratoObra.aspx.vb @@ -1263,15 +1263,7 @@ Partial Class Contratos_ContratoObra ' DdlProyecto.DataBind() 'End If End Sub - 'Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged - ' CargaSubProyectoContrato(DdlProyecto.SelectedValue.ToEntero) - 'End Sub - 'Protected Sub CargaSubProyectoContrato(CveProyecto As Integer) - ' DdlSubProyectoContrato.Items.Clear() - ' DdlSubProyectoContrato.DataSource = GlobalDTSubProyectos(CveProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto"}) - ' DdlSubProyectoContrato.DataBind() - ' DdlSubProyectoContrato.Items.Insert(0, New ListItem("Seleccione un Proyecto", "-1")) - 'End Sub + Private Sub CargaContratista() DdlContratista.setEsWebService(True) DdlContratista.Attributes.Add("data-metodo", "getproveedores") @@ -5548,7 +5540,7 @@ Partial Class Contratos_ContratoObra Private Sub CargaDLLCargaGVCentrosConsto() - DdlCentroCostos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto"}) + DdlCentroCostos.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto"}) DdlCentroCostos.DataBind() DdlCentroCostos.Items.Insert(0, New ListItem("Seleccione uno", "-1")) diff --git a/Contratos/FacturacionMasiva.aspx.vb b/Contratos/FacturacionMasiva.aspx.vb index cce1c4e6a..38ab109d4 100644 --- a/Contratos/FacturacionMasiva.aspx.vb +++ b/Contratos/FacturacionMasiva.aspx.vb @@ -106,7 +106,7 @@ Partial Class Contratos_FacturacionMasiva DdlCliente.DataBind() DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa) DdlContrato.DataBind() - DdlSucursal.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1) + DdlSucursal.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSucursal.DataBind() End Sub Private Sub CargaDatos(CveContrato As Integer, CveCliente As Integer) diff --git a/Contratos/PopUpBuscarContrato.aspx.vb b/Contratos/PopUpBuscarContrato.aspx.vb index 414ac9472..fe3c092a6 100644 --- a/Contratos/PopUpBuscarContrato.aspx.vb +++ b/Contratos/PopUpBuscarContrato.aspx.vb @@ -56,7 +56,7 @@ Partial Class Contratos_PopUpBuscarContrato End Sub Protected Sub CargaSubProyectoContrato(CveProyecto As Integer) DdlSubProtecto.Items.Clear() - DdlSubProtecto.DataSource = GlobalDTSubProyectos(CveProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto"}) + DdlSubProtecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto"}) DdlSubProtecto.DataBind() DdlSubProtecto.Items.Insert(0, New ListItem("Todos", "-1")) UPFiltros.Update() diff --git a/Contratos/Presupuestos.aspx.vb b/Contratos/Presupuestos.aspx.vb index 1b9b9280f..65d860f72 100644 --- a/Contratos/Presupuestos.aspx.vb +++ b/Contratos/Presupuestos.aspx.vb @@ -81,7 +81,7 @@ Partial Class Contratos_Presupuestos Protected Sub CargaSubProyectoContrato(CveProyecto As Integer) DdlSubProyecto.Items.Clear() If CveProyecto > 0 Then - DdlSubProyecto.DataSource = GlobalDTSubProyectos(CveProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto2"}) + DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto2"}) DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione un SubProyecto", "-1")) Else diff --git a/Contratos/RepPresupuestosDetalle.aspx.vb b/Contratos/RepPresupuestosDetalle.aspx.vb index d91a3059e..36b32b15f 100644 --- a/Contratos/RepPresupuestosDetalle.aspx.vb +++ b/Contratos/RepPresupuestosDetalle.aspx.vb @@ -108,7 +108,7 @@ Partial Class Contratos_RepPresupuestosDetalle DdlSubProyecto.SelectedValueExist(CveSubProyecto) ElseIf DdlAgrupador.SelectedValue.ToEntero = 2 Then If Not EsProyecto Then - Dim Dr As DataRow = GlobalDTSubProyectos(-1, Gpo)(0) + Dim Dr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Gpo)(0) DdlProyecto.SelectedValueExist(Dr("CveProyecto")) CargaSubProyecto() DdlSubProyecto.SelectedValueExist(Gpo) diff --git a/Contratos/RepPresupuestosDetalleCompras.aspx.vb b/Contratos/RepPresupuestosDetalleCompras.aspx.vb index 9c7a70963..4877eaf3e 100644 --- a/Contratos/RepPresupuestosDetalleCompras.aspx.vb +++ b/Contratos/RepPresupuestosDetalleCompras.aspx.vb @@ -102,7 +102,7 @@ Partial Class Contratos_RepPresupuestosDetalleCompras DdlSubProyecto.SelectedValueExist(CveSubProyecto) ElseIf Agrupador = 1 Then If Not EsProyecto Then - Dim Dr As DataRow = GlobalDTSubProyectos(-1, Gpo)(0) + Dim Dr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Gpo)(0) DdlProyecto.SelectedValueExist(Dr("CveProyecto")) CargaSubProyecto() DdlSubProyecto.SelectedValueExist(Gpo) diff --git a/CxC/RepCxC.aspx.vb b/CxC/RepCxC.aspx.vb index 118090e78..223a85851 100644 --- a/CxC/RepCxC.aspx.vb +++ b/CxC/RepCxC.aspx.vb @@ -172,7 +172,7 @@ Partial Class RepCxC End If 'CargaUsuarios - DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa) DdlUsuario.DataBind() 'CargaResponsable diff --git a/CxC/RepCxCPeriodo.aspx.cs b/CxC/RepCxCPeriodo.aspx.cs index 277c96ef7..bc8ee230c 100644 --- a/CxC/RepCxCPeriodo.aspx.cs +++ b/CxC/RepCxCPeriodo.aspx.cs @@ -38,11 +38,7 @@ public partial class CxC_RepCxCPeriodo : ClsPaginas InicializaValores(); } } - - - - - + private void InicializaValores() { TipoCambio = 1; @@ -71,7 +67,7 @@ public partial class CxC_RepCxCPeriodo : ClsPaginas DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor); //CargaUsuarios - DdlUsuario.DataSource = get_GlobalDTUsuarios().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}"); + DdlUsuario.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa); DdlUsuario.DataBind(); //CargaResponsable diff --git a/CxC/RepCxCSemanal.aspx.vb b/CxC/RepCxCSemanal.aspx.vb index 86d85e691..81719ddc8 100644 --- a/CxC/RepCxCSemanal.aspx.vb +++ b/CxC/RepCxCSemanal.aspx.vb @@ -25,13 +25,13 @@ Partial Class CxC_RepCxCSemanal DdlClientes.DataBind() 'CargaSubProyectos - DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubProyecto.DataBind() 'Vendedor 'CargaUsuarios - DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa) DdlUsuario.DataBind() 'CargaEstatus diff --git a/Finanzas/RepBalanceGeneral.aspx.vb b/Finanzas/RepBalanceGeneral.aspx.vb index dfd82d825..e2614f75f 100644 --- a/Finanzas/RepBalanceGeneral.aspx.vb +++ b/Finanzas/RepBalanceGeneral.aspx.vb @@ -225,7 +225,7 @@ Partial Class Contabilidad2_RepBalanceGeneral DdlEjercicio.DataSource = Nothing End If - DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1) + DdlSubproyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubproyecto.DataBind() ClsConta.Dispose() diff --git a/Finanzas/RepBalanceGeneralHorizontal.aspx.vb b/Finanzas/RepBalanceGeneralHorizontal.aspx.vb index 145bdb3ca..890ebac66 100644 --- a/Finanzas/RepBalanceGeneralHorizontal.aspx.vb +++ b/Finanzas/RepBalanceGeneralHorizontal.aspx.vb @@ -55,7 +55,7 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal DdlEjercicio.DataBind() DdlEjercicio.SelectedValueExist(NowADS().Year.ToString) - DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa) + DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) DdlSubProyecto.SelectedValue = "-1" diff --git a/Finanzas/RepBalanceGeneralVertical.aspx.vb b/Finanzas/RepBalanceGeneralVertical.aspx.vb index 679344c37..0917c97d8 100644 --- a/Finanzas/RepBalanceGeneralVertical.aspx.vb +++ b/Finanzas/RepBalanceGeneralVertical.aspx.vb @@ -44,7 +44,7 @@ Partial Class Contabilidad_RepBalanceGeneralVertical DdlEjercicio.DataBind() DdlEjercicio.SelectedValueExist(NowADS().Year.ToString) - DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa) + DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) DdlSubProyecto.SelectedValue = "-1" diff --git a/Finanzas/RepEstadoResultados.aspx.vb b/Finanzas/RepEstadoResultados.aspx.vb index e35c5215c..11e7dcc34 100644 --- a/Finanzas/RepEstadoResultados.aspx.vb +++ b/Finanzas/RepEstadoResultados.aspx.vb @@ -2,6 +2,7 @@ Option Strict On Imports System.Data +Imports System.Net Imports Extensiones Imports Microsoft.Reporting.WebForms Partial Class Contabilidad2_RepEstadoResultados @@ -156,7 +157,7 @@ Partial Class Contabilidad2_RepEstadoResultados DdlEjercicio.DataSource = Nothing End If - DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1) + DdlSubproyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, eStatus:=-1) DdlSubproyecto.DataBind() diff --git a/Finanzas/RepEstadoResultadosHorizontal.aspx.vb b/Finanzas/RepEstadoResultadosHorizontal.aspx.vb index f4613355d..856d96465 100644 --- a/Finanzas/RepEstadoResultadosHorizontal.aspx.vb +++ b/Finanzas/RepEstadoResultadosHorizontal.aspx.vb @@ -51,7 +51,7 @@ Partial Class Contabilidad2_RepEstadoResultadosHorizontal DdlEjercicio.DataBind() DdlEjercicio.SelectedValueExist(NowADS().Year.ToString) - DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa) + DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) DdlSubProyecto.SelectedValue = "-1" diff --git a/Finanzas/RepEstadoResultadosVertical.aspx.vb b/Finanzas/RepEstadoResultadosVertical.aspx.vb index 727839c58..ceaf43560 100644 --- a/Finanzas/RepEstadoResultadosVertical.aspx.vb +++ b/Finanzas/RepEstadoResultadosVertical.aspx.vb @@ -46,7 +46,7 @@ Partial Class Finanzas_RepEstadoResultadosVertical DdlEjercicio.DataBind() DdlEjercicio.SelectedValueExist(NowADS().Year.ToString) - DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa) + DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) DdlSubProyecto.SelectedValue = "-1" diff --git a/Finanzas/RepOrigenAplicacion.aspx.vb b/Finanzas/RepOrigenAplicacion.aspx.vb index f13ef4a3b..51c04fd78 100644 --- a/Finanzas/RepOrigenAplicacion.aspx.vb +++ b/Finanzas/RepOrigenAplicacion.aspx.vb @@ -84,7 +84,7 @@ Partial Class Contabilidad2_RepOrigenAplicacion DdlEjercicio.DataSource = Nothing End If - DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1) + DdlSubproyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubproyecto.DataBind() DdlEjercicio.SelectedValue = NowADS().Year.ToString diff --git a/Finanzas/RepRazonesFinancieras.aspx.vb b/Finanzas/RepRazonesFinancieras.aspx.vb index aee1513bd..9387fd779 100644 --- a/Finanzas/RepRazonesFinancieras.aspx.vb +++ b/Finanzas/RepRazonesFinancieras.aspx.vb @@ -22,7 +22,7 @@ Partial Class Finanzas_RepRazonesFinancieras DdlRazones.DataSource = GlobalDTFinan_RazonesFinancieras DdlRazones.DataBind() - DdlSubproyectos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) + DdlSubproyectos.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubproyectos.DataBind() DdlSubproyectos.Items.Insert(0, New ListItem("Todos", "-1")) DdlSubproyectos.SelectedIndex = 0 diff --git a/Finanzas/RepRazonesFinancieras2.aspx.vb b/Finanzas/RepRazonesFinancieras2.aspx.vb index a20971500..e8ea40b91 100644 --- a/Finanzas/RepRazonesFinancieras2.aspx.vb +++ b/Finanzas/RepRazonesFinancieras2.aspx.vb @@ -13,10 +13,6 @@ Imports Microsoft.Reporting.WebForms Partial Class Finanzas_RepRazonesFinancieras2 Inherits ClsPaginas - - - - Property DTRatios As DataTable Get If ViewState("DTRatios") Is Nothing Then @@ -46,8 +42,6 @@ Partial Class Finanzas_RepRazonesFinancieras2 End Set End Property - - Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not Page.IsPostBack Then diff --git a/Finanzas/RepRotacionCartera.aspx.cs b/Finanzas/RepRotacionCartera.aspx.cs index f10a5d411..cd325d169 100644 --- a/Finanzas/RepRotacionCartera.aspx.cs +++ b/Finanzas/RepRotacionCartera.aspx.cs @@ -231,7 +231,7 @@ public partial class Finanzas_RepRotacionCartera : ClsPaginas private 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"; diff --git a/Finanzas/RepRotacionCarteraDetalle.aspx.cs b/Finanzas/RepRotacionCarteraDetalle.aspx.cs index bd393ec43..304933b0f 100644 --- a/Finanzas/RepRotacionCarteraDetalle.aspx.cs +++ b/Finanzas/RepRotacionCarteraDetalle.aspx.cs @@ -248,7 +248,7 @@ public partial class Finanzas_RepRotacionCarteraDetalle : ClsPaginas private 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"; diff --git a/GPS/CatDistribuidoresMaster.aspx.vb b/GPS/CatDistribuidoresMaster.aspx.vb index 704d74711..6065d760e 100644 --- a/GPS/CatDistribuidoresMaster.aspx.vb +++ b/GPS/CatDistribuidoresMaster.aspx.vb @@ -22,11 +22,10 @@ Partial Class GPS_CatDistribuidoresMaster Set(value As Integer) ViewState("EsEditar") = value End Set - End Property - + End Property + #End Region - - + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not Page.IsPostBack Then CveEmpresa = -1 @@ -167,11 +166,11 @@ Partial Class GPS_CatDistribuidoresMaster Else Application("GlobalDTEmpresas") = Nothing End If - Dim ObjUsuarios As New ClsSisUsuarios() - If ObjUsuarios.GetUsuarios(-1, -1, -1) Then - GlobalDTUsuarios = ObjUsuarios.DtResultados - End If - ObjUsuarios.Dispose() + 'Dim ObjUsuarios As New ClsSisUsuarios() + 'If ObjUsuarios.GetUsuarios(-1, -1, -1) Then + ' GlobalDTUsuarios = ObjUsuarios.DtResultados + 'End If + 'ObjUsuarios.Dispose() ObjEmpresas.Dispose() End Sub diff --git a/GPS/FacturacionMasiva.aspx.vb b/GPS/FacturacionMasiva.aspx.vb index e43cfc85f..7b2c597fe 100644 --- a/GPS/FacturacionMasiva.aspx.vb +++ b/GPS/FacturacionMasiva.aspx.vb @@ -102,7 +102,7 @@ Partial Class Contratos_FacturacionMasiva DdlCliente.DataBind() DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa) DdlContrato.DataBind() - DdlSucursal.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1) + DdlSucursal.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Estatus:=1) DdlSucursal.DataBind() End Sub Private Sub CargaDatos(CveContrato As Integer, CveCliente As Integer) @@ -534,8 +534,7 @@ Partial Class Contratos_FacturacionMasiva Proyecto = DR("ProyectoContrato").ToString CveSubProyecto = DR("CveSubProyecto").ToString SubProyecto = DR("SubProyectoContrato").ToString - ObjFactura.IVA = GlobalDTSubProyectos(-1, CveSubProyecto.ToEntero, UsuarioActual.CveEmpresa, 1).FiltroPrimeroValor("IVA").ToDecimal - + ObjFactura.IVA = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto.ToEntero, Estatus:=1).FiltroPrimeroValor("IVA").ToDecimal If ObjFolios.GetFolios("Ing", UsuarioActual.CveEmpresa) Then Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros(String.Format($" Estado = 'Activo' AND CveSubProyecto = {CveSubProyecto} ")) @@ -582,7 +581,7 @@ Partial Class Contratos_FacturacionMasiva DtR("CveProyecto") = CveProyecto DtR("Proyecto") = Proyecto DtR("CveSubProyecto") = CveSubProyecto - DtR("IVA") = If(row("IVA").ToString.ToDouble = -1, GlobalDTSubProyectos(-1, CveSubProyecto.ToEntero, UsuarioActual.CveEmpresa, 1).FiltroPrimeroValor("IVA").ToDouble, row("IVA").ToString.ToDouble) + DtR("IVA") = If(row("IVA").ToString.ToDouble = -1, GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto.ToEntero, Estatus:=1).FiltroPrimeroValor("IVA").ToDouble, row("IVA").ToString.ToDouble) DtR("SubProyecto") = SubProyecto DtR("CveVentaDetalle") = 0 DtR("CveContratoDetalle") = row("CveContratoDetalle") @@ -760,7 +759,7 @@ Partial Class Contratos_FacturacionMasiva importeMovimiento = (TmpDTDetalle.SUM("Total", String.Format("CveClasificacion = {0} AND CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString.ToDecimal) * ValorMultiplicador importeMX = importeMovimiento * tipoCambio * Multiplicador FechaMovimiento = ObjFactura.FechaPago - Concepto = $"{ViewState("VentaFolio").ToString} {If(Row2("CveClasificacion").ToString.ToEntero > 0, GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString}"), "")} - {If(Row2("CveSubProyecto").ToString.ToEntero > 0, GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString}"), "Sin SubProyecto Asignado")}" + Concepto = $"{ViewState("VentaFolio").ToString} {If(Row2("CveClasificacion").ToString.ToEntero > 0, GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString}"), "")} - {If(Row2("CveSubProyecto").ToString.ToEntero > 0, GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString}"), "Sin SubProyecto Asignado")}" If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" If importeMovimiento <> 0 Then diff --git a/GPS/UsuariosRastreo.aspx.vb b/GPS/UsuariosRastreo.aspx.vb index 88bfd564b..cbc20f2e1 100644 --- a/GPS/UsuariosRastreo.aspx.vb +++ b/GPS/UsuariosRastreo.aspx.vb @@ -19,13 +19,13 @@ Partial Class GPS_UsuariosRastreo If UsuarioActual.CveRol = 1198 Then LnkAddUsuario.Visible = True - DtUsuarios = GlobalDTUsuarios(CveCliente:=UsuarioActual.CveCliente).FiltraParametros($"CveCliente = {UsuarioActual.CveCliente} AND CveRol = 1200 AND Estatus = 1") + DtUsuarios = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa, CveCliente:=UsuarioActual.CveCliente).FiltraParametros($"CveCliente = {UsuarioActual.CveCliente} AND CveRol = 1200 AND Estatus = 1") ElseIf UsuarioActual.CveRol = 1200 Then If UsuarioActual.TienePermisoProceso(214) Then LnkAddUsuario.Visible = True - DtUsuarios = GlobalDTUsuarios(CveCliente:=UsuarioActual.CveCliente).FiltraParametros($"CveCliente = {UsuarioActual.CveCliente} AND Estatus = 1 AND (CveUsuario = {UsuarioActual.CveUsuario} OR CveUsuarioIng = {UsuarioActual.CveUsuario})") + DtUsuarios = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa, CveCliente:=UsuarioActual.CveCliente).FiltraParametros($"CveCliente = {UsuarioActual.CveCliente} AND Estatus = 1 AND (CveUsuario = {UsuarioActual.CveUsuario} OR CveUsuarioIng = {UsuarioActual.CveUsuario})") Else - DtUsuarios = GlobalDTUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, UsuarioActual.CveCliente, -1).FiltraParametros($"CveCliente = {UsuarioActual.CveCliente}") + DtUsuarios = GlobalDTUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCliente:=UsuarioActual.CveCliente).FiltraParametros($"CveCliente = {UsuarioActual.CveCliente}") End If End If diff --git a/General/RepPaqueteriasGuias.aspx.cs b/General/RepPaqueteriasGuias.aspx.cs index 6cd4c9ffe..e8f6931ae 100644 --- a/General/RepPaqueteriasGuias.aspx.cs +++ b/General/RepPaqueteriasGuias.aspx.cs @@ -286,12 +286,12 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas { if (UsuarioActual.CveRol == 1339) { - DdlUsuarios.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveRol = {0} AND Estatus = 1", UsuarioActual.CveRol), "Nombre"); + DdlUsuarios.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveRol = {0} AND Estatus = 1", UsuarioActual.CveRol), "Nombre"); DdlUsuarios.DataBind(); } else { - DdlUsuarios.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 1", "Nombre"); + DdlUsuarios.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 1", "Nombre"); DdlUsuarios.DataBind(); DdlUsuarios.Items.Insert(0, new ListItem("Todos ", "-1")); } diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index 20b5f1f01..cfc3b5882 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -1572,9 +1572,7 @@ Partial Class General_SaldosIniciales Dim CvePS As Integer = drr("CvePS").ToString().ToEntero() Dim CveUnidadMedida As Integer = drr("CveUnidadMedida").ToString().ToEntero() Dim CveClasificacion As Integer = drr("CveClasificacion").ToString().ToEntero() - Dim dtsubp As DataTable = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) - - + Dim dtsubp As DataTable = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) Dim CountRow As Integer = 1 For Each Row As DataRow In dt.FiltraParametros("RFC <> ''").Rows @@ -1602,8 +1600,8 @@ Partial Class General_SaldosIniciales Dim ImpuestosLocales As Decimal = If(dt.Columns.Contains("ImpuestosLocales"), Row("ImpuestosLocales").ToString(), "0").ToDecimal Dim RetIVAPorcentaje As Decimal = If(dt.Columns.Contains("RetIVAPorcentaje"), Row("RetIVAPorcentaje").ToString(), "0").ToDecimal Dim RetISRPorcentaje As Decimal = If(dt.Columns.Contains("RetISRPorcentaje"), Row("RetISRPorcentaje").ToString(), "0").ToDecimal - Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", String.Format("SubProyecto='{0}'", If(dt.Columns.Contains("SubProyecto"), Row("SubProyecto").ToString(), ""))).ToEntero - If CveSubProyecto = 0 Then CveSubProyecto = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero + Dim CveSubProyecto As Integer = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", String.Format("SubProyecto='{0}'", If(dt.Columns.Contains("SubProyecto"), Row("SubProyecto").ToString(), ""))).ToEntero + If CveSubProyecto = 0 Then CveSubProyecto = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero If Not CvePS > 0 Then Alert(String.Format("No se encontró el Producto Servicio"), TipoMensaje.MsgError) : ErrorCompras = True If Not CveUnidadMedida > 0 Then Alert(String.Format("No se encontró la Unidad de Medida."), TipoMensaje.MsgError) : ErrorCompras = True @@ -1808,7 +1806,7 @@ Partial Class General_SaldosIniciales If Not CvePS > 0 Then Alert(String.Format("No se encontró el Producto Servicio"), TipoMensaje.MsgError) : ErrorVentas = True ' If Not CveSucursal > 0 Then Alert("No se encontró la sucursal.", TipoMensaje.MsgError) : ErrorVentas = True If Not CveUnidadMedida > 0 Then Alert(String.Format("No se encontró la Unidad de Medida."), TipoMensaje.MsgError) : ErrorVentas = True - Dim dtsubp As DataTable = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) + Dim dtsubp As DataTable = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) 'For Each drt As DataRow In dt.FiltraParametros("RFC <> ''", DistinctColumns:={"RFC"}).Rows ' Dim RFC As String = drt("RFC").ToString().Trim.Replace("-", "").Replace(" ", "") @@ -2194,7 +2192,7 @@ Partial Class General_SaldosIniciales 'CLAVES Dim CveAF As Integer = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveActivoFijo", $"Codigo = '{Codigo}'").ToString().ToEntero() Dim CveSubTipoAF As Integer = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubTipoActivoFijo", $"TipoActivoFijo = '{TipoAF}'").ToString().ToEntero() - Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"SubProyecto = '{SubProyecto}'").ToString().ToEntero() + Dim CveSubProyecto As Integer = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"SubProyecto = '{SubProyecto}'").ToString().ToEntero() Dim CveEstadoActivoFijo As Integer = GlobalDTEstadoActivoFijo().FiltroPrimeroValor("CveEstadoActivoFijo", $"EstadoActivoFijo = '{Estado}'").ToString().ToEntero() Dim CveCliente As Integer = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", $"Nombre = '{Cliente}'").ToString().ToEntero() Dim CveCuentaContable As Integer = Row("CveCuentaContable").ToString().ToEntero() @@ -2500,7 +2498,7 @@ Partial Class General_SaldosIniciales Dim CvePrePoliza As Integer = 0 Dim Cuenta As String = "" Dim Reporte As New StringBuilder - Dim SubProTemp As DataTable = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa) + Dim SubProTemp As DataTable = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) CvePrePoliza = ObjConta.AddPrePolizas("SI", 1, 0, 0, 1, TxtFecha.Text.ToDate, "Saldos Iniciales", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) For Each Row As DataRow In dt.FiltraParametros("Cuenta <> '' ").Rows @@ -3575,7 +3573,7 @@ Partial Class General_SaldosIniciales If ObjRH.GetRegistrosPatronales(-1, UsuarioActual.CveEmpresa, -1) Then dtregistrospatronales = ObjRH.DtResultados dtregistrospatronales.CaseSensitive = False - dTSubProyectos = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1) + dTSubProyectos = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) dTDepartamentos = GlobalDTDepartamentos(UsuarioActual.CveEmpresa) dTTurno = GlobalDTTurno(UsuarioActual.CveEmpresa) dTSubProyectos.CaseSensitive = False @@ -3794,9 +3792,9 @@ Partial Class General_SaldosIniciales myarraystr = Nominista.Split(":"c) If (myarraystr.Length > 1) Then CveUsuarioNomina = myarraystr(0).ToEntero() - CveUsuarioNomina = GlobalDTUsuarios(-1, -1).FiltroPrimeroValor("CveUsuario", $"CveUsuario = {CveUsuarioNomina}").ToString().ToEntero() + CveUsuarioNomina = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUsuario", $"CveUsuario = {CveUsuarioNomina}").ToString().ToEntero() Else - CveUsuarioNomina = GlobalDTUsuarios(-1, -1).FiltroPrimeroValor("CveUsuario", $"Nombre = '{Nominista}'").ToString().ToEntero() + CveUsuarioNomina = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUsuario", $"Nombre = '{Nominista}'").ToString().ToEntero() End If If CveUsuarioNomina = 0 Then CveUsuarioNomina = -1 @@ -4215,7 +4213,7 @@ Partial Class General_SaldosIniciales crow = 1 ccol = ccol + 1 Catalogos.Cell(crow, ccol).Value = "subproyecto" - Dim dtsubproyecto As DataTable = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)) + Dim dtsubproyecto As DataTable = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Estatus:=1)) For Each row As DataRow In dtsubproyecto.Rows crow = crow + 1 Catalogos.Cell(crow, ccol).Value = String.Format("{0}: {1}", row("CveSubProyecto"), row("SubProyecto")) diff --git a/General/SaldosMenores.aspx.vb b/General/SaldosMenores.aspx.vb index d4e14e130..cc6648e7d 100644 --- a/General/SaldosMenores.aspx.vb +++ b/General/SaldosMenores.aspx.vb @@ -177,7 +177,7 @@ Partial Public Class General_SaldosMenores Protected Sub CargaSucursales() - DdlSubProyectoSaldar.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa) + DdlSubProyectoSaldar.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubProyectoSaldar.DataBind() End Sub diff --git a/Inicio.aspx.vb b/Inicio.aspx.vb index e5e6cc56f..e394067ca 100644 --- a/Inicio.aspx.vb +++ b/Inicio.aspx.vb @@ -382,7 +382,7 @@ Partial Class Inicio End Sub Private Sub CargaSubProyectos() - DdlSubproyectos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) + DdlSubproyectos.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubproyectos.DataBind() DdlSubproyectos.Items.Insert(0, New ListItem("Todos", "-1")) DdlSubproyectos.SelectedIndex = 0 diff --git a/Inventarios/Apartados.aspx.vb b/Inventarios/Apartados.aspx.vb index acd184e86..61618d66d 100644 --- a/Inventarios/Apartados.aspx.vb +++ b/Inventarios/Apartados.aspx.vb @@ -135,11 +135,11 @@ Partial Class Inventarios_Apartados End Sub Private Sub CargaCombos() - DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) + DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione ", "-1")) - DdlSubProyectoDesapartado.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) + DdlSubProyectoDesapartado.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubProyectoDesapartado.DataBind() DdlSubProyectoDesapartado.Items.Insert(0, New ListItem(" Todas ", "-1")) diff --git a/Inventarios/CatAlmacenes.aspx.vb b/Inventarios/CatAlmacenes.aspx.vb index a65f93a13..ec8b4d92f 100644 --- a/Inventarios/CatAlmacenes.aspx.vb +++ b/Inventarios/CatAlmacenes.aspx.vb @@ -77,8 +77,8 @@ Partial Class Inventarios_CatAlmacenes #Region "C O M B O S" Private Sub CargaSubProyectos() - DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) - DdlSubProyectoFiltro.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) + DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) + DdlSubProyectoFiltro.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubProyectoFiltro.DataBind() DdlSubProyecto.DataBind() @@ -230,7 +230,7 @@ Partial Class Inventarios_CatAlmacenes End Sub 'Private Sub CargaSucursal() - ' DtSubProyectos = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveSubProyecto =" & DdlSubProyecto.SelectedValue.ToEntero) + ' DtSubProyectos = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltraParametros("CveSubProyecto =" & DdlSubProyecto.SelectedValue.ToEntero) ' Dim dr As DataRow ' dr = DtSubProyectos(0) ' CveSucursal = dr("CveSucursal").ToString.ToEntero diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 9bc004bfe..da6e1c5eb 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -786,7 +786,7 @@ Partial Class Inventarios_EntradasSalidas End Sub Private Sub CargaSubProyectos() CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto) - 'DdlSubProyecto.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)) + 'DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos( UsuarioActual.CveEmpresa, Estatus:=1)) 'DdlSubProyecto.DataBind() 'DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) End Sub @@ -1019,7 +1019,7 @@ Partial Class Inventarios_EntradasSalidas 'verifico si existe If (DdlSubProyecto.Items.FindByValue(Mov.CveSubProyecto.ToString()) Is Nothing) Then - Dim dr As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto:=Mov.CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=-1).FiltroPrimero("") + Dim dr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=Mov.CveSubProyecto, Estatus:=-1).FiltroPrimero("") DdlSubProyecto.Items.Insert(0, New ListItem(dr("SubProyecto").ToString, dr("CveSubProyecto").ToString)) ' lo genera Obj.SelectedValue = Valor.ToString End If diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index 8a945b90a..7d810834e 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -437,7 +437,7 @@ Partial Class Inventarios_EntregaAlmacen End If ObjInventarios.Dispose() Else - DdlSubProyectos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) + DdlSubProyectos.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) End If DdlSubProyectos.DataBind() DdlSubProyectos.SelectedValueExist(UsuarioActual.CveSubProyecto.ToString()) @@ -2872,6 +2872,10 @@ Partial Class Inventarios_EntregaAlmacen If TipoMovimiento = 2 And ConceptoMovimiento = 18 AndAlso EsDevolucionDirecta Then ConceptoMovimiento = 41 End If + 'sms + If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso ConceptoMovimiento = 8 AndAlso TipoMovimiento = 1 Then + ConceptoMovimiento = 35 + End If CveMovimiento = ObjInventario.AddMovimiento(Almacen1, ConceptoMovimiento, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, CveOS:=CveOSSurtir, Observaciones:=TxtObservaciones.Text.Trim, Guia:=Guia, Recibio:=Recibio, CveContrato:=CveContrato, CveAlmacenDestino:=tCveAlmacenTraspasoDestino, Modulo:="RE/G7") diff --git a/Inventarios/EntregasPorRealizar.aspx.cs b/Inventarios/EntregasPorRealizar.aspx.cs index b410df2ab..46fc11d64 100644 --- a/Inventarios/EntregasPorRealizar.aspx.cs +++ b/Inventarios/EntregasPorRealizar.aspx.cs @@ -11,8 +11,6 @@ using System.Text; public partial class Inventarios_EntregasPorRealizar : ClsPaginas { - - DataTable DTGenrarDocumentos { get { @@ -165,7 +163,7 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas private void CargarPersonal() { - DataTable UsuariosConRolLogistico = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros("CveRol IN (1339,1386,1430,1155)"); + DataTable UsuariosConRolLogistico = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("CveRol IN (1339,1386,1430,1155)"); DdlUsuario.DataSource = UsuariosConRolLogistico; DdlUsuario.DataBind(); DdlUsuario.Items.Insert(0, new ListItem("Seleccione", "-1")); diff --git a/Inventarios/Equivalencia.aspx.vb b/Inventarios/Equivalencia.aspx.vb index c357c49f5..9844c5684 100644 --- a/Inventarios/Equivalencia.aspx.vb +++ b/Inventarios/Equivalencia.aspx.vb @@ -29,7 +29,7 @@ Partial Class Inventarios_Equivalencia Private Sub InicializarListas() 'Llenar el dropdownlist de unidad de medida - ddlUnidad.DataSource = GlobalDTUnidadesMedida() + ddlUnidad.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa) ddlUnidad.DataBind() @@ -245,7 +245,7 @@ Partial Class Inventarios_Equivalencia Protected Sub gvEquivalencias_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles gvEquivalencias.RowDataBound If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then - e.Row.FCDropDownList("ddlEUnidad").DataSource = GlobalDTUnidadesMedida() + e.Row.FCDropDownList("ddlEUnidad").DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa) e.Row.FCDropDownList("ddlEUnidad").SelectedValue = e.Row.DBCampo("CveUnidadMedida") e.Row.FCDropDownList("ddlEUnidad").DataBind() End If diff --git a/Inventarios/InventarioFisico.aspx.vb b/Inventarios/InventarioFisico.aspx.vb index 6fbaf9f24..65e2f0d25 100644 --- a/Inventarios/InventarioFisico.aspx.vb +++ b/Inventarios/InventarioFisico.aspx.vb @@ -215,7 +215,7 @@ Partial Class Inventarios_InventarioFisico Private Sub CargaDdlUsuarios() Dim FiltroAD() As String = {"CveUsuario", "Usuario", "Nombre", "Contraseña", "CveEmpresa", "Rol", "Correo", "Empresa", "CveRol"} - DdlUsuarios.DataSource = GlobalDTUsuarios.FiltraParametros(String.Format("CveEmpresa = {0} AND Estatus =1", UsuarioActual.CveEmpresa), "Rol ASC", FiltroAD) + DdlUsuarios.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros(" Estatus =1", "Rol ASC", FiltroAD) DdlUsuarios.Items.Insert(0, New ListItem("Todos", "-1")) DdlUsuarios.DataBind() diff --git a/Inventarios/PopUpExistenciasAlmacen.aspx.vb b/Inventarios/PopUpExistenciasAlmacen.aspx.vb index c17ff8aad..10e644d70 100644 --- a/Inventarios/PopUpExistenciasAlmacen.aspx.vb +++ b/Inventarios/PopUpExistenciasAlmacen.aspx.vb @@ -99,7 +99,7 @@ Partial Class Inventarios_Default Private Sub CargaSubProyecto() DdlSubProyecto.Items.Clear() DdlSubProyecto.SelectedValue = Nothing - DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=1) + DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Estatus:=1) DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem("-", "-1")) diff --git a/Inventarios/RecepcionDevolucion.aspx.vb b/Inventarios/RecepcionDevolucion.aspx.vb index a4c6bdc2e..e63e45015 100644 --- a/Inventarios/RecepcionDevolucion.aspx.vb +++ b/Inventarios/RecepcionDevolucion.aspx.vb @@ -362,8 +362,8 @@ Partial Class Inventarios_RecepcionDevolucion Me.ObjRemisionNC.CveSubProyecto = CveSubProyecto Me.ObjRemisionNC.CveSubProyectoCobranza = CveSubProyecto Me.ObjRemisionNC.CveSubProyectoEjecucion = CveSubProyecto - Me.ObjRemisionNC.SubProyecto = New Modelos.SubProyectoModel(GlobalDTSubProyectos(-1).FiltroPrimero(String.Format("CveSubProyecto = {0}", CveSubProyecto))) - Me.ObjRemisionNC.SubProyectoMatriz = New Modelos.SubProyectoModel(GlobalDTSubProyectos(-1, CveSubProyecto:=-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal=1")) + Me.ObjRemisionNC.SubProyecto = New Modelos.SubProyectoModel(GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto = {0}", CveSubProyecto))) + Me.ObjRemisionNC.SubProyectoMatriz = New Modelos.SubProyectoModel(GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal=1")) 'CLIENTE Me.ObjRemisionNC.CveCliente = CveCliente @@ -711,7 +711,7 @@ Partial Class Inventarios_RecepcionDevolucion If CvePS > 0 Then Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).Rows(0) - Dim DrSubProyecto As DataRow = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto = {0}", ObjRemisionNC.CveSubProyecto)) + Dim DrSubProyecto As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto = {0}", ObjRemisionNC.CveSubProyecto)) If Dr IsNot Nothing AndAlso DrSubProyecto IsNot Nothing Then CveUnidadMedida = Dr("CveUnidadMedida").ToString.ToEntero CveClasificacion = Dr("CveClasificacion").ToString.ToEntero diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb index 5ddf4613d..eb35a01ad 100644 --- a/Inventarios/RecepcionUsados.aspx.vb +++ b/Inventarios/RecepcionUsados.aspx.vb @@ -667,7 +667,7 @@ Partial Class Inventarios_RecepcionUsados ObjAcum.Dispose() End Sub Private Sub CargaSubProyectos() - DdlSubProyecto.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)) + DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Estatus:=1)) DdlSubProyecto.DataBind() 'DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) @@ -685,7 +685,7 @@ Partial Class Inventarios_RecepcionUsados End If ObjInventarios.Dispose() Else - DdlSubProyectos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) + DdlSubProyectos.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) End If DdlSubProyectos.DataBind() DdlSubProyectos.SelectedValueExist(UsuarioActual.CveSubProyecto.ToString) @@ -2445,8 +2445,8 @@ Partial Class Inventarios_RecepcionUsados Me.ObjRemisionNC.CveSubProyecto = CveSubProyecto Me.ObjRemisionNC.CveSubProyectoCobranza = CveSubProyecto Me.ObjRemisionNC.CveSubProyectoEjecucion = CveSubProyecto - Me.ObjRemisionNC.SubProyecto = New Modelos.SubProyectoModel(GlobalDTSubProyectos(-1).FiltroPrimero(String.Format("CveSubProyecto = {0}", CveSubProyecto))) - Me.ObjRemisionNC.SubProyectoMatriz = New Modelos.SubProyectoModel(GlobalDTSubProyectos(-1, CveSubProyecto:=-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal=1")) + Me.ObjRemisionNC.SubProyecto = New Modelos.SubProyectoModel(GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto = {0}", CveSubProyecto))) + Me.ObjRemisionNC.SubProyectoMatriz = New Modelos.SubProyectoModel(GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal=1")) 'CLIENTE Me.ObjRemisionNC.CveCliente = CveCliente @@ -3019,10 +3019,10 @@ Partial Class Inventarios_RecepcionUsados If TipoPrecioLista = 10 Then CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=DdlClientes.SelectedValue.ToEntero()).FiltroPrimeroValor("CvePrecioLista").ToEntero() If CvePrecioListaPS <= 0 Then - CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero() + CvePrecioListaPS = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto).FiltroPrimeroValor("CvePrecioLista", "").ToEntero() End If Else - CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero() + CvePrecioListaPS = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto).FiltroPrimeroValor("CvePrecioLista", "").ToEntero() If CvePrecioListaPS <= 0 Then CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=DdlClientes.SelectedValue.ToEntero()).FiltroPrimeroValor("CvePrecioLista").ToEntero() End If diff --git a/Inventarios/Remanufactura.aspx.vb b/Inventarios/Remanufactura.aspx.vb index 29942e0d7..db02d8d94 100644 --- a/Inventarios/Remanufactura.aspx.vb +++ b/Inventarios/Remanufactura.aspx.vb @@ -772,7 +772,7 @@ Partial Class Inventarios_Remanufactura importeMovimiento = (TmpDTDetalle.SUM("Total", String.Format("CveClasificacion = {0} AND CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString.ToDecimal) * ValorMultiplicador importeMX = importeMovimiento * tipoCambio * Multiplicador FechaMovimiento = ObjFactura.FechaPago - Concepto = $"{ViewState("VentaFolio").ToString} {If(Row2("CveClasificacion").ToString.ToEntero > 0, GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString}"), "")} - {If(Row2("CveSubProyecto").ToString.ToEntero > 0, GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString}"), "Sin SubProyecto Asignado")}" + Concepto = $"{ViewState("VentaFolio").ToString} {If(Row2("CveClasificacion").ToString.ToEntero > 0, GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString}"), "")} - {If(Row2("CveSubProyecto").ToString.ToEntero > 0, GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString}"), "Sin SubProyecto Asignado")}" If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" If importeMovimiento <> 0 Then If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, importeMX, ConceptoContable, Referencia, Concepto, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento)) Then diff --git a/Inventarios/RepApartados.aspx.vb b/Inventarios/RepApartados.aspx.vb index 917730dac..44dd93cff 100644 --- a/Inventarios/RepApartados.aspx.vb +++ b/Inventarios/RepApartados.aspx.vb @@ -31,7 +31,7 @@ Partial Class Inventarios_RepApartados #Region " SET VALUES " Private Sub SetValues() - DdlSubProyectos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) + DdlSubProyectos.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubProyectos.DataBind() DdlSubProyectos.Items.Insert(0, New ListItem(" Todas ", "-1")) diff --git a/Inventarios/RepApartados2.aspx.vb b/Inventarios/RepApartados2.aspx.vb index 1f3d0fff5..f9fad1c33 100644 --- a/Inventarios/RepApartados2.aspx.vb +++ b/Inventarios/RepApartados2.aspx.vb @@ -30,7 +30,7 @@ Partial Class Inventarios_RepApartados2 #Region " SET VALUES " Private Sub SetValues() - DdlSubProyectos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) + DdlSubProyectos.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubProyectos.DataBind() DdlSubProyectos.Items.Insert(0, New ListItem(" Todas ", "-1")) diff --git a/Inventarios/RepMaximoMinimo.aspx.vb b/Inventarios/RepMaximoMinimo.aspx.vb index ad7df7e2c..9cfac9352 100644 --- a/Inventarios/RepMaximoMinimo.aspx.vb +++ b/Inventarios/RepMaximoMinimo.aspx.vb @@ -51,7 +51,7 @@ Partial Class Inventarios_RepMaximoMinimo #Region " INICIALIZA VALORES " Private Sub CargaCombos() - DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.Empresa.CveEmpresa, 1) + DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.Empresa.CveEmpresa, Estatus:=1) DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem("Todas", "-1")) @@ -81,7 +81,7 @@ Partial Class Inventarios_RepMaximoMinimo Private Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyecto.SelectedIndexChanged - 'Dim DtSubptoyecto As DataTable = GlobalDTSubProyectos(-1, -1, UsuarioActual.Empresa.CveEmpresa, 1).FiltraParametros(String.Format(" CveSubProyecto ={0}", DdlSubProyecto.SelectedValue.ToEntero)) 'GlobalDTSucursales(" CveSucursal = ") + 'Dim DtSubptoyecto As DataTable = GlobalDTSubProyectos( UsuarioActual.Empresa.CveEmpresa ).FiltraParametros(String.Format(" CveSubProyecto ={0}", DdlSubProyecto.SelectedValue.ToEntero)) 'GlobalDTSucursales(" CveSucursal = ") DdlAlmacen.Items.Clear() 'If DtSubptoyecto.Rows.Count > 0 Then 'Dim CveSucursal As Integer = DtSubptoyecto(0)("CveSucursal").ToString.ToEntero diff --git a/Inventarios/RepMovimientos.aspx.vb b/Inventarios/RepMovimientos.aspx.vb index c4454dfd6..ee0a1cf43 100644 --- a/Inventarios/RepMovimientos.aspx.vb +++ b/Inventarios/RepMovimientos.aspx.vb @@ -66,7 +66,7 @@ Partial Class RepMovimientosRep DdlAlmacen.DataBind() DdlAlmacen.Items.Insert(0, New ListItem("Todos", "-1")) - DdlUsuarios.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre") + DdlUsuarios.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre") DdlUsuarios.DataBind() DdlUsuarios.Items.Insert(0, New ListItem("Todos", "-1")) End Sub diff --git a/Inventarios/RepTrasladoSolicitud.aspx.vb b/Inventarios/RepTrasladoSolicitud.aspx.vb index 19df115a9..997bc7306 100644 --- a/Inventarios/RepTrasladoSolicitud.aspx.vb +++ b/Inventarios/RepTrasladoSolicitud.aspx.vb @@ -25,7 +25,7 @@ Partial Class Inventarios_RepTrasladoSolicitud DdlContrato.DataBind() DdlContrato.Items.Insert(0, New ListItem("Todos", "-1")) - DdlSolicitante.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre") + DdlSolicitante.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre") DdlSolicitante.DataBind() DdlSolicitante.Items.Insert(0, New ListItem("Todos", "-1")) End Sub diff --git a/Inventarios/TrasladoSolicitud.aspx b/Inventarios/TrasladoSolicitud.aspx index 8ab72fdb3..86527b08b 100644 --- a/Inventarios/TrasladoSolicitud.aspx +++ b/Inventarios/TrasladoSolicitud.aspx @@ -1,593 +1,334 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="TrasladoSolicitud.aspx.vb" Inherits="Inventarios_TrasladoSolicitud" %> - - - - - - - - - Solicitud de Traslados - - - - -
  • - Agregar Producto -
    • - -
  • - Ayuda - -
    • - -
  • - Vincular desde Contrato -
    • - -
  • - Generar PDF -
    • - -
  • - Generar Excel -
    • -
  • - Cancelar Solicitud -
    • -     - - - - -     -     - - - - -
    - -
    -
    -
    -
    - - INFORMACIÓN DEL TRASLADO -
    -
    -
    -
    -
    - -
    - -
    -
    -
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    - Folio: - -

    - -

    -
    Fecha: -
    -
    - - - - - - - - - - -
    -
    -
    Almacén Origen:      - -
    Almacén Destino: - -
    Paquetería: - -
    Número Guía: -
    Observaciones: - -
    Vincular desde Contrato: - - -
    - - - -
    -
    -
    - - - -
    - -
    -
    -
    - - INFORMACIÓN DE LA SOLICITUD -
    -
    -
    -
    -
    - -
    - -
    -
    -
    - -
    -
    -

    Cancelado

    -
    -
    - - - - - - - - - - - - - - - - - - - - - - - - -
    Usuario Solicitó: - -
    Contrato: - - -
    Dirección de Envio: - -
    Movimiento: - -
    - - -
    -
    -
    - -
    - -
    -
    -
    - - AUTORIZACIÓN -
    -
    -
    -
    -
    - -
    - -
    -
    -
    - - - +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="TrasladoSolicitud.aspx.vb" Inherits="Inventarios_TrasladoSolicitud" %> -
    + + + + + + Reporte de solicitudes de traspaso + + + + + + +
  • + Agregar Solicitud +
    • +     + + +     + +     + + + +
    +
    +
    + + "> + +
    +
    +
    +
    Origen
    +
    + +
    -
    - - - - - - -
    Estado :
    Usuario :
    Fecha :
    -
    -
    - -
    - -
    - -
    -
    - -
    - +
    Destino
    +
    + +
    +
    Fecha Inicio
    +
    +
    + + + + +
    + + +
    +
    Fecha Fin
    +
    +
    + + + + +
    + + +
    +
    +
    +
    +
    > + +
    +
    + +
    +
    + + + + + + + + + + + + + + + + + + + <%-- + +
    +
    + +
    +
    + +
    +
    +     +     --%> + + +
    +
    +
    +
    + +
    +
    +
    +     +     -     -     - - - - - - -
    -
    - - - + + + + + + + + + +
    + +
    + + + +