From 71a602f51f94bc01cd24ab1013bb1088848f4cd8 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 23 Jun 2025 13:11:02 -0700
Subject: [PATCH] =?UTF-8?q?--=20activaci=C3=B3n=20de=20cveAF?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Contabilidad/RegPrePolizaS.aspx    |  2 +-
 Contabilidad/RegPrePolizaS.aspx.vb | 10 +++-------
 2 files changed, 4 insertions(+), 8 deletions(-)

diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx
index fc6eca015..0a7ab5eb8 100644
--- a/Contabilidad/RegPrePolizaS.aspx
+++ b/Contabilidad/RegPrePolizaS.aspx
@@ -317,7 +317,7 @@
 
                     <div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom ">
                         <asp:GridView ID="GvMov" runat="server" AutoGenerateColumns="False" ShowHeader="True"
-                            DataKeyNames="IdMov,Cargo,Abono,TipoMovto,CveConceptoContable,CveProveedor,CvePersonal, CveCompra,CveClasificacion,CveCliente,CveVenta,CveCuenta, ContadoTipoTransaccion, ContadoCuenta, ContadoNumeroFolio, ContadoImporte, ContadoBeneficiario, ContadoObservaciones,EsComplementaria, EsMonedaExtranjera,ImporteME, PorcentajeImpuesto, TC" 
+                            DataKeyNames="IdMov,Cargo,Abono,TipoMovto,CveConceptoContable,CveProveedor,CvePersonal, CveCompra,CveClasificacion,CveCliente,CveVenta,CveCuenta, ContadoTipoTransaccion, ContadoCuenta, ContadoNumeroFolio, ContadoImporte, ContadoBeneficiario, ContadoObservaciones,EsComplementaria, EsMonedaExtranjera,ImporteME, PorcentajeImpuesto,CveActivoFijo, TC" 
                             Width="100%" CssClass=" GvMov GvSize table table-striped table-advance table-hover mysmallbtn" GridLines="None">
                             <Columns>
                                 <asp:TemplateField>
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index 4c510b87b..2f2481421 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -1100,7 +1100,6 @@ Partial Class ContabilidadC_RegPrePolizaS
                                                             CveTipoGasto:=tCveTipoGasto,
                                                             CveCliente:=gvr.DataKey("CveCliente").ToEntero, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveActivoFijo:=gvr.DataKey("CveActivoFijo").ToEntero, CveCuenta:=tCveCuenta, PorcentajeImpuesto:=gvr.DataKey("PorcentajeImpuesto").ToDecimal) Then
                                 ContRegInsertados = ContRegInsertados + 1
-
                             Else
                                 MsgError = "No se pudo insertar el detalle de la póliza2"
                                 Exit For
@@ -1152,7 +1151,6 @@ Partial Class ContabilidadC_RegPrePolizaS
         ObjContabilidad.IniciaTransacSQL()
 
         Try
-
             Dim Retorno As Boolean = ObjContabilidad.UpdatePrePoliza(MinFecha, -1, DdlTipoPoliza.SelectedValue.ToEntero, -1, CvePrePoliza, UsuarioActual.CveEmpresa, Concepto:=TxtConcepto.Text, FechaPoliza:=TxtFechaDocumento.Text.ToDate, CveUsuarioModifico:=UsuarioActual.CveUsuario)
 
             If Retorno Then
@@ -1195,7 +1193,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                                                                                    CveConceptoContable:=row.DataKey("CveConceptoContable").ToEntero, CveProveedor:=row.DataKey("CveProveedor").ToEntero, CveCompra:=row.DataKey("CveCompra").ToEntero,
                                                                                    CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, CveClasificacion:=row.DataKey("CveClasificacion").ToEntero,
                                                                                    CvePersonal:=row.DataKey("CvePersonal").ToEntero, Referencia:=row.FCLiteral("TxtRef").Text,
-                                                                                   TipoCambio:=row.DataKey("TC").ToDecimal,
+                                                                                   TipoCambio:=row.DataKey("TC").ToDecimal, CveActivoFijo:=row.DataKey("CveActivoFijo").ToEntero,
                                                                                    CveCuenta:=row.DataKey("CveCuenta").ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario, CveIE:=CveIEAgregado) Then
                                     OcurrioError = True
                                     Exit For
@@ -1306,6 +1304,7 @@ Partial Class ContabilidadC_RegPrePolizaS
         Dim Abono As Decimal = GvPrePoliza.Rows(IndiceGrid).FCLabel("TxtAbono").Text.ToDecimal
         Dim PorcentajeImpuesto As Decimal = GvPrePoliza.Rows(IndiceGrid).DataKey("PorcentajeImpuesto").ToDecimal
         Dim CveClasificacion As Integer = GvPrePoliza.Rows(IndiceGrid).DataKey("CveClasificacion").ToEntero
+        Dim CveActivoFijo As Integer = GvPrePoliza.Rows(IndiceGrid).DataKey("CveActivoFijo").ToEntero
         'Dim MonedaExtr As Decimal = GvPrePoliza.Rows(IndiceGrid).FCLiteral("TxtCargo").Text.ToDecimal
 
         'CargaConceptosContablesE()
@@ -1351,6 +1350,7 @@ Partial Class ContabilidadC_RegPrePolizaS
         DdlTipoGastoE.SelectedValueExist(CveTipoGasto)
         CargaCuentasContables()
         DdlCuentaContableE.SelectedValueExist(CveCuenta)
+        DdlAF.SelectedValueExist(CveActivoFijo)
 
         If Cargo <> 0 Then TxtCargoE.Text = Cargo.FormatoNumero
         If Abono <> 0 Then TxtAbonoE.Text = Abono.FormatoNumero
@@ -1741,11 +1741,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                 x = x + 1
             Next
             DtMovimientos.AcceptChanges()
-
-
         End If
-
-
         dr("CveCuenta") = DdlCuentaContableE.SelectedValue
         dr("CodigoNombreCuenta") = DdlCuentaContableE.SelectedItem.Text
         dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text