diff --git a/App_Code/ClsContPAQi.vb b/App_Code/ClsContPAQi.vb
index 860bd5889..aaa18df7f 100644
--- a/App_Code/ClsContPAQi.vb
+++ b/App_Code/ClsContPAQi.vb
@@ -6231,7 +6231,7 @@ Public Class ClsContPAQi
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@FechaI", SqlDbType.Date).Value = FechaI
-            .Add("@FechaF", SqlDbType.Date).Value = FechaF
+            .Add("@FechaF", SqlDbType.DateTime).Value = String.Format("{0} 23:59:59", FechaF.ToShortDateString).ToDateTime
             .Add("@IdCuentaPadre", SqlDbType.Int).Value = IdCuenta
             .Add("@OpcionCuentas", SqlDbType.Int).Value = OpcionCuentas
             .Add("@Tipo", SqlDbType.Int).Value = TipoMovtos
@@ -10585,7 +10585,7 @@ Public Class ClsContPAQi
             StrSQL.Append("	(									 ")
             StrSQL.Append("	       @IdCtaSup    INT,									 ")
             StrSQL.Append("	       @FechaI      DATE,									 ")
-            StrSQL.Append("	       @FechaF      DATE,									 ")
+            StrSQL.Append("	       @FechaF      DATETIME,									 ")
             StrSQL.Append("		   @Tipo		INT,						 ")
             StrSQL.Append("		   @SegmentoNegocio INT = -1 ")
             StrSQL.Append("	)									 ")
@@ -10776,7 +10776,7 @@ Public Class ClsContPAQi
         StrSQL.Append("			(							 ")
         StrSQL.Append("			       @IdCtaSup    INT,							 ")
         StrSQL.Append("			       @FechaI      DATE,							 ")
-        StrSQL.Append("			       @FechaF      DATE,							 ")
+        StrSQL.Append("			       @FechaF      DATETIME,							 ")
         StrSQL.Append("				   @Tipo		INT,				 ")
         StrSQL.Append("				   @SegmentoNegocio INT = -1						 ")
         StrSQL.Append("			)							 ")
@@ -10883,7 +10883,7 @@ Public Class ClsContPAQi
         StrSQL.Append("			(								 ")
         StrSQL.Append("			       @IdCtaSup    INT,								 ")
         StrSQL.Append("			       @FechaI      DATE,								 ")
-        StrSQL.Append("			       @FechaF      DATE,								 ")
+        StrSQL.Append("			       @FechaF      DATETIME,								 ")
         StrSQL.Append("				   @Tipo		INT,					 ")
         StrSQL.Append("				   @SegmentoNegocio INT = -1							 ")
         StrSQL.Append("			)								 ")
@@ -11140,7 +11140,7 @@ Public Class ClsContPAQi
         StrSQL.Append("			(										 ")
         StrSQL.Append("			       @IdCtaSup    INT,										 ")
         StrSQL.Append("			       @FechaI             DATE,										 ")
-        StrSQL.Append("			       @FechaF             DATE,										 ")
+        StrSQL.Append("			       @FechaF             DATETIME,										 ")
         StrSQL.Append("				   @CveMoneda   INT = 1									 ")
         StrSQL.Append("			)										 ")
         StrSQL.Append("			RETURNS FLOAT										 ")
diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index 02e5ca963..911f89a07 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -5542,6 +5542,27 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
 
+
+    Public Function GetRepIVAComparativo(FechaInicio As Date, FechaFin As Date, CveUsuarioConsulta As Integer, Conciliado As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Conta_ImpuestosComparativo")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
+            .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
+            .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta
+            .Add("@Conciliado", SqlDbType.Int).Value = Conciliado
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el reporte de IVA Comparativo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Retorno
+    End Function
+
     Public Function GetRepIVAAcumulado(FechaInicio As Date, FechaFin As Date, Conciliado As Integer, TipoImpuesto As Integer, CveUsuarioConsulta As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Conta_IVAAcumulado")
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 632aa983b..e124244e4 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -192,20 +192,34 @@ Public Class ClsPaginas
             Application("GlobalDTNomConceptos") = value
         End Set
     End Property
-    Property GlobalDTTiposGastos(CveEmpresa As Integer) As DataTable
+    Property GlobalDTTiposGastos(CveEmpresa As Integer, Optional Estatus As Integer = 1) As DataTable
         Get
+            Dim AppNombre As String = String.Format("GlobalDTTiposGastos-{0}", CveEmpresa)
+            'sino existe, recarga los datos
+            If Application(AppNombre) Is Nothing Then
+                Dim ObjCompra As New ClsCompras()
+                If ObjCompra.GetTipoGasto(-1, -1) Then Application(AppNombre) = ObjCompra.DtResultados Else Application(AppNombre) = Nothing
+                ObjCompra.Dispose()
+            End If
+
             If CveEmpresa <> -1 Then
-                Dim Dv As New DataView(DirectCast(Application("GlobalDTTiposGastos"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows)
+
+                Dim StrSQL As New StringBuilder
+                StrSQL.AppendFormat("CveEmpresa = {0}", CveEmpresa)
+                If Estatus >= 0 Then StrSQL.AppendFormat(" AND CveEstatus = {0} ", Estatus)
+
+                Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), StrSQL.ToString, "", DataViewRowState.CurrentRows)
                 GlobalDTTiposGastos = Dv.ToTable
                 Dv.Dispose()
             Else
-                GlobalDTTiposGastos = DirectCast(Application("GlobalDTTiposGastos"), DataTable)
+                GlobalDTTiposGastos = DirectCast(Application(AppNombre), DataTable)
             End If
-
         End Get
         Set(value As DataTable)
-            Application("GlobalDTTiposGastos") = value
+            Dim AppNombre As String = String.Format("GlobalDTTiposGastos-{0}", CveEmpresa)
+            Application(AppNombre) = value
         End Set
+
     End Property
     Property GlobalDTMFActividad(CveEmpresa As Integer, Optional Estatus As Integer = -1, Optional CveActividad As Integer = -1) As DataTable
         Get
diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx
index e53a90a5f..af213df24 100644
--- a/Ashx/SIGWeb.ashx
+++ b/Ashx/SIGWeb.ashx
@@ -620,7 +620,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
 
 
             'verifica existencias
-            If Pagina.Contiene("ventas/ventas", "oc/oc", "inv/traspaso") AndAlso CveEmpresa.Contiene(72, 80, 119, 140, 141, 152) Then
+            If Pagina.Contiene("ventas/ventas", "oc/oc", "inv/traspaso") AndAlso CveEmpresa.Contiene(72, 80, 119, 140, 141, 152, 153) Then
                 UsaGlobal = False
 
                 Dim objInv As New ClsInventarios
diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb
index b305df95f..a2dc11030 100644
--- a/Bancos/PopIECompras.aspx.vb
+++ b/Bancos/PopIECompras.aspx.vb
@@ -1415,6 +1415,12 @@ Partial Class Bancos_PopIECompras
                 CveConcepto2 = 41
                 CveProveedor2 = DdlAcreedor.SelectedValue.ToEntero
                 CveIE = -1
+                'verifica que se halla selccionado algun acreedor
+                If DdlAcreedor.SelectedValue.ToEntero <= 0 Then
+                    Inserta = False
+                    Alert("Debe especificar el Acreedor.", TipoMensaje.MsgAdvertencia)
+                    Exit Sub
+                End If
             Case "6" 'Ventas
                 ImportePagado = TxtImporte.Text.Trim.ToDecimal
                 CveProveedor2 = CveProveedor
@@ -3312,18 +3318,18 @@ Partial Class Bancos_PopIECompras
                                             ImporteMovimiento = 0
                                     End Select
 
-                                    If ImporteMovimiento <> 0 Then
+                                    If ImporteMovimiento <> 0 AndAlso MsgError = "" Then
                                         'Conta ContPAQ
                                         If IdCtaContable = 0 Then
                                             CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
                                             idCuentaContabilizacion = 0
                                         End If
 
-                                        'Conta SIG
-                                        If CveCuenta = 0 Then
-                                            CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
-                                            CveCuentaContabilizacion = 0
-                                        End If
+                                        ''Conta SIG
+                                        'If CveCuenta = 0 Then
+                                        '    CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
+                                        '    CveCuentaContabilizacion = 0
+                                        'End If
 
                                         If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, If(ConceptoContable = 30, TxtFolio.Text.Trim, TxtObservaciones.Text), ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, -1, CveCompra, -1, CveProveedor:=CveProveedor2, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, TipoCambio:=TimpocambioGeneral, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeImpuesto) Then
                                             MsgError = "No se pudo insertar la póliza"
@@ -3333,7 +3339,7 @@ Partial Class Bancos_PopIECompras
                                 Next
 
 
-                                If ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 5) Then
+                                If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 5) Then
                                     If ObjMov.ValorPolizaDescuadre > 0 Then
                                         MsgError = ObjMov.MensajePolizaDescuadre
                                         GuardaLogAD($"Bancos/PopIECompras | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
diff --git a/Compras/CatTipoGasto.aspx.cs b/Compras/CatTipoGasto.aspx.cs
index 4ffb4c9b7..a30f0486c 100644
--- a/Compras/CatTipoGasto.aspx.cs
+++ b/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();
@@ -41,6 +41,16 @@ public partial class Compras_CatTipoGasto : ClsPaginas
         ObjCompras.Dispose();
     }
 
