--

Transportes/RepContratoDetalle.aspx.vb

@@ -110,7 +110,11 @@ Partial Class RepContratoDetalle
         'Lista Tipo AF
         DdlTipoAF.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros("MedidaVehicularClave IN (2,3)")
         DdlTipoAF.DataBind()
-        DdlTipoAF.Items.Insert(0, New ListItem("-", ""))
+        DdlTipoAF.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
+        'Lista de Monedas
+        DdlMoneda.DataSource = GlobalDTMonedas
+        DdlMoneda.DataBind()
     End Sub
     Private Sub CargaDatos()
         'Información General
@@ -118,7 +122,7 @@ Partial Class RepContratoDetalle
         If ObjContratos.GetContratos(CveContrato, UsuarioActual.CveEmpresa) Then
             Contrato = ObjContratos.DtResultados
             If Contrato IsNot Nothing AndAlso Contrato.Rows.Count > 0 Then
-                Dim Dolares As Decimal = Contrato.Rows(0)("Importe").ToString.ToDecimal
+                Dim Importe As Decimal = Contrato.Rows(0)("Importe").ToString.ToDecimal
                 Dim Pesos As Decimal = Contrato.Rows(0)("ImporteMax").ToString.ToDecimal
                 Dim Anticipo As Decimal = Contrato.Rows(0)("ImporteMin").ToString.ToDecimal
 
@@ -136,8 +140,7 @@ Partial Class RepContratoDetalle
                 TxtFechaRegreso.Text = Contrato.Rows(0)("FechaFinal").ToString
                 TxtCantidadPasajeros.Text = Contrato.Rows(0)("CantidadPasajeros").ToString
                 DdlTipoAF.SelectedValue = If(Contrato.Rows(0)("CveTipoAF") Is Nothing, "", Contrato.Rows(0)("CveTipoAF").ToString)
-                TxtDolares.Text = Math.Round(Dolares, 2).ToString
-                TxtPesos.Text = Math.Round(Pesos, 2).ToString
+                TxtImporte.Text = Math.Round(Importe, 2).ToString
                 TxtAnticipo.Text = Math.Round(Anticipo, 2).ToString
                 CveContratoEstatus = Contrato.Rows(0)("CveContratosEstatus").ToString.ToEntero
                 If Not IsDBNull(ObjContratos.Archivo) AndAlso ObjContratos.Archivo <> "" AndAlso ObjContratos.Archivo <> "-1" AndAlso ObjContratos.Archivo <> $"{ObjContratos.CveContrato}." Then
@@ -158,6 +161,14 @@ Partial Class RepContratoDetalle
                     ObjTransportes.Dispose()
                     GvViajesPasajeros.DataBind()
                 End If
+                'Bitácora
+                Dim ObjEventoBitacora As New ClsOIEventos
+                If ObjEventoBitacora.GetEventos(-1, -1, -1, "-1", "-1", -1, -1, -1, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveContrato:=CveContrato) Then
+                    GvEventosBitacora.DataSource = ObjEventoBitacora.DtResultados
+                    GvEventosBitacora.DataBind()
+                End If
+                ObjEventoBitacora.Dispose()
+
             End If
         Else
             ObjContratos.Dispose()
@@ -245,8 +256,7 @@ Partial Class RepContratoDetalle
         Dim ObjContratos As New ClsContratos
         ObjContratos.IniciaTransacSQL()
         Try
