diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index fb0c57bdf..6cd4de4c4 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -5057,7 +5057,7 @@ Public Class ClsPaginas
             PaginaDict.Add("/Ventas/CatCobranzaEstatus.aspx".ToUpper(), 7003)
             PaginaDict.Add("/Ventas/CatCobranzaEstatusTurno.aspx".ToUpper(), 7004)
             PaginaDict.Add("/Ventas/RepVentasMensuales.aspx".ToUpper(), 720)
-            PaginaDict.Add("/Ventas/RepVentasMensualesDetalle.aspx".ToUpper(), 721)
+            PaginaDict.Add("/Ventas/RepVentasMensualesDetalle.aspx".ToUpper(), 720)
             PaginaDict.Add("/Ventas/MetasVendedores.aspx".ToUpper(), 722)
             PaginaDict.Add("/Ventas/CatMetasVendedores.aspx".ToUpper(), 723)
             PaginaDict.Add("/Ventas/RepAuxiliarFacturas.aspx".ToUpper(), 567)
@@ -5201,6 +5201,8 @@ Public Class ClsPaginas
             PaginaDict.Add("/Acumuladores/EntradasUsadosResumenRep.aspx".ToUpper(), 1032)
 
 
+
+
             'Antes de aquí.
             Application("GlobalSIGAppPaginas") = PaginaDict
 
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 7b2d9ff51..40a1431b5 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -8505,10 +8505,12 @@ Partial Class Compras_Compras
                                         Alert("Ocurrio un error al guardar la compra. Por favor intente nuevamente.", TipoMensaje.MsgError)
                                     End If
 
-                                    Alert(Msg.ToString, TipoMensaje.MsgInformacion, MsgAccionAceptar)
                                     BtnGuardar.Enabled = False
                                     UpFacturar.Update()
 
+                                    Alert(Msg.ToString, TipoMensaje.MsgInformacion, MsgAccionAceptar)
+
+
                                 End If
 
                             Else
@@ -13208,7 +13210,7 @@ Partial Class Compras_Compras
         End If
 
         'CONTADO
-         Select Case RBLContado.SelectedValue
+        Select Case RBLContado.SelectedValue
             Case "1" ' Bancos
                 PnlContadoBancos.Visible = True
                 TxtDocumentoImporte.Text = (TxtTotal.Text.ToDecimal - LblAmortizacion.Text.ToDecimal).FormatoNumero
@@ -13257,7 +13259,7 @@ Partial Class Compras_Compras
     End Sub
 
     Protected Sub BtnContado_Click(sender As Object, e As EventArgs)
-         TxtRembolsoNumero.Text = TxtNumeroReembolso.Text
+        TxtRembolsoNumero.Text = TxtNumeroReembolso.Text
         RegistraScript(String.Format("$('#{0}').modal('hide');", "DivContadoModal"))
     End Sub
 
@@ -14494,7 +14496,7 @@ Partial Class Compras_Compras
         Dim IEPSCompra As Decimal = TxtIEPS.Text.ToDecimal()
         Dim RetIVACompra As Decimal = TxtRetIVA.Text.ToDecimal()
         Dim RetISRCompra As Decimal = TxtRetISR.Text.ToDecimal()
-		Dim Acumulado As Decimal = 0
+        Dim Acumulado As Decimal = 0
 
         'Dim TotalCalculable As Decimal = TotalCompra - IEPSCompra + RetIVACompra + RetISRCompra
 
@@ -19258,7 +19260,7 @@ Partial Class Compras_Compras
         GuardaAnticipos(Nothing, Nothing)
     End Sub
 
-        Protected Sub BtnNCInvAlmacen_Click(sender As Object, e As EventArgs)
+    Protected Sub BtnNCInvAlmacen_Click(sender As Object, e As EventArgs)
 
         'Dim ObjCompras As New ClsCompras
         'Dim ObjConta As New ClsContabilidad(ObjCompras.IniciaTransacSQL)
diff --git a/Compras/Proveedores.aspx b/Compras/Proveedores.aspx
index 5673f5984..3aaf2a0d7 100644
--- a/Compras/Proveedores.aspx
+++ b/Compras/Proveedores.aspx
@@ -2254,7 +2254,7 @@
                     </ContentTemplate>
                 </ajax:TabPanel>
 
-                <ajax:TabPanel ID="TabProductosXEntregar" runat="server" HeaderText="Productos por entregar">
+               <%-- <ajax:TabPanel ID="TabProductosXEntregar" runat="server" HeaderText="Productos por entregar">
                     <ContentTemplate>
                         <div class="portlet light xspadding bordered ">
                             <div class="portlet-title">
@@ -2296,7 +2296,7 @@
                             </div>
                         </div>
                     </ContentTemplate>
-                </ajax:TabPanel>
+                </ajax:TabPanel>--%>
 
                 <ajax:TabPanel ID="TabDocs" runat="server" HeaderText="Documentación" CssClass="table  table-hover table-advance  Widthall" Visible="False">
                     <ContentTemplate>
diff --git a/Inicio.aspx b/Inicio.aspx
index f1548a284..20d7705e5 100644
--- a/Inicio.aspx
+++ b/Inicio.aspx
@@ -535,7 +535,7 @@
                             </ContentTemplate>
                         </asp:UpdatePanel>
                     </div>