+    private void RecargarGlobal()
+    {
+        ClsCompras ObjCompras = new ClsCompras();
+        if (ObjCompras.GetTipoGasto(-1, -1))
+        {
+            set_GlobalDTTiposGastos(UsuarioActual.CveEmpresa, ObjCompras.DtResultados);
+        }
+        ObjCompras.Dispose();
+    }
+
     protected void BtnAgregarTipoGastoD_Click(object sender, EventArgs e)
     {
         BtnAgregarTipoGasto.Text = "Agregar";
@@ -74,6 +84,7 @@ public partial class Compras_CatTipoGasto : ClsPaginas
             Alert("Se eliminó el Tipo de Gasto correctamente");
         }
         ObjCompras.Dispose();
+        RecargarGlobal();
     }
 
     protected void BtnAgregarTipoGasto_Click(object sender, EventArgs e)
@@ -82,22 +93,21 @@ public partial class Compras_CatTipoGasto : ClsPaginas
         if (BtnAgregarTipoGasto.Text == "Agregar")
         {
             if (ObjCompras.AddTipoGasto(TxtTipoGasto.Text,ChkEstatus.Checked,DateTime.Now.ToString(),UsuarioActual.CveUsuario,UsuarioActual.CveEmpresa))
-            {
-                CargaDatos();
-                UpDatos.Update();
-                RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD"));
+            {   
                 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))
             {
-                CargaDatos();
-                UpDatos.Update();
-                RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD"));
                 Alert("Se actualizó el Tipo de Gasto correctamente");
             }
         }
         ObjCompras.Dispose();
+        CargaDatos();
+        RecargarGlobal();
+        UpDatos.Update();
+        RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD"));
     }
 }
\ No newline at end of file
diff --git a/Compras/Proveedores.aspx b/Compras/Proveedores.aspx
index 7cd807988..9cfbdc5f5 100644
--- a/Compras/Proveedores.aspx
+++ b/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>
 
diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb
index 0a6a13107..435d893c5 100644
--- a/Compras/Proveedores.aspx.vb
+++ b/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
diff --git a/Compras/RepComprasDetalle.aspx b/Compras/RepComprasDetalle.aspx
index a2cbbff15..6eb03716b 100644
--- a/Compras/RepComprasDetalle.aspx
+++ b/Compras/RepComprasDetalle.aspx
@@ -401,6 +401,15 @@
                             <asp:Literal ID="LtlFechaInv" runat="server" Text='<%# Eval("FechaInv", "{0:d}") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <asp:TemplateField ItemStyle-Width="60">
+                        <HeaderTemplate>
+                            Observaciones
+                       
+                        </HeaderTemplate>
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlObs" runat="server" Text='<%# Eval("Observaciones") %>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
                 </Columns>
             </asp:GridView>
         </ContentTemplate>
@@ -464,24 +473,29 @@
                                         <asp:CheckBox ID="ChkIVA" runat="server" Text="IVA" /></td>
                                     <td>
                                         <asp:CheckBox ID="ChkIEPS" runat="server" Text="IEPS" /></td>
+                                    <td>
+                                        <asp:CheckBox ID="ChkObs" runat="server" Text="Observaciones"/></td>
                                 </tr>
                                 <tr>
                                     <td>
                                         <asp:CheckBox ID="ChkDesc" runat="server" Text="Descuentos" /></td>
                                     <td>
                                         <asp:CheckBox ID="ChkTotal" runat="server" Text="Total" /></td>
+                                    <td></td>
                                 </tr>
                                 <tr>
                                     <td>
                                         <asp:CheckBox ID="ChkAbre" runat="server" Text="Moneda" /></td>
                                     <td>
                                         <asp:CheckBox ID="ChkRazon" runat="server" Text="Proveedor" /></td>
+                                    <td></td>
                                 </tr>
                                 <tr>
                                     <td>
                                         <asp:CheckBox ID="ChkFolio" runat="server" Text="Folio Inv" /></td>
                                     <td>
                                         <asp:CheckBox ID="ChkFecha" runat="server" Text="Fecha Movimiento" /></td>
+                                    <td></td>
                                 </tr>
                             </table>
                         </div>
diff --git a/Compras/RepComprasDetalle.aspx.vb b/Compras/RepComprasDetalle.aspx.vb
index d1c57402a..6c9f43f77 100644
--- a/Compras/RepComprasDetalle.aspx.vb
+++ b/Compras/RepComprasDetalle.aspx.vb
@@ -168,6 +168,7 @@ Partial Class Compras_RepComprasDetalle
         ChkRazon.Checked = True
         ChkFolio.Checked = True
         ChkFecha.Checked = True
