From 5cd46ad52f6fc0121a8dcff54f263bfd9532da1d Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 22 Oct 2021 07:50:36 -0700
Subject: [PATCH] mejoras en subproyectos

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

diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx b/Contabilidad2/CatCuentasAsignaciones.aspx
index 4d4a155cd..730aca935 100644
--- a/Contabilidad2/CatCuentasAsignaciones.aspx
+++ b/Contabilidad2/CatCuentasAsignaciones.aspx
@@ -69,13 +69,14 @@
     <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,CveActivoFijo" AutoGenerateColumns="False" 
+                DataKeyNames="CveCuentaAsignacion,CveConceptoContable,CveCuenta,IdCuenta,CveProveedor,CveCliente,CvePersonal,CveClasificacion,CveAlmacen,PorcentajeIVA,CveConceptoNomina,CveBancoCuenta,CveActivoFijo,CveSubProyecto" AutoGenerateColumns="False" 
                 Style=" width:100%" GridLines="None">
                 <Columns>
                     <asp:BoundField DataField="ConceptoContable" ItemStyle-Width="150px" HeaderText="Concepto Contable" ItemStyle-HorizontalAlign="Left"/>
                      <asp:BoundField DataField="Referencia" HeaderText="Referencia" ItemStyle-HorizontalAlign="Left"/>   
                      <asp:BoundField DataField="CuentaCodigo" ItemStyle-Width="100px"  HeaderText="Código Cuenta" ItemStyle-HorizontalAlign="Left"/>      
-                    <asp:BoundField DataField="CuentaNombre" HeaderText="Nombre Cuenta" ItemStyle-HorizontalAlign="Left"/>                   
+                     <asp:BoundField DataField="CuentaNombre" HeaderText="Nombre Cuenta" ItemStyle-HorizontalAlign="Left"/>    
+                     <asp:BoundField DataField="SubProyecto" HeaderText="SubProyecto" ItemStyle-HorizontalAlign="Left"/>    
                                    
                     <asp:TemplateField ItemStyle-Width="49px">
                         <ItemTemplate>
diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx.vb b/Contabilidad2/CatCuentasAsignaciones.aspx.vb
index 70d115657..a4bcacc73 100644
--- a/Contabilidad2/CatCuentasAsignaciones.aspx.vb
+++ b/Contabilidad2/CatCuentasAsignaciones.aspx.vb
@@ -80,6 +80,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
         DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)
 
         DdlSubProyectos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyectos.Items.Insert(0, New ListItem("-", "0"))
 
         Dim ObjBancos As New ClsBancos
         If ObjBancos.GetBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) Then
@@ -129,6 +130,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
             TxtIdCuentaContable.Text = GvRow.DataKey("IdCuenta")
             TxtPorcentajeIVA.Text = GvRow.DataKey("PorcentajeIVA")
             DdlCuentaBancaria.SelectedValueExist(GvRow.DataKey("CveBancoCuenta"))
+            DdlSubProyectos.SelectedValueExist(GvRow.DataKey("CveSubProyecto").ToEntero)
 
             Dim CveCliente As Integer = GvRow.DataKey("CveCliente").ToEntero
             Dim CvePersonal As Integer = GvRow.DataKey("CvePersonal").ToEntero