133 lines
5.0 KiB
VB.net
133 lines
5.0 KiB
VB.net
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
|