diff --git a/App_Code/ClsTransportes.vb b/App_Code/ClsTransportes.vb index 57e0f982c..46f930bfe 100644 --- a/App_Code/ClsTransportes.vb +++ b/App_Code/ClsTransportes.vb @@ -14,8 +14,7 @@ Public Class ClsTransportes Private Data As DataTable Private DSet As New DataSet - Private disposedValue As Boolean = False ' Para detectar llamadas redundantes - 'REGISTRAR CONEXIÓN + Private disposedValue As Boolean = False Private CveConexion As Integer = 0 Public ReadOnly Property DtResultados() As DataTable Get @@ -164,7 +163,6 @@ Public Class ClsTransportes Return Retorno End Function - Public Function GetViajes(CveViaje As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -194,34 +192,6 @@ Public Class ClsTransportes Return Retorno End Function - 'Public Function AddViajePasajero(CveRuta As Integer, CveAF As Integer, CvePersonal As Integer, CveEmpresa As Integer, Fecha As DateTime, CvePartida As Integer, CveDestino As Integer, Optional IsMasivo As Boolean = False, Optional CveMasivo As Integer = -1) As Integer - ' Dim Retorno As Integer = -1 - - ' DataAdapter("PA_Trans_ViajesAdd") - - ' With SqlAdapter.SelectCommand.Parameters - ' .Add("@CveViaje", SqlDbType.Int).Direction = ParameterDirection.Output - ' .Add("@CveRuta", SqlDbType.Int).Value = CveRuta - ' .Add("@CveAF", SqlDbType.Int).Value = CveAF - ' .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal - ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - ' .Add("@Fecha", SqlDbType.DateTime).Value = Fecha - ' .Add("@CvePartida", SqlDbType.Int).Value = CvePartida - ' .Add("@CveDestino", SqlDbType.Int).Value = CveDestino - ' .Add("@IsMasivo", SqlDbType.Bit).Value = IsMasivo - ' .Add("@CveMasivo", SqlDbType.Int).Value = CveMasivo - ' End With - - ' Try - ' SqlAdapter.Fill(Data) - ' Retorno = CInt(SqlAdapter.SelectCommand.Parameters("@CveViaje").Value.ToString) - - ' Catch ex As Exception - ' OnError("Ocurrió un error al guardar el nuevo viaje.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - ' End Try - - ' Return Retorno - 'End Function Public Function RemoveViaje(Optional CveViaje As Integer = -1, Optional CveMasivo As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -271,42 +241,45 @@ Public Class ClsTransportes #End Region #Region "Boletos" - Public Function AddViajePasajeros(CveViaje As Integer, CveDestinoOrigen As Integer, CveDestinoFinal As Integer, Importe As Decimal, Asiento As Integer, Nombre As String, Visa As String, Celular As String, Sexo As Boolean, Observacion As String, CveUsuario As Integer) As Integer + Public Function AddViajesPasajeros(CveViaje As Integer, CveDestinoOrigen As Integer, CveDestinoFinal As Integer, Importe As Decimal, Asiento As Integer, Nombre As String, Visa As String, Celular As String, Sexo As Boolean, Observacion As String, CveUsuario As Integer) As Integer Dim Retorno As Integer = -1 - DataAdapter("PA_Trans_ViajesPasajerosAdd") + DataAdapter("PA_Trans_ViajesAdd") + With SqlAdapter.SelectCommand.Parameters .Add("@CveViajePasajero", SqlDbType.Int).Direction = ParameterDirection.Output .Add("@CveViaje", SqlDbType.Int).Value = CveViaje .Add("@CveDestinoOrigen", SqlDbType.Int).Value = CveDestinoOrigen .Add("@CveDestinoFinal", SqlDbType.Int).Value = CveDestinoFinal - .Add("@Importe", SqlDbType.SmallMoney).Value = Importe - .Add("@Asiento", SqlDbType.TinyInt).Value = Asiento + .Add("@Importe", SqlDbType.Money).Value = Importe + .Add("@Asiento", SqlDbType.Int).Value = Asiento .Add("@Nombre", SqlDbType.VarChar).Value = Nombre .Add("@Visa", SqlDbType.VarChar).Value = Visa .Add("@Celular", SqlDbType.VarChar).Value = Celular .Add("@Sexo", SqlDbType.Bit).Value = Sexo .Add("@Observacion", SqlDbType.VarChar).Value = Observacion - .Add("@Estatus", SqlDbType.Bit).Value = 1 .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + End With + Try SqlAdapter.Fill(Data) Retorno = CInt(SqlAdapter.SelectCommand.Parameters("@CveViajePasajero").Value.ToString) + Catch ex As Exception - OnError("Ocurrió un error al guardar el nuevo boleto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + OnError("Ocurrió un error al guardar el nuevo viaje.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try Return Retorno End Function - Public Function GetViajesPasajeros(CveViaje As Integer, Optional CveViajePasajero As Integer = 0) As Boolean + Public Function GetViajesPasajeros(CveViaje As Integer, Optional CveViajePasajero As Integer = 0, Optional Estatus As Boolean = False) As Boolean Dim Retorno As Boolean = False - DataAdapter("[PA_Trans_ViajesPasajerosGet]") - If CveViajePasajero <> 0 Then + DataAdapter("PA_Trans_ViajesPasajerosGet") + If Estatus = True Then With SqlAdapter.SelectCommand.Parameters .Add("@CveViaje", SqlDbType.Int).Value = CveViaje - .Add("@CveViajePasajero", SqlDbType.Int).Value = CveViajePasajero + .Add("@Estatus", SqlDbType.Bit).Value = Estatus End With Else With SqlAdapter.SelectCommand.Parameters @@ -318,11 +291,31 @@ Public Class ClsTransportes SqlAdapter.Fill(Data) Retorno = True Catch ex As Exception - OnError("Ocurrió un error al obtener el catálogo de viajes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al obtener el catálogo de boletos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return Retorno End Function + Public Function UpdateViajesPasajeros(CveViajePasajero As Integer, Optional Estatus As Boolean = True, Optional Activar As Boolean = False) As Boolean + + If Activar Then + Dim Retorno As Boolean = False + DataAdapter("PA_Trans_ViajesPasajerosUpdate") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveViajePasajero", SqlDbType.Int).Value = CveViajePasajero + .Add("@Estatus", SqlDbType.Int).Value = Estatus + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar el boleto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End If + End Function #End Region #Region "Tarifas" diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 45d5cbd21..e545a9329 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -1976,7 +1976,7 @@ Public Class ClsVentas Return Retorno End Function - Public Function AddPrecioLista(CveUsuario As Integer, CveEmpresa As Integer, PrecioLista As String, Predeterminada As Boolean, Porcentaje As Double) As Integer + Public Function AddPrecioLista(CveUsuario As Integer, CveEmpresa As Integer, PrecioLista As String, Predeterminada As Boolean, Porcentaje As Double, Optional CvePrecioListaClonar As Integer = -1) As Integer Dim Retorno As Integer = -1 DataAdapter("PA_Vta_PrecioListaAdd") @@ -1987,6 +1987,7 @@ Public Class ClsVentas .Add("@PrecioLista", SqlDbType.VarChar).Value = PrecioLista .Add("@Porcentaje", SqlDbType.SmallMoney).Value = Porcentaje .Add("@Predeterminada", SqlDbType.Bit).Value = Predeterminada + .Add("@CvePrecioListaClonar", SqlDbType.Int).Value = CvePrecioListaClonar .Add("@CvePrecioLista", SqlDbType.Int).Direction = ParameterDirection.Output End With diff --git a/Planeacion/CatSubProyectos.aspx b/Planeacion/CatSubProyectos.aspx index 677baa2bc..d308ceb0d 100644 --- a/Planeacion/CatSubProyectos.aspx +++ b/Planeacion/CatSubProyectos.aspx @@ -402,8 +402,11 @@ -
- +
+ +
@@ -449,7 +452,7 @@
- done_all Guardar + done_all Guardar diff --git a/Planeacion/CatSubProyectos.aspx.vb b/Planeacion/CatSubProyectos.aspx.vb index ad3b00a41..3df377a95 100644 --- a/Planeacion/CatSubProyectos.aspx.vb +++ b/Planeacion/CatSubProyectos.aspx.vb @@ -92,6 +92,11 @@ Partial Class CatSubProyectos DivSegmentoNegocio.Visible = True End If BtnGuardar.OnClientClick = $"ValidaGuardar();" + + If UsuarioActual.Empresa.Funcionalidad(404) = "20" Then + DVModalPrecioLista.Visible = True + End If + End If End Sub @@ -285,6 +290,9 @@ Partial Class CatSubProyectos End Sub Public Sub Edit_Click(sender As Object, e As EventArgs) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + + Tab.ActiveTabIndex = 0 + CveCentroCosto = (GvRow.DataKey("CveSubProyecto")).ToEntero HdnModalidad.Value = "U" TxtCentroCosto.Text = (GvRow.DataKey("SubProyecto")) diff --git a/Transportes/Boletos.aspx b/Transportes/Boletos.aspx index d4348a7bb..3e88cdcee 100644 --- a/Transportes/Boletos.aspx +++ b/Transportes/Boletos.aspx @@ -23,12 +23,12 @@ text-align: center; } - .disponible:hover { + .disponible:hover,.disponible.activo { background-color: #45b6af; color: #fff; } - .disponible.activo { + { background-color: #45b6af; color: #fff; } @@ -49,17 +49,21 @@ color: #fff; } - .chofer { - align-items: center; - text-align: center; - background-color: #BFBFBF; + .btnChofer { width: 45px; height: 45px; - border-radius: 10px !important; - margin: 5px; - cursor: pointer; - color: black; + border: 1px solid black; + text-align: center; + color: black } + .btnChofer a{ + color:#2C3E50; + } + + + .btnChofer:hover { + background-color: #E1E5EC; + } @@ -218,8 +222,8 @@ - diff --git a/Transportes/Boletos.aspx.vb b/Transportes/Boletos.aspx.vb index be6acd722..78f70a3a2 100644 --- a/Transportes/Boletos.aspx.vb +++ b/Transportes/Boletos.aspx.vb @@ -65,7 +65,7 @@ Partial Class Boletos TxtFecha.Text = ObjViaje.Fecha.ToShortDateString 'Boletos Vendidos Dim dt As DataTable - If ObjViaje.GetViajesPasajeros(CveViaje) Then + If ObjViaje.GetViajesPasajeros(CveViaje, Estatus:=True) Then 'Poner párametro para estatus y cancelado de viajes dt = ObjViaje.DtResultados Dim cph As ContentPlaceHolder = CType(Me.Master.FindControl("C"), ContentPlaceHolder) For Each dr As DataRow In dt.Rows @@ -138,7 +138,6 @@ Partial Class Boletos linkButton.CssClass += " activo" AsientoSeleccionado = buttonID End Sub - Protected Sub AddBoleto(sender As Object, e As EventArgs) If AsientoSeleccionado = "" Then @@ -151,7 +150,7 @@ Partial Class Boletos Try AsientoSeleccionado = AsientoSeleccionado.Replace("A", "") - Dim retorno As Integer = ObjTransporte.AddViajePasajeros(CveViaje, DdlPartida.SelectedValue.ToEntero, DdlDestino.SelectedValue.ToEntero, Importe, AsientoSeleccionado.ToEntero, TxtNombre.Text, TxtVisa.Text, TxtCelular.Text, CBool(RblSexo.SelectedValue), TxtObservaciones.Text, UsuarioActual.CveUsuario) + Dim retorno As Integer = ObjTransporte.AddViajesPasajeros(CveViaje, DdlPartida.SelectedValue.ToEntero, DdlDestino.SelectedValue.ToEntero, Importe, AsientoSeleccionado.ToEntero, TxtNombre.Text, TxtVisa.Text, TxtCelular.Text, CBool(RblSexo.SelectedValue), TxtObservaciones.Text, UsuarioActual.CveUsuario) If retorno > 1 Then ObjTransporte.Commit() diff --git a/Transportes/ListadoBoletos.aspx b/Transportes/ListadoBoletos.aspx index a429e8630..e8f178dbb 100644 --- a/Transportes/ListadoBoletos.aspx +++ b/Transportes/ListadoBoletos.aspx @@ -10,7 +10,6 @@ .my-1 { margin-block: 1rem; } - @@ -38,7 +37,7 @@ - + @@ -76,10 +75,10 @@ - + data-toggle="confirmation" data-popout="true" data-original-title='<%# If(Eval("Estatus").ToString = "True", "Cancelar Boleto", "Reactivar") %>' + data-btn-ok-label="si" OnClick="ToggleViajesPasajeros" /> @@ -88,7 +87,7 @@ - + diff --git a/Transportes/ListadoBoletos.aspx.vb b/Transportes/ListadoBoletos.aspx.vb index 0addc5160..dad0c525d 100644 --- a/Transportes/ListadoBoletos.aspx.vb +++ b/Transportes/ListadoBoletos.aspx.vb @@ -1,5 +1,6 @@ Option Explicit On Option Strict On +Imports ADSNetLibrary.Helpers Imports ADSNetLibrary.SIGAPI.Helpers Imports Extensiones.ModExtensiones @@ -40,4 +41,28 @@ Partial Class ListadoBoletos End If End Sub + Protected Sub ToggleViajesPasajeros(sender As Object, e As EventArgs) + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + Dim CveViajePasajero As String = GvRow.DataKey("CveViajePasajero") + Dim Estatus As String = GvRow.DataKey("Estatus") + Dim cambiarEstatus As Boolean = Not Estatus.ToBool + Dim ObjTransportes As New ClsTransportes + + Try + ObjTransportes.IniciaTransacSQL() + If ObjTransportes.UpdateViajesPasajeros(CveViajePasajero.ToEntero, Activar:=True, Estatus:=cambiarEstatus) Then + Alert("El boleto ha sido cancelado correctamente.") + End If + ObjTransportes.Commit() + + Catch ex As Exception + ObjTransportes.RollBack() + Alert($"No se pudo cambiar el estatus del boleto {ex}", TipoMensaje.MsgError) + Finally + ObjTransportes.Dispose() + CargaDatos() + End Try + + End Sub + End Class \ No newline at end of file diff --git a/Transportes/ListadoViajes.aspx.vb b/Transportes/ListadoViajes.aspx.vb index 83208732e..9aa5d7bfe 100644 --- a/Transportes/ListadoViajes.aspx.vb +++ b/Transportes/ListadoViajes.aspx.vb @@ -6,6 +6,16 @@ Imports Extensiones.ModExtensiones Partial Class ListadoViajes Inherits ClsPaginas +#Region "Propiedades" + Private Property CveViaje As String + Get + Return ViewState("CveViaje").ToString() + End Get + Set(value As String) + ViewState("CveViaje") = value + End Set + End Property +#End Region Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then @@ -155,11 +165,11 @@ Partial Class ListadoViajes DdlDestino.SelectedValue = "" End If Else - Dim id As Integer = Convert.ToInt32(Request.QueryString("CveViaje")) - If ObjTransportes.UpdateViajes(id, DdlRutas.Text.ToEntero, DdlTransporte.Text.ToEntero, DdlChofer.Text.ToEntero, UsuarioActual.CveEmpresa, TxtFechaViaje.Text.ToDate, DdlPartida.Text.ToEntero, DdlDestino.Text.ToEntero) = True Then + If ObjTransportes.UpdateViajes(CveViaje.ToEntero, DdlRutas.Text.ToEntero, DdlTransporte.Text.ToEntero, DdlChofer.Text.ToEntero, UsuarioActual.CveEmpresa, TxtFechaViaje.Text.ToDate, DdlPartida.Text.ToEntero, DdlDestino.Text.ToEntero) = True Then Alert("El viaje se modificó correctamente.", TipoMensaje.MsgInformacion) ObjTransportes.Commit() + CargaDatos() End If End If Catch ex As Exception @@ -181,6 +191,8 @@ Partial Class ListadoViajes DdlDestino.SelectedValue = GvRow.DataKey("CveDestino") DdlPartida.SelectedValue = GvRow.DataKey("CvePartida") DdlChofer.SelectedValue = GvRow.DataKey("CvePersonal") + ViewState("CveViaje") = GvRow.DataKey("CveViaje") + Page.Response.Write("") Dim fecha As DateTime If DateTime.TryParse(GvRow.DataKey("Fecha").ToString, fecha) Then diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index 11f2289ba..b9ecb78d0 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -735,6 +735,9 @@
+
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index e1d1ad26f..7f0855a70 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -2,6 +2,7 @@ Option Strict On Imports System.Data +Imports System.Data.SqlClient Imports System.Globalization Imports System.IO Imports System.Net @@ -12,9 +13,9 @@ Imports Newtonsoft.Json Imports Newtonsoft.Json.Linq Partial Class Clientes - Inherits ClsPaginas - - 'Configuración + Inherits ClsPaginas + + 'Configuración #Region "P R O P I E D A D E S" Private Const NumeroDecimales As Integer = 2 Private CveVentaDeduccion As Integer @@ -455,13 +456,13 @@ Partial Class Clientes Set(value As DateTime) ViewState("FechaIngLineaAdicional") = value End Set - End Property - - - - + End Property + + + + #End Region - + #Region "Documentacion" Private Property DTDocumentacion As DataTable Get @@ -586,24 +587,24 @@ Partial Class Clientes Set(value As Integer) ViewState("CveVendedorOriginal") = value End Set - End Property - - - - 'Private ReadOnly Property CvePersonal As Integer - ' Get - ' If ViewState("CvePersonal") Is Nothing Then - ' Return -1 - ' Else - ' Return ViewState("CvePersonal").ToString().Toentero() - ' End If - ' End Get - 'End Property - + End Property + + + + 'Private ReadOnly Property CvePersonal As Integer + ' Get + ' If ViewState("CvePersonal") Is Nothing Then + ' Return -1 + ' Else + ' Return ViewState("CvePersonal").ToString().Toentero() + ' End If + ' End Get + 'End Property + #End Region - - - + + + #Region " A C U M U L A D O R E S" Property CveVentaNota As Integer Get @@ -643,10 +644,23 @@ Partial Class Clientes Set(value As String) ViewState("SerieNotaAcumulador") = value End Set - End Property - + End Property + #End Region - + Property CvePrecioListaOriginal As Integer + Get + If ViewState("CvePrecioListaOriginal") Is Nothing Then + Return 0 + Else + Return ViewState("CvePrecioListaOriginal").ToString().ToEntero() + End If + End Get + Set(value As Integer) + ViewState("CvePrecioListaOriginal") = value + End Set + End Property + + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then @@ -911,12 +925,12 @@ Partial Class Clientes ChkPermiso5.Enabled = False ChkPermiso6.Enabled = False - End Sub - - - + End Sub + + + #Region " PERMISOS PAGINAS " - + Private Sub MostrarTxtDireccionesClienteEnvio() If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then @@ -953,15 +967,15 @@ Partial Class Clientes If Not ChkEsDistribuidor.Checked Then BtnGuardar.Visible = PermiteEditar() End If - End Sub - - + End Sub + + #End Region - - + + #Region "C A R G A S" - - + + Private Sub CreaDtPago() DtPagos = New DataTable DtPagos.Columns.Add("CveTipoMovimiento", GetType(String)) @@ -1132,9 +1146,9 @@ Partial Class Clientes Select Case HdnCuenta.Value Case "1" - CargaDdlCuentasContables(DdlCtaContableClientes, 1)'UsuarioActual.Empresa.Funcionalidad(246).Toentero() + CargaDdlCuentasContables(DdlCtaContableClientes, 1)'UsuarioActual.Empresa.Funcionalidad(246).Toentero() Case "2" - CargaDdlCuentasContables(DdlCtaContableAnticipos, 1)' UsuarioActual.Empresa.Funcionalidad(237).Toentero() + CargaDdlCuentasContables(DdlCtaContableAnticipos, 1)' UsuarioActual.Empresa.Funcionalidad(237).Toentero() Case "3" CargaDdlCuentasContables(DdlCtaContableRetIVA, -1) Case "4" @@ -1142,11 +1156,11 @@ Partial Class Clientes Case "5" CargaDdlCuentasContables(DdlCtaContableFondoGarantia, -1) Case "6" - CargaDdlCuentasContables(DdlCtaContableCompClientes, 1)'UsuarioActual.Empresa.Funcionalidad(248).Toentero() + CargaDdlCuentasContables(DdlCtaContableCompClientes, 1)'UsuarioActual.Empresa.Funcionalidad(248).Toentero() Case "7" CargaDdlCuentasContables(DdlCtaContableCompAnticipos, -1) Case "8" - CargaDdlCuentasContables(DdlMonedaExtranjeraClientes, 1)'UsuarioActual.Empresa.Funcionalidad(247).Toentero() + CargaDdlCuentasContables(DdlMonedaExtranjeraClientes, 1)'UsuarioActual.Empresa.Funcionalidad(247).Toentero() Case "9" CargaDdlCuentasContables(DdlMonedaExtranjeraAnticipos, 1) 'UsuarioActual.Empresa.Funcionalidad(542).Toentero() End Select @@ -1231,7 +1245,7 @@ Partial Class Clientes End If - + UpDatos.Update() End Sub @@ -1452,7 +1466,8 @@ Partial Class Clientes TxtNotificar.Text = ObjClientes.NotificarA TxtPagina.Text = ObjClientes.Pagina 'TxtGiro.Text = ObjClientes.Giro - DdlPrecioLista.SelectedValue = ObjClientes.CvePrecioLista.ToString() + DdlPrecioLista.SelectedValueExist(ObjClientes.CvePrecioLista.ToString()) + CvePrecioListaOriginal = ObjClientes.CvePrecioLista TxtCC.Text = ObjClientes.NotificarA ChkMail.Checked = ObjClientes.EnviarFactura @@ -1997,11 +2012,11 @@ Partial Class Clientes DdlSucursalUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica, RegimenFiscalReceptor:=RegimenFiscalCliente) DdlSucursalUsoCFDI.DataBind() UpFiscalContable.Update() - End Sub + End Sub #End Region - + #Region "V E R M Á S" - + Protected Sub BtnVerMasVentas_Click(sender As Object, e As EventArgs) If BtnVerMasVentas.Text = "Ver Más" Then CargaHistorial(-1) @@ -2031,12 +2046,12 @@ Partial Class Clientes CargaBancos(51) BtnVerMasBancos.Text = "Ver Más" End If - End Sub - + End Sub + #End Region - + #Region "B A N C O S" - 'CuentasxCobrar Activas (Pagos Recibidos) + 'CuentasxCobrar Activas (Pagos Recibidos) Private Sub CargaBancos(Optional SelectTop As Integer = 51, Optional CveClienteSucursal As Integer = -1) Dim ObjMovtos As New ClsMovimientos() 'CxC Activas @@ -2106,9 +2121,9 @@ Partial Class Clientes TxtParaMail.Text = TxtCobranzaCorreo.Text UpSendMail.Update() RegistraScript("$('#ModalDivMail').modal('show');") - End Sub + End Sub #End Region - + #Region "B T N ´ S" Protected Sub BtnEliminar_Click(sender As Object, e As System.EventArgs) Handles BtnEliminar.Click Dim ObjClientes As New ClsClientes() @@ -2483,7 +2498,7 @@ Partial Class Clientes Dim FechaLimiteCredito As Date = If(TxtFechaLimiteCredito.Text.Trim.Length > 0, TxtFechaLimiteCredito.Text.ToDate, New Date(1900, 1, 1)) Dim GeneroCliente As Boolean = If(DdlGeneroCliente.SelectedValue.ToEntero = 1 Or DdlGeneroCliente.SelectedValue.ToEntero = -1, True, False) - Dim CvePrecioLista As Integer = DdlPrecioLista.SelectedValue.ToEntero() + 'If DivCrearPrecioLista.Visible AndAlso ChkCrearPrecioLista.Checked Then ' CvePrecioListaNuevo = ObjVentas.AddPrecioLista(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtPrecioLista.Text, 0) @@ -2494,6 +2509,17 @@ Partial Class Clientes ' End If 'End If + If Not ErrorProceso AndAlso UsuarioActual.Empresa.Funcionalidad(404).Contiene("10", "30") Then + If DdlPrecioLista.SelectedValue.ToEntero.Contiene(-2, -3) Then + If Not AsignaLista(ObjClientes.IniciaTransacSQL) Then + ErrorProceso = True + Alert("Error al generar lista de precios.", TipoMensaje.MsgAdvertencia) + End If + End If + End If + + Dim CvePrecioLista As Integer = DdlPrecioLista.SelectedValue.ToEntero() + If Not ErrorProceso Then 'VERIFICA SI ES CLIENTE NUEVO O ACTUALIZACION If Me.CveCliente = -1 Then @@ -2614,6 +2640,7 @@ Partial Class Clientes If ErrorProceso Then ObjClientes.RollBack() + CargaPrecioLista() Alert("Ocurrió un error al guardar.", TipoMensaje.MsgError) Else ObjClientes.Commit() @@ -2694,11 +2721,11 @@ Partial Class Clientes End If End If - End Sub - + End Sub + #End Region - - + + #Region "G L O B L A L" Private Sub RecargaGlobal() @@ -2707,10 +2734,10 @@ Partial Class Clientes Private Sub GeneraGlobalDT() GlobalDTCliente(UsuarioActual.CveEmpresa) = Nothing - End Sub + End Sub #End Region - - + + #Region "G R I D V I E W S" Protected Sub GVHistorial_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVHistorial.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then @@ -2851,11 +2878,11 @@ Partial Class Clientes End If End If - End Sub + End Sub #End Region - + #Region "R H" - + Private Sub CargaPersonalAsignado() Dim ObjPersonal As New ClsRH If ObjPersonal.GetPersonal(-1, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, CveCliente, "-1", -1, -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) Then @@ -2928,9 +2955,9 @@ Partial Class Clientes End If End If - End Sub + End Sub #End Region - + #Region "S U C U R S A L E S" Private Sub LbAgregarSucursal_Click(sender As Object, e As EventArgs) Handles LbAgregarSucursal.Click ChkEstatusSucursal.Checked = True @@ -3062,7 +3089,7 @@ Partial Class Clientes UpModalDivMapa.Update() - End Sub + End Sub #Region "G V S U C U R S A L E S" Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVSucursales.RowDataBound @@ -3184,9 +3211,9 @@ Partial Class Clientes Else CargaGrid("", 0) End If - End Sub + End Sub #End Region - + #Region "G V U S U A R I O S P O R T A L" Protected Sub GvUsuariosPortal_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GvUsuariosPortal.RowCommand If e.CommandName = "RestablecerContraseña" Then @@ -3338,9 +3365,9 @@ Partial Class Clientes CargaGrid("", 1) End If - End Sub + End Sub #End Region - + #Region "O R D E N A M I E N T O" Private Sub CargaGrid(Orden As String, gvi As Integer) If gvi = 0 Then @@ -3372,12 +3399,12 @@ Partial Class Clientes UPPUsuarios.Update() End If - End Sub + End Sub #End Region - - + + #End Region - + #Region "U S U A R I O S" Protected Sub LbSolicitudPortal_Click(sender As Object, e As EventArgs) Handles LbEnviarActivacionPortal.Click Dim ObjUsuario As New ClsSisUsuarios @@ -3559,9 +3586,9 @@ Partial Class Clientes ChkPermiso5.Checked = False ChkPermiso6.Checked = False ChkPermiso7.Checked = False - End Sub + End Sub #End Region - + #Region "E V E N T O - B I T A C O R A" Protected Sub GVEventoBitacora_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEB.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then @@ -5216,9 +5243,9 @@ Partial Class Clientes End If Return Retorno - End Function + End Function #End Region - + #Region "GPS" Protected Sub btnCargaArrayDisp_Click(sender As Object, e As EventArgs) Handles btnCargaArrayDisp.Click If hdnArrayDispositivo.Value.Length > 0 Then @@ -5359,10 +5386,10 @@ Partial Class Clientes UpMoverDispositivo.Update() RegistraScript($"CargaModalMoverDispositivo({GvRow.DataKey("CveDispositivo")});") - End Sub - + End Sub + #End Region - + #Region "Sucursales" Public Sub CreaDTSucursales() @@ -5653,14 +5680,14 @@ Partial Class Clientes End If UpDatos.Update() - End Sub - + End Sub + #End Region - + #Region "G P S" - - - + + + Private Sub EnviaCorreoGPS(Liga As String, LigaActivar As String) Try @@ -5731,16 +5758,16 @@ Partial Class Clientes End If ObjClientes.Dispose() - End Sub - - + End Sub + + #End Region - + #Region "C O N T R A T O S" - - - - + + + + Private Sub CargaDatosContrato() If CveCliente <= 0 Then Exit Sub @@ -5785,10 +5812,10 @@ Partial Class Clientes e.Row.CssClass = "Totales white" End If End If - End Sub - + End Sub + #End Region - + #Region "M E T O D O S " Protected Sub RblTipo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipo.SelectedIndexChanged If DTHistorialVentas IsNot Nothing AndAlso RblTipo.SelectedValue <> "-1" Then @@ -6172,12 +6199,12 @@ Partial Class Clientes Else Alert("No hay saldo pendiente del cliente. Por lo cual no se envió el mensaje.", TipoMensaje.MsgInformacion) End If - End Sub - + End Sub + #End Region - + #Region "IMPRIMIR GVHistorial" - Protected Sub BtnExcelHistorial_Click(sender As Object, e As EventArgs) + Protected Sub BtnExcelHistorial_Click(sender As Object, e As EventArgs) Dim retorno As Byte() = Nothing Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim logouri As String = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) @@ -6251,18 +6278,18 @@ Partial Class Clientes ObjClientes.Dispose() Return retorno - End Function - - + End Function + + #End Region - + #Region "C O B R A N Z A" Public Sub Visitas_Click(sender As Object, e As EventArgs) RegistraScript(String.Format("$('#{0}').modal();", "DivVisitas")) - End Sub - + End Sub + #End Region - + #Region "Usuarios" Protected Sub GvUsuarios_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvUsuarios.RowDeleting Dim CveUsuario As Integer = GvUsuarios.Rows(e.RowIndex).DataKey("CveUsuario").ToEntero() @@ -6298,12 +6325,12 @@ Partial Class Clientes e.Row.Cells(5).Visible = False End If End If - End Sub + End Sub #End Region - - + + #Region "C U E N T A S - B A N C A R I A S" - + Private Sub CargaCuentasBancarias(Optional RecargaGlobal As Boolean = False) If CveCliente <= 0 Then Exit Sub @@ -6475,8 +6502,8 @@ Partial Class Clientes TxtNumeroCuenta2.Text = "" TxtConvenioCIE2.Text = "" TxtReferencia2.Text = "" - End Sub - + End Sub + #Region "GRIDVIEW - CUENTAS BANCARIAS" Protected Sub GvBancosCuentas_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvBancosCuentas.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then @@ -6527,10 +6554,10 @@ Partial Class Clientes GlobalDTCuentasDepositosClientes(UsuarioActual.CveEmpresa, -1) = Nothing End If - End Sub - + End Sub + #End Region - + Private Sub CargaPSGridCuentasBancos() If CveCliente > 0 Then GvBancosCuentas.DataSource = DTCuentasBancos @@ -6584,9 +6611,9 @@ Partial Class Clientes divestatus.Visible = True UpAddBancos.Update() RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddCuentasBancarias")) - End Sub + End Sub #End Region - + #Region "C L I E N T E S P A G O S R E A L I Z A D O S I M P R I M I R P D F/Excel" Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkPagosClientesBancosExcel.Click GenerarPDF("Excel") @@ -6608,11 +6635,11 @@ Partial Class Clientes ImprimirPDF("Empresas\Grales\Formatos\RepClientesPagosBancos.rdlc", DTCobrosRealizados, params, "RepClientesPagosBancos_" & NowADS().ToString("yyyyMMddhhmmss"), Formato:=Formato) - End Sub + End Sub #End Region - + #Region "VENTAS" - + Public Function imprimirFacturaVenta(CveVenta As Integer) As Byte() Dim ObjVentas As New ClsVentas Dim Vta As Modelos.Factura = Nothing @@ -6843,10 +6870,10 @@ Partial Class Clientes ObjVentas.Dispose() Return PdfFactura(Vta) - End Function - + End Function + #End Region - + #Region "COMERCIO EXTERIOR" Public Sub CargaCombosComercioExterior() @@ -6970,12 +6997,12 @@ Partial Class Clientes End Sub Protected Sub DdlMunicipio_SelectedIndexChanged(sender As Object, e As EventArgs) CargaColonia() - End Sub - + End Sub + #End Region - + #Region "D O C U M E N T A C I O N " - + Private Sub CargaDocumentacionCliente() Dim objRH As New ClsEdocumentacion() @@ -7577,12 +7604,12 @@ Partial Class Clientes RegistraScript("Download('" & baseUrl & "')") - End Sub - + End Sub + #End Region - + #Region "D O C U M E N T O S V E N T A S" - + Private Sub CargaDocumentosVenta(tCveCliente As Integer) Dim objInv As New ClsEdocumentacion @@ -7750,11 +7777,11 @@ Partial Class Clientes objRH.Dispose() - End Sub - - + End Sub + + #End Region - + #Region "PERSONA FISICA" Protected Sub LnkPersonaFisica_Click(sender As Object, e As EventArgs) RegistraScript("$('#DivModalPersonaFisica').modal();") @@ -7779,9 +7806,9 @@ Partial Class Clientes ObjCliente.Dispose() UpDatos.Update() - End Sub + End Sub #End Region - + #Region "USUARIOS PLATAFORMA CLIENTE - 6 " Protected Sub CargaUsuariosPortalCliente() Dim objUsuario As ClsSisUsuarios = New ClsSisUsuarios @@ -7790,19 +7817,19 @@ Partial Class Clientes GvUsuarios.DataBind() End If objUsuario.Dispose() - End Sub + End Sub #End Region - + #Region " DEVOLVER DINERO ANT/NC " Private Sub InicializaDevolverDinero() If UsuarioActual.TienePermisoProceso(247) Then GVAnticipos.Columns(6).Visible = True End If - End Sub + End Sub #End Region - + #Region "MODAL GRAFICA/PEDIDOS" - + Protected Sub LnkVerGrafica_Click(sender As Object, e As EventArgs) If CargaDatatables() Then RegistraScript("$('#DivModalGrafica').modal('show')") @@ -8139,13 +8166,13 @@ Partial Class Clientes RegistraScript($"CargaGraficaCompratamientoSaldoMensual({Dt5.ToJson},{Dt6.ToJson.Replace($"{Chr(34)}True{Chr(34)}", "true").Replace($"{Chr(34)}False{Chr(34)}", "false")})", "55") UPModalProd.Update() - End Sub - - + End Sub + + #End Region - + #Region "TAB - COMPORTAMIENTO DE VENTAS" - + Private Sub CargaGrupo() DdlGrupo.Items.Insert(0, New ListItem("Categoria", "3")) DdlGrupo.Items.Insert(1, New ListItem("Clasificacion", "4")) @@ -8262,12 +8289,12 @@ Partial Class Clientes ObjVentas.Dispose() GvComportamientoVenta.DataBind() UpDatosComportamientoVenta.Update() - End Sub - + End Sub + #End Region - + #Region "DISPOSITIVOS" - + Protected Sub LnkMoverDispositivo_Click(sender As Object, e As EventArgs) Dim CveDispositivo As Integer = HdnCveDispositivoMover.Value.ToEntero() Dim CveCliente As Integer = DdlClienteDispositivo.SelectedValue.ToEntero() @@ -8305,10 +8332,10 @@ Partial Class Clientes CargaEventoBitacora() NombreDispositivo = "" RegistraScript("$('#DivMoverDispositivo').modal('hide');") - End Sub - + End Sub + #End Region - + #Region "CRM" Protected Sub CargaDatosCRM() Dim ObjCRM As New ClsCRM() @@ -8408,9 +8435,9 @@ Partial Class Clientes Alert("Se Unificó correctamente al Cliente con la Empresa CRM.") End If End If - End Sub + End Sub #End Region - + #Region "PORCENTAJE PRECIO DE MARCAS" Private Sub LnkPorcentajeMarcas_Click(sender As Object, e As EventArgs) Handles LnkPorcentajeMarcas.Click RegistraScript(String.Format("$('#{0}').modal();", "DivPorcentajeMarcas")) @@ -8635,9 +8662,9 @@ Partial Class Clientes ObjPS.Dispose() - End Sub + End Sub #End Region - + #Region "PORCENTAJE PRECIO DE PRODUCTOS" Private Sub LnkPorcentajePrecios_Click(sender As Object, e As EventArgs) Handles LnkPorcentajePrecios.Click RegistraScript(String.Format("$('#{0}').modal();", "DivPorcentajePrecios")) @@ -9509,11 +9536,11 @@ Partial Class Clientes ' ObjFactura.Timbre = PreParaTimbre(ObjFactura) - End Sub - - + End Sub + + #End Region - + #Region "C L I E N T E S G R I D S I M P R I M I R P D F/Excel" Private Sub LnkCotizacionesPDF_Click(sender As Object, e As EventArgs) Handles LnkCotizacionesPDF.Click ImprimeGridsProveedores("PDF", DtCotizaciones, "RepClientesCotizaciones") @@ -9582,7 +9609,7 @@ Partial Class Clientes Alert("Puntuación Inicializada") End If Acum.Dispose() - End Sub + End Sub #End Region Protected Sub DdlTipoRetencion_SelectedIndexChanged(sender As Object, e As EventArgs) If UsuarioActual.Empresa.Funcionalidad(579) = "1" Then @@ -10300,25 +10327,75 @@ Partial Class Clientes RegistraScript("$('#DivAgregarPrecioLista').modal('show');") End Sub Protected Sub BtnGuardarPL_Click(sender As Object, e As EventArgs) - Dim ObjVentas As New ClsVentas() - Dim CvePrecioListaNuevo As Integer = ObjVentas.AddPrecioLista(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtPrecioLista.Text, False, 0) - If CvePrecioListaNuevo > 0 Then - Alert("La lista de precio se guardo correctamente") - RegistraScript("$('#DivAgregarPrecioLista').modal('hide');") + + LimpiaItemsListaPrecion() + + If DdlPrecioListaClonar.SelectedValue.ToEntero > 0 Then + DdlPrecioLista.Items.Add(New ListItem(TxtPrecioLista.Text, "-3")) + DdlPrecioLista.SelectedValueExist("-3") Else - Alert("Ocurrió un error al guardar la lista de precio", TipoMensaje.MsgError) + DdlPrecioLista.Items.Add(New ListItem(TxtPrecioLista.Text, "-2")) + DdlPrecioLista.SelectedValueExist("-2") + End If + + 'Alert("La lista de precio se guardo correctamente") + + UpDatos.Update() + + RegistraScript("$('#DivAgregarPrecioLista').modal('hide');") + + End Sub + + Private Sub LimpiaItemsListaPrecion() + + DdlPrecioLista.SelectedValue = Nothing + DdlPrecioLista.ClearSelection() + + For i As Integer = DdlPrecioLista.Items.Count - 1 To 0 Step -1 + If DdlPrecioLista.Items(i).Value.Contiene("-2", "-3") Then + DdlPrecioLista.Items.RemoveAt(i) + End If + Next + End Sub + + Private Function AsignaLista(ByRef transaccionSQL As SqlTransaction) As Boolean + + Dim respuesta As Boolean = True + Dim CvePrecioListaClonar As Integer = -1 + + If DdlPrecioLista.SelectedValue.ToEntero = -3 Then 'Clñonar + CvePrecioListaClonar = DdlPrecioListaClonar.SelectedValue.ToEntero + End If + + Dim ObjVentas As New ClsVentas(transaccionSQL) + Dim CvePrecioListaNuevo As Integer = ObjVentas.AddPrecioLista(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtPrecioLista.Text, False, 0, CvePrecioListaClonar:=CvePrecioListaClonar) + + If Not CvePrecioListaNuevo > 0 Then + respuesta = False End If 'RECARGA GLOBAL DE LISTA DE PRECIOS SI SE GENERO UNO NUEVO If CvePrecioListaNuevo > 0 Then + + GlobalDTPrecioListas(UsuarioActual.CveEmpresa) = Nothing + If ObjVentas.GetPrecioListas(UsuarioActual.CveEmpresa) Then + DdlPrecioLista.DataSource = ObjVentas.DtResultados + Else + DdlPrecioLista.DataSource = Nothing + End If - CargaPrecioLista() - + DdlPrecioLista.DataBind() + DdlPrecioLista.Items.Insert(0, New ListItem(" - ", "-1")) + 'CargaPrecioLista() DdlPrecioLista.SelectedValueExist(CvePrecioListaNuevo) End If UpDatos.Update() - End Sub + + Return respuesta + + End Function + End Class
- +