From 9ac23a717214cdc314f92173b688864dee1197cb Mon Sep 17 00:00:00 2001 From: rakcsle Date: Thu, 15 Feb 2024 08:29:30 -0700 Subject: [PATCH 1/5] MAquinaria correciones Horometro Diario y Cls PAginas --- App_Code/ClsPaginas.vb | 3 +-- MQ/HorometroDiario.aspx.vb | 14 +++++++++++++- MQ/TipoOrdenTrabajo.aspx.vb | 3 ++- 3 files changed, 16 insertions(+), 4 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index c16b91bb9..090a76161 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -10391,8 +10391,7 @@ Public Class ClsPaginas PaginaDict.Add("/MQ/OrdenTrabajo.aspx".ToUpper, 1412) PaginaDict.Add("/MQ/CatOrdenTrabajo.aspx".ToUpper, 1413) PaginaDict.Add("/MQ/HorometroDiario.aspx".ToUpper, 1414) - - PaginaDict.Add("/MQ/TipoOrdenTrabajo.aspx".ToUpper, -1) + PaginaDict.Add("/MQ/TipoOrdenTrabajo.aspx".ToUpper, 1415) #End Region #Region "Nomina" diff --git a/MQ/HorometroDiario.aspx.vb b/MQ/HorometroDiario.aspx.vb index d4c1749d1..7b4ca2a7b 100644 --- a/MQ/HorometroDiario.aspx.vb +++ b/MQ/HorometroDiario.aspx.vb @@ -2,6 +2,7 @@ Imports System.Data Imports System.Linq +Imports CrystalDecisions.Shared.Json Imports Extensiones Partial Class AF_HorometroDiario @@ -60,10 +61,21 @@ Partial Class AF_HorometroDiario Private Sub CargCombos() - DdlAF.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa) + Dim ObjActivosFijos As New ClsAF + + + If ObjActivosFijos.GetActivosFijos(-1, UsuarioActual.CveEmpresa, "-1", "-1", -1, -1, "-1", -1, -1, -1, -1, -1, "", -1) Then + DdlAF.DataSource = ObjActivosFijos.DtResultados.FiltraParametros(" MedidaVehicular in (2, 3) ") + Else + DdlAF.DataSource = Nothing + End If + + DdlAF.DataBind() + + DdlSubProyecto.Items.Clear() DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, CveEmpresa:=UsuarioActual.CveEmpresa) DdlSubProyecto.DataBind() diff --git a/MQ/TipoOrdenTrabajo.aspx.vb b/MQ/TipoOrdenTrabajo.aspx.vb index e734ff8f2..42f9edbfc 100644 --- a/MQ/TipoOrdenTrabajo.aspx.vb +++ b/MQ/TipoOrdenTrabajo.aspx.vb @@ -307,7 +307,7 @@ Partial Class MQ_TipoOrdenTrabajo GvMaterial.DataSource = DTMateriales Else - GvMaterial = Nothing + GvMaterial.DataSource = Nothing End If ObjAF.Dispose() @@ -1198,6 +1198,7 @@ Partial Class MQ_TipoOrdenTrabajo If ErrorProceso Then ObjAF.RollBack() + CveTipoServicio = -1 Else ObjAF.Commit() Alert("Tipo servicio guardado correctamente.", TipoMensaje.MsgInformacion) From 7acb70d0f3bcb51c115e7eae4828a1cd7110af2d Mon Sep 17 00:00:00 2001 From: AbrahamCastilloV Date: Thu, 15 Feb 2024 10:35:55 -0700 Subject: [PATCH 2/5] --Se cambia el formato de las consultas en RepContratos y RepContratosCalendarios. Se modifica de LinkButton a HyperLink para mandar a RepContratoDetalle. Se agregan columnas ocultas y modal para personalizar el gridview. --- Transportes/Boletos.aspx.vb | 66 ++--- Transportes/RepContratoDetalle.aspx | 7 +- Transportes/RepContratoDetalle.aspx.vb | 4 + Transportes/RepContratos.aspx | 289 ++++++++++++--------- Transportes/RepContratos.aspx.vb | 84 +----- Transportes/RepContratosCalendario.aspx | 213 ++++++++------- Transportes/RepContratosCalendario.aspx.vb | 86 +----- Transportes/RepViajes.aspx | 9 +- 8 files changed, 342 insertions(+), 416 deletions(-) diff --git a/Transportes/Boletos.aspx.vb b/Transportes/Boletos.aspx.vb index 11ca1db6b..c29ecdb22 100644 --- a/Transportes/Boletos.aspx.vb +++ b/Transportes/Boletos.aspx.vb @@ -1,5 +1,10 @@ -Imports System.Data +Option Explicit On +Option Strict On +Imports System.Data +Imports ADSNetLibrary.Helpers +Imports ADSNetLibrary.SIGAPI.Helpers Imports Extensiones +Imports Extensiones.ModExtensiones Partial Class Boletos Inherits ClsPaginas @@ -28,12 +33,13 @@ Partial Class Boletos ViewState("CveViaje") = value End Set End Property - Private Property CveRuta As Integer + + Private Property Contrato As DataTable Get - Return ViewState("CveRuta").ToString().ToEntero + Return CType(ViewState("Contrato"), DataTable) End Get - Set(value As Integer) - ViewState("CveRuta") = value + Set(value As DataTable) + ViewState("Contrato") = value End Set End Property #End Region @@ -44,7 +50,6 @@ Partial Class Boletos Response.Redirect("/Transportes/RepViajes.aspx") End If AsientoSeleccionado = "" - CveRuta = 0 CveViaje = Request.QueryString("CveViaje").ToEntero If CveViaje > 0 Then CargaDatos() @@ -55,43 +60,26 @@ Partial Class Boletos End Sub Private Sub CargaDatos() - 'Datos Viaje - Dim ObjViaje As New ClsTransportes - Dim retornoViaje As Boolean = ObjViaje.GetViajes(CveViaje, UsuarioActual.CveEmpresa) - - If retornoViaje AndAlso ObjViaje.CveViaje > 0 Then - CveRuta = ObjViaje.CveRuta - TxtRuta.Text = ObjViaje.Ruta - TxtFecha.Text = ObjViaje.Fecha.ToShortDateString - CargaDestinos() - 'Boletos Vendidos - Dim dt As DataTable - If ObjViaje.GetViajesPasajeros(CveViaje, Estatus:=1) 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 - Dim lnk As LinkButton = CType(cph.FindControl($"A{dr("Asiento")}"), LinkButton) - If lnk IsNot Nothing Then - lnk.Enabled = False - lnk.CssClass = "nodisponible" - lnk.ToolTip = dr("Nombre").ToString - End If - Next - End If + Dim ObjContratos As New ClsContratos + If ObjContratos.GetContratos(CveViaje, UsuarioActual.CveEmpresa) Then + Contrato = ObjContratos.DtResultados + Else + Response.Redirect($"~/Transportes/RepContratos.aspx") End If - ObjViaje.Dispose() + + TxtRuta.Text = Contrato.Rows(0)("Ruta").ToString + TxtFecha.Text = Contrato.Rows(0)("FechaInicial").ToString + End Sub Protected Sub InicializaCombos() + Dim CveRuta As Integer = Contrato.Rows(0)("CveRuta").ToString.ToEntero + 'Lista Destinos''carga específicos - - End Sub - - Protected Sub CargaDestinos() Dim ObjDestinos As New ClsTransportes() - - If ObjDestinos.GetDestinos(CveRuta:=CveRuta) Then + If Not ObjDestinos.GetDestinos(CveRuta:=CveRuta) Then + Else If ObjDestinos.DtResultados.Rows.Count > 0 Then @@ -106,6 +94,10 @@ Partial Class Boletos End If ObjDestinos.Dispose() End Sub + + Protected Sub CargaDestinos() + + End Sub Protected Sub CotizarTarifa(sender As Object, e As EventArgs) If DdlDestino.SelectedValue <> "" And DdlPartida.SelectedValue <> "" Then @@ -145,7 +137,6 @@ Partial Class Boletos AsientoSeleccionado = buttonID End Sub Protected Sub AddBoleto(sender As Object, e As EventArgs) - If AsientoSeleccionado = "" Then Alert("Se requiere seleccionar su asiento", TipoMensaje.MsgAdvertencia) Exit Sub @@ -175,7 +166,6 @@ Partial Class Boletos CargaDatos() UpPanel.Update() End Try - End Sub diff --git a/Transportes/RepContratoDetalle.aspx b/Transportes/RepContratoDetalle.aspx index 8bf97c7b4..353c09528 100644 --- a/Transportes/RepContratoDetalle.aspx +++ b/Transportes/RepContratoDetalle.aspx @@ -25,7 +25,6 @@ <%-- Información General --%> - <%-- Datos del Contrato --%>
@@ -184,6 +183,12 @@ + <%-- Boletos --%> + + + + + diff --git a/Transportes/RepContratoDetalle.aspx.vb b/Transportes/RepContratoDetalle.aspx.vb index ad154f5dc..e33e2bc64 100644 --- a/Transportes/RepContratoDetalle.aspx.vb +++ b/Transportes/RepContratoDetalle.aspx.vb @@ -5,6 +5,7 @@ Imports ADSNetLibrary.Helpers Imports ADSNetLibrary.SIGAPI.Helpers Imports Extensiones + Partial Class RepContratoDetalle Inherits ClsPaginas Private Property CveContrato As Integer @@ -48,6 +49,9 @@ Partial Class RepContratoDetalle Response.Redirect($"~/Transportes/RepContratos.aspx") End If + If Contrato.Rows(0)("CveContratoTipo").ToString() = "35" Then + TabBoletos.Visible = True + End If LbFolio.Text = Contrato.Rows(0)("NumeroContrato").ToString DdlClientes.SelectedText = Contrato.Rows(0)("NombreComercial").ToString diff --git a/Transportes/RepContratos.aspx b/Transportes/RepContratos.aspx index bea5d7eca..6668718ee 100644 --- a/Transportes/RepContratos.aspx +++ b/Transportes/RepContratos.aspx @@ -12,134 +12,133 @@ .my-1 { margin-block: 1rem; } - - .consulta { - background-color: #95A5A6; - padding: 1rem 1rem; - margin-bottom: 1rem; - } - - .consulta_linea { - display: flex; - justify-content: space-between; - align-items: center; - margin-block: .5rem; - gap: 1rem; - } - - .consulta_campo { - display: flex; - gap: 1rem; - align-items: center; - } - - .consulta_campo label { - color: white; - } - - .expandir { - width: 2.5rem; - font-size: 2.5rem; - font-weight: 900; - color: white; - } -
  • - Agregar Contrato -
    • -
  • - Generar PDF -
    • -
  • - Generar Excel -
    • +
  • + Agregar Contrato +
    • + +
  • + Personalizar Columnas +
    • +
  • + Generar PDF +
    • +
  • + Generar Excel +
    • <%-- Filtros --%> -
    -
    -
    - - -
    - -
    - - -
    - -
    - - -
    - -
    - -
    - - + + +
    + <%-- Filtro Visible - Consulta --%> +
    +
    + + +
    +
    +
    + <%-- Fecha Inicial --%> + +
    +
    + + + + +
    + + + +
    + <%-- Fecha Final --%> + +
    +
    + + + + +
    + + + +
    + <%-- Cliente --%> + +
    + +
    + <%-- Estatus --%> + +
    + + +
    +
    +
    +
    + <%-- Filtro Oculto --%> +
    -
    - - -
    -
    - - -
    - -
    - - -
    -
    - -
    - -
    - - -
    -
    - -
    - -
    - - -
    -
    -     -
    + + <%-- Listado de Contratos --%> @@ -149,7 +148,8 @@ - + @@ -190,6 +190,25 @@ + + <%-- Columnas Ocultas --%> + + + + + + + + + + + + + + + + + @@ -364,6 +383,38 @@
    + <%-- Modal para personalizar columnas --%> + + + + + diff --git a/Transportes/RepContratos.aspx.vb b/Transportes/RepContratos.aspx.vb index bf3590725..74b9e4cd8 100644 --- a/Transportes/RepContratos.aspx.vb +++ b/Transportes/RepContratos.aspx.vb @@ -1,7 +1,6 @@ Option Explicit On Option Strict On Imports System.Data -Imports System.Data.SqlClient Imports Extensiones Imports Extensiones.ModExtensiones Imports Microsoft.Reporting.WebForms @@ -34,11 +33,11 @@ Partial Class ListadoContratos DdlTipoAF.DataBind() DdlTipoAF.Items.Insert(0, New ListItem("-", "")) - DdlTIpoUnidad.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa) - DdlTIpoUnidad.DataBind() - DdlTIpoUnidad.Items.Insert(0, New ListItem("-", "")) + DdlTipoUnidad.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa) + DdlTipoUnidad.DataBind() + DdlTipoUnidad.Items.Insert(0, New ListItem("-", "")) 'Lista Chofer' - DdlChofer.DataSource = GlobalDTRHPersonal(188) + DdlChofer.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa) DdlChofer.DataBind() DdlChofer.Items.Insert(0, New ListItem("-", "")) End Sub @@ -51,9 +50,9 @@ Partial Class ListadoContratos End If If ObjContratos.GetContratosEstatus(UsuarioActual.CveEmpresa) Then - DdlEstatusConsulta.DataSource = ObjContratos.DtResultados - DdlEstatusConsulta.DataBind() - DdlEstatusConsulta.Items.Insert(0, New ListItem("-", "")) + DdlEstatus.DataSource = ObjContratos.DtResultados + DdlEstatus.DataBind() + DdlEstatus.Items.Insert(0, New ListItem("-", "")) End If 'Generamos Folio - NumeroContrato Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero @@ -139,70 +138,15 @@ Partial Class ListadoContratos End If End Sub Protected Sub Consultar(sender As Object, e As EventArgs) - Dim fechaInicial As String = txtFechaI.Text - Dim fechaFinal As String = txtFechaF.Text - - Dim cliente As String = If(DdlClientesConsulta.SelectedValue = "", "", $"C.CveCliente = {DdlClientesConsulta.SelectedValue} AND") - Dim estatus As String = "" - Dim nombreEstatus As String = "" - Dim innerEstatus As String = "" - - Dim tipoUnidad As String = "" - Dim nombreTipoUnidad As String = "" - Dim innerTipoUnidad As String = "" - - Dim chofer As String = "" - Dim nombreChofer As String = "" - Dim innerChofer As String = "" - - If (DdlEstatusConsulta.SelectedValue <> "") Then - estatus = $"C.CveContratosEstatus = {DdlEstatusConsulta.SelectedValue} AND" - nombreEstatus = ", CE.ContratoEstatus As ContratoEstatus1" - innerEstatus = " INNER JOIN Con_ContratosEstatus CE with(nolock) ON CE.CveContratoEstatus = C.CveContratosEstatus " - End If - - If (DdlTIpoUnidad.SelectedValue <> "") Then - 'tipoUnidad = $"C.CveContratosEstatus = {DdlTIpoUnidad.SelectedValue} AND" - 'nombreTipoUnidad = ", CE.ContratoTipoUnidad As ContratoTipoUnidad1" - 'innerTipoUnidad = " INNER JOIN Con_ContratosTipoUnidad CE with(nolock) ON CE.CveContratoTipoUnidad = C.CveContratosEstatus " - End If - - If (DdlChofer.SelectedValue <> "") Then - 'tipoUnidad = $"C.CveContratosEstatus = {DdlTIpoUnidad.SelectedValue} AND" - 'nombreTipoUnidad = ", CE.ContratoTipoUnidad As ContratoTipoUnidad1" - 'innerTipoUnidad = " INNER JOIN Con_ContratosTipoUnidad CE with(nolock) ON CE.CveContratoTipoUnidad = C.CveContratosEstatus " - End If - - - Dim intervalo As String = If(DdlEstatusConsulta.SelectedValue = "" And DdlClientesConsulta.SelectedValue = "", $"FechaInicial BETWEEN '{fechaInicial}' AND '{fechaFinal}'", $"FechaInicial BETWEEN '{fechaInicial}' AND '{fechaFinal}'") - - - Dim query As String = $"SELECT *, ISNULL(Cli.NombreComercial,'') AS NombreComercial {nombreEstatus} FROM Con_Contratos C LEFT JOIN Clientes Cli with(nolock) ON Cli.CveCliente = C.CveCliente {innerEstatus} WHERE {cliente} {estatus} {intervalo}" - - Using connection As New SqlConnection(ConfigurationManager.ConnectionStrings("Conexion").ConnectionString) - Using command As New SqlCommand(query, connection) - connection.Open() - Dim reader As SqlDataReader = command.ExecuteReader() - GvContratos.DataSource = reader - GvContratos.DataBind() - End Using - End Using - UpTitulos.Update() End Sub - Protected Sub Expandir(sender As Object, e As EventArgs) - If PnExpandirConsulta.Visible Then - PnExpandirConsulta.Visible = False - BtnExpandir.Text = "↑" - Else - PnExpandirConsulta.Visible = True - BtnExpandir.Text = "↓" - - End If + Protected Sub ModalPersonalizar(sender As Object, e As EventArgs) + RegistraScript("$('#DivPersonalizar').modal('show')") End Sub - - Protected Sub GoContratoDetalle(sender As Object, e As EventArgs) - Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - Response.Redirect($"~/Transportes/RepContratoDetalle.aspx?CveContrato={GvRow.DataKey("CveContrato")}") + Protected Sub Personalizar(sender As Object, e As EventArgs) + GvContratos.Columns(6).Visible = ChkChofer.Checked + GvContratos.Columns(7).Visible = ChkChofer2.Checked + GvContratos.Columns(8).Visible = ChkUnidad.Checked + UpTitulos.Update() End Sub End Class diff --git a/Transportes/RepContratosCalendario.aspx b/Transportes/RepContratosCalendario.aspx index 271280696..ab7cca780 100644 --- a/Transportes/RepContratosCalendario.aspx +++ b/Transportes/RepContratosCalendario.aspx @@ -19,37 +19,6 @@ color: white; text-align: center; } - - .consulta { - background-color: #95A5A6; - padding: 1rem 1rem; - margin-bottom: 1rem; - } - - .consulta_linea { - display: flex; - justify-content: space-between; - align-items: center; - margin-block: .5rem; - gap: 1rem; - } - - .consulta_campo { - display: flex; - gap: 1rem; - align-items: center; - } - - .consulta_campo label { - color: white; - } - - .expandir { - width: 2.5rem; - font-size: 2.5rem; - font-weight: 900; - color: white; - } @@ -118,87 +87,108 @@ <%-- Filtros --%> -
    -
    -
    - - -
    - -
    - - -
    - -
    - - -
    - -
    - -
    - - + <%-- Filtros --%> + + +
    + <%-- Filtro Visible - Consulta --%> +
    +
    + + +
    +
    +
    + <%-- Fecha Inicial --%> + +
    +
    + + + + +
    + + + +
    + <%-- Fecha Final --%> + +
    +
    + + + + +
    + + + +
    + <%-- Cliente --%> + +
    + +
    + <%-- Estatus --%> + +
    + + +
    +
    +
    +
    + <%-- Filtro Oculto --%> +
    - -
    - - -
    -
    - - -
    - -
    - - -
    -
    - -
    - -
    - - -
    -
    - -
    - -
    - - -
    -
    -     -
    + + <%-- Contratos --%> @@ -209,7 +199,8 @@ - + diff --git a/Transportes/RepContratosCalendario.aspx.vb b/Transportes/RepContratosCalendario.aspx.vb index 3567889c7..265a14ee4 100644 --- a/Transportes/RepContratosCalendario.aspx.vb +++ b/Transportes/RepContratosCalendario.aspx.vb @@ -1,7 +1,6 @@ Option Explicit On Option Strict On Imports System.Data -Imports System.Data.SqlClient Imports ADSNetLibrary.SIGAPI.Helpers Imports Extensiones.ModExtensiones Imports GemBox.Spreadsheet @@ -29,12 +28,12 @@ Partial Class RepContratosCalendario End Property #End Region - Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load + Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load txtFechaI.Text = DateTime.Now.AddMonths(-1).ToString("MM/dd/yyyy").Replace(" ", "T") txtFechaF.Text = DateTime.Now.AddDays(7).ToString("MM/dd/yyyy").Replace(" ", "T") If Not IsPostBack Then - CargaCombos() + InicializaCombos() InicializaCalendar() CargaDatos() @@ -54,9 +53,9 @@ Partial Class RepContratosCalendario DtAvance = ObjContratos.DtResultados If ObjContratos.GetContratosEstatus(UsuarioActual.CveEmpresa) Then - DdlEstatusConsulta.DataSource = ObjContratos.DtResultados - DdlEstatusConsulta.DataBind() - DdlEstatusConsulta.Items.Insert(0, New ListItem("-", "")) + DdlEstatus.DataSource = ObjContratos.DtResultados + DdlEstatus.DataBind() + DdlEstatus.Items.Insert(0, New ListItem("-", "")) DdlEstatusContrato.DataSource = ObjContratos.DtResultados DdlEstatusContrato.DataBind() @@ -72,24 +71,30 @@ Partial Class RepContratosCalendario DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True End Sub - Private Sub CargaCombos() + Private Sub InicializaCombos() 'Lista de Tipos de activo fijos DdlTipoAF.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa) DdlTipoAF.Items.Insert(0, New ListItem("-", "")) DdlTipoAF.DataBind() + DdlTipoUnidad.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa) + DdlTipoUnidad.DataBind() + DdlTipoUnidad.Items.Insert(0, New ListItem("-", "")) 'Lista de Activos fijos DdlAF.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa) DdlAF.DataBind() DdlAF.Items.Insert(0, New ListItem("-", "")) 'Lista Chofer' - DdlChofer.DataSource = GlobalDTRHPersonal(185) + DdlChofer.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa) DdlChofer.DataBind() DdlChofer.Items.Insert(0, New ListItem("-", "")) - DdlChofer2.DataSource = GlobalDTRHPersonal(185) + DdlChofer2.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa) DdlChofer2.DataBind() DdlChofer2.Items.Insert(0, New ListItem("-", "")) + DdlChoferConsulta.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa) + DdlChoferConsulta.DataBind() + DdlChoferConsulta.Items.Insert(0, New ListItem("-", "")) End Sub @@ -141,66 +146,7 @@ Partial Class RepContratosCalendario RegistraScript("$('#ModalActualizar').modal('show');") End Sub Protected Sub Consultar(sender As Object, e As EventArgs) - Dim fechaInicial As String = txtFechaI.Text - Dim fechaFinal As String = txtFechaF.Text - Dim cliente As String = If(DdlClientesConsulta.SelectedValue = "", "", $"C.CveCliente = {DdlClientesConsulta.SelectedValue} AND") - Dim estatus As String = "" - Dim nombreEstatus As String = "" - Dim innerEstatus As String = "" - - Dim tipoUnidad As String = "" - Dim nombreTipoUnidad As String = "" - Dim innerTipoUnidad As String = "" - - Dim chofer As String = "" - Dim nombreChofer As String = "" - Dim innerChofer As String = "" - - If (DdlEstatusConsulta.SelectedValue <> "") Then - estatus = $"C.CveContratosEstatus = {DdlEstatusConsulta.SelectedValue} AND" - nombreEstatus = ", CE.ContratoEstatus As ContratoEstatus1" - innerEstatus = " INNER JOIN Con_ContratosEstatus CE with(nolock) ON CE.CveContratoEstatus = C.CveContratosEstatus " - End If - - If (DdlTIpoUnidad.SelectedValue <> "") Then - 'tipoUnidad = $"C.CveContratosEstatus = {DdlTIpoUnidad.SelectedValue} AND" - 'nombreTipoUnidad = ", CE.ContratoTipoUnidad As ContratoTipoUnidad1" - 'innerTipoUnidad = " INNER JOIN Con_ContratosTipoUnidad CE with(nolock) ON CE.CveContratoTipoUnidad = C.CveContratosEstatus " - End If - - If (DdlChofer.SelectedValue <> "") Then - 'tipoUnidad = $"C.CveContratosEstatus = {DdlTIpoUnidad.SelectedValue} AND" - 'nombreTipoUnidad = ", CE.ContratoTipoUnidad As ContratoTipoUnidad1" - 'innerTipoUnidad = " INNER JOIN Con_ContratosTipoUnidad CE with(nolock) ON CE.CveContratoTipoUnidad = C.CveContratosEstatus " - End If - - - Dim intervalo As String = If(DdlEstatusConsulta.SelectedValue = "" And DdlClientesConsulta.SelectedValue = "", $"FechaInicial BETWEEN '{fechaInicial}' AND '{fechaFinal}'", $"FechaInicial BETWEEN '{fechaInicial}' AND '{fechaFinal}'") - - - Dim query As String = $"SELECT *, ISNULL(Cli.NombreComercial,'') AS NombreComercial {nombreEstatus} FROM Con_Contratos C LEFT JOIN Clientes Cli with(nolock) ON Cli.CveCliente = C.CveCliente {innerEstatus} WHERE {cliente} {estatus} {intervalo}" - - Using connection As New SqlConnection(ConfigurationManager.ConnectionStrings("Conexion").ConnectionString) - Using command As New SqlCommand(query, connection) - connection.Open() - Dim reader As SqlDataReader = command.ExecuteReader() - GvContratos.DataSource = reader - GvContratos.DataBind() - End Using - End Using - - UpTitulos.Update() - End Sub - Protected Sub Expandir(sender As Object, e As EventArgs) - If PnExpandirConsulta.Visible Then - PnExpandirConsulta.Visible = False - BtnExpandir.Text = "↑" - Else - PnExpandirConsulta.Visible = True - BtnExpandir.Text = "↓" - - End If End Sub Protected Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click GvContratos.ExportToExcel("ReporteCompras" & NowADS().ToShortDateString) @@ -226,8 +172,4 @@ Partial Class RepContratosCalendario Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) End If End Sub - Protected Sub GoContratoDetalle(sender As Object, e As EventArgs) - Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - Response.Redirect($"~/Transportes/RepContratoDetalle.aspx?CveContrato={GvRow.DataKey("CveContrato")}") - End Sub End Class diff --git a/Transportes/RepViajes.aspx b/Transportes/RepViajes.aspx index 2e426a745..387dd678f 100644 --- a/Transportes/RepViajes.aspx +++ b/Transportes/RepViajes.aspx @@ -83,12 +83,11 @@ CssClass='<%# If(Eval("Estatus").ToString = "", "", "text-success bold") %>'> - - - + + + From d5114df50f6d23931f60c8dd96d3104433af2295 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Thu, 15 Feb 2024 16:59:37 -0700 Subject: [PATCH 3/5] SMS 2024.02.12- Proceso de A-Vista --- Bancos/PopIEVentas.aspx | 24 ++++++++++++++++++------ Bancos/PopIEVentas.aspx.vb | 16 ++++++++++++++++ Bancos/RepComplementoPago.aspx.vb | 6 +++--- OS/OrdenesServicios.aspx.vb | 3 +++ Ventas/ClientesAbonar.aspx.vb | 16 ++++++++++++++++ 5 files changed, 56 insertions(+), 9 deletions(-) diff --git a/Bancos/PopIEVentas.aspx b/Bancos/PopIEVentas.aspx index 851a7d32a..e2eb1826e 100644 --- a/Bancos/PopIEVentas.aspx +++ b/Bancos/PopIEVentas.aspx @@ -533,14 +533,26 @@ + + + + + +
    + + + + +
    - +
    + +
    +
    + +

    -
    -
    - - -
    +
    diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb index b05648ad7..b7108b91a 100644 --- a/Bancos/PopIEVentas.aspx.vb +++ b/Bancos/PopIEVentas.aspx.vb @@ -1110,6 +1110,22 @@ Partial Class Bancos_PopIEVentas #Region "G U A R D A R" Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click + If ChkComplementoPago.Checked Then + Dim objGral As New ClsGralFolios + Dim SalirDeMetodo As Boolean = False + If objGral.GetFolios("CP", UsuarioActual.CveEmpresa) Then + If Not objGral.DtResultados.Rows.Count > 0 Then + Alert("No se cuenta con folios para emitir complemento de pago", TipoMensaje.MsgAdvertencia) + SalirDeMetodo = True + End If + End If + objGral.Dispose() + If SalirDeMetodo Then + Exit Sub + End If + End If + + Dim FechaFactura As Date = FechaVenta Dim FechaDocumentoPago As Date = TxtFechaDocumento.Text.ToDate diff --git a/Bancos/RepComplementoPago.aspx.vb b/Bancos/RepComplementoPago.aspx.vb index a22070ac6..e7360a3c1 100644 --- a/Bancos/RepComplementoPago.aspx.vb +++ b/Bancos/RepComplementoPago.aspx.vb @@ -97,9 +97,9 @@ Partial Class Bancos_RepComplementoPago Alert("No se cuenta con folios para emitir complemento de pago", TipoMensaje.MsgAdvertencia) End If End If - - 'CargaDatos() - + objGral.Dispose() + 'CargaDatos() + End If End Sub diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index 13e26033c..3546aa177 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -3039,6 +3039,9 @@ Partial Class OS_OrdenesServicios Case 5 Opcion = 3 Exit Select + Case 6 + Opcion = 4 + Exit Select Case Else Opcion = 1 Exit Select diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index 599476524..58c50a68d 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -615,6 +615,22 @@ Partial Class Ventas_ClientesAbonar Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click + If ChkComplementoPago.Checked Then + Dim objGral As New ClsGralFolios + Dim SalirDeMetodo As Boolean = False + If objGral.GetFolios("CP", UsuarioActual.CveEmpresa) Then + If Not objGral.DtResultados.Rows.Count > 0 Then + Alert("No se cuenta con folios para emitir complemento de pago", TipoMensaje.MsgAdvertencia) + SalirDeMetodo = True + End If + End If + objGral.Dispose() + If SalirDeMetodo Then + Exit Sub + End If + End If + + 'SI ES EMPRESA DE ACUMULADORES DEBE OBLIGAR A SUBIR UN ARCHIVO If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then Dim files As Extensiones.Files = Anexo.getfiles() From a5ad55a70ef4f9370dc3c1e8abe87211b5f70e31 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 15 Feb 2024 19:16:36 -0700 Subject: [PATCH 4/5] --Validaciones de recepcion de usados --- Inventarios/RecepcionUsados.aspx.vb | 111 +++++++++++++--------------- 1 file changed, 50 insertions(+), 61 deletions(-) diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb index a78ec0fb7..ef2bf7701 100644 --- a/Inventarios/RecepcionUsados.aspx.vb +++ b/Inventarios/RecepcionUsados.aspx.vb @@ -751,6 +751,8 @@ Partial Class Inventarios_RecepcionUsados End Sub Private Sub LimpiarMovimiento() CveMovimiento = -1 + CveRemisionRecibida = -1 + CargoRemisionDesdeURL = False If ObjFactura IsNot Nothing Then ObjFactura.Dispose() @@ -771,7 +773,7 @@ Partial Class Inventarios_RecepcionUsados RblUsadosAjuste.Enabled = True RblUsadosAjuste.SelectedValue = "0" - CveRemisionRecibida = -1 + EsDistribuidor = False InicializaClientes(True) DdlClientes.Enabled = True @@ -831,6 +833,14 @@ Partial Class Inventarios_RecepcionUsados 'CargaInicial() + + If Me.ObjRemisionNC IsNot Nothing Then + Me.ObjRemisionNC.Dispose() + Me.ObjRemisionNC = Nothing + End If + + DtMovimientos.Rows.Clear() + UpGenerales.Update() UpRegistroTipoCambio.Update() UPDatos.Update() @@ -1234,12 +1244,14 @@ Partial Class Inventarios_RecepcionUsados End If End Sub Private Sub BtnGenerarRNC_Click(sender As Object, e As EventArgs) Handles BtnGenerarRNC.Click - Guardar(True) + Guardar(True, RecargarPagina:=True) End Sub Protected Sub Guardar(Optional GenerarRNC As Boolean = False, Optional RecargarPagina As Boolean = False) If GvM.Rows.Count > 0 Then - Dim Msg As New StringBuilder() + Dim MsgError As New StringBuilder() + Dim Msg As New StringBuilder + Dim Resp As Modelos.Factura.MMensajeFactura = Nothing Dim ObjInventario As New ClsInventarios Dim ObjAcum As New ClsAcumuladores(ObjInventario.IniciaTransacSQL()) @@ -1255,9 +1267,7 @@ Partial Class Inventarios_RecepcionUsados Dim CveSubProyecto As Integer = -1 Dim ActivoFijo As Integer = -1 - If CveMovimiento > 0 Then - Else - + If Not CveMovimiento > 0 Then Dim Fecha As Date = String.Format("{0}", TxtFecha.Text.ToDate.ToString("yyyy/MM/dd")).ToDate Dim CveCliente As Integer = CInt(IIf((DdlClientes.SelectedValue.ToEntero <= 0), -1, DdlClientes.SelectedValue.ToEntero)) Dim CveClienteSucursal As Integer = CInt(IIf((DdlClientesSucursales.SelectedValue.ToEntero <= 0), -1, DdlClientesSucursales.SelectedValue.ToEntero)) @@ -1281,22 +1291,23 @@ Partial Class Inventarios_RecepcionUsados CargaDTDetalleRNC() Resp = ObjRemisionNC.EmitirFactura(False, ObjInventario.IniciaTransacSQL) - 'For Each mensaje2 As String In Resp.Mensajes - ' Msg.AppendFormat("
    {0}", mensaje2) - 'Next - If Resp.TieneError Then ErrorMovInv = True - 'Alert(Msg.ToString, If(Resp.CveVenta > 0, TipoMensaje.MsgInformacion, TipoMensaje.MsgAdvertencia)) - CveVenta = Resp.CveVenta - If Resp.CveMovimientoUsado <= 0 Then - Msg.Append("Error al guardar los movimientos de usados") + If Resp.TieneError Then ErrorMovInv = True + + If Resp.CveVenta > 0 Then + CveVenta = Resp.CveVenta + Else + MsgError.Append("Error al generar la remisión de nota de crédito") ErrorMovInv = True End If + If Resp.CveMovimientoUsado <= 0 Then + MsgError.Append("Error al guardar los movimientos de usados") + ErrorMovInv = True + End If End If - Dim Mensaje As String = "" Dim FolioInv As String = "" If GenerarRNC Then @@ -1314,7 +1325,7 @@ Partial Class Inventarios_RecepcionUsados Recibio:=TxtResponsable.Text.Trim, CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, DepartamentoEntrega:=TxtDepartamentoEntrega.Text, PedidoContrato:=TxtPedidoContrato.Text, CveProveedor:=tCveProveedor, Modulo:="RU/G") If CveMovimiento <= 0 Then - Mensaje = "Error al guardar los movimientos" + MsgError.Append("Error al guardar los movimientos") ErrorMovInv = True Else FolioInv = ObjInventario.Folio.ToString() @@ -1322,14 +1333,14 @@ Partial Class Inventarios_RecepcionUsados For Each Dr As DataRow In DtMovimientos.Rows If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, ImporteConcepto, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, Observaciones:=Dr("Observaciones").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), CveUsuarioModifico:=UsuarioActual.CveUsuario) Then - Mensaje = "Error al guardar los movimientos" + MsgError.Append("Error al guardar los movimientos") ErrorMovInv = True Exit For End If If CveVenta > 0 AndAlso Not ObjVentas.UpdateVentaUsadoRecibido(CveVenta, Dr("CvePS").ToString.ToEntero, True, CveMovimiento) Then - Mensaje = "Error al actualizar el recibo de los usados" ErrorMovInv = True + MsgError.Append("Error al actualizar el recibo de los usados") Exit For End If @@ -1346,7 +1357,7 @@ Partial Class Inventarios_RecepcionUsados If Not ObjAcum.DistribuidorMovtosAdd(DdlClientes.SelectedValue.ToEntero, Dr("Cantidad").ToString.ToEntero(), Dr("CveTamaño").ToString.ToEntero, Puntos, Cargo, Bonificacion, CveConceptoUsados, CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 0, Dr("Observaciones").ToString, NowADS(), CveMovimiento:=CveMovimiento) Then - Mensaje = "Error al guardar Movimientos de distribuidor" + MsgError.Append("Error al guardar Movimientos de distribuidor") ErrorMovInv = True Exit For End If @@ -1354,24 +1365,10 @@ Partial Class Inventarios_RecepcionUsados End If Next - 'ACTUALIZA LA POLIZA VIRTUAL DEL LA REMISION - 'If Not ErrorMovInv AndAlso ObjFactura.TipoDocto = "Rem" Then - ' If ObjAcum.GetPolizasVirtuales(ObjFactura.CveVenta) Then - ' Dim DtPoliza As DataTable = ObjAcum.DtResultados.Copy() - ' For Each RowPoliza As DataRow In DtPoliza.Rows - ' If Not ObjAcum.UpdatePolizaVirtual(RowPoliza("CvePolizaVirtual").ToString().ToEntero, DdlMarcaRem.SelectedValue.ToEntero(), TxtFechaVigencia.Text.ToDateTime()) Then - ' Mensaje = "Error al guardar la póliza virtual" - ' ErrorMovInv = True - ' Exit For - ' End If - ' Next - - ' DtPoliza.Dispose() - ' Else - ' Mensaje = "Error al obtener la póliza virtual" - ' ErrorMovInv = True - ' End If - 'End If + If Not ErrorMovInv AndAlso ObjFactura.CveCliente <> CveCliente Then + ErrorMovInv = True + MsgError.Append("Error al asignar el cliente") + End If ''GENERA LA PREPOLIZA DE ALMACEN VS EL CONCEPTO DE RNC If Not ErrorMovInv Then @@ -1384,14 +1381,12 @@ Partial Class Inventarios_RecepcionUsados If Not ErrorMovInv Then + If Resp IsNot Nothing Then For Each mensaje2 As String In Resp.Mensajes Msg.AppendFormat("
    {0}", mensaje2) Next End If - End If - - If Not ErrorMovInv Then Msg.AppendFormat("
    El Movimiento se registro con el Folio: {0}", FolioInv, CveMovimiento) Msg.AppendFormat("

    Imprimir Movimiento ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimiento))) @@ -1399,27 +1394,17 @@ Partial Class Inventarios_RecepcionUsados If IDPoliza > 0 Then Msg = Msg.AppendFormat("

    Ver Póliza", IDPoliza) ObjInventario.Commit() ' aplica los movimientos insertados - - 'Limpia Valores cuando inserta de campos especiales - If UsuarioActual.CveEmpresa = 66 Then - DdlSubProyecto.SelectedValueExist("-1") - End If - - ' EnvioCorreo() - - CargaPendientesRecibir() - UPDatos.Update() - Else ObjInventario.RollBack() 'deshace lo insertado CveMovimiento = 0 - Alert("ocurrió un Error al registrar los movimientos", TipoMensaje.MsgError) + MsgError.Append("Ocurrió un error al registrar.") + Alert(MsgError.ToString(), TipoMensaje.MsgError) End If End If Catch ex As Exception ObjInventario.RollBack() 'deshace lo insertado CveMovimiento = 0 - Alert("Ocurrió un Error inesperado en el registro" & ex.Message, TipoMensaje.MsgError) + Alert("Ocurrió un error inesperado en el registro" & ex.Message, TipoMensaje.MsgError) RegistraScript("playsonidito('142608__autistic-lucario__error.wav')") End Try @@ -1435,15 +1420,19 @@ Partial Class Inventarios_RecepcionUsados End If Alert(Msg.ToString, TipoMensaje.MsgInformacion, JSBtnAceptar:=Liga, ShowCloseButton:=False) - End If + If CveRemisionRecibida > 0 Then + CargaRemisionesPendientes() + UPDatos.Update() + End If + End If Else Alert("No hay ningun registro para generar el movimiento. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgError) RegistraScript("playsonidito('142608__autistic-lucario__error.wav')") End If LimpiarMovimiento() - CargaGVM(DtMovimientos.FiltraParametros("Estatus <> 'E' ")) + CargaGVM(DtMovimientos) End Sub @@ -1655,7 +1644,7 @@ Partial Class Inventarios_RecepcionUsados #End Region #Region " GVM " - Private Sub CargaGVM(DtTemp As DataTable) + Private Sub CargaGVM(ByRef DtTemp As DataTable) GvM.DataSource = DtTemp GvM.DataBind() @@ -2243,10 +2232,10 @@ Partial Class Inventarios_RecepcionUsados End Sub Protected Sub BtnConsultarPendientes_Click(sender As Object, e As EventArgs) - CargaPendientesRecibir() + CargaRemisionesPendientes() End Sub - Private Sub CargaPendientesRecibir() + Private Sub CargaRemisionesPendientes() Dim ObjVentas As New ClsVentas If ObjVentas.GetVentasUsados(-1, DdlSubProyectos.SelectedValue.ToEntero(), TxtFechaPendientes.Text.ToDateTime(), UsuarioActual.CveEmpresa, ServicioDomicilio:=ChkServicioDomicilio.Checked) Then GVPendientes.DataSource = ObjVentas.DtResultados @@ -2365,8 +2354,7 @@ Partial Class Inventarios_RecepcionUsados End If If DtUsados IsNot Nothing Then - - 'DivRecepcionApartado.Visible = True + AgregarUsado = True For Each RowUsado As DataRow In DtUsados.Rows Dim CvePS As Integer = RowUsado("CvePS").ToString().ToEntero() @@ -2382,8 +2370,9 @@ Partial Class Inventarios_RecepcionUsados Dim CveVentaDetalle As Integer = RowUsado("CveVentaDetalle").ToString().ToEntero() AddNew(CvePS, PS, CveUM, UM, Cantidad, PU, "", "-1", "-1", "-1", "", "", DdlAlmacen.SelectedValue.ToEntero, DdlAlmacen.SelectedItem.Text, "", CveTamaño, CveVentaDetalle:=CveVentaDetalle) - Next + + AgregarUsado = False End If Else Alert("No se pudo recibir la remisión", TipoMensaje.MsgAdvertencia) From ee5fa45b9aaa708e66ad0d50c5de3bfe30538aeb Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 15 Feb 2024 19:38:02 -0700 Subject: [PATCH 5/5] --quitar nivel subtotal al aplicar NC --- Ventas/Ventas.aspx | 1 - 1 file changed, 1 deletion(-) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 8d2ce4861..4adeb74f4 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -7029,7 +7029,6 @@
    -