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