-            'ObjContratos.AddContratos(LbFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", 10, -1, -1, -1, -1, LbArchivo.Text, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, TxtPesos.Text.ToDecimal, TxtDolares.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=34, CveContratosEstatus:=50, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CantidadPasajeros:=TxtCantidadPasajeros.Text.ToEntero, Observaciones:=TxtObservaciones.Text)
-            If ObjContratos.UpdateContratos(CveContrato, LbFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", LbCveSubProyecto.Text.ToEntero, -1, -1, -1, -1, ArchivoUpdate, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, TxtPesos.Text.ToDecimal, TxtDolares.Text.ToDecimal, -1, 0, CveContratoTipo:=CveContratoTipo, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveContratosEstatus:=CveContratoEstatus) Then
+            If ObjContratos.UpdateContratos(CveContrato, LbFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", LbCveSubProyecto.Text.ToEntero, -1, -1, -1, -1, ArchivoUpdate, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, -1, TxtImporte.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=CveContratoTipo, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveContratosEstatus:=CveContratoEstatus) Then
                 Alert("Contrato actualizado correctamente")
             End If
             ObjContratos.Commit()
@@ -255,6 +265,7 @@ Partial Class RepContratoDetalle
             ObjContratos.RollBack()
         Finally
             ObjContratos.Dispose()
+            AgregarABitacora($"Actualización del contrato {CveContrato}")
             CargaDatos()
         End Try
     End Sub
@@ -264,12 +275,16 @@ Partial Class RepContratoDetalle
             If CveMasivo <> 0 Then
                 If ObjContratos.RemoveContrato(CveContrato, UsuarioActual.CveEmpresa, CveMasivo:=CveMasivo) Then
                     Alert("Viajes masivos eliminados correctamente")
+                    AgregarABitacora($"Eliminación del contrato {CveContrato}")
+
                     ObjContratos.Dispose()
                     Response.Redirect("RepViajes.aspx")
                 End If
             Else
                 If ObjContratos.RemoveContrato(CveContrato, UsuarioActual.CveEmpresa) Then
                     Alert("Viaje eliminado correctamente")
+                    AgregarABitacora($"Eliminación de contratos masivos con clave {CveMasivo}")
+
                     ObjContratos.Dispose()
                     Response.Redirect("RepViajes.aspx")
                 End If
@@ -296,13 +311,24 @@ Partial Class RepContratoDetalle
             New ReportParameter("FechaRegreso", TxtFechaRegreso.Text.ToDate.ToString("HH:mm")),
             New ReportParameter("CantidadPasajeros", TxtCantidadPasajeros.Text),
             New ReportParameter("TipoAF", DdlTipoAF.Text),
-            New ReportParameter("Dolares", Math.Round(TxtDolares.Text.ToDecimal, 2).ToString),
-            New ReportParameter("Pesos", Math.Round(TxtPesos.Text.ToDecimal, 2).ToString),
+            New ReportParameter("Importe", Math.Round(TxtImporte.Text.ToDecimal, 2).ToString),
             New ReportParameter("Anticipo", (TxtAnticipo.Text.ToDecimal * 100).ToString)
         }
 
         ImprimirPDFStimul($"{UsuarioActual.Empresa.Ruta}Formatos\Contrato.mrt", dtResult, params, NombreArchivo:="Contrato")
     End Sub
+    Protected Sub AgregarABitacora(Descripcion As String)
+        Dim ObjEventoBitacora As New ClsOIEventos
+
+        Dim FileExtension As String = "-1"
+
+        If ObjEventoBitacora.AddEventoBitacora(Descripcion, FileExtension, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveContrato:=CveContrato) Then
+            Alert("Evento agregado a bitácora correctamente", TipoMensaje.MsgInformacion)
+
+        End If
+        ObjEventoBitacora.Dispose()
+
+    End Sub
 #End Region
 
 #Region "Boletos"
@@ -324,6 +350,8 @@ Partial Class RepContratoDetalle
         RegistraScript(String.Format("$('#{0}').modal('show');", "ModalEditar"))
     End Sub
     Protected Sub UpdateBoleto(sender As Object, e As EventArgs)
+
+
         If PnEditarViaje.Visible = True Then
             For Each boleto As DataRow In ViajeActual.Rows
                 If (boleto.Item("Asiento").ToString = TxtAsiento.Text) Then
@@ -346,6 +374,8 @@ Partial Class RepContratoDetalle
             ObjTransportes.RollBack()
         Finally
             Alert("Su asiento fue actualizado correctamente")
+            AgregarABitacora($"Cambio de asiento del pasajero {CveViajePasajero} del asiento al {TxtAsiento.Text} del contrato {CveContrato}")
+
             ObjTransportes.Dispose()
 
         End Try
@@ -513,6 +543,15 @@ Partial Class RepContratoDetalle
             Alert($"No se pudo cambiar el estatus del boleto", TipoMensaje.MsgError)
         Finally
             ObjTransportes.Dispose()
+            Dim toggleEstatus As String
+            If CBool(RblSexo.SelectedValue) Then
+                toggleEstatus = "Cancelación"
+            Else
+                toggleEstatus = "Reactivación"
+
+            End If
+            AgregarABitacora($"{toggleEstatus} del asiento {TxtAsiento.Text} del viaje {CveContrato} con clave de pasajero {CveViajePasajero}")
+
             CargaDatos()
         End Try
         UpPasajeros.Update()