diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 148b96b30..f3c4f4b4a 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -5033,7 +5033,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)
@@ -5177,6 +5177,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 9ee13e965..bff44fe3a 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/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