resolviendo merge

Compras/CatTipoGasto.aspx.cs

@@ -33,7 +33,7 @@ public partial class Compras_CatTipoGasto : ClsPaginas
     private void CargaDatos()
     {
         ClsCompras ObjCompras = new ClsCompras();
-        if (ObjCompras.GetTipoGasto(-1,UsuarioActual.CveEmpresa))
+        if (ObjCompras.GetTipoGasto(-1, UsuarioActual.CveEmpresa))
         {
             GvDatos.DataSource = ObjCompras.DtResultados;
             GvDatos.DataBind();
@@ -96,9 +96,10 @@ public partial class Compras_CatTipoGasto : ClsPaginas
             {   
                 Alert("Se agregó el Tipo de Gasto correctamente");
             }
-        }else
+        }
+        else
         {
-            if (ObjCompras.UpdateTipoGasto(CveTipoGasto,TxtTipoGasto.Text,ChkEstatus.Checked,-1,-1))
+            if (ObjCompras.UpdateTipoGasto(CveTipoGasto, TxtTipoGasto.Text, ChkEstatus.Checked, -1, -1))
             {
                 Alert("Se actualizó el Tipo de Gasto correctamente");
             }

Compras/Compras.aspx.vb

@@ -1332,6 +1332,10 @@ Partial Class Compras_Compras
 
                     End If
 
+                    If DdlTipoComprobante.SelectedValue = "DEV" Then
+                        InicializaAplicaNCFact()
+                    End If
+
 
 
                     If UsuarioActual.Empresa.UsaAC Then
@@ -16930,8 +16934,9 @@ Partial Class Compras_Compras
         CargaRetISRConcepto()
 
 
-
-
+        If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then
+            InicializaAplicaNCFact()
+        End If
 
     End Sub
     Private Sub OriginalesVisible(Accion As Boolean)

Compras/Proveedores.aspx

@@ -824,6 +824,17 @@
                                 <asp:Button ID="BtnCargarCuentas" runat="server" ClientIDMode="Static" Text="CargaCuentas" Style="display: none;" />
                                 <asp:HiddenField ID="HdnCuenta" runat="server" ClientIDMode="Static" Value="0" />
 
+                                                <div id="divCuentas" runat="server" visible="false">
+                                                         
+                                                            <asp:GridView ID="GvCta" runat="server" DataKeyNames="ConceptoContable,NombreCuenta" AutoGenerateColumns="False" EmptyDataText="" ToolTip="Listado de Historial de Ventas" CssClass="table table-striped table-advance table-hover" Style="text-align: center;  width: 100%;" GridLines="None">
+                                                                <Columns>
+                                                                    <asp:BoundField HeaderText="Concepto Contable" DataField="ConceptoContable" />
+                                                                    <asp:BoundField HeaderText="Nombre Cuenta" DataField="NombreCuenta" />
+                                                                </Columns>
+                                                            </asp:GridView>
+                                                         
+                                                </div>
+                                <div id="divCuentasContp" runat="server" visible="false">
                                 <table>
                                     <tr>
                                         <td>
@@ -1149,7 +1160,7 @@
                                         </td>
                                     </tr>
                                 </table>
-
+                                </div>
                             </ContentTemplate>
                         </asp:UpdatePanel>
 

Compras/Proveedores.aspx.vb

@@ -852,6 +852,15 @@ Partial Class Compras_Proveedores
                 DdlDIOTPais.SelectedValueExist(ObjProveedor.DIOTCvePais)
                 TxtDIOTNacionalidad.Text = ObjProveedor.DIOTNacionalidad
 
+                If UsuarioActual.Empresa.Funcionalidad(300) = "1" Then
+                    CargaCuentasConceptos()
+                    divCuentas.Visible = True
+                    divCuentasContp.Visible = False
+                Else
+                    divCuentas.Visible = False
+                    divCuentasContp.Visible = True
+                End If
+
                 'Contable
                 If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaContabilidadSIG Then
                     DdlCtaContAcreedores.AutoPostBack = True
@@ -1010,6 +1019,16 @@ Partial Class Compras_Proveedores
         DdlUsuarioEvaluador.DataBind()
     End Sub
 
+    Private Sub CargaCuentasConceptos()
+        Dim ObjConta As New ClsContabilidad
+        If ObjConta.GetCuentasConceptos(1, UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor) Then
+            GvCta.DataSource = ObjConta.DtResultados
+        End If
+        ObjConta.Dispose()
+        GvCta.DataBind()
+
+    End Sub
+
     Private Sub CargaContactos(ByRef ObjProveedor As ClsCompProveedores)
         'TRAE CONTACTOS GENERALES Y POR SUCURSAL
         If ObjProveedor.GetProveedoresContactos(-1, CveProveedor, -1) Then