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

        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

        DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)

        DdlClientes.setEsWebService(True)

        DdlPersonal.setEsWebService(True)

        DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)

        DdlAlmacen.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa)

        ObjConta.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")
        Dim CveCliente As Integer = GvRow.DataKey("CveCliente").ToEntero
        Dim CvePersonal As Integer = GvRow.DataKey("CvePersonal").ToEntero

        If CveCliente > 0 Then
            DdlClientes.setEsWebService(False)
            Dim ObjCliente As New ClsClientes
            If ObjCliente.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
                DdlClientes.ddl.DataSource = ObjCliente.DtResultados
            End If
            DdlClientes.ddl.DataBind()
            DdlClientes.ddl.SelectedValue = CveCliente
        End If

        If CvePersonal > 0 Then
            DdlPersonal.setEsWebService(False)
            Dim ObjPersonal As New ClsRH
            If ObjPersonal.GetPersonal(-1, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
                DdlPersonal.ddl.DataSource = ObjPersonal.DtResultados
            End If
            DdlPersonal.ddl.DataBind()
            DdlPersonal.ddl.SelectedValue = CvePersonal
        End If

        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
        CargaDatos()
        UpDatos.Update()
        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 = ""
        DdlClientes.ddl.DataSource = ""
        DdlClientes.ddl.DataBind()
        DdlClientes.setEsWebService(True)
        DdlPersonal.ddl.DataSource = ""
        DdlPersonal.ddl.DataBind()
        DdlPersonal.setEsWebService(True)
        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 Not 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 Not 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()
        If Not ChkSeguirRegistrando.Checked Then RegistraScript("$('#ModalCat').modal('hide');")

        If ErrorString.Length > 0 Then
            Alert(ErrorString)
        Else
            Alert("Agregado correctamente")
        End If
        CargaDatos()
        UpDatos.Update()
    End Sub
End Class