-                    <div class="col-md-2 col-sm-2">
+           <%--         <div class="col-md-2 col-sm-2">
                         <div class="portlet light ">
                             <div class="portlet-title">
                                 <div class="caption">
@@ -558,7 +558,7 @@
                                                     </asp:TemplateField>
                                                 </Columns>
 
-                                            </asp:GridView>--%>
+                                            </asp:GridView> --
                                     <div class="inbox-sidebar">
                                         <a href="javascript:;" data-title="Compose" class="btn red compose-btn btn-block">
                                             <i class="fa fa-edit"></i>Eventos </a>
@@ -603,7 +603,7 @@
                                 </div>
                             </div>
                         </div>
-                    </div>
+                    </div>--%>
                 </div>
 
                 <%-- DIRECTORIO TELEFONICO --%>
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 4b1283c3a..3a0aabf9f 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -7981,7 +7981,11 @@ Partial Class Clientes
         Dim Row2 As DataRow = Nothing
         Row2 = Dt2.NewRow()
         LtlLimiteCreditoModal.Text = LimiteCredito.FormatoNumero()
-        Row2("limite") = LimiteCredito - Saldo
+        If LimiteCredito > 0 Then
+            Row2("limite") = LimiteCredito - Saldo
+        Else
+            Row2("limite") = 0
+        End If
         Row2("saldo") = Saldo
         Dt2.Rows.Add(Row2)
         Dim query2 = From s In Dt2.AsEnumerable() Select New With {.year = "", .limite = s("limite").ToString(), .saldo = s("saldo").ToString()}
diff --git a/Ventas/Promociones.aspx.vb b/Ventas/Promociones.aspx.vb
index 1acec290c..54879aca4 100644
--- a/Ventas/Promociones.aspx.vb
+++ b/Ventas/Promociones.aspx.vb
@@ -463,7 +463,7 @@ Partial Class Ventas_Promociones
             For Each Dr As DataRow In TempDT.FiltraParametros("Estatus = 0").Rows
                 If Not ObjVentas.AddPromocionesDetalle(CvePromocion, Dr("CvePS").ToString.ToEntero, Dr("CveTipoPromocion").ToString.ToEntero, Dr("Promocion").ToString.ToDouble, Dr("PUAnterior").ToString.ToDouble, Dr("PUPromocion").ToString.ToDouble,
                                                        CBool(Dr("AplicaRestriccion")), CBool(Dr("AplicaLunes")), CBool(Dr("AplicaMartes")), CBool(Dr("AplicaMiercoles")), CBool(Dr("AplicaJueves")), CBool(Dr("AplicaViernes")), CBool(Dr("AplicaSabado")), CBool(Dr("AplicaDomingo")),
-                                                       Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime, Dr("CantidadMinima").ToString.ToEntero, CveClasificacion:=If(Dr("CvePS").ToString = "-1", Dr("CveClasificacion").ToString.ToEntero, -1), IncluyeImpuestos:=ChkIncluyeImpuesto.Checked) Then
+                                                       Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime, Dr("CantidadMinima").ToString.ToEntero, CveClasificacion:=If(Dr("CvePS").ToString = "-1", Dr("CveClasificacion").ToString.ToEntero, -1), CveRinTamaño:=Dr("CveRinTamaño").ToString.ToEntero, IncluyeImpuestos:=ChkIncluyeImpuesto.Checked) Then
                     TieneError = True
                     Exit For
                 End If
@@ -473,7 +473,7 @@ Partial Class Ventas_Promociones
                 For Each Dr As DataRow In TempDT.FiltraParametros("Estatus = 1").Rows
                     If Not ObjVentas.UpdatePromocionesDetalle(Dr("CvePromocionDetalle").ToString.ToEntero, CvePromocion, Dr("CvePS").ToString.ToEntero, Dr("CveTipoPromocion").ToString.ToEntero, Dr("Promocion").ToString.ToDouble, Dr("PUAnterior").ToString.ToDouble, Dr("PUPromocion").ToString.ToDouble,
                                                            CBool(Dr("AplicaRestriccion")), CBool(Dr("AplicaLunes")), CBool(Dr("AplicaMartes")), CBool(Dr("AplicaMiercoles")), CBool(Dr("AplicaJueves")), CBool(Dr("AplicaViernes")), CBool(Dr("AplicaSabado")), CBool(Dr("AplicaDomingo")),
-                                                           Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime, Dr("CantidadMinima").ToString.ToEntero, CveClasificacion:=If(Dr("CvePS").ToString = "-1", Dr("CveClasificacion").ToString.ToEntero, -1), IncluyeImpuestos:=ChkIncluyeImpuesto.Checked) Then
+                                                           Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime, Dr("CantidadMinima").ToString.ToEntero, CveClasificacion:=If(Dr("CvePS").ToString = "-1", Dr("CveClasificacion").ToString.ToEntero, -1), CveRinTamaño:=Dr("CveRinTamaño").ToString.ToEntero, IncluyeImpuestos:=ChkIncluyeImpuesto.Checked) Then
                         TieneError = True
                         Exit For
                     End If