Gastos de Trayectos

2019-09-07 18:39:12 -07:00
parent 32fa6d327e
commit 89fd419478
5 changed files with 349 additions and 7 deletions
--- a/GPS/RepGastos.aspx.vb
+++ b/GPS/RepGastos.aspx.vb
@@ -0,0 +1,139 @@
+Option Explicit On
+Option Strict On
+Imports Extensiones
+
+Partial Class GPS_RepGastos
+    Inherits ClsPaginas
+#Region "PROPIEDADES"
+    Private Property CveGPSGasto() As Integer
+        Get
+            Return If(IsNothing(ViewState("CveGPSGasto")), -1, CInt(ViewState("CveGPSGasto")))
+        End Get
+        Set
+            ViewState("CveGPSGasto") = Value
+        End Set
+    End Property
+    Private Property Modalidad() As String
+        Get
+            Return If(IsNothing(ViewState("Modalidad")), "", (ViewState("Modalidad").ToString))
+        End Get
+        Set
+            ViewState("Modalidad") = Value
+        End Set
+    End Property
+#End Region
+
+    Private Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Not IsPostBack Then
+            CargaCombos()
+            CargaDatos()
+        End If
+    End Sub
+
+#Region "CARGAS"
+    Private Sub CargaCombos()
+
+        txtFechaI.Text = $"01/{DateTime.Now.ToString("MM")}/{DateTime.Now.Year} 00:00"
+        txtFechaF.Text = $"{DateTime.Now.ToString("dd/MM/yyyy")} 23:59"
+
+        Dim ObjGPS As New ClsGPS()
+        If ObjGPS.GetTrayectos(-1, -1, UsuarioActual.CveCliente) Then
+            DdlTrayecto.DataSource = ObjGPS.DtResultados
+            DdlTrayectoFiltro.DataSource = ObjGPS.DtResultados
+        End If
+        ObjGPS.Dispose()
+
+        DdlTrayecto.DataBind()
+        DdlTrayectoFiltro.DataBind()
+
+        UPFiltros.Update()
+        UpModal.Update()
+    End Sub
+    Private Sub CargaDatos()
+        Dim ObjGral As New ClsGPS
+        If ObjGral.GetGastos(-1, UsuarioActual.CveCliente, CveTrayecto:=DdlTrayectoFiltro.SelectedValue.ToEntero()) Then
+            GvDatos.DataSource = ObjGral.DtResultados
+        End If
+        ObjGral.Dispose()
+        GvDatos.DataBind()
+        UpDatos.Update()
+    End Sub
+
+    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
+        CargaDatos()
+    End Sub
+
+#End Region
+
+#Region "BOTONES"
+
+    Protected Sub LnkEditar_Click(sender As Object, e As EventArgs)
+        LimpiaModal()
+        DivTrayecto.Visible = False
+        Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
+
+        CveGPSGasto = gvRow.DataKey("CveGPSGasto").ToEntero()
+        TxtCantidad.Text = gvRow.DataKey("Cantidad")
+        TxtPrecio.Text = gvRow.DataKey("Precio")
+        TxtDescripcion.Text = gvRow.DataKey("Descripcion")
+        TxtObs.Text = gvRow.DataKey("Observaciones")
+        TxtFecha.Text = gvRow.DataKey("Fecha").ToDateTime().ToString("dd/MM/yyyy hh:mm:ss")
+
+        Modalidad = "U"
+        BtnGuardar.Text = "Actualizar"
+        ltlMotititulo.Text = "Actualizar Gasto"
+        RegistraScript("$('#DModal').modal('show')")
+        UpModal.Update()
+    End Sub
+    Protected Sub LnkEliminar_Click(sender As Object, e As EventArgs)
+        Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
+        Dim ObjPS As New ClsGPS
+        Dim CveGasto = gvRow.DataKey("CveGPSGasto").ToEntero
+        If ObjPS.RemoveGasto(CveGasto) Then
+            Alert("El gasto se eliminó correctamente.", TipoMensaje.MsgInformacion)
+        End If
+        ObjPS.Dispose()
+        CargaDatos()
+    End Sub
+
+    Protected Sub LnkAgregar_Click(sender As Object, e As EventArgs)
+        LimpiaModal()
+        DivTrayecto.Visible = True
+        Modalidad = "A"
+        BtnGuardar.Text = "Agregar"
+        ltlMotititulo.Text = "Agregar Gasto"
+
+        UpModal.Update()
+        RegistraScript("$('#DModal').modal()")
+    End Sub
+    Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs)
+        Dim ObjPS As New ClsGPS
+        If Modalidad = "A" Then
+            If ObjPS.AddGasto(TxtCantidad.Text.ToDecimal(), TxtPrecio.Text.Trim().ToDecimal(), TxtDescripcion.Text.Trim(), TxtObs.Text.Trim(), TxtFecha.Text.ToDateTime(),
+                              2, UsuarioActual.CveUsuario, UsuarioActual.CveCliente, CveTrayecto:=DdlTrayecto.SelectedValue.ToEntero()) Then
+                RegistraScript("$('#DModal').modal('hide')")
+                Alert("El Gasto se agregó correctamente.", TipoMensaje.MsgInformacion)
+            End If
+        ElseIf Modalidad = "U" Then
+            If ObjPS.UpdateGasto(CveGPSGasto, TxtCantidad.Text.ToDecimal(), TxtPrecio.Text.Trim().ToDecimal(), TxtDescripcion.Text.Trim(), TxtObs.Text.Trim(), TxtFecha.Text.ToDateTime(), UsuarioActual.CveUsuario) Then
+                RegistraScript("$('#DModal').modal('hide')")
+                Alert("El Gasto se agregó correctamente.", TipoMensaje.MsgInformacion)
+            End If
+        End If
+        ObjPS.Dispose()
+        CargaDatos()
+    End Sub
+
+#End Region
+
+#Region "LIMPIAR"
+    Protected Sub LimpiaModal()
+        TxtCantidad.Text = ""
+        TxtPrecio.Text = ""
+        TxtDescripcion.Text = ""
+        TxtObs.Text = ""
+        TxtFecha.Text = ""
+        DdlTrayecto.SelectedValueExist("-1")
+    End Sub
+
+#End Region