diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index c64f9bbda..5065ed3e2 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -5606,13 +5606,15 @@ Public Class ClsVentas End Function - Public Function UpdateVentaLineaAdicional(CveLineaAdicional As Integer, CveVenta As Integer, CveEmpresa As Integer) As Boolean + Public Function UpdateVentaLineaAdicional(CveLineaAdicional As Integer, CveVenta As Integer, LineaAdicionalComprobante As String, CveLineaAdicionalEstatus As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_LineasAdicionalesVentaUpdate") With SqlAdapter.SelectCommand.Parameters .Add("@CveLineaAdicional", SqlDbType.Int).Value = CveLineaAdicional .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + .Add("@LineaAdicionalComprobante", SqlDbType.VarChar).Value = LineaAdicionalComprobante + .Add("@CveLineaAdicionalEstatus", SqlDbType.Int).Value = CveLineaAdicionalEstatus .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try diff --git a/Bancos/RepIE.aspx.vb b/Bancos/RepIE.aspx.vb index add465901..91c02b7ff 100644 --- a/Bancos/RepIE.aspx.vb +++ b/Bancos/RepIE.aspx.vb @@ -6,7 +6,6 @@ Imports Microsoft.Reporting.WebForms Imports Extensiones Partial Class Bancos_RepIE Inherits ClsPaginas - Private Shared missing As Object = System.Reflection.Missing.Value #Region "PROPIEDADES" Private Property Conciliacion As Boolean @@ -76,7 +75,7 @@ Partial Class Bancos_RepIE TipoPagina = Request("Tipo") DdlEstatusIE.SelectedValueExist("1") - DdlEstatusIE.Enabled = False + ' DdlEstatusIE.Enabled = False 'habilita especificar otros ingresos en conciliaciones AceptaOtrosIngresos = If(UsuarioActual.Empresa.Funcionalidad(124) = "1", True, False) diff --git a/Compras/RepCxPDetalle.aspx.vb b/Compras/RepCxPDetalle.aspx.vb index c7243644b..f0016d615 100644 --- a/Compras/RepCxPDetalle.aspx.vb +++ b/Compras/RepCxPDetalle.aspx.vb @@ -230,7 +230,7 @@ Partial Class RepCxPDetalle Me.CveProveedor = CveProveedor If DdlProveedores.SelectedValue.ToEntero > 0 Then - DdlProveedores.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveProveedor = {CveProveedor}").Rows(0)("RazonSocial").ToString + DdlProveedores.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor).FiltroPrimeroValor("RazonSocial").ToString Else DdlProveedores.SelectedText = "-" End If diff --git a/Global.asax b/Global.asax index d37060357..92c7c2a8c 100644 --- a/Global.asax +++ b/Global.asax @@ -99,54 +99,6 @@ End Using GuardaLogAsax(String.Format("Globalasax 9:{0}", DateTime.Now)) - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - 'P R O S P E C T O S - - 'GuardaLogAsax(String.Format("Globalasax 10:{0}", DateTime.Now)) - 'Using ObjProspectos As New ClsProspectos - 'If ObjProspectos.GetClasificacion Then Application("GlobalDTProspectosClasificaciones") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosClasificaciones") = Nothing - 'If ObjProspectos.GetClasificacion Then Application("GlobalDTProspectosClasificacionesCaracteristicas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosClasificacionesCaracteristicas") = Nothing - 'If ObjProspectos.GetCoordinadores(-1) Then Application("GlobalDTProspectosCoordinadores") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCoordinadores") = Nothing - 'If ObjProspectos.GetSupervisores(-1) Then Application("GlobalDTProspectosSupervisores") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosSupervisores") = Nothing - 'If ObjProspectos.GetProspectosSolicitudes(-1, -1, -1, -1, -1) Then Application("GlobalDTProspectosSolicitudes") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosSolicitudes") = Nothing - 'If ObjProspectos.GetSolicitudTipo Then Application("GlobalDTProspectosSolicitudesTipos") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosSolicitudesTipos") = Nothing - 'If ObjProspectos.GetApoyoTipo Then Application("GlobalDTProspectosApoyosTipos") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosApoyosTipos") = Nothing - 'If ObjProspectos.GetProspectoApoyo Then Application("GlobalDTProspectosApoyos") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosApoyos") = Nothing - 'If ObjProspectos.GetSolicitudEstatus Then Application("GlobalDTProspectosSolicitudesEstatus") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosSolicitudesEstatus") = Nothing - 'If ObjProspectos.GetEventosTipo(-1) Then Application("GlobalDTProspectosEventosTipo") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEventosTipo") = Nothing - 'If ObjProspectos.GetProspectosEventos(-1, -1) Then Application("GlobalDTProspectosEvento") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEvento") = Nothing - 'If ObjProspectos.GetProspectosTipos() Then Application("GlobalDTProspectosTipos") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosTipos") = Nothing - 'If ObjProspectos.GetProspectosEstatus() Then Application("GlobalDTProspectosEstatus") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEstatus") = Nothing - 'If ObjProspectos.GetCaracteristicasClasificaciones(-1) Then Application("GlobalDTProspectosCaracteristicasClasificaciones") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCaracteristicasClasificaciones") = Nothing - 'If ObjProspectos.GetTiposCaracteristicas(-1) Then Application("GlobalDTProspectosTiposCaracteristicas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosTiposCaracteristicas") = Nothing - 'If ObjProspectos.GetCaracteristicas(-1) Then Application("GlobalDTProspectosCaracteristicas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCaracteristicas") = Nothing - 'If ObjProspectos.GetCaracteristicasOpciones(-1, -1) Then Application("GlobalDTProspectosCaracteristicasOpciones") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCaracteristicasOpciones") = Nothing - 'If ObjProspectos.GetEncuestas(-1, -1) Then Application("GlobalDTProspectosEncuestas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEncuestas") = Nothing - 'If ObjProspectos.GetPreguntas(-1, -1, -1) Then Application("GlobalDTProspectosEncuestasPreguntas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEncuestasPreguntas") = Nothing - 'If ObjProspectos.GetRespuestas(-1, -1) Then Application("GlobalDTProspectosEncuestasRespuestas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEncuestasRespuestas") = Nothing - 'End Using - - 'GuardaLogAsax(String.Format("Globalasax 11:{0}", DateTime.Now)) - - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - 'C L A S I F I C A C I O N E S - - 'Using ObjClasificaciones As New ClsClasificaciones() - - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - 'F A M I L I A S - 'If ObjClasificaciones.GetClasificaciones(Tipo:=2) Then Application("GlobalDTSubFamilias") = ObjClasificaciones.DtResultados Else Application("GlobalDTSubFamilias") = Nothing - - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - 'P R E S U P U E S T O - 'If ObjClasificaciones.GetClasificaciones(Tipo:=3) Then Application("GlobalDTClasificacionesPresupuestos") = ObjClasificaciones.DtResultados Else Application("GlobalDTClasificacionesPresupuestos") = Nothing - - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - 'C L A S I F I C A C I O N E S 2 - 'If ObjClasificaciones.GetClasificaciones(Tipo:=4) Then Application("GlobalDTClasificaciones2") = ObjClasificaciones.DtResultados Else Application("GlobalDTClasificaciones2") = Nothing - 'End Using - 'GuardaLogAsax(String.Format("Globalasax 20:{0}", DateTime.Now)) - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------S I S T E M A ---------------------------------------------------------------------------------- '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ @@ -158,14 +110,6 @@ GuardaLogAsax(String.Format("Globalasax 35:{0}", DateTime.Now)) - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - 'C O M B U S T I B L E S - - 'Using ObjFlotillas As New ClsFlotillas - 'If ObjFlotillas.GetCombustibles() Then Application("GlobalDTCombustibles") = ObjFlotillas.DtResultados Else Application("GlobalDTCombustibles") = Nothing - 'If ObjFlotillas.GetCombustiblesTipos(-1) Then Application("GlobalDTCombustiblesTipos") = ObjFlotillas.DtResultados Else Application("GlobalDTCombustiblesTipos") = Nothing - 'End Using - 'GuardaLogAsax(String.Format("Globalasax 39:{0}", DateTime.Now)) '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ @@ -194,26 +138,26 @@ - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - ' R A S T R E O - Using ObjGPS As New ClsGPS - If ObjGPS.DispositivosGet(-1, -1, -1, -1) Then - If ObjGPS.DtResultados.Rows.Count > 0 Then - Application("GlobalDTDispositivos") = ObjGPS.DtResultados - Else - Application("GlobalDTDispositivos") = Nothing - End If - End If + ''------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ + '' R A S T R E O + 'Using ObjGPS As New ClsGPS + ' If ObjGPS.DispositivosGet(-1, -1, -1, -1) Then + ' If ObjGPS.DtResultados.Rows.Count > 0 Then + ' Application("GlobalDTDispositivos") = ObjGPS.DtResultados + ' Else + ' Application("GlobalDTDispositivos") = Nothing + ' End If + ' End If - If ObjGPS.DispositivosUsuariosGet(-1, -1, -1, -1, -1) Then - If ObjGPS.DtResultados.Rows.Count > 0 Then - Application("GlobalDTDispositivosUsuarios") = ObjGPS.DtResultados - Else - Application("GlobalDTDispositivosUsuarios") = Nothing - End If - End If - End Using - GuardaLogAsax(String.Format("Globalasax 42:{0}", DateTime.Now)) + ' If ObjGPS.DispositivosUsuariosGet(-1, -1, -1, -1, -1) Then + ' If ObjGPS.DtResultados.Rows.Count > 0 Then + ' Application("GlobalDTDispositivosUsuarios") = ObjGPS.DtResultados + ' Else + ' Application("GlobalDTDispositivosUsuarios") = Nothing + ' End If + ' End If + 'End Using + 'GuardaLogAsax(String.Format("Globalasax 42:{0}", DateTime.Now)) 'If EsProduccion = "1" Then @@ -277,48 +221,6 @@ 'sessionData.Remove(HttpContext.Current.Session.SessionID) 'Application("s") = sessionData End Sub - -#Region "S Q L D E P E N D E N C Y" - - 'Public Sub RegisterNotification() - ' Try - ' 'Get the connection string from the Web.Config file. Make sure that the key exists and it is the connection string for the Notification Database and the NotificationList Table that we created - ' Dim connectionString As String = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString - ' 'We have selected the entire table as the command, so SQL Server executes this script and sees if there is a change in the result, raise the event - ' Dim commandText As String = "SELECT [FechaNotificacion] FROM dbo.Sis_NotificacionesActualizaciones" - ' 'Start the SQL Dependency - ' SqlDependency.Start(connectionString) - ' Using connection As New SqlConnection(connectionString) - ' Using command As New SqlCommand(commandText, connection) - ' connection.Open() - ' Dim sqlDependency = New SqlDependency(command) - ' AddHandler sqlDependency.OnChange, AddressOf sqlDependency_OnChange - ' ' NOTE: You have to execute the command, or the notification will never fire. - ' Using reader As SqlDataReader = command.ExecuteReader() - ' End Using - ' End Using - ' End Using - ' Catch ex As Exception - - ' End Try - - 'End Sub - - 'Private Sub sqlDependency_OnChange(sender As Object, e As SqlNotificationEventArgs) - ' If e.Info = SqlNotificationInfo.Update Then - ' Try - ' Dim ObjNotificaciones As New ClsSisNotificaciones - ' ObjNotificaciones.ObtenerNotificaciones() - ' ObjNotificaciones.Dispose() - ' 'System.Threading.Thread.Sleep(5000) - ' RegisterNotification() - ' Catch ex As Exception - - ' End Try - ' End If - ' 'Call the RegisterNotification method again - 'End Sub - -#End Region + diff --git a/Sistemas/UsuarioDetalle.aspx.vb b/Sistemas/UsuarioDetalle.aspx.vb index f485c6faa..ae83edfa9 100644 --- a/Sistemas/UsuarioDetalle.aspx.vb +++ b/Sistemas/UsuarioDetalle.aspx.vb @@ -716,14 +716,17 @@ Partial Class Sistemas_UsuarioDetalle 'DdlSubProyectos.SelectedValueExist(CveSubProyecto) End Sub Private Sub CargaPersonal() - Dim dt As DataTable = Nothing - - Dim RH As New ClsRH - If RH.GetPersonal(-1, DdlEmpresaAsignaciones.SelectedValue.ToEntero) Then - dt = RH.DtResultados - End If - RH.Dispose() - + Dim dt As DataTable = Nothing + + 'Dim RH As New ClsRH + 'If RH.GetPersonal(-1, DdlEmpresaAsignaciones.SelectedValue.ToEntero) Then + ' dt = RH.DtResultados + 'End If + 'RH.Dispose() + If DdlEmpresaAsignaciones.SelectedValue.ToEntero > 0 Then + dt = GlobalDTRHPersonal(DdlEmpresaAsignaciones.SelectedValue.ToEntero) + End If + DdlPersonal.Items.Clear() DdlPersonal.DataSource = dt DdlPersonal.DataBind() diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index ebe60dbda..38fb457dc 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -1001,8 +1001,8 @@ Partial Class Ventas_ClientesAbonar Dim IdCtaContable As Integer = If(EsAnticipoEspecial, IdCtaAnticipo, IdCuentaCliente) If VentaActual.CveMoneda = 2 Then IdCtaContable = If(EsAnticipoEspecial, IdCtaContMonedaExtranjeraAnticipo, IdCtaContMonedaExtranjera) - If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, VentaActual.SerieFolio, 3, VentaActual.SerieFolio, IdCtaContable, CveIE:=CveIE, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveSubProyecto:=CveSubProyectoContabilizar, CveCliente:=ViewState("CveCliente").ToString.ToEntero, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=VentaActual.PorcentajeIVA, Contabilizable:=False) Then - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, VentaActual.SerieFolio, 95, VentaActual.SerieFolio, IdCtaContable, CveIE:=CveIE, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveSubProyecto:=CveSubProyectoContabilizar, CveCliente:=ViewState("CveCliente").ToString.ToEntero, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=VentaActual.PorcentajeIVA, Contabilizable:=False) Then + If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 3, VentaActual.SerieFolio, VentaActual.SerieFolio, IdCtaContable, CveIE:=CveIE, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveSubProyecto:=CveSubProyectoContabilizar, CveCliente:=ViewState("CveCliente").ToString.ToEntero, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=VentaActual.PorcentajeIVA, Contabilizable:=False) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 95, VentaActual.SerieFolio, VentaActual.SerieFolio, IdCtaContable, CveIE:=CveIE, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveSubProyecto:=CveSubProyectoContabilizar, CveCliente:=ViewState("CveCliente").ToString.ToEntero, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=VentaActual.PorcentajeIVA, Contabilizable:=False) Then MsgError = "No se pudo insertar la póliza" End If Else diff --git a/Ventas/RepLineasAdicionales.aspx b/Ventas/RepLineasAdicionales.aspx index 9b3b7ccdf..8a2cad2c4 100644 --- a/Ventas/RepLineasAdicionales.aspx +++ b/Ventas/RepLineasAdicionales.aspx @@ -128,13 +128,13 @@ OnRowCommand="GvLAPO_RowCommand" OnRowDataBound="GvLAPO_RowDataBound"> - - + + - + diff --git a/Ventas/RepLineasAdicionales.aspx.cs b/Ventas/RepLineasAdicionales.aspx.cs index 535306bc6..b8328d80a 100644 --- a/Ventas/RepLineasAdicionales.aspx.cs +++ b/Ventas/RepLineasAdicionales.aspx.cs @@ -204,8 +204,7 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas string filemove = ""; FileInfo fiNuevo; - DirectoryInfo df = new DirectoryInfo($@"{UsuarioActual.Empresa.Ruta}\LineasAdicionales\"); - + DirectoryInfo df = new DirectoryInfo($@"{UsuarioActual.Empresa.Ruta}\LineasAdicionales\"); //Crea directorio si no existe if (!df.Exists) @@ -257,12 +256,10 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas { try { - if (File.Exists($@"{df.FullName}\{CveVenta}{fiNuevo.Extension}")) { File.Delete($@"{df.FullName}\{CveVenta}{fiNuevo.Extension}"); - } - + } File.Move(fiNuevo.FullName, $@"{df.FullName}\{CveVenta}{fiNuevo.Extension}"); errorCargaComprobante = false; } @@ -274,7 +271,7 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas if (!errorCargaComprobante) { ClsVentas objVentas = new ClsVentas(); - if (!objVentas.UpdateLineasAdicionales(CveLineaAdicional, "-1", -1, -1, -1, -1, -1, MinFecha, UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, LineaAdicionalComprobante: $@"{CveVenta}{fiNuevo.Extension}",CveVenta:CveVenta)) + if (!objVentas.UpdateVentaLineaAdicional(CveLineaAdicional, CveVenta, $@"{CveVenta}{fiNuevo.Extension}", -1, UsuarioActual.CveEmpresa)) { errorCargaComprobante = true; } @@ -289,23 +286,22 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas CargaDatos(); Anexo.Text = "[]"; RegistraScript("$('#ModalComprobante').modal('hide');", ""); - Alert("Comprbante actualizado correctamente."); + Alert("Comprobante actualizado correctamente."); } - UpAddComprobancte.Update(); } protected void LnkCambiarEstatus_Click(object sender, EventArgs e) { GridViewRow GvRow = (GridViewRow)((LinkButton)sender).NamingContainer; - int CveLineaAdicionalActualzarEstatus = GvRow.DataKey("CveLineaAdicional").ToString().ToEntero(); - int CveVenta = GvRow.DataKey("CveVenta").ToString().ToEntero(); + int CveLineaAdicionalActualzarEstatus = GvRow.DataKey("CveLineaAdicional").ToEntero(); + int CveVenta = GvRow.DataKey("CveVenta").ToEntero(); bool errorCambioEstatus = false; ClsVentas objVentas = new ClsVentas(); - if (!objVentas.UpdateLineasAdicionales(CveLineaAdicionalActualzarEstatus, "-1", -1, -1, -1, -1, -1, MinFecha, UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa,CveVenta:CveVenta,CveLineaAdicionalEstatus:2)) + if (!objVentas.UpdateVentaLineaAdicional(CveLineaAdicional, CveVenta, "",2,UsuarioActual.CveEmpresa)) { errorCambioEstatus = true; } @@ -336,9 +332,7 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas } } - - - + protected void GvLAPO_RowDataBound(object sender, GridViewRowEventArgs e) { if (e.Row.RowType == DataControlRowType.DataRow) @@ -348,7 +342,6 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas LinkButton LnkCargarComprobante = e.Row.FCLinkButton("LnkCargarComprobante"); LinkButton LnkDescargaComprobante = e.Row.FCLinkButton("LnkDescargaComprobante"); - if (e.Row.DataKey("CveLineaAdicional")=="") { if (e.Row.DataKey("CveLineaAdicional") == "" && e.Row.DataKey("CveCliente") == "") @@ -367,7 +360,8 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas { if (e.Row.DataKey("CveVenta").ToEntero() > 0 && e.Row.DataKey("CveLineaAdicionalEstatus").ToEntero() == 1) { - LnkCambiarEstatus.Visible = true; + + if (UsuarioActual.TienePermisoProceso(356)) LnkCambiarEstatus.Visible = true; LnkCargarComprobante.Visible = true; }