diff --git a/Ventas/RepProductosServicios.aspx b/Ventas/RepProductosServicios.aspx
index e372cf0b1..2941e38cb 100644
--- a/Ventas/RepProductosServicios.aspx
+++ b/Ventas/RepProductosServicios.aspx
@@ -379,6 +379,11 @@
                             <asp:Literal ID="LtlGrupo" runat="server" Text='<%# Eval("GPO") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Cantidad AA" ItemStyle-Width="10%" Visible="false">
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlCantidadAA" runat="server" Text='<%# Eval("CantidadAA", "{0:N0}") %>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
                     <asp:TemplateField HeaderText="Cantidad" ItemStyle-Width="10%">
                         <ItemTemplate>
                             <asp:Literal ID="LtlCantidad" runat="server" Text='<%# Eval("Cantidad", "{0:N0}") %>'></asp:Literal>
diff --git a/Ventas/RepProductosServicios.aspx.vb b/Ventas/RepProductosServicios.aspx.vb
index 1e9fd338f..257116385 100644
--- a/Ventas/RepProductosServicios.aspx.vb
+++ b/Ventas/RepProductosServicios.aspx.vb
@@ -240,6 +240,9 @@ Partial Class Ventas_RepProductosServicios
                                               ServicioDomicilio:=DdlServicioDomicilio.SelectedValue.ToEntero) Then
             GvDatos.DataSource = ObjVentas.DtResultados
             DtVentas = ObjVentas.DtResultados
+            If UsuarioActual.CveEmpresa = 140 Then
+                GvDatos.Columns(1).Visible = True
+            End If
         Else
             GvDatos.DataSource = Nothing
         End If
@@ -291,13 +294,15 @@ Partial Class Ventas_RepProductosServicios
             Else
                 If e.Row.DBCampo("Orden") = "" Then
                     e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Center
-                    e.Row.Cells(0).Width = Unit.Pixel(200)
+                    e.Row.Cells(0).Width = Unit.Pixel(200)
                     e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Center
                     e.Row.Cells(1).Width = Unit.Pixel(60)
-                    e.Row.Cells(2).Width = Unit.Pixel(90)
+                    e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Center
+                    e.Row.Cells(2).Width = Unit.Pixel(60)
                     e.Row.Cells(3).Width = Unit.Pixel(90)
-                    e.Row.Cells(5).Width = Unit.Pixel(80)
-                    e.Row.Cells(8).Width = Unit.Pixel(100)
+                    e.Row.Cells(4).Width = Unit.Pixel(90)
+                    e.Row.Cells(6).Width = Unit.Pixel(80)
+                    e.Row.Cells(9).Width = Unit.Pixel(100)
                     e.Row.CssClass = "Totales"
                     Css = "Totales"
                 ElseIf DdlGrupo.SelectedValue.Contiene("20", "21") And Not e.Row.DBCampo("CvePS").ToEntero > 0 Then
@@ -312,7 +317,7 @@ Partial Class Ventas_RepProductosServicios
             FechaIEjec = If(IsDate(TxtFechaIEjec.Text.Trim()), TxtFechaIEjec.Text.Trim(), "-1")
             FechaFEjec = If(IsDate(TxtFechaFEjec.Text.Trim()), TxtFechaFEjec.Text.Trim(), "-1")
 
-            Dim Liga = String.Format("/Ventas/RepProductosServiciosDetalle.aspx?CveProyecto={0}&CveSubProyecto={1}&CveCategoria={2}&CveClasificacion={3}&CvePS={4}&CveCliente={5}&CveSubProyectoEjecucion={6}&CveVendedor={7}&CveUsuario={8}&CveEstatus={9}&Anio={10}&Mes={11}&AnioMes={12}&Fecha={13}&AnioEjec={14}&MesEjec={15}&AnioMesEjec={16}&FechaEjec={17}&FechaI={18}&FechaF={19}&FechaEI={20}&FechaEF={21}&TipoDocto={22}&Grupo={23}&CveMoneda={24}&TipoCambio={25}&TCEspecifico={26}&CveClienteClasificacion={27}&CveProveedorCompra={28}&CveMarca={29}&CveClasificacionDetalle={30}&TipoCliente={31}&ModalidadContable={32}&EsGarantia={33}&CveCondicionesPago={34}&MostrarLitraje={35}&EsDistribuidor={36}&CveClienteSucursal={37}&CveClasificacion2={38}&ServicioDomicilio={39}",
+            Dim Liga As String = String.Format("/Ventas/RepProductosServiciosDetalle.aspx?CveProyecto={0}&CveSubProyecto={1}&CveCategoria={2}&CveClasificacion={3}&CvePS={4}&CveCliente={5}&CveSubProyectoEjecucion={6}&CveVendedor={7}&CveUsuario={8}&CveEstatus={9}&Anio={10}&Mes={11}&AnioMes={12}&Fecha={13}&AnioEjec={14}&MesEjec={15}&AnioMesEjec={16}&FechaEjec={17}&FechaI={18}&FechaF={19}&FechaEI={20}&FechaEF={21}&TipoDocto={22}&Grupo={23}&CveMoneda={24}&TipoCambio={25}&TCEspecifico={26}&CveClienteClasificacion={27}&CveProveedorCompra={28}&CveMarca={29}&CveClasificacionDetalle={30}&TipoCliente={31}&ModalidadContable={32}&EsGarantia={33}&CveCondicionesPago={34}&MostrarLitraje={35}&EsDistribuidor={36}&CveClienteSucursal={37}&CveClasificacion2={38}&ServicioDomicilio={39}",
                                                 e.Row.DBCampo("CveProyecto"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveCategoria"), e.Row.DBCampo("CveClasificacion"), e.Row.DBCampo("CvePS"),
                                                 e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyectoEjecucion"), e.Row.DBCampo("Vendedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"),
                                                 e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("AnioEjec"), e.Row.DBCampo("MesEjec"), e.Row.DBCampo("AnioMesEjec"), e.Row.DBCampo("FechaEjec"),