+        ChkObs.Checked = True
 
     End Sub
 
@@ -597,54 +598,15 @@ Partial Class Compras_RepComprasDetalle
 #End Region
 
     Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
-        If ChkIVA.Checked Then
-            GvDatos.Columns(4).Visible = True
-        Else
-            GvDatos.Columns(4).Visible = False
-        End If
-
-        If ChkIEPS.Checked Then
-            GvDatos.Columns(5).Visible = True
-        Else
-            GvDatos.Columns(5).Visible = False
-        End If
-
-        If ChkDesc.Checked Then
-            GvDatos.Columns(6).Visible = True
-        Else
-            GvDatos.Columns(6).Visible = False
-        End If
-
-        If ChkTotal.Checked Then
-            GvDatos.Columns(7).Visible = True
-        Else
-            GvDatos.Columns(7).Visible = False
-        End If
-
-        If ChkAbre.Checked Then
-            GvDatos.Columns(8).Visible = True
-        Else
-            GvDatos.Columns(8).Visible = False
-        End If
-
-        If ChkRazon.Checked Then
-            GvDatos.Columns(9).Visible = True
-        Else
-            GvDatos.Columns(9).Visible = False
-        End If
-
-        If ChkFolio.Checked Then
-            GvDatos.Columns(10).Visible = True
-        Else
-            GvDatos.Columns(10).Visible = False
-        End If
-
-        If ChkFecha.Checked Then
-            GvDatos.Columns(11).Visible = True
-        Else
-            GvDatos.Columns(11).Visible = False
-        End If
-
+        GvDatos.Columns(4).Visible = ChkIVA.Checked
+        GvDatos.Columns(5).Visible = ChkIEPS.Checked
+        GvDatos.Columns(6).Visible = ChkDesc.Checked
+        GvDatos.Columns(7).Visible = ChkTotal.Checked
+        GvDatos.Columns(8).Visible = ChkAbre.Checked
+        GvDatos.Columns(9).Visible = ChkRazon.Checked
+        GvDatos.Columns(10).Visible = ChkFolio.Checked
+        GvDatos.Columns(11).Visible = ChkFecha.Checked
+        GvDatos.Columns(12).Visible = ChkObs.Checked
         UPDatos.Update()
     End Sub
 
diff --git a/Contabilidad/RepAnexoCatalogo.aspx.vb b/Contabilidad/RepAnexoCatalogo.aspx.vb
index e33be02b4..bb8aba1fe 100644
--- a/Contabilidad/RepAnexoCatalogo.aspx.vb
+++ b/Contabilidad/RepAnexoCatalogo.aspx.vb
@@ -26,7 +26,7 @@ Partial Class AC_RepAnexoCatalogo
             ViewState("FechaInicio") = value
         End Set
     End Property
-    Private Property FechaFin As Date
+    Private Property FechaFin As DateTime
         Get
             FechaFin = ViewState("FechaFin").ToString.ToDate
         End Get
diff --git a/Contabilidad/RepIVA.aspx b/Contabilidad/RepIVA.aspx
index 6c146f4f5..df71f1fcc 100644
--- a/Contabilidad/RepIVA.aspx
+++ b/Contabilidad/RepIVA.aspx
@@ -40,6 +40,13 @@
     <li>
         <asp:LinkButton ID="LnkExcel2"  OnClick="LnkExcel2_Click" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Generales del proveedor</asp:LinkButton>
     </li>
+    <asp:UpdatePanel runat="server" ID="UPPCompara" UpdateMode="Conditional" >
+        <ContentTemplate>
+            <li>
+               <asp:LinkButton ID="LnkModalCompara"  OnClick="LnkModalCompara_Click" runat="server"><i class="fa fa-list-o" style="font-weight:bold;"></i> Comparativo</asp:LinkButton>
+            </li>
+            </ContentTemplate>         
+    </asp:UpdatePanel>
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
 </asp:Content>
@@ -271,6 +278,41 @@
             </div>
         </ContentTemplate>
     </asp:UpdatePanel>
+
+     <div id="ModalCompara" class="modal ADS fade" role="dialog">
+        <asp:UpdatePanel ID="UpCompara" class="modal-dialog rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
+            <ContentTemplate>
+                <div class="modal-content">
+                    <div class="modal-header">
+                        <button type="button" class="close" data-dismiss="modal">&times;</button>
+                        <h4 class="modal-title">Comparativo</h4>
+                    </div>
+                    <div class="modal-body">
+                         
+
+                        <asp:GridView ID="GvCompara" runat="server" GridLines="None" AutoGenerateColumns="False"  EmptyDataText="" CssClass="table table-striped table-hover table-advance Widthall">
+                            <Columns>
+                                <asp:BoundField DataField="Msg" HeaderText="Mensaje" /> 
+                                <asp:BoundField DataField="FueConciliado" HeaderText="Conciliado" />  
+                                <asp:BoundField DataField="Fecha" HeaderText="Fecha" DataFormatString="{0:d}" />  
+                                <asp:BoundField DataField="ImporteMN" HeaderText="Importe" DataFormatString="{0:N2}" />  
+                                <asp:HyperLinkField  DataTextField="CvePrePoliza"   DataNavigateUrlFormatString="/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}"  DataNavigateUrlFields="CvePrePoliza" HeaderText="Prepoliza" />  
+                                <asp:HyperLinkField  DataTextField="CveIE" DataNavigateUrlFormatString="/Bancos/IE.aspx?CveIE={0}" DataNavigateUrlFields="CveIE" HeaderText="IE" />  
+                                <asp:BoundField DataField="FechaAplicado" HeaderText="Fecha Aplicado" DataFormatString="{0:d}" />
+                            </Columns>
+                        </asp:GridView>
+
+                    </div>
+                    <div class="modal-footer">
+                         .
+                    </div>
+                </div>
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </div>
+
+
+
 </asp:Content>
 <asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
 </asp:Content>
diff --git a/Contabilidad/RepIVA.aspx.cs b/Contabilidad/RepIVA.aspx.cs
index dae766096..969d38b25 100644
--- a/Contabilidad/RepIVA.aspx.cs
+++ b/Contabilidad/RepIVA.aspx.cs
@@ -332,6 +332,27 @@ public partial class Contabilidad_RepIVA : ClsPaginas
         Response.End();
     }
 
