-- activar para seleccionar AF

Contabilidad/RegPrePolizaS.aspx

@@ -436,7 +436,7 @@
                     <div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom ">
 
                         <asp:GridView ID="GvPrePoliza" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-advance table-hover mysmallbtn GvPrePoliza" GridLines="None"
-                            DataKeyNames="CvePrePolizaDetalle,CvePrePoliza,IdMov, CveConceptoContable, CveSubProyecto, CveTipoGasto,Referencia,CveVenta,CveCompra, CveProveedor, CveCliente, CvePersonal, CveCuenta, PorcentajeImpuesto,TipoMovto,EsComplementaria,EsMonedaExtranjera,Concepto,CveClasificacion,ContadoCuenta,ContadoTipoTransaccion,ContadoNumeroFolio,ContadoBeneficiario,ContadoObservaciones,ContadoImporte,TC,ImporteME,ImporteMN,Cargo,Abono,CveIE,Modificado" Width="100%" >
+                            DataKeyNames="CvePrePolizaDetalle,CvePrePoliza,IdMov, CveConceptoContable, CveSubProyecto, CveTipoGasto,Referencia,CveVenta,CveCompra, CveProveedor, CveCliente, CvePersonal, CveCuenta, PorcentajeImpuesto,TipoMovto,EsComplementaria,EsMonedaExtranjera,Concepto,CveClasificacion,ContadoCuenta,ContadoTipoTransaccion,ContadoNumeroFolio,ContadoBeneficiario,ContadoObservaciones,ContadoImporte,TC,ImporteME,ImporteMN,Cargo,Abono,CveIE,CveActivoFijo,Modificado" Width="100%" >
                             <Columns>
                                 <asp:TemplateField>
                                     <HeaderTemplate>Movimiento</HeaderTemplate>
@@ -744,6 +744,15 @@
                                             </div>
                                         </div>
 
+                                        <div class="row" runat="server" id="DvModalConceptoActivoFijo" visible="false">
+                                            <div class="col-xs-2" style="text-align: left">Activo Fijo:</div>
+                                            <div class="col-xs-4" style="text-align: left">
+                                                <asp:Dropdownlist ID="DdlAF" CssStyle="width: 100%;" CssClass ="select2me" runat="server" AppendDataBoundItems="true" DataTextField="Descripcion" DataValueField="CveActivoFijo" Width="405px" ></asp:Dropdownlist>
+        
+                                                <i></i>
+                                            </div>
+                                        </div>
+
 
                                         <div class="row" runat="server" id="DvModalconceptoVenta" visible="false">
                                             <div class="col-xs-2" style="text-align: left">Venta:</div>

Contabilidad/RegPrePolizaS.aspx.vb

@@ -392,6 +392,7 @@ Partial Class ContabilidadC_RegPrePolizaS
             .Add("CveCompra", Type.GetType("System.Int32"))
             .Add("CveCliente", Type.GetType("System.Int32"))
             .Add("CveVenta", Type.GetType("System.Int32"))
+            .Add("CveActivoFijo", Type.GetType("System.Int32"))
             .Add("CveIE", Type.GetType("System.Int32"))
             .Add("CveClasificacion", Type.GetType("System.Int32"))
             .Add("MultipleSubProyecto", Type.GetType("System.Boolean"))
@@ -1097,7 +1098,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                                                            CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, CveClasificacion:=gvr.DataKey("CveClasificacion").ToEntero,
                                                             ImporteME:=ImporteME, TipoCambio:=TipoCambio,
                                                             CveTipoGasto:=tCveTipoGasto,
-                                                            CveCliente:=gvr.DataKey("CveCliente").ToEntero, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveCuenta:=tCveCuenta, PorcentajeImpuesto:=gvr.DataKey("PorcentajeImpuesto").ToDecimal) Then
+                                                            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
@@ -1502,6 +1503,13 @@ Partial Class ContabilidadC_RegPrePolizaS
                 DvModalconceptoCliente.Visible = False
             End If
 
+            If AplicaActivoFijo Then
+                CargaActivosFijos()
+                DvModalConceptoActivoFijo.Visible = True
+            Else
+                DvModalConceptoActivoFijo.Visible = False
+            End If
+
             If AplicaBancos AndAlso Not AplicaComplementaria Then
                 TxtCargoE.AutoPostBack = True
                 TxtAbonoE.AutoPostBack = True
@@ -1530,6 +1538,8 @@ Partial Class ContabilidadC_RegPrePolizaS
             Else
                 DivMonedaExtranjera.Visible = False
             End If
