From 84ebbeb6c01dc563476c9ff8426b8b3f5760f354 Mon Sep 17 00:00:00 2001 From: AbrahamCastilloV Date: Wed, 14 Feb 2024 09:45:19 -0700 Subject: [PATCH] =?UTF-8?q?--Se=20elimin=C3=B3=20la=20parte=20para=20agreg?= =?UTF-8?q?ar=20viajes=20y=20se=20cambi=C3=B3=20todo=20a=20contratos.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsTransportes.vb | 107 ------------------ Transportes/RepViajes.aspx | 195 +++++++++++++++------------------ Transportes/RepViajes.aspx.vb | 201 +++++++++++++++++++--------------- 3 files changed, 200 insertions(+), 303 deletions(-) diff --git a/App_Code/ClsTransportes.vb b/App_Code/ClsTransportes.vb index 612d9f694..a5e09b0c2 100644 --- a/App_Code/ClsTransportes.vb +++ b/App_Code/ClsTransportes.vb @@ -134,113 +134,6 @@ Public Class ClsTransportes End Sub #End Region -#Region "Viajes" - Public Function AddViajes(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 GetViajes(CveViaje As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Trans_ViajesGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveViaje", SqlDbType.Int).Value = CveViaje - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - Try - SqlAdapter.Fill(Data) - If CveViaje > 0 AndAlso Data IsNot Nothing AndAlso Data.Rows.Count > 0 Then - CveRuta = Data.Rows(0)("CveRuta").ToString.ToEntero - CveAF = Data.Rows(0)("CveAF").ToString.ToEntero - CvePersonal = Data.Rows(0)("CvePersonal").ToString.ToEntero - CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero - CvePartida = Data.Rows(0)("CvePartida").ToString.ToEntero - CveDestino = Data.Rows(0)("CveDestino").ToString.ToEntero - CveMasivo = Data.Rows(0)("CveMasivo").ToString.ToEntero - Fecha = Data.Rows(0)("Fecha").ToString.ToDate - Ruta = Data.Rows(0)("Ruta").ToString - Me.CveViaje = Data.Rows(0)("CveViaje").ToString.ToEntero - End If - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el catálogo de viajes.", 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 - - - DataAdapter("PA_Trans_ViajesRemove") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveViaje", SqlDbType.Int).Value = CveViaje - .Add("@CveMasivo", SqlDbType.Int).Value = CveMasivo - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al eliminar el contrato.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function UpdateViajes(CveViaje As Integer, CveRuta As Integer, CveAF As Integer, CvePersonal As Integer, CveEmpresa As Integer, Fecha As DateTime, CvePartida As Integer, CveDestino As Integer) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Trans_ViajesUpdate") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveViaje", SqlDbType.Int).Value = CveViaje - .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.Date).Value = Fecha - .Add("@CvePartida", SqlDbType.Int).Value = CvePartida - .Add("@CveDestino", SqlDbType.Int).Value = CveDestino - - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al actualizar el Contrato.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function -#End Region - #Region "Boletos" 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, CveVendedor As Integer) As Integer Dim Retorno As Integer = -1 diff --git a/Transportes/RepViajes.aspx b/Transportes/RepViajes.aspx index 0440a31bf..3aea914b8 100644 --- a/Transportes/RepViajes.aspx +++ b/Transportes/RepViajes.aspx @@ -17,8 +17,8 @@ } .masivo_block { - margin: 1rem; - border: grey 1px solid; + padding: 1rem; + border: #E1E5EC 1px solid; } @@ -36,16 +36,16 @@
- " + " style="display: inline-block; margin-right: -10px; width: 150px;" /> - " + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
<%-- Listado de Viajes --%> - + data-sort="true" DataKeyNames=""> @@ -68,31 +68,20 @@ - - - - - - - - - - - - - + - > + -
-
-
- - - - - - -
+
+ +
-
-
- - - - - - -
-
- -
-
- - - - - - -
-
- -
- +
+
-
- - - - - - -
+ + + + +
-
+
+ +
+ + + + + +
+
+ +
+ +
+ + + + + +
+
+ +
+ +
+ + + + + +
+
+ +
+ +
+ + +
+ +
+ + +
+
- - -
- - -
- -
- - -
-
-
+
0 Then @@ -59,24 +59,25 @@ Partial Class ListadoViajes ObjRutas.Dispose() End Sub - Private Sub GvViajes_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvViajes.RowDataBound - If e.Row.RowType = DataControlRowType.DataRow Then - If e.Row.DBCampo("CveMasivo") <> "" Then - e.Row.FCLabel("LtlMasivo").Text = "Sí" - e.Row.FCLabel("LtlMasivo").ForeColor = Drawing.Color.Green + Private Sub CargaDatos() + 'Carga Viajes + Dim ObjContratos As New ClsContratos + + If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, TipoContrato:=35) Then + GvContratos.DataSource = ObjContratos.DtResultados + GvContratos.DataBind() + End If + + 'Generar Folio + Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero + Dim ObjFolio As New ClsGralFolios + If ObjFolio.GetFolios("Con", UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto) Then + If ObjFolio.DtResultados.Rows.Count > 0 Then + Dim drr As DataRow = ObjFolio.DtResultados.FiltroPrimero("") + LbFolio.Text = $"{drr("Serie").ToString}-{drr("FActual").ToString}" End If End If End Sub - Private Sub CargaDatos() - Dim ObjTransportes As New ClsTransportes - - If ObjTransportes.GetViajes(-1, UsuarioActual.CveEmpresa) Then - GvViajes.DataSource = ObjTransportes.DtResultados - ObjTransportes.Dispose() - GvViajes.DataBind() - End If - - End Sub Private Sub LBAgregarViaje_Click(sender As Object, e As EventArgs) Handles LBAgregarViaje.Click MostrarModal() @@ -95,10 +96,7 @@ Partial Class ListadoViajes End Sub Protected Sub AddViaje(sender As Object, e As EventArgs) - Dim ObjTransportes As New ClsTransportes - - ObjTransportes.IniciaTransacSQL() - + 'Generador de Viajes Masivos If IsMasivo.Checked = True Then If TxtFechaInicial.Text = "" Or TxtFrecuencia.Text = "" Then Alert("Es necesario agregar la fecha inicial y la frecuencia", TipoMensaje.MsgAdvertencia) @@ -106,65 +104,88 @@ Partial Class ListadoViajes End If Dim CveMasivo As Integer = DateTimeOffset.Now.ToUnixTimeSeconds().ToEntero - - Dim fechaInicial As DateTime = DateTime.Parse(TxtFechaInicial.Text) - Dim frecuencia As Integer = Integer.Parse(TxtFrecuencia.Text) + Dim fechaInicial As DateTime = TxtFechaInicial.Text.ToDate Dim fechasGeneradas As New List(Of DateTime)() + While fechaInicial.Year = DateTime.Now.Year fechasGeneradas.Add(fechaInicial) - fechaInicial = fechaInicial.AddDays(frecuencia) + fechaInicial = fechaInicial.AddDays(TxtFrecuencia.Text.ToEntero) End While - - For Each fecha As DateTime In fechasGeneradas - Try - Dim CveContratoHijo As Integer = -1 - CveContratoHijo = ObjTransportes.AddViajes(DdlRutas.Text.ToEntero, -1, -1, UsuarioActual.CveEmpresa, fecha, DdlPartida.Text.ToEntero, DdlDestino.Text.ToEntero, IsMasivo:=True, CveMasivo:=CveMasivo) - - If CveContratoHijo > 0 Then - ObjTransportes.Commit() - End If - Catch ex As Exception - Alert($"Ocurrió un error {ex}", TipoMensaje.MsgError) - End Try - Next - - DdlRutas.Text = "" - - TxtFechaViaje.Text = "" - DdlPartida.Text = "" - DdlDestino.SelectedValue = "" - ObjTransportes.Dispose() - CargaDatos() - Alert("El viaje masivo se registró correctamente.", TipoMensaje.MsgInformacion) - Else Try - If BtnGuardar.Text = "Guardar" Then - Dim CveContratoHijo As Integer = -1 - CveContratoHijo = ObjTransportes.AddViajes(DdlRutas.Text.ToEntero, -1, -1, UsuarioActual.CveEmpresa, TxtFechaViaje.Text.ToDate, DdlPartida.Text.ToEntero, DdlDestino.Text.ToEntero) + For Each fecha As DateTime In fechasGeneradas + Dim ObjFolio As New ClsGralFolios + Dim ObjContratos As New ClsContratos - If CveContratoHijo > 0 Then - ObjTransportes.Commit() - Alert("El Viaje se registró Correctamente.", TipoMensaje.MsgInformacion) - DdlRutas.Text = "" - TxtFechaViaje.Text = "" - DdlPartida.Text = "" - DdlDestino.SelectedValue = "" + 'Generamos folio + Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero + If ObjFolio.GetFolios("Con", UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto) Then + If ObjFolio.DtResultados.Rows.Count > 0 Then + Dim drr As DataRow = ObjFolio.DtResultados.FiltroPrimero("") + LbFolio.Text = $"{drr("Serie").ToString}-{drr("FActual").ToString}" + End If + End If + 'Agregamos contrato + ObjContratos.IniciaTransacSQL() + If ObjContratos.AddContratos(LbFolio.Text, "", "", UsuarioActual.CveProveedor, -1, -1, fecha, fecha, "", "", 10, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, -1, 0, CveContratoTipo:=35, CveContratosEstatus:=50, CveRuta:=DdlRutas.Text.ToEntero, CvePartida:=DdlPartida.SelectedValue.ToEntero, CveDestino:=DdlDestino.SelectedValue.ToEntero, CveMasivo:=CveMasivo) > 0 Then + ObjContratos.Commit() + End If + 'Actualizamos Folio + If ObjFolio.UpdateFolioActual(CveSubProyecto, "Con", True, UsuarioActual.CveEmpresa) Then + ObjFolio.Dispose() + End If + Next + Alert("Viajes Masivos generados correctamente.") + Catch ex As Exception + Dim ObjContratos As New ClsContratos + ObjContratos.RollBack() + Alert("Ocurrió un error al generar viajes masivo", TipoMensaje.MsgError) + Finally + DdlRutas.Text = "" + TxtFechaViaje.Text = "" + DdlPartida.Text = "" + DdlDestino.SelectedValue = "" + + Dim ObjContratos As New ClsContratos + ObjContratos.Dispose() + CargaDatos() + End Try + Else + Dim ObjContratos As New ClsContratos + ObjContratos.IniciaTransacSQL() + + Try + 'Agregamos Viaje + If BtnGuardar.Text = "Agregar" Then + If ObjContratos.AddContratos(LbFolio.Text, "", "", UsuarioActual.CveProveedor, -1, -1, TxtFechaViaje.Text.ToDate, TxtFechaViaje.Text.ToDate, "", "", 10, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, -1, 0, CveContratoTipo:=35, CveContratosEstatus:=50, CveRuta:=DdlRutas.Text.ToEntero, CvePartida:=DdlPartida.SelectedValue.ToEntero, CveDestino:=DdlDestino.SelectedValue.ToEntero) > 0 Then + ObjContratos.Commit() + Alert("Viaje agregado correctamente.") End If Else - - If ObjTransportes.UpdateViajes(CveViaje.ToEntero, DdlRutas.Text.ToEntero, -1, -1, UsuarioActual.CveEmpresa, TxtFechaViaje.Text.ToDate, DdlPartida.Text.ToEntero, DdlDestino.Text.ToEntero) = True Then - Alert("El viaje se modificó correctamente.", TipoMensaje.MsgInformacion) - ObjTransportes.Commit() - CargaDatos() + 'Actualizamos Viaje + If ObjContratos.UpdateContratos(CveContrato.ToEntero, LbFolio.Text, "", "", UsuarioActual.CveProveedor, -1, -1, TxtFechaInicial.Text.ToDate, TxtFechaInicial.Text.ToDate, "", "", 10, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, -1, 0, CveContratoTipo:=35, CveContratosEstatus:=50, CveRuta:=DdlRutas.Text.ToEntero, CvePartida:=DdlPartida.SelectedValue.ToEntero, CveDestino:=DdlDestino.SelectedValue.ToEntero) = True Then + ObjContratos.Commit() + Alert("El viaje se actualizó correctamente.") End If End If Catch ex As Exception - ObjTransportes.RollBack() + Alert("Ocurrió un error al generar viaje", TipoMensaje.MsgError) + ObjContratos.RollBack() Finally + DdlRutas.Text = "" + TxtFechaViaje.Text = "" + DdlPartida.Text = "" + DdlDestino.SelectedValue = "" + Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero + Dim ObjFolios As New ClsGralFolios + If ObjFolios.UpdateFolioActual(CveSubProyecto, "Con", True, UsuarioActual.CveEmpresa) Then + ObjFolios.Dispose() + End If CargaDatos() - ObjTransportes.Dispose() + ObjContratos.Dispose() End Try End If + + End Sub Protected Sub UpdateViaje(sender As Object, e As EventArgs) @@ -175,7 +196,7 @@ Partial Class ListadoViajes DdlRutas.SelectedValue = GvRow.DataKey("CveRuta") DdlDestino.SelectedValue = GvRow.DataKey("CveDestino") DdlPartida.SelectedValue = GvRow.DataKey("CvePartida") - ViewState("CveViaje") = GvRow.DataKey("CveViaje") + ViewState("CveContrato") = GvRow.DataKey("CveContrato") ViewState("Ruta") = GvRow.DataKey("Ruta") Dim fecha As DateTime @@ -192,31 +213,31 @@ Partial Class ListadoViajes End Sub Protected Sub RemoveViaje(sender As Object, e As EventArgs) - Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - Dim CveMasivo As String = GvRow.DataKey("CveMasivo") + 'Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + 'Dim CveMasivo As String = GvRow.DataKey("CveMasivo") - Dim ObjTransportes As New ClsTransportes + 'Dim ObjTransportes As New ClsTransportes - ObjTransportes.IniciaTransacSQL() - If CveMasivo = "" Then - Try - ObjTransportes.RemoveViaje(CveViaje:=GvRow.DataKey("CveViaje").ToEntero) - ObjTransportes.Commit() - Catch ex As Exception - Alert($"Ocurrió un error {ex}", TipoMensaje.MsgError) - End Try - Else - Try - ObjTransportes.RemoveViaje(CveMasivo:=CveMasivo.ToEntero) - ObjTransportes.Commit() - Catch ex As Exception - Alert($"Ocurrió un error {ex}", TipoMensaje.MsgError) + 'ObjTransportes.IniciaTransacSQL() + 'If CveMasivo = "" Then + ' Try + ' ObjTransportes.RemoveViaje(CveViaje:=GvRow.DataKey("CveViaje").ToEntero) + ' ObjTransportes.Commit() + ' Catch ex As Exception + ' Alert($"Ocurrió un error {ex}", TipoMensaje.MsgError) + ' End Try + 'Else + ' Try + ' ObjTransportes.RemoveViaje(CveMasivo:=CveMasivo.ToEntero) + ' ObjTransportes.Commit() + ' Catch ex As Exception + ' Alert($"Ocurrió un error {ex}", TipoMensaje.MsgError) - End Try - End If - Alert("Viaje eliminado correctamente") - CargaDatos() - ObjTransportes.Dispose() + ' End Try + 'End If + 'Alert("Viaje eliminado correctamente") + 'CargaDatos() + 'ObjTransportes.Dispose() End Sub