+
+
+    protected void LnkModalCompara_Click(object sender, EventArgs e)
+    {
+
+        ClsContabilidad Objconta = new ClsContabilidad();
+       
+        int Conciliado = DdlTipoMovto.SelectedValue.ToEntero();
+
+        if (Objconta.GetRepIVAComparativo(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(),  UsuarioActual.CveUsuario, Conciliado, UsuarioActual.CveEmpresa ))
+        {
+            GvCompara.DataSource = Objconta.DtResultados;             
+        }
+
+        Objconta.Dispose();
+        GvCompara.DataBind();
+        RegistraScript("$('#ModalCompara').modal('show')");
+        UpCompara.Update();
+    }
+
+
     protected string LV(string Valor)
     {
         return (Valor.ToDecimal() > 0) ? Valor.ToDecimal().ToString().FormatoNumero(0).Replace(",", string.Empty) : "";
diff --git a/Contabilidad/Reportes/RepMovimientosAuxiliaresCatalogo.rdlc b/Contabilidad/Reportes/RepMovimientosAuxiliaresCatalogo.rdlc
index 2683f343b..26451702f 100644
--- a/Contabilidad/Reportes/RepMovimientosAuxiliaresCatalogo.rdlc
+++ b/Contabilidad/Reportes/RepMovimientosAuxiliaresCatalogo.rdlc
@@ -6,28 +6,28 @@
         <TablixBody>
           <TablixColumns>
             <TablixColumn>
-              <Width>1.86091cm</Width>
+              <Width>2.28424cm</Width>
             </TablixColumn>
             <TablixColumn>
               <Width>1.28292cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>1.49458cm</Width>
+              <Width>1.5475cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>7.13431cm</Width>
+              <Width>5.78365cm</Width>
             </TablixColumn>
             <TablixColumn>
               <Width>1.99729cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.10313cm</Width>
+              <Width>2.10377cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.1825cm</Width>
+              <Width>2.10378cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.31479cm</Width>
+              <Width>3.26728cm</Width>
             </TablixColumn>
           </TablixColumns>
           <TablixRows>
@@ -149,11 +149,84 @@
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
-                    <ColSpan>3</ColSpan>
                   </CellContents>
                 </TablixCell>
-                <TablixCell />
-                <TablixCell />
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox16">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value />
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox16</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <TopBorder>
+                          <Color>Black</Color>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </TopBorder>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox18">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value />
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox18</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <TopBorder>
+                          <Color>Black</Color>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </TopBorder>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Textbox22">
@@ -605,10 +678,40 @@
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
-                    <ColSpan>2</ColSpan>
                   </CellContents>
                 </TablixCell>
-                <TablixCell />
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox15">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value />
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>7pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox15</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Textbox21">
@@ -1221,9 +1324,8 @@
         <Source>External</Source>
         <Value>=Parameters!pImg.Value</Value>
         <Sizing>FitProportional</Sizing>
-        <Left>0.09633cm</Left>
-        <Height>1.5cm</Height>
-        <Width>1.5cm</Width>
+        <Height>2.07257cm</Height>
+        <Width>3.56716cm</Width>
         <ZIndex>1</ZIndex>
         <Style>
           <Border>
@@ -1251,9 +1353,8 @@
         </Paragraphs>
         <rd:DefaultName>Textbox1</rd:DefaultName>
         <Top>0.25646cm</Top>
-        <Left>2.87447cm</Left>
         <Height>0.81167cm</Height>
-        <Width>12.68053cm</Width>
+        <Width>20.37043cm</Width>
         <ZIndex>2</ZIndex>
         <Style>
           <Border>
@@ -1285,9 +1386,8 @@
         </Paragraphs>
         <rd:DefaultName>Textbox5</rd:DefaultName>
         <Top>1.12429cm</Top>
-        <Left>2.87447cm</Left>
         <Height>0.94828cm</Height>
-        <Width>12.68053cm</Width>
+        <Width>20.37043cm</Width>
         <ZIndex>3</ZIndex>
         <ToolTip>="Moviemtos, Auxiliares del Catalogo" &amp; System.Environment.NewLine &amp; "al " &amp;Parameters!pFechaFin.Value</ToolTip>
         <Style>
@@ -1321,9 +1421,9 @@
         </Paragraphs>
         <rd:DefaultName>Textbox8</rd:DefaultName>
         <Top>0.25646cm</Top>
-        <Left>16.87794cm</Left>
+        <Left>14.99937cm</Left>
         <Height>0.81167cm</Height>
-        <Width>3.49249cm</Width>
+        <Width>5.37106cm</Width>
         <ZIndex>4</ZIndex>
         <Style>
           <Border>
@@ -1336,7 +1436,7 @@
         </Style>
       </Textbox>
     </ReportItems>
-    <Height>2.0944in</Height>
+    <Height>2.2819in</Height>
     <Style />
   </Body>
   <Width>8.01986in</Width>
@@ -1346,6 +1446,41 @@
       <PrintOnFirstPage>true</PrintOnFirstPage>
       <PrintOnLastPage>true</PrintOnLastPage>
       <ReportItems>
+        <Textbox Name="Textbox8">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>="Libro Mayor" &amp; System.Environment.NewLine &amp; "al " &amp;Parameters!pFechaFin.Value</Value>
+                  <Style>
+                    <FontSize>11pt</FontSize>
+                    <FontWeight>Bold</FontWeight>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style>
+                <TextAlign>Center</TextAlign>
+              </Style>
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox5</rd:DefaultName>
+          <Height>0.89958cm</Height>
+          <Width>20.37043cm</Width>
+          <Visibility>
+            <Hidden>= (Globals.PageNumber=1)</Hidden>
+          </Visibility>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
         <Textbox Name="Textbox12">
           <CanGrow>true</CanGrow>
           <KeepTogether>true</KeepTogether>
@@ -1367,43 +1502,9 @@
           </Paragraphs>
           <rd:DefaultName>Textbox8</rd:DefaultName>
           <Top>0.02088cm</Top>
-          <Left>16.87794cm</Left>
-          <Height>0.57912cm</Height>
-          <Width>3.49249cm</Width>
-          <Visibility>
-            <Hidden>= (Globals.PageNumber=1)</Hidden>
-          </Visibility>
-          <Style>
-            <Border>
-              <Style>None</Style>
-            </Border>
-            <PaddingLeft>2pt</PaddingLeft>
-            <PaddingRight>2pt</PaddingRight>
-          </Style>
-        </Textbox>
-        <Textbox Name="Textbox8">
-          <CanGrow>true</CanGrow>
-          <KeepTogether>true</KeepTogether>
-          <Paragraphs>
-            <Paragraph>
-              <TextRuns>
-                <TextRun>
-                  <Value>="Libro Mayor" &amp; System.Environment.NewLine &amp; "al " &amp;Parameters!pFechaFin.Value</Value>
-                  <Style>
-                    <FontSize>11pt</FontSize>
-                    <FontWeight>Bold</FontWeight>
-                  </Style>
-                </TextRun>
-              </TextRuns>
-              <Style>
-                <TextAlign>Center</TextAlign>
-              </Style>
-            </Paragraph>
-          </Paragraphs>
-          <rd:DefaultName>Textbox5</rd:DefaultName>
-          <Left>2.87447cm</Left>
-          <Height>0.89958cm</Height>
-          <Width>12.68053cm</Width>
+          <Left>14.99937cm</Left>
+          <Height>0.8787cm</Height>
+          <Width>5.37106cm</Width>
           <ZIndex>1</ZIndex>
           <Visibility>
             <Hidden>= (Globals.PageNumber=1)</Hidden>
@@ -1414,8 +1515,6 @@
             </Border>
             <PaddingLeft>2pt</PaddingLeft>
             <PaddingRight>2pt</PaddingRight>
-            <PaddingTop>2pt</PaddingTop>
-            <PaddingBottom>2pt</PaddingBottom>
           </Style>
         </Textbox>
       </ReportItems>
@@ -1451,9 +1550,9 @@
           </Paragraphs>
           <rd:DefaultName>Textbox3</rd:DefaultName>
           <Top>0.0703cm</Top>
-          <Left>14.85419cm</Left>
+          <Left>14.99937cm</Left>
           <Height>0.6cm</Height>
-          <Width>5.51625cm</Width>
+          <Width>5.37107cm</Width>
           <Style>
             <Border>
               <Style>None</Style>
diff --git a/Empresas/Grales/Formatos/RepIVAAcreditable.rpt b/Empresas/Grales/Formatos/RepIVAAcreditable.rpt
index af959d4b5..4b5e50a9b 100644
Binary files a/Empresas/Grales/Formatos/RepIVAAcreditable.rpt and b/Empresas/Grales/Formatos/RepIVAAcreditable.rpt differ
diff --git a/Global.asax b/Global.asax
index 86b5d58d8..857349e12 100644
--- a/Global.asax
+++ b/Global.asax
@@ -138,10 +138,10 @@
 
         GuardaLogAsax(String.Format("Globalasax 7:{0}", DateTime.Now))
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-        'C A R G A - T I P O  G A S T O S
-        Using ObjCompra As New ClsCompras()
-            If ObjCompra.GetTipoGasto(-1, -1) Then Application("GlobalDTTiposGastos") = ObjCompra.DtResultados Else Application("GlobalDTTiposGastos") = Nothing
-        End Using
+        ''C A R G A - T I P O  G A S T O S
+        'Using ObjCompra As New ClsCompras()
+        '    If ObjCompra.GetTipoGasto(-1, -1) Then Application("GlobalDTTiposGastos") = ObjCompra.DtResultados Else Application("GlobalDTTiposGastos") = Nothing
+        'End Using
 
         GuardaLogAsax(String.Format("Globalasax 8:{0}", DateTime.Now))
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
diff --git a/Inventarios/Kardex.aspx b/Inventarios/Kardex.aspx
index 6dc8dfaf9..766adc971 100644
--- a/Inventarios/Kardex.aspx
+++ b/Inventarios/Kardex.aspx
@@ -125,7 +125,7 @@
                 <asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-ad-excel"></i> Generar Excel</asp:LinkButton>
             </li>
             <li>
-                <asp:LinkButton ID="LnkSeries" Visible="false" runat="server">Series</asp:LinkButton>
+                <asp:LinkButton ID="LnkSeries" Visible="false" runat="server"><i class="fa fa-list"></i> Series Disponibles</asp:LinkButton>
             </li>
             <li>
                 <a target="_blank" class="ayuda" href="../Documentacion/DocumentacionInventarios.aspx#Kardex">&nbsp;</a>
@@ -501,7 +501,7 @@
         </asp:UpdatePanel>
     </div>
     <div id="DivModalSerie" class="modal ADS fade" role="dialog">
-        <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpdatePanel1" UpdateMode="Conditional" RenderMode="Inline" style="width:40%">
+        <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpdatePanel1" UpdateMode="Conditional" RenderMode="Inline" style="width:50%">
             <ContentTemplate>
                 <div class="modal-content">
                     <div class="modal-header ">
@@ -510,16 +510,16 @@
                     </div>
                     <div class="modal-body">
                         <div class="row" style="width:100%">
-                            <div style="width:95%;margin-left:2.5%;margin-right:2.5%">
+                            <div style="width:98%;margin-left:1.5%;margin-right:1.5%">
                                 <asp:UpdatePanel ID="UpGridSeries" runat="server" UpdateMode="Conditional" RenderMode="Inline">
                                 <ContentTemplate>
-                                    <asp:GridView ID="GvSeries" Width="100%" runat="server" ShowHeader="true" EmptyDataText="No hay registros." AutoGenerateColumns="False" AllowPaging="False"
+                                    <asp:GridView ID="GvSeries" Width="98%" runat="server" ShowHeader="true" EmptyDataText="No hay registros." AutoGenerateColumns="False" AllowPaging="False"
                                         ShowFooter="True" ShowHeaderWhenEmpty="True" CssClass="table table-striped table-advance table-hover ScrollAD" GridLines="None" 
                                         DataKeyNames="CveEmpresa,CveAlmacen,Almacen,PS,CvePS,Serie,Lote,FechaCaducidad,CveSeccionAlmacen,Existencia,Valor">
                                         <Columns>
                                             <asp:BoundField HeaderText="Almacén" DataField="Almacen"/>
                                             <asp:BoundField HeaderText="Serie" DataField="Serie"/>
-                                            <asp:BoundField HeaderText="Existencia" DataField="Existencia" DataFormatString="{0:N}"/>
+                                            <asp:BoundField HeaderText="Existencia" DataField="Existencia" DataFormatString="{0:#,###}"/>
                                         </Columns>
 
                                     </asp:GridView>
diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb
index 3ce4a112d..1b9bdaaad 100644
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -1682,7 +1682,7 @@ Partial Class Inventarios_RecepcionAlmacen
                 End If
 
                 If TipoMovimiento = 2 Then
-                    If DtExistencias.SUM("Existencia", $"Serie = {Serie}") = 0 Then
+                    If DtExistencias.SUM("Existencia", $"Serie = '{Serie}'") = 0 Then
                         MensajeSinExistencias.Append($"Serie: <b>{Serie}</b>. <br/>")
                         Continue For
                     End If
@@ -2308,7 +2308,7 @@ Partial Class Inventarios_RecepcionAlmacen
                 'SALIDA DE ALMACEN POR TRASPASO
                 CveMovimientoSalidaTraspaso = ObjInventario.AddMovimiento(CveAlmacen, CveConceptoAlmacen, 1, FechaMovto, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
                                                             CveCompraSurtir, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, TipoCambio:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, TipoCambio),
-                                                            MovimientoFijo:=If(TipoMovimiento = 2, True, False), CveAlmacenDestino:=CveAlmacenDestino, Remision:=TxtRemision.Text, Modulo:="RA/G1")
+                                                            MovimientoFijo:=If(TipoMovimiento = 2, True, False), CveAlmacenDestino:=CveAlmacenDestino, Remision:=TxtRemision.Text, Modulo:="RA/G11")
 
                 If CveMovimientoSalidaTraspaso > 0 Then
                     FolioSalidaTraspaso = ObjInventario.Folio.ToString()
