SIG/Contabilidad2/CatCuentasAsignaciones.aspx.vb

Imports System.Data
Imports System.Linq
Imports Extensiones

Partial Class Contabilidad2_CatCuentasAsignaciones
    Inherits ClsPaginas

    Private Property CveConceptoAsignacion() As Integer 'Guardamos el ID de registro para saber cual registro Editar
        Get
            Return If(IsNothing(ViewState("CveConceptoAsignacion")), -1, CInt(ViewState("CveConceptoAsignacion")))
        End Get
        Set
            ViewState("CveConceptoAsignacion") = Value
        End Set
    End Property

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            CargaDatos()
            CargaDatosModal()
        End If
    End Sub

    Private Sub CargaDatos()
        Dim ObjConta As New ClsContabilidad
        If ObjConta.GetCuentasAsignaciones(UsuarioActual.CveEmpresa) Then
            GvDatos.DataSource = ObjConta.DtResultados
        End If
        ObjConta.Dispose()
        GvDatos.DataBind()
    End Sub

    Private Sub CargaDatosModal()
        Dim ObjConta As New ClsContabilidad
        Dim ObjProveedores As New ClsCompProveedores
        Dim ObjRH As New ClsRH
        Dim ObjClasificaciones As New ClsClasificaciones
        Dim ObjInv As New ClsInventarios

        If ObjConta.GetConta_ConceptosContables() Then
            DdlCconceptosContables.DataSource = ObjConta.DtResultados
        End If

        If ObjConta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
            DdlCuenta.DataSource = ObjConta.DtResultados
        End If

        If ObjProveedores.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
            DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
        End If

        DdlClientes.setEsWebService(True)

        If ObjRH.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
            DdlPersonal.DataSource = ObjRH.DtResultados
        End If

        If ObjClasificaciones.GetClasificaciones(CveEmpresa:=UsuarioActual.CveEmpresa) Then
            DdlClasificacion.DataSource = ObjClasificaciones.DtResultados
        End If

        If ObjInv.GetAlmacenes(-1, -1, UsuarioActual.CveEmpresa, -1) Then
            DdlAlmacen.DataSource = ObjInv.DtResultados
        End If

        ObjConta.Dispose()
        ObjProveedores.Dispose()
        ObjRH.Dispose()
        ObjClasificaciones.Dispose()
        ObjInv.Dispose()


        DdlCconceptosContables.DataBind()
        DdlCuenta.DataBind()
        DdlProveedor.DataBind()
        DdlPersonal.DataBind()
        DdlClasificacion.DataBind()
        DdlAlmacen.DataBind()

        DdlCconceptosContables.Items.Insert(0, New ListItem("Seleccione", "-1"))
        DdlCuenta.Items.Insert(0, New ListItem("Seleccione", "-1"))
        DdlProveedor.Items.Insert(0, New ListItem("Seleccione", "-1"))
        DdlClasificacion.Items.Insert(0, New ListItem("Seleccione", "-1"))
        DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
    End Sub

    Protected Sub ActualizaModulo(sender As Object, e As EventArgs)
        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
        CveConceptoAsignacion = GvRow.DataKey("CveCuentaAsignacion").ToEntero
        DdlCconceptosContables.SelectedValue = GvRow.DataKey("CveConceptoContable").ToEntero
        DdlCuenta.SelectedValue = GvRow.DataKey("CveCuenta").ToEntero
        DdlProveedor.SelectedValue = GvRow.DataKey("CveProveedor").ToEntero
        DdlClasificacion.SelectedValue = GvRow.DataKey("CveClasificacion").ToEntero
        DdlAlmacen.SelectedValue = GvRow.DataKey("CveAlmacen").ToEntero
        TxtIdCuentaContable.Text = GvRow.DataKey("IdCuenta")
        TxtPorcentajeIVA.Text = GvRow.DataKey("PorcentajeIVA")
        LbAgregar.Text = "Actualizar"
        UpModalModulos.Update()
        RegistraScript("$('#ModalCat').modal();")
    End Sub

    Protected Sub EliminarRow(sender As Object, e As EventArgs)
        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
        Dim ObjConta As New ClsContabilidad
        If ObjConta.RemoveCuentasAsignaciones(GvRow.DataKey("CveCuentaAsignacion").ToEntero) Then
            Alert("se elimino correctamente")
        End If
        ObjConta.Dispose()
    End Sub

    Protected Sub BtnAgregarMotivoD_Click(sender As Object, e As EventArgs) Handles BtnAgregarMotivoD.Click
        CveConceptoAsignacion = -1
        DdlCconceptosContables.SelectedValue = -1
        DdlCuenta.SelectedValue = -1
        DdlProveedor.SelectedValue = -1
        DdlClasificacion.SelectedValue = -1
        DdlAlmacen.SelectedValue = -1
        TxtIdCuentaContable.Text = ""
        TxtPorcentajeIVA.Text = ""
        LbAgregar.Text = "Agregar"
        UpModalModulos.Update()
        RegistraScript("$('#ModalCat').modal();")
    End Sub

    Protected Sub LbAgregar_Click(sender As Object, e As EventArgs) Handles LbAgregar.Click
        Dim ObjConta As New ClsContabilidad
        Dim ErrorString As String = ""
        If LbAgregar.Text = "Agregar" Then
            If ObjConta.AddCuentasAsignaciones(DdlCconceptosContables.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero, TxtIdCuentaContable.Text.ToEntero,
                                               DdlProveedor.SelectedValue.ToEntero, DdlClientes.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero,
                                               DdlClasificacion.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, TxtPorcentajeIVA.Text.ToDecimal) Then
                ErrorString = "Error al Agregar"
            End If
        ElseIf LbAgregar.Text = "Actualizar" Then
            If ObjConta.UpdateCuentasAsignaciones(CveConceptoAsignacion, DdlCconceptosContables.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero, TxtIdCuentaContable.Text.ToEntero,
                                               DdlProveedor.SelectedValue.ToEntero, DdlClientes.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero,
                                               DdlClasificacion.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, TxtPorcentajeIVA.Text.ToDecimal) Then
                ErrorString = "Error al Actualizar"
            End If
        End If
        ObjConta.Dispose()
        RegistraScript("$('#ModalCat').modal('hide');")
        If ErrorString.Length > 0 Then
            Alert(ErrorString)
        End If
    End Sub
End Class