+
+
             CargaCuentaConcepto(CveConceptoContableInsertar)
 
         End If
@@ -1626,6 +1636,15 @@ Partial Class ContabilidadC_RegPrePolizaS
         DdlClasificacionesE.DataBind()
         DdlClasificacionesE.Items.Insert(0, New ListItem("  -  ", "-1"))
     End Sub
+
+    Private Sub CargaActivosFijos()
+        DdlAF.Items.Clear()
+        DdlAF.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)
+        DdlAF.DataBind()
+        'DdlAF.setEsWebService(True)
+        'DdlAF.Attributes.Add("data-metodo", "getcliente")
+
+    End Sub
     Private Sub DdlProveedoresE_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProveedoresE.SelectedIndexChanged
         CargaComprasE(DdlProveedoresE.SelectedValue.ToEntero, HdnCveCompra.Value.ToEntero)
     End Sub
@@ -1743,6 +1762,7 @@ Partial Class ContabilidadC_RegPrePolizaS
         dr("CvePersonal") = DdlPersonalE.SelectedValue.ToEntero
         dr("CveCliente") = DdlClientesE.SelectedValue.ToEntero
         dr("CveVenta") = DdlVentasE.SelectedValue.ToEntero
+        dr("CveActivoFijo") = DdlAF.SelectedValue.ToEntero
         dr("FolioFactura") = If(DdlComprasE.Visible = True AndAlso DdlComprasE.SelectedItem IsNot Nothing, DdlComprasE.SelectedItem.ToString, If(DdlVentasE.Visible = True AndAlso DdlVentasE.SelectedItem IsNot Nothing, DdlVentasE.SelectedItem.ToString, ""))
         dr("Modificado") = True
         dr("TC") = TxtTipoCambio.Text.ToDecimal
@@ -1861,6 +1881,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                 dr("CveClasificacion") = -1
                 dr("CveCliente") = DdlClientes.SelectedValue.ToEntero
                 dr("CveVenta") = DdlVentas.SelectedValue.ToEntero
+                dr("CveActivoFijo") = DdlAF.SelectedValue.ToEntero
             End If
             GvMov.DataSource = DtMovimientos
             GvMov.DataBind()
@@ -1888,6 +1909,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                 dr("CvePersonal") = DdlPersonal.SelectedValue.ToEntero
                 dr("CveCliente") = DdlClientes.SelectedValue.ToEntero
                 dr("CveVenta") = DdlVentas.SelectedValue.ToEntero
+                dr("CveActivoFijo") = DdlAF.SelectedValue.ToEntero
 
                 TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDecimal + TxtAbono.Text.ToDecimal).ToString.FormatoNumero
                 TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDecimal + TxtCargo.Text.ToDecimal).ToString.FormatoNumero
@@ -1932,6 +1954,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                 dr("CveClasificacion") = -1
                 dr("CveCliente") = DdlClientes.SelectedValue.ToEntero
                 dr("CveVenta") = DdlVentas.SelectedValue.ToEntero
+                dr("CveActivoFijo") = DdlAF.SelectedValue.ToEntero
 
                 TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDecimal + TxtAbono.Text.ToDecimal).ToString.FormatoNumero
                 TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDecimal + TxtCargo.Text.ToDecimal).ToString.FormatoNumero
@@ -1942,9 +1965,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                 GvMov.DataBind()
                 UPMovs.Update()
                 Actualizar = False
-
             End If
-
         End If
 
         TxtCargo.Text = ""
@@ -2125,6 +2146,7 @@ Partial Class ContabilidadC_RegPrePolizaS
             'DdlClientes.txtText.Value = DrM("CveCliente").ToString
 
             DdlVentas.SelectedValueExist(DrM("CveVenta").ToString)
+            DdlAF.SelectedValueExist(DrM("CveActivoFijo").ToString)
             LbCancelarEdicion.Visible = True
             LbAgregar.Text = "Actualizar"
 
@@ -2566,7 +2588,6 @@ Partial Class ContabilidadC_RegPrePolizaS
                             DtMovimientos.Clear()
                             Exit For
                         End If
-
                     End If
 
                     If CveConceptoContable = 69 Then
@@ -2596,6 +2617,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                     dr("CveClasificacion") = CveClasificacion
                     dr("CveCliente") = -1
                     dr("CveVenta") = -1
+                    dr("CveActivoFijo") = -1
                     dr("CveCuenta") = CveCuentaExcel
                     dr("CveTipoGasto") = -1
                     dr("CvePrePolizaDetalle") = -1