diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index 316635b7c..7f31c7a9d 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -5770,6 +5770,104 @@ Public Class ClsContabilidad
Return Retorno
End Function
+ Public Function GetCuentasAsignaciones(CveEmpresa As Integer) As Boolean
+ Dim Retorno = False
+
+ DataAdapter("PA_Conta_CuentasAsignacionesGet")
+
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ Me.OnError("Ocurrió un error al obtener el catálogo de cuentas asignación", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+
+ Return Retorno
+ End Function
+
+ Public Function AddCuentasAsignaciones(Optional CveConceptoContable As Integer = -1, Optional CveCuenta As Integer = -1, Optional IdCtaContable As Integer = -1,
+ Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1,
+ Optional CveClasificacion As Integer = -1, Optional CveAlmacen As Integer = -1, Optional PorcentajeIVA As Decimal = -1) As Boolean
+ Dim Retorno = False
+
+ DataAdapter("PA_Conta_CuentasAsignacionesAdd")
+
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveConceptoContable", SqlDbType.Int).Value = CveConceptoContable
+ .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
+ .Add("@IdCtaContable", SqlDbType.Int).Value = IdCtaContable
+ .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+ .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+ .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
+ .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
+ .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
+ .Add("@PorcentajeIVA", SqlDbType.Decimal).Value = PorcentajeIVA
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ Me.OnError("Ocurrió un error al agregar la cuenta asignación", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+
+ Return Retorno
+ End Function
+
+ Public Function RemoveCuentasAsignaciones(CveCuentaAsignacion As Integer) As Boolean
+ Dim Retorno = False
+
+ DataAdapter("PA_Conta_CuentasAsignacionesDelete")
+
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveCuentaAsignacion", SqlDbType.Int).Value = CveCuentaAsignacion
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ Me.OnError("Ocurrió un error al eliminar el catálogo de cuentas asignación", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+
+ Return Retorno
+ End Function
+
+ Public Function UpdateCuentasAsignaciones(CveConceptoAsignacion As Integer, Optional CveConceptoContable As Integer = -1, Optional CveCuenta As Integer = -1,
+ Optional IdCtaContable As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1,
+ Optional CvePersonal As Integer = -1, Optional CveClasificacion As Integer = -1, Optional CveAlmacen As Integer = -1,
+ Optional PorcentajeIVA As Decimal = -1) As Boolean
+ Dim Retorno = False
+
+ DataAdapter("PA_Conta_CuentasAsignacionesAdd")
+
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveCuentaAsignacion", SqlDbType.Int).Value = CveConceptoAsignacion
+ .Add("@CveConceptoContable", SqlDbType.Int).Value = CveConceptoContable
+ .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
+ .Add("@IdCtaContable", SqlDbType.Int).Value = IdCtaContable
+ .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+ .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+ .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
+ .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
+ .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
+ .Add("@PorcentajeIVA", SqlDbType.Decimal).Value = PorcentajeIVA
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ Me.OnError("Ocurrió un error al agregar la cuenta asignación", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+
+ Return Retorno
+ End Function
+
#Region " RECONSTRUCCION DE PREPOLIZAS "
Public Function ReconstruirPP_PagoCompra(CvePrePoliza As Integer) As Boolean
Dim Retorno = False
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 1189f9541..6c79fa996 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -4067,6 +4067,7 @@ Public Class ClsPaginas
PaginaDict.Add("/Contabilidad2/RepAnexoCatalogoSAT.aspx".ToUpper(), 618)
PaginaDict.Add("/Contabilidad2/MovimientosConProveedores.aspx".ToUpper(), 619)
PaginaDict.Add("/Contabilidad2/RepBalanceGeneral.aspx".ToUpper(), 530)
+ PaginaDict.Add("/Contabilidad2/CatCuentasAsignaciones.aspx".ToUpper(), 724)
#End Region
'CONTRATOS
#Region "Contratos"
diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx b/Contabilidad2/CatCuentasAsignaciones.aspx
new file mode 100644
index 000000000..8bd7dba81
--- /dev/null
+++ b/Contabilidad2/CatCuentasAsignaciones.aspx
@@ -0,0 +1,124 @@
+<%@ Page Title="Contabilidad2 - Catálogo Cuentas Asignación" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatCuentasAsignaciones.aspx.vb" Inherits="Contabilidad2_CatCuentasAsignaciones" %>
+
+<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
+
+
+
+
+
+
+
+ Catálogo de Cuentas Asignación.
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx.vb b/Contabilidad2/CatCuentasAsignaciones.aspx.vb
new file mode 100644
index 000000000..dab34ed30
--- /dev/null
+++ 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