diff --git a/Inventarios/RepTraspasoAlmacen.aspx b/Inventarios/RepTraspasoAlmacen.aspx
index aadebaf4f..27f8bf4b6 100644
--- a/Inventarios/RepTraspasoAlmacen.aspx
+++ b/Inventarios/RepTraspasoAlmacen.aspx
@@ -202,7 +202,7 @@
     <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró ningun Traspaso de Almacén"
-                ToolTip="Remisiones sin Facturar" data-rows="2"
+                ToolTip="" data-rows="2"
                 CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
                 data-sort="true" GridLines="None">
                 <Columns>
diff --git a/Ventas/AuxiliarCliente.aspx.vb b/Ventas/AuxiliarCliente.aspx.vb
index f942475e2..441481afb 100644
--- a/Ventas/AuxiliarCliente.aspx.vb
+++ b/Ventas/AuxiliarCliente.aspx.vb
@@ -100,93 +100,7 @@ Partial Class Ventas_AuxiliarCliente
     Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
     End Sub
     Public Sub ExportToExcelGTest(Gv As GridView, NombreArchivoXLSx As String, Optional Titulo As String = "Reporte", Optional Usuario As Usuario = Nothing)
-        Dim sw As New StringWriter()
-        Dim htw As New HtmlTextWriter(sw)
-        Gv.RenderControl(htw)
-        GemBox.Spreadsheet.SpreadsheetInfo.SetLicense("ESWN-4QFD-26JF-1SZ8")
-
-        Dim excel As GemBox.Spreadsheet.ExcelFile
-        Dim options = GemBox.Spreadsheet.LoadOptions.HtmlDefault
-        Using htmlStream = New MemoryStream(options.Encoding.GetBytes(sw.ToString()))
-            excel = GemBox.Spreadsheet.ExcelFile.Load(htmlStream, options)
-            If Usuario IsNot Nothing Then
-                Dim worksheet = excel.Worksheets(0)
-                Dim num As Integer = worksheet.Rows.Count
-                If num > 128 Then num = 128
-
-                Dim columnCount = worksheet.CalculateMaxUsedColumns()
-                'If columnCount > 1 Then
-                '    For i As Integer = 1 To columnCount - 1
-                '        worksheet.Columns(i).AutoFit(1, worksheet.Rows(1), worksheet.Rows(num - 1))
-                '    Next
-                'End If
-
-                worksheet.Rows.InsertEmpty(0, 7)
-
-                Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", Usuario.Empresa.Ruta))
-                Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port, Usuario.CveEmpresa)
-
-                If Imagen.Exists Then
-                    worksheet.Pictures.Add(logouri.ToString(), "A1", "B4")
-                End If
-
-                Dim celdasConTexto = worksheet.GetUsedCellRange(True)
-                celdasConTexto.Style.Font.Name = "Calibri Light"
-
-                Dim RangoNombreEmpresa = worksheet.Cells.GetSubrangeAbsolute(1, celdasConTexto.FirstColumnIndex, 1, celdasConTexto.LastColumnIndex)
-                RangoNombreEmpresa.Merged = True
-                RangoNombreEmpresa.Value = Usuario.Empresa.Empresa
-                RangoNombreEmpresa.Style.Font.Size = 18 * 20
-                RangoNombreEmpresa.Style.Font.Name = "Calibri Light"
-                RangoNombreEmpresa.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center
-                RangoNombreEmpresa.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
-
-                Dim RangoTitulo = worksheet.Cells.GetSubrangeAbsolute(3, celdasConTexto.FirstColumnIndex, 3, celdasConTexto.LastColumnIndex)
-                RangoTitulo.Merged = True
-                RangoTitulo.Value = Titulo
-                RangoTitulo.Style.Font.Size = 20 * 20
-                RangoTitulo.Style.Font.Name = "Calibri Light"
-                RangoTitulo.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center
-                RangoTitulo.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
-
-                Dim FiltroCliente = worksheet.Cells.GetSubrangeAbsolute(5, celdasConTexto.FirstColumnIndex, 5, celdasConTexto.LastColumnIndex)
-                FiltroCliente.Merged = True
-                FiltroCliente.Value = String.Format("Cliente: {0}   Fecha Inicio: {1}   Fecha Fin: {2}  Opción: {3}", DdlClientes.SelectedText, txtFechaI.Text, txtFechaF.Text, DdlOpcion.SelectedItem.Text)
-                FiltroCliente.Style.Font.Size = 12 * 20
-                FiltroCliente.Style.Font.Name = "Calibri Light"
-                FiltroCliente.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Left
-                FiltroCliente.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
-
-                For i = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex
-                    worksheet.Rows(7).Cells(i).Style.Font.Size = 12 * 20
-                    worksheet.Rows(7).Cells(i).Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center
-                    worksheet.Rows(7).Cells(i).Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
-                    worksheet.Rows(7).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
-                    worksheet.Rows(7).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)
-                    'If i > 0 Then
-                    '    Try
-                    '        worksheet.Columns(i).AutoFit(1)
-                    '    Catch ex As Exception
-                    '    End Try
-                    'End If
-                Next
-
-
-                Dim IndexEndTable As Integer = Gv.Rows.Count + 9
-
-                worksheet.Rows(IndexEndTable).Cells(0).Value = "Usuario Imprimió:"
-                worksheet.Rows(IndexEndTable + 1).Cells(0).Value = Usuario.Nombre
-
-                worksheet.Rows(IndexEndTable).Cells(4).Value = "Fecha Impresión: "
-                worksheet.Rows(IndexEndTable + 1).Cells(4).Value = DateTime.Now.ToString()
-
-                worksheet.Rows(IndexEndTable).Cells(8).Value = "Impreso en SIG"
-            End If
-
-        End Using
-        htw.Dispose()
-
-        excel.Save(HttpContext.Current.Response, NombreArchivoXLSx)
+        ExportToExcelGembox(Gv, NombreArchivoXLSx, Usuario, txtFechaI.Text, txtFechaF.Text, Titulo, "", 1)
 
     End Sub
     Protected Sub GvAuxCliente_RowDataBound(sender As Object, e As GridViewRowEventArgs)
diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx
index 428706e48..b9895d553 100644
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -1007,129 +1007,10 @@
                                             </div>
                                             <div class="portlet-body form-horizontal form-row-sepe">
                                                 <div class="form-body">
-                                                    <div class="form-group">
-                                                        <label class="control-label col-md-4">Clientes: </label>
-                                                        <div class="col-md-8">
-                                                            <asp:DropDownList ID="DdlCtaContableClientes" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
-                                                                <asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
-                                                            </asp:DropDownList>
-
-                                                            <asp:Button ID="BtnActivaRegistroClientes" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Clientes" Visible="False" />
-                                                        </div>
-                                                    </div>
-
-                                                    <div class="form-group">
-                                                        <label class="control-label col-md-4">Extranjera Clientes: </label>
-                                                        <div class="col-md-8">
-                                                            <asp:DropDownList ID="DdlMonedaExtranjeraClientes" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
-                                                                <asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
-                                                            </asp:DropDownList>
-
-                                                            <asp:Button ID="Button2" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Clientes" Visible="False" />
-                                                        </div>
-                                                    </div>
-
-
-                                                    <div class="form-group">
-                                                        <label class="control-label col-md-4">Complementaria Clientes: </label>
-                                                        <div class="col-md-8">
-                                                            <asp:DropDownList ID="DdlCtaContableCompClientes" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
-                                                                <asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
-                                                            </asp:DropDownList>
-
-                                                            <asp:Button ID="BtnActivaRegCompClientes" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Clientes" Visible="False" />
-                                                        </div>
-                                                    </div>
-
-
-
-                                                    <div class="form-group">
-                                                        <label class="control-label col-md-4">Anticipos: </label>
-                                                        <div class="col-md-8">
-                                                            <asp:DropDownList ID="DdlCtaContableAnticipos" CssClass="form-control input-medium " runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
-                                                                <asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
-                                                            </asp:DropDownList>
-
-                                                            <asp:Button ID="BtnActivaRegistroAnticipos" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Anticipos" Visible="False" />
-                                                        </div>
-                                                    </div>
-
-
-                                                    <div class="form-group">
-                                                        <label class="control-label col-md-4">Extranjera Anticipos: </label>
-                                                        <div class="col-md-8">
-                                                            <asp:DropDownList ID="DdlMonedaExtranjeraAnticipos" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
-                                                                <asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
-                                                            </asp:DropDownList>
-
-                                                            <asp:Button ID="Button4" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Clientes" Visible="False" />
-                                                        </div>
-                                                    </div>
-
-
-                                                    <div class="form-group">
-                                                        <label class="control-label col-md-4">Complementaria Anticipos: </label>
-                                                        <div class="col-md-8">
-                                                            <asp:DropDownList ID="DdlCtaContableCompAnticipos" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
-                                                                <asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
-                                                            </asp:DropDownList>
-
-                                                            <asp:Button ID="BtnActivaRegCompAnticipos" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Anticipos" Visible="False" />
-                                                        </div>
-                                                    </div>
-
-
-
-
-                                                    <div class="form-group">
-                                                        <label class="control-label col-md-4">Ret. IVA: </label>
-                                                        <div class="col-md-8">
-                                                            <asp:DropDownList ID="DdlCtaContableRetIVA" CssClass="form-control input-medium " runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
-                                                                <asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
-                                                            </asp:DropDownList>
-
-                                                            <asp:Button ID="BtnActivaRegistroIVA" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="RetIVA" Visible="False" />
-                                                        </div>
-                                                    </div>
-                                                    <div class="form-group">
-                                                        <label class="control-label col-md-4">Ret. ISR: </label>
-                                                        <div class="col-md-8">
-                                                            <asp:DropDownList ID="DdlCtaContableRetISR" CssClass="form-control input-medium " runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
-                                                                <asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
-                                                            </asp:DropDownList>
-
-                                                            <asp:Button ID="BtnActivaRegistroISR" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="RetISR" Visible="False" />
-                                                        </div>
-                                                    </div>
-                                                    <div class="form-group">
-                                                        <label class="control-label col-md-4">Fondo de Garantía: </label>
-                                                        <div class="col-md-8">
-                                                            <asp:DropDownList ID="DdlCtaContableFondoGarantia" CssClass="form-control input-medium " runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
-                                                                <asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
-                                                            </asp:DropDownList>
-
-                                                            <asp:Button ID="Button1" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="RetIVA" Visible="False" />
-                                                        </div>
-                                                    </div>
-                                                </div>
-                                            </div>
-                                        </div>
-                                        <div class="portlet light xspadding bordered">
-                                            <div class="portlet-title">
-                                                <div class="caption font-green">
-                                                    <i class="icon-pin font-green"></i>
-                                                    <span class="caption-subject bold uppercase">Cuentas y conceptos</span>
-                                                </div>
-                                                <div class="actions">
-                                                    <div class="btn-group">
-                                                    </div>
-                                                </div>
-                                            </div>
-                                            <div class="portlet-body form-horizontal form-row-sepe">
-                                                <div class="form-body">
-                                                    <asp:UpdatePanel runat="server" ID="UpCuentaConceptos" UpdateMode="Conditional">
+                                                    <div id="divCuentas" runat="server" visible="false">
+                                                         <asp:UpdatePanel runat="server" ID="UpCuentaConceptos" UpdateMode="Conditional">
                                                         <ContentTemplate>
