-- activación de cveAF

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>

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