nuevo catalogo de la tabla Cuentas Asignaciones

2020-03-28 17:45:57 -07:00
parent bcbc2b5b71
commit d8a005fbe8
4 changed files with 370 additions and 0 deletions
--- a/Contabilidad2/CatCuentasAsignaciones.aspx.vb
+++ b/Contabilidad2/CatCuentasAsignaciones.aspx.vb
@@ -0,0 +1,147 @@
+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