From d391a3b40225ca7a90d5950e3d1eb9dee805fd7f Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 14 Sep 2021 13:38:39 -0700
Subject: [PATCH] =?UTF-8?q?se=20agreg=C2=B4=C2=B4o=20parametro=20Actvo=20F?=
 =?UTF-8?q?ijo?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Contabilidad2/CatCuentasAsignaciones.aspx    | 2 +-
 Contabilidad2/CatCuentasAsignaciones.aspx.vb | 9 +++++++--
 2 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx b/Contabilidad2/CatCuentasAsignaciones.aspx
index ea32e31b3..afdb7b36b 100644
--- a/Contabilidad2/CatCuentasAsignaciones.aspx
+++ b/Contabilidad2/CatCuentasAsignaciones.aspx
@@ -69,7 +69,7 @@
     <asp:UpdatePanel runat="server" ID="UpDatos" UpdateMode="Conditional">
         <ContentTemplate>
             <asp:GridView runat="server" ID="GvDatos" EmptyDataText="" ToolTip="" CssClass="table table-striped table-advance table-hover ScrollAD" 
-                DataKeyNames="CveCuentaAsignacion,CveConceptoContable,CveCuenta,IdCuenta,CveProveedor,CveCliente,CvePersonal,CveClasificacion,CveAlmacen,PorcentajeIVA,CveConceptoNomina,CveBancoCuenta" AutoGenerateColumns="False" 
+                DataKeyNames="CveCuentaAsignacion,CveConceptoContable,CveCuenta,IdCuenta,CveProveedor,CveCliente,CvePersonal,CveClasificacion,CveAlmacen,PorcentajeIVA,CveConceptoNomina,CveBancoCuenta,CveActivoFijo" AutoGenerateColumns="False" 
                 Style=" width:100%" GridLines="None">
                 <Columns>
                     <asp:BoundField DataField="ConceptoContable" ItemStyle-Width="150px" HeaderText="Concepto Contable" ItemStyle-HorizontalAlign="Left"/>
diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx.vb b/Contabilidad2/CatCuentasAsignaciones.aspx.vb
index 526852767..a4b1ade3c 100644
--- a/Contabilidad2/CatCuentasAsignaciones.aspx.vb
+++ b/Contabilidad2/CatCuentasAsignaciones.aspx.vb
@@ -174,6 +174,9 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
 
             If Dr("AplicaActivoFijo").ToString = "True" Then
                 divActivoFijo.Visible = True
+                DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)
+                DdlActivoFijo.DataBind()
+                DdlActivoFijo.SelectedValueExist(GvRow.DataKey("CveActivoFijo"))
             End If
 
             If Dr("AplicaNomina").ToString = "True" Then
@@ -249,13 +252,15 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
         If HdnCveCuentaAsignacion.Value.ToEntero <= 0 Then
             If Not ObjConta.AddCuentasAsignaciones(DdlCconceptosContables.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlCuenta.SelectedValue.ToEntero, TxtIdCuentaContable.Text.ToEntero,
                                                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()) Then
+                                               DdlClasificacion.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, TxtPorcentajeIVA.Text.ToDecimal, CveBancoCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero(),
+                                               CveConceptoNomina:=DdlConceptoNomina.SelectedValue.ToEntero(), CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero) Then
                 ErrorString = "Error al agregar"
             End If
         ElseIf HdnCveCuentaAsignacion.Value.ToEntero > 0 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, CveBancoCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero(), CveConceptoNomina:=DdlConceptoNomina.SelectedValue.ToEntero()) Then
+                                               DdlClasificacion.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, TxtPorcentajeIVA.Text.ToDecimal, CveBancoCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero(),
+                                               CveConceptoNomina:=DdlConceptoNomina.SelectedValue.ToEntero(), CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero) Then
                 ErrorString = "Error al actualizar"
             End If
         End If