-                                                            <asp:GridView ID="GvCuentasContable" runat="server" DataKeyNames="ConceptoContable,NombreCuenta" AutoGenerateColumns="False" EmptyDataText="No se encontraron Ventas en el Cliente" ToolTip="Listado de Historial de Ventas" CssClass="table table-striped table-advance table-hover" Style="text-align: center; min-width: 783px; width: 100%;" GridLines="None">
+                                                            <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" />
@@ -1137,9 +1018,119 @@
                                                             </asp:GridView>
                                                         </ContentTemplate>
                                                     </asp:UpdatePanel>
+
+                                                    </div>
+                                                    <div id="divCuentasContp" runat="server" visible="false">
+                                                        <div class="form-group">
+                                                            <label class="control-label col-md-4">Clientes: </label>
+                                                            <div class="col-md-8">
+                                                                <asp:DropDownList ID="DdlCtaContableClientes" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
+                                                                    <asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
+                                                                </asp:DropDownList>
+
+                                                                <asp:Button ID="BtnActivaRegistroClientes" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Clientes" Visible="False" />
+                                                            </div>
+                                                        </div>
+
+                                                        <div class="form-group">
+                                                            <label class="control-label col-md-4">Extranjera Clientes: </label>
+                                                            <div class="col-md-8">
+                                                                <asp:DropDownList ID="DdlMonedaExtranjeraClientes" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
+                                                                    <asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
+                                                                </asp:DropDownList>
+
+                                                                <asp:Button ID="Button2" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Clientes" Visible="False" />
+                                                            </div>
+                                                        </div>
+
+
+                                                        <div class="form-group">
+                                                            <label class="control-label col-md-4">Complementaria Clientes: </label>
+                                                            <div class="col-md-8">
+                                                                <asp:DropDownList ID="DdlCtaContableCompClientes" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
+                                                                    <asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
+                                                                </asp:DropDownList>
+
+                                                                <asp:Button ID="BtnActivaRegCompClientes" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Clientes" Visible="False" />
+                                                            </div>
+                                                        </div>
+
+
+
+                                                        <div class="form-group">
+                                                            <label class="control-label col-md-4">Anticipos: </label>
+                                                            <div class="col-md-8">
+                                                                <asp:DropDownList ID="DdlCtaContableAnticipos" CssClass="form-control input-medium " runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
+                                                                    <asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
+                                                                </asp:DropDownList>
+
+                                                                <asp:Button ID="BtnActivaRegistroAnticipos" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Anticipos" Visible="False" />
+                                                            </div>
+                                                        </div>
+
+
+                                                        <div class="form-group">
+                                                            <label class="control-label col-md-4">Extranjera Anticipos: </label>
+                                                            <div class="col-md-8">
+                                                                <asp:DropDownList ID="DdlMonedaExtranjeraAnticipos" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
+                                                                    <asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
+                                                                </asp:DropDownList>
+
+                                                                <asp:Button ID="Button4" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Clientes" Visible="False" />
+                                                            </div>
+                                                        </div>
+
+
+                                                        <div class="form-group">
+                                                            <label class="control-label col-md-4">Complementaria Anticipos: </label>
+                                                            <div class="col-md-8">
+                                                                <asp:DropDownList ID="DdlCtaContableCompAnticipos" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
+                                                                    <asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
+                                                                </asp:DropDownList>
+
+                                                                <asp:Button ID="BtnActivaRegCompAnticipos" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Anticipos" Visible="False" />
+                                                            </div>
+                                                        </div>
+
+
+
+
+                                                        <div class="form-group">
+                                                            <label class="control-label col-md-4">Ret. IVA: </label>
+                                                            <div class="col-md-8">
+                                                                <asp:DropDownList ID="DdlCtaContableRetIVA" CssClass="form-control input-medium " runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
+                                                                    <asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
+                                                                </asp:DropDownList>
+
+                                                                <asp:Button ID="BtnActivaRegistroIVA" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="RetIVA" Visible="False" />
+                                                            </div>
+                                                        </div>
+                                                        <div class="form-group">
+                                                            <label class="control-label col-md-4">Ret. ISR: </label>
+                                                            <div class="col-md-8">
+                                                                <asp:DropDownList ID="DdlCtaContableRetISR" CssClass="form-control input-medium " runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
+                                                                    <asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
+                                                                </asp:DropDownList>
+
+                                                                <asp:Button ID="BtnActivaRegistroISR" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="RetISR" Visible="False" />
+                                                            </div>
+                                                        </div>
+                                                        <div class="form-group">
+                                                            <label class="control-label col-md-4">Fondo de Garantía: </label>
+                                                            <div class="col-md-8">
+                                                                <asp:DropDownList ID="DdlCtaContableFondoGarantia" CssClass="form-control input-medium " runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
+                                                                    <asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
+                                                                </asp:DropDownList>
+
+                                                                <asp:Button ID="Button1" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="RetIVA" Visible="False" />
+                                                            </div>
+                                                        </div>
+                                                    </div>
+                                                
                                                 </div>
                                             </div>
                                         </div>
