From be36ad1b2ba7f8b13a9c5287d4c73c7759c70fe0 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 4 May 2023 18:18:40 -0700 Subject: [PATCH] =?UTF-8?q?cambios,=20para=20activaci=C3=B3n=20de=20cuenta?= =?UTF-8?q?s=20de=20cr=C3=A9dito?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsContabilidad.vb | 7 ++-- Bancos/Creditos.aspx | 4 +-- Bancos/Creditos.aspx.vb | 2 +- Contabilidad2/CatCuentasAsignaciones.aspx | 6 +++- Contabilidad2/CatCuentasAsignaciones.aspx.vb | 34 +++++++++++++++++--- 5 files changed, 43 insertions(+), 10 deletions(-) diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 51106972c..522115cf8 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -5986,7 +5986,8 @@ Public Class ClsContabilidad Public Function AddCuentasAsignaciones(Optional CveConceptoContable As Integer = -1, Optional CveEmpresa 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, Optional CveConceptoNomina As Decimal = -1, Optional CveBancoCuenta As Integer = -1, - Optional CveSubProyecto As Integer = -1, Optional CveActivoFijo As Integer = -1, Optional CveTipoGasto As Integer = -1, Optional RegeneraCuenta As Boolean = False, + Optional CveSubProyecto As Integer = -1, Optional CveActivoFijo As Integer = -1, Optional CveTipoGasto As Integer = -1, Optional CveCredito As Integer = -1, + Optional RegeneraCuenta As Boolean = False, Optional OpActualizarClasificacion As Boolean = False) As Boolean Dim Retorno = False @@ -6008,6 +6009,7 @@ Public Class ClsContabilidad .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo .Add("@CveTipoGasto", SqlDbType.Int).Value = CveTipoGasto + .Add("@CveCredito", SqlDbType.Int).Value = CveCredito .Add("@RegeneraCuenta", SqlDbType.Bit).Value = RegeneraCuenta .Add("@OpActualizarClasificacion", SqlDbType.Bit).Value = OpActualizarClasificacion End With @@ -6027,7 +6029,7 @@ Public Class ClsContabilidad Optional CvePersonal As Integer = -1, Optional CveClasificacion As Integer = -1, Optional CveAlmacen As Integer = -1, Optional PorcentajeIVA As Decimal = -1, Optional CveConceptoNomina As Decimal = -1, Optional CveBancoCuenta As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional CveActivoFijo As Integer = -1, Optional CveTipoGasto As Integer = -1, - Optional RegeneraCuenta As Boolean = False) As Boolean + Optional CveCredito As Integer = -1, Optional RegeneraCuenta As Boolean = False) As Boolean Dim Retorno = False DataAdapter("PA_Conta_CuentasAsignacionesUpdate") @@ -6048,6 +6050,7 @@ Public Class ClsContabilidad .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo .Add("@CveTipoGasto", SqlDbType.Int).Value = CveTipoGasto + .Add("@CveCredito", SqlDbType.Int).Value = CveCredito .Add("@RegeneraCuenta", SqlDbType.Bit).Value = RegeneraCuenta End With diff --git a/Bancos/Creditos.aspx b/Bancos/Creditos.aspx index 9cfa5c2aa..9811be61a 100644 --- a/Bancos/Creditos.aspx +++ b/Bancos/Creditos.aspx @@ -493,7 +493,7 @@ - + @@ -501,7 +501,7 @@ - + Cuenta Contable: diff --git a/Bancos/Creditos.aspx.vb b/Bancos/Creditos.aspx.vb index 79963120b..ca0aac1cb 100644 --- a/Bancos/Creditos.aspx.vb +++ b/Bancos/Creditos.aspx.vb @@ -549,7 +549,7 @@ Partial Class Bancos_Creditos DdlCtaContable.Items.Clear() Dim IdCuentaPadre As Integer = If(RBLClasificacionContable.SelectedValue.ToEntero = 1, UsuarioActual.Empresa.Funcionalidad(203).ToEntero, UsuarioActual.Empresa.Funcionalidad(202).ToEntero) - If IdCuentaPadre > 0 Then + If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso IdCuentaPadre > 0 Then Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa) If ObjContabilidad.GetCuentasRecursiva(IdCuentaPadre, 1) Then DdlCtaContable.DataSource = ObjContabilidad.DtResultados diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx b/Contabilidad2/CatCuentasAsignaciones.aspx index 685958e85..13673cbd0 100644 --- a/Contabilidad2/CatCuentasAsignaciones.aspx +++ b/Contabilidad2/CatCuentasAsignaciones.aspx @@ -74,7 +74,7 @@ @@ -186,6 +186,10 @@ +
+ + +
diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx.vb b/Contabilidad2/CatCuentasAsignaciones.aspx.vb index 009282029..6dfad76ba 100644 --- a/Contabilidad2/CatCuentasAsignaciones.aspx.vb +++ b/Contabilidad2/CatCuentasAsignaciones.aspx.vb @@ -180,6 +180,18 @@ Partial Class Contabilidad2_CatCuentasAsignaciones DdlPersonal.SelectedText = drp End If + If GvRow.DataKey("CveCredito").ToEntero > 0 Then + DdlCreditos.Items.Clear() + DdlCreditos.ClearSelection() + Dim ObjCreditos As New ClsBancos + If ObjCreditos.GetCreditos(-1, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then + DdlCreditos.DataSource = ObjCreditos.DtResultados.FiltraParametros("", DistinctColumns:={"CveCredito", "Referencia"}) + End If + ObjCreditos.Dispose() + DdlCreditos.DataBind() + DdlCreditos.SelectedValue = GvRow.DataKey("CveCredito") + End If + LbAgregar.Text = "Actualizar" UpModalModulos.Update() RegistraScript("$('#ModalCat').modal();") @@ -203,6 +215,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones divAlmacen.Visible = Boolean.Parse(Dr("AplicaAlmacen").ToString) divSubProyectos.Visible = Boolean.Parse(Dr("AplicaSubProyecto").ToString) divActivoFijo.Visible = Boolean.Parse(Dr("AplicaActivoFijo").ToString) + divCredito.Visible = Boolean.Parse(Dr("AplicaCredito").ToString) DdlActivoFijo.Enabled = False @@ -215,10 +228,8 @@ Partial Class Contabilidad2_CatCuentasAsignaciones Else DdlActivoFijo.Enabled = False End If - End If - divConceptoNomina.Visible = Dr("AplicaNomina").ToString = "True" If CveConceptoContable = 51 Then @@ -231,6 +242,21 @@ Partial Class Contabilidad2_CatCuentasAsignaciones If Dr("CveTipoSaldo").ToString = "1" Then divRegeneraCuenta.Visible = True End If + + If Dr("AplicaCredito").ToString = "True" Then + Dim ObjCreditos As New ClsBancos + If ObjCreditos.GetCreditos(-1, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then + DdlCreditos.DataSource = ObjCreditos.DtResultados.FiltraParametros("", DistinctColumns:={"CveCredito", "Referencia"}) + End If + ObjCreditos.Dispose() + DdlCreditos.DataBind() + + If OpAgregar Then + DdlCreditos.Enabled = True + Else + DdlCreditos.Enabled = False + End If + End If End If End Sub @@ -322,7 +348,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones DdlProveedor.SelectedValue.ToEntero, DdlClientes.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, TxtPorcentajeIVA.Text.ToDecimal, CveBancoCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero(), CveConceptoNomina:=DdlConceptoNomina.SelectedValue.ToEntero(), CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero, - CveTipoGasto:=DdlTipoGasto.SelectedValue.ToEntero, RegeneraCuenta:=chkRegeneraCuenta.Checked) Then + CveTipoGasto:=DdlTipoGasto.SelectedValue.ToEntero, CveCredito:=DdlCreditos.SelectedValue.ToEntero, RegeneraCuenta:=chkRegeneraCuenta.Checked) Then ErrorString = "Error al agregar" End If ElseIf HdnCveCuentaAsignacion.Value.ToEntero > 0 Then @@ -330,7 +356,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones DdlProveedor.SelectedValue.ToEntero, DdlClientes.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, TxtPorcentajeIVA.Text.ToDecimal, CveBancoCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero(), CveConceptoNomina:=DdlConceptoNomina.SelectedValue.ToEntero(), CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero, - CveTipoGasto:=DdlTipoGasto.SelectedValue.ToEntero, RegeneraCuenta:=chkRegeneraCuenta.Checked) Then + CveTipoGasto:=DdlTipoGasto.SelectedValue.ToEntero, CveCredito:=DdlCreditos.SelectedValue.ToEntero, RegeneraCuenta:=chkRegeneraCuenta.Checked) Then ErrorString = "Error al actualizar" End If End If