SIG/Inventarios/CatUnidades.aspx.vb

Imports Extensiones
Partial Class Inventarios_CatUnidades
    Inherits ClsPaginas

    Private Property CveCamion As Integer
        Get

            If ViewState("CveCamion") Is Nothing Then
                Return -1
            Else
                Return ViewState("CveCamion").ToString().ToEntero()
            End If
        End Get
        Set(ByVal value As Integer)
            ViewState("CveCamion") = value
        End Set
    End Property

    Private Sub Catalogos_CatPtoSubFunsion_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            CargaCombos()
            CargaDatos()
        End If
    End Sub

    Public Sub CargaDatos()



        Dim ObjInventarios As New ClsInventarios

        If ObjInventarios.GetCamiones(-1, UsuarioActual.CveEmpresa) Then
            GvDatos.DataSource = ObjInventarios.DtResultados
        Else
            GvDatos.DataSource = Nothing
        End If

        ObjInventarios.Dispose()
        GvDatos.DataBind()
        UpDatos.Update()


    End Sub

    Private Sub CargaCombos()

        Using ObjGral As New ClsGenerales
            If ObjGral.GetCartaPorteConfigAutoTransportes() Then
                DdlConfigAuto.DataSource = ObjGral.DtResultados
            End If
            If ObjGral.GetCartaPorteTipoPermisoSCT() Then
                DdlTipoPermisoSCT.DataSource = ObjGral.DtResultados
            End If
        End Using

        DdlConfigAuto.DataBind()
        DdlTipoPermisoSCT.DataBind()

        UpModalUnidades.Update()

    End Sub


    Protected Sub LnkAgregarUnidad_Click(sender As Object, e As EventArgs)

        CveCamion = -1

        BtnAgregarCamion.Text = "Agregar"

        TxtPlacaNuevo.Text = ""
        TxtEspecificacionNuevo.Text = ""
        TxtEspecificacionNuevo.Text = ""
        DdlConfigAuto.SelectedValueExist(-1)

        TxtAnio.Text = ""
        'TxtTipoPermisoSCT.Text = ""
        TxtNumermisoSCT.Text = ""
        TxtNombreAseguradora.Text = ""
        TxtNumPolizaSeguro.Text = ""
        TxtNombreAseguradoraMedioAmbiente.Text = ""
        TxtNumPolizaSeguroMedioAmbiente.Text = ""
        TxtNombreAseguradoraCarga.Text = ""
        TxtNumPolizaSeguroCarga.Text = ""

        LtlTituloModal.Text = "Agregar Unidad"

        UpModalUnidades.Update()
        RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarUnidad"))
    End Sub

    Protected Sub LnkEditar_Click(sender As Object, e As EventArgs)

        BtnAgregarCamion.Text = "Actualizar"
        Dim GvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow)

        CveCamion = GvRow.DataKey("CveCamion").ToEntero()


        TxtPlacaNuevo.Text = GvRow.DataKey("Placa")
        TxtEspecificacionNuevo.Text = GvRow.DataKey("Especificacion")

        DdlConfigAuto.SelectedValueExist(GvRow.DataKey("ConfigCartaPorte"))

        TxtAnio.Text = GvRow.DataKey("Anio")
        DdlTipoPermisoSCT.SelectedValueExist(GvRow.DataKey("CveTipoPermisoSCT"))
        TxtNumermisoSCT.Text = GvRow.DataKey("NumPermisoSCT")
        TxtNombreAseguradora.Text = GvRow.DataKey("NombreAseguradora")
        TxtNumPolizaSeguro.Text = GvRow.DataKey("NumPolizaSeguro")

        TxtNombreAseguradoraMedioAmbiente.Text = GvRow.DataKey("NombreAseguradoraMedioAmbiente")
        TxtNumPolizaSeguroMedioAmbiente.Text = GvRow.DataKey("NumPolizaSeguroMedioAmbiente")
        TxtNombreAseguradoraCarga.Text = GvRow.DataKey("NombreAseguradoraCarga")
        TxtNumPolizaSeguroCarga.Text = GvRow.DataKey("NumPolizaSeguroCarga")

        LtlTituloModal.Text = "Actualizar Unidad"

        UpModalUnidades.Update()

        RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarUnidad"))
    End Sub

    Protected Sub LnkEliminar_Click(sender As Object, e As EventArgs)

        Dim ErrorAlElimiar As Boolean = False

        Dim GvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow)

        Dim CveCamionEliminar = GvRow.DataKey("CveCamion").ToEntero()

        Dim ObjInventarios As New ClsInventarios

        If (ObjInventarios.RemoveCamiones(CveCamionEliminar, UsuarioActual.CveEmpresa)) Then

            UpDatos.Update()
            RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarUnidad"))
            Alert("Unidad Eliminada Correctamente")
        Else
            ErrorAlElimiar = True
        End If

        ObjInventarios.Dispose()

        If Not ErrorAlElimiar Then
            GlobalDTInvCamiones(UsuarioActual.CveEmpresa) = Nothing
            CargaDatos()
        End If

    End Sub

    Protected Sub BtnAgregarCamion_Click(sender As Object, e As EventArgs)

        Dim ErrorPrceso As Boolean = False

        Dim ObjInventarios As New ClsInventarios

        If CveCamion <= 0 Then
            If ObjInventarios.AddCamiones(TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, UsuarioActual.CveEmpresa, DdlConfigAuto.SelectedValue, TxtAnio.Text.ToEntero(), DdlTipoPermisoSCT.SelectedValue.ToEntero, TxtNumermisoSCT.Text, TxtNombreAseguradora.Text, TxtNumPolizaSeguro.Text, UsuarioActual.CveUsuario,
                                          TxtNombreAseguradoraMedioAmbiente.Text, TxtNumPolizaSeguroMedioAmbiente.Text, TxtNombreAseguradoraCarga.Text, TxtNumPolizaSeguroCarga.Text) Then
                Alert("Unidad agregada correctamente")
            Else
                ErrorPrceso = True
            End If
        Else
            If ObjInventarios.UpdateCamiones(CveCamion, TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, DdlConfigAuto.SelectedValue, TxtAnio.Text.ToEntero(), DdlTipoPermisoSCT.SelectedValue.ToEntero, TxtNumermisoSCT.Text, TxtNombreAseguradora.Text, TxtNumPolizaSeguro.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
                                             TxtNombreAseguradoraMedioAmbiente.Text, TxtNumPolizaSeguroMedioAmbiente.Text, TxtNombreAseguradoraCarga.Text, TxtNumPolizaSeguroCarga.Text) Then
                Alert("Unidad actualizada correctamente")
            Else
                ErrorPrceso = True
            End If
        End If


        If Not ErrorPrceso Then
            GlobalDTInvCamiones(UsuarioActual.CveEmpresa) = Nothing
            CargaDatos()
        End If

        UpDatos.Update()

        RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarUnidad"))

    End Sub


End Class