+                                         
                                     </div>
                                 </div>
 
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 59800645b..0aecf49c4 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -791,7 +791,7 @@ Partial Class Clientes
                 If Request("ATI") IsNot Nothing AndAlso IsNumeric(Request("ATI")) Then
                     Tab.ActiveTabIndex = Request("ATI").ToEntero
                 End If
-                CargaCuentasyConceptos()
+                'CargaCuentasyConceptos()
             Else
                 'Configuración de Modalidad Insert
 
@@ -1079,13 +1079,13 @@ Partial Class Clientes
         DdlMonedaExtranjeraAnticipos.Attributes.Add("onclick", "CargaCuentas(9);")
 
     End Sub
-    Private Sub CargaCuentasyConceptos()
+    Private Sub CargaCuentasConceptos()
         Dim ObjConta As New ClsContabilidad
-        If ObjConta.GetCuentasyConceptos(CveCliente) Then
-            GvCuentasContable.DataSource = ObjConta.DtResultados
+        If ObjConta.GetCuentasConceptos(6, UsuarioActual.CveEmpresa, CveCliente:=CveCliente) Then
+            GvCta.DataSource = ObjConta.DtResultados
         End If
         ObjConta.Dispose()
-        GvCuentasContable.DataBind()
+        GvCta.DataBind()
         UpCuentaConceptos.Update()
     End Sub
     Protected Sub BtnCargarCuentas_Click(sender As Object, e As EventArgs) Handles BtnCargarCuentas.Click
@@ -1681,8 +1681,17 @@ Partial Class Clientes
                 End If
 
                 CargaEventoBitacora()
-
-                'Ocultamos la mayoria de informacion si es no-frecuente
+                If UsuarioActual.Empresa.Funcionalidad(300) = "1" Then
+                    CargaCuentasConceptos()
+                    divCuentas.Visible = True
+                    divCuentasContp.Visible = False
+                Else
+                    divCuentas.Visible = False
+                    divCuentasContp.Visible = True
+                End If
+
+
+                'Ocultamos la mayoria de informacion si es no-frecuente
                 If ObjClientes.TipoCliente = 2 Then
                     TabFiscalContable.Visible = False
                     TabCxC.Visible = False
diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index cb5ec3879..e9d329495 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -3718,7 +3718,7 @@
                         <div style="max-height: 300px; overflow-y: auto;">
                             <asp:GridView ID="GVAnticipos" runat="server" AutoGenerateColumns="False" ClientIDMode="Static" EmptyDataText="No se encontraron Anticipos del Cliente"
                                 ToolTip="Listado de Anticipos" CssClass="GVAnticipos table table-striped table-hover Widthall" data-height="300" Style="text-align: center;" GridLines="None"
-                                DataKeyNames="ISTotal,Saldo,CveIE,Folio,Tipo,CveVenta,CveConceptoContable,CveConceptoContableAmor, TotalAnticipo, SubTotalAnticipo, IVAAnticipo,IEPS, ImpuestosLocalesAnticipo, SubTotalAmortizacion, SubTotal, Original, IVA, RetIVA, RetISR, IdCtaContableNC,FolioFiscal, CveClasificacionNC, IdCtaContableNCSIG, TipoCambio,TipoCambioPago,TipoCambioHoy, CveMoneda,Fecha,SaldoSubTotal,SaldoConImpuestos,RegresarImpuesto">
+                                DataKeyNames="ISTotal,Saldo,CveIE,Folio,Tipo,CveVenta,CveConceptoContable,CveConceptoContableAmor, TotalAnticipo, SubTotalAnticipo, IVAAnticipo,IEPS, ImpuestosLocalesAnticipo, SubTotalAmortizacion, SubTotal, Original, IVA, RetIVA, RetISR, IdCtaContableNC,FolioFiscal, CveClasificacionNC, IdCtaContableNCSIG, TipoCambio,TipoCambioPago,TipoCambioHoy, CveMoneda,Fecha,SaldoSubTotal,SaldoConImpuestos,RegresarImpuesto,CveCliente">
                                 <Columns>
                                     <asp:TemplateField>
                                         <ItemTemplate>
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 122b2b6c1..b633d917d 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -14534,7 +14534,10 @@ Partial Class Ventas
     End Sub
     Private Sub RecargaSucursalPartidas()
         Dim CveSubProyecto As Integer = DdlSubProyectoDatos.SelectedValue.ToEntero()
-        Dim SubProyecto As String = DdlSubProyectoDatos.SelectedItem.Text
+        Dim SubProyecto As String = ""
+        If CveSubProyecto > 0 Then
+            SubProyecto = DdlSubProyectoDatos.SelectedItem.Text
+        End If
 
         If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count > 0 Then
             For Each Row As DataRow In TmpDT.Rows
@@ -15233,8 +15236,6 @@ Partial Class Ventas
         Row("CvePS") = CvePS
         Row("Obs") = Obs
 
-
-
         Dim DrPS As DataRow = Nothing
 
         DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("") ' Estado = -1