--Cambios para adaptar a la nueva BD RMF. Tanto métodos, PA y contenidos de las tablas

2024-01-10 09:45:52 -07:00
parent a30a377601
commit d9837f08bc
11 changed files with 28 additions and 178 deletions
--- a/Transportes/RepContratos.aspx.vb
+++ b/Transportes/RepContratos.aspx.vb
@@ -0,0 +1,132 @@
+Option Explicit On
+Option Strict On
+Imports Extensiones.ModExtensiones
+
+Partial Class ListadoContratos
+    Inherits ClsPaginas
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not IsPostBack Then
+            InicializaCombos()
+            CargaDatos()
+        End If
+    End Sub
+
+    Private Sub InicializaCombos()
+        DdlClientes.setEsWebService(True)
+        'Lista Activos Fijos'
+        Dim ObjAF As New ClsAF()
+        If ObjAF.GetActivosFijos(-1, 13, "-1", "-1", -1, -1, "-1", -1, -1, -1, -1, 1, "-1", -1, -1, -1) Then
+            If ObjAF.DtResultados.Rows.Count > 0 Then
+                DdlTransporte.DataSource = ObjAF.DtResultados
+                DdlTransporte.Items.Insert(0, New ListItem("Seleccione", ""))
+            End If
+        End If
+        DdlTransporte.DataBind()
+        ObjAF.Dispose()
+    End Sub
+
+    Private Sub CargaDatos()
+        Dim ObjContratos As New ClsContratos
+        If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, TipoContrato:=2) Then
+            GvContratos.DataSource = ObjContratos.DtResultados
+        End If
+        ObjContratos.Dispose()
+        GvContratos.DataBind()
+    End Sub
+
+    Protected Sub MostrarModal()
+        TxtDescripcion.Text = ""
+        TxtFechaSalida.Text = ""
+        TxtFechaRegreso.Text = ""
+        TxtObservaciones.Text = ""
+        TxtUbicacion.Text = ""
+        DdlTransporte.SelectedValue = ""
+        BtnGuardar.Text = "Guardar"
+        RegistraScript(String.Format("$('#{0}').modal('show');", "ModalAgregar"))
+    End Sub
+    Private Sub LBAgregarContrato_Click(sender As Object, e As EventArgs) Handles LBAgregarContrato.Click
+        MostrarModal()
+    End Sub
+    Protected Sub AddContrato(sender As Object, e As EventArgs)
+
+        If DdlClientes.SelectedValue = "" Then
+            Alert("Debe seleccionar al cliente", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        Dim ObjContratos As New ClsContratos
+        ObjContratos.IniciaTransacSQL()
+        Try
+
+
+            Dim CveEstatusInicial As Integer = 10
+            Dim CveContratoHijo As Integer = -1
+            Dim CveContratoTipo As Integer = 2
+
+            If ObjContratos.GetContratosEstatus(UsuarioActual.CveEmpresa) Then
+                CveEstatusInicial = ObjContratos.DtResultados.FiltroPrimeroValor("CveContratoEstatus", "TipoEstatus=1").ToEntero
+            End If
+
+            CveContratoHijo = ObjContratos.AddContratos("", TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", 10, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, -1, 0, CveContratoTipo:=2, CveContratosEstatus:=1, CveTipoAF:=DdlTransporte.SelectedValue.ToEntero)
+
+
+            If CveContratoHijo > 0 Then
+                ObjContratos.Commit()
+                Alert("Agregado Correctamente.")
+                TxtDescripcion.Text = ""
+                TxtFechaSalida.Text = ""
+                TxtFechaRegreso.Text = ""
+                TxtObservaciones.Text = ""
+                TxtUbicacion.Text = ""
+                DdlClientes.SelectedValue = ""
+                DdlTransporte.SelectedValue = ""
+
+            End If
+
+        Catch ex As Exception
+            Alert($"Ocurrió un error {ex}", TipoMensaje.MsgError)
+            ObjContratos.RollBack()
+        Finally
+            ObjContratos.Dispose()
+            CargaDatos()
+
+        End Try
+
+    End Sub
+
+    Protected Sub UpdateContrato(sender As Object, e As EventArgs)
+
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+        Dim fechaInicial As DateTime
+        Dim fechaFinal As DateTime
+
+        DdlClientes.SelectedValue = GvRow.DataKey("CveCliente")
+        TxtDescripcion.Text = GvRow.DataKey("DescripcionContrato")
+        TxtObservaciones.Text = GvRow.DataKey("DescripcionContrato")
+        TxtUbicacion.Text = GvRow.DataKey("Ubicacion")
+        DdlTransporte.SelectedValue = GvRow.DataKey("CveTipoAF")
+        If DateTime.TryParse(GvRow.DataKey("FechaInicial").ToString, fechaInicial) And DateTime.TryParse(GvRow.DataKey("FechaFinal").ToString, fechaFinal) Then
+            TxtFechaSalida.Text = fechaInicial.ToString("yyyy-MM-dd HH:mm:ss").Replace(" ", "T")
+            TxtFechaRegreso.Text = fechaFinal.ToString("yyyy-MM-dd HH:mm:ss").Replace(" ", "T")
+        End If
+
+
+        BtnGuardar.Text = "Editar"
+
+        RegistraScript(String.Format("$('#{0}').modal('show');", "ModalAgregar"))
+    End Sub
+
+    Protected Sub RemoveContrato(sender As Object, e As EventArgs)
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        Dim ObjContratos As New ClsContratos
+
+        If ObjContratos.RemoveContrato(GvRow.DataKey("CveContrato").ToEntero, UsuarioActual.CveEmpresa) Then
+            Alert("Contrato eliminado correctamente")
+            CargaDatos()
+        End If
+        ObjContratos.Dispose()
+
+    End Sub
+End Class