diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index ac1897b91..f38ee6864 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -6092,8 +6092,6 @@ Public Class ClsVentas
 
 #End Region
 
-
-
 #Region "ESPECIALIDADES"
 
     Public Function GetMedicosEspecialidades(CveMedicoEspecialidad As Integer, CveEmpresa As Integer, Estatus As Integer) As Boolean
@@ -6275,7 +6273,7 @@ Public Class ClsVentas
     End Function
 
 
-    Public Function AddProcedimientoProducto(CveProcedimiento As Integer, CvePS As Integer, Autogenerado As Boolean, Estatus As Boolean, CveUsuario As Integer) As Boolean
+    Public Function AddProcedimientoProducto(CveProcedimiento As Integer, CvePS As Integer, Autogenerado As Boolean, Estatus As Boolean, CveUsuario As Integer, Cantidad As Decimal) As Boolean
 
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_ProcedimientosProductosAdd")
@@ -6286,6 +6284,7 @@ Public Class ClsVentas
             .Add("@Autogenerado", SqlDbType.Bit).Value = Autogenerado
             .Add("@Estatus", SqlDbType.Bit).Value = Estatus
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@Cantidad", SqlDbType.Money).Value = Cantidad
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -6298,7 +6297,7 @@ Public Class ClsVentas
     End Function
 
 
-    Public Function UpdateProcedimientoProducto(CveProcedimientoProducto As Integer, CvePS As Integer, Autogenerado As Boolean, Estatus As Boolean, CveUsuario As Integer) As Boolean
+    Public Function UpdateProcedimientoProducto(CveProcedimientoProducto As Integer, CvePS As Integer, Autogenerado As Boolean, Estatus As Boolean, CveUsuario As Integer, Cantidad As Decimal) As Boolean
 
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_ProcedimientosProductosUpdate")
@@ -6309,6 +6308,7 @@ Public Class ClsVentas
             .Add("@Autogenerado", SqlDbType.Bit).Value = Autogenerado
             .Add("@Estatus", SqlDbType.Bit).Value = Estatus
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@Cantidad", SqlDbType.Money).Value = Cantidad
         End With
         Try
             SqlAdapter.Fill(Data)
diff --git a/Ventas/CatProcedimientoDetalle.aspx b/Ventas/CatProcedimientoDetalle.aspx
index 0efda7029..e4b0e05dd 100644
--- a/Ventas/CatProcedimientoDetalle.aspx
+++ b/Ventas/CatProcedimientoDetalle.aspx
@@ -95,12 +95,16 @@
                                     <div class="col-md-12">
 
                                         <asp:GridView ID="GvProductos" runat="server" CssClass="table table-hover table-striped ScrollAD mysmallbtn" data-sort="true" AutoGenerateColumns="False" Width="100%" 
-                                            DataKeyNames="CveProcedimientoProducto,CveProcedimiento,CvePS,CodigoPS,Autogenerado,Estatus,CveVenta" GridLines="None">
+                                            DataKeyNames="CveProcedimientoProducto,CveProcedimiento,CvePS,CodigoPS,Autogenerado,Estatus,CveVenta,Cantidad" GridLines="None">
                                             <Columns>
                                                 <asp:BoundField DataField="CodigoPS" HeaderText="Producto">
                                                     <ItemStyle HorizontalAlign="Left" />
                                                 </asp:BoundField>
 
+                                                 <asp:BoundField DataField="Cantidad" HeaderText="Cantidad" DataFormatString="{0:N3}">
+                                                    <ItemStyle HorizontalAlign="Right" />
+                                                </asp:BoundField>
+
                                                  <asp:BoundField DataField="FechaVenta" HeaderText="Ultima Venta" ItemStyle-Width="80px" DataFormatString="{0:dd/MM/yyyy}">
                                                     <ItemStyle HorizontalAlign="Left" />
                                                 </asp:BoundField>   
@@ -236,19 +240,32 @@
 
                         <div class="form-group form-md-line-input input-iconright">
                             <ADS:Dropdownlost runat="server" ID="DdlProducto" CssClass="form-control input-sm select2me" CssStyle="width: 90%;" CssClassDdl="select2me" DataTextField="PSCodigo" DataValueField="CvePS" Width="" />
-                            <label style="line-height: 0.8" for="<%= DdlProducto.ClientID.ToString()%>">Producto: </label>
-                            
-                            
+                            <label style="line-height: 0.8" for="<%= DdlProducto.ClientID.ToString()%>">Producto: </label>                            
                         </div>
 
-                        <div class="form-group form-md-line-input input-iconright" runat="server" id="DVProdcutoEstatus" visible="false" style="margin-top:15px!important">
-                            <asp:CheckBox runat="server" ID="ChkEstatusProducto" CssClass="form-control" />
-                            <label style="line-height: 0.8" for="<%= ChkEstatusProducto.ClientID.ToString()%>">Estatus: </label>
+                        <div class="row">
+                            <div class="col-md-6">
+                                 <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtCantidad" CssClass="form-control " runat="server" CausesValidation="true" ValidationGroup="GrpProducto"></asp:TextBox>                            
+                                    <ajax:FilteredTextBoxExtender runat="server" FilterType="Custom" ValidChars="0123456789." TargetControlID="TxtCantidad" />
+                                    <asp:RequiredFieldValidator ID="RfvTxtCantidad" runat="server" ControlToValidate="TxtCantidad" CssClass="help-block errorimput" 
+                                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> es necesario, por favor ingréselo." 
+                                        ValidationGroup="GrpProducto">
+                                    </asp:RequiredFieldValidator>
+                                    <label for="<%= TxtCantidad.ClientID.ToString()%>">Cantidad:</label>
+                                </div>
+                            </div>
+                            <div class="col-md-6">
+                                 <div class="form-group form-md-line-input input-iconright" runat="server" id="DVProdcutoEstatus" visible="false" style="margin-top:15px!important">
+                                    <asp:CheckBox runat="server" ID="ChkEstatusProducto" CssClass="form-control" />
+                                    <label style="line-height: 0.8" for="<%= ChkEstatusProducto.ClientID.ToString()%>">Estatus: </label>
+                                </div>
+                            </div>
                         </div>
 
                     </div>
                     <div class="modal-footer">
-                        <asp:LinkButton ID="LkAgregarProducto" runat="server" CssClass="btn btn-primary" Text="Guardar" OnClick="LkAgregarProducto_Click"></asp:LinkButton>
+                        <asp:LinkButton ID="LkAgregarProducto" runat="server" CssClass="btn btn-primary" Text="Guardar" OnClick="LkAgregarProducto_Click" CausesValidation="true" ValidationGroup="GrpProducto" ></asp:LinkButton>
                         <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
                     </div>
                 </div>
diff --git a/Ventas/CatProcedimientoDetalle.aspx.vb b/Ventas/CatProcedimientoDetalle.aspx.vb
index 47ccce34e..21bb8bba3 100644
--- a/Ventas/CatProcedimientoDetalle.aspx.vb
+++ b/Ventas/CatProcedimientoDetalle.aspx.vb
@@ -199,6 +199,7 @@ Partial Class Ventas_CatProcedimientoDetalle
         CveProcedimientoProducto = -1
         DdlProducto.SelectedValue = "-1"
         DdlProducto.SelectedText = ""
+        TxtCantidad.Text = ""
         DVProdcutoEstatus.Visible = False
         UpAgregar.Update()
 
@@ -212,13 +213,13 @@ Partial Class Ventas_CatProcedimientoDetalle
 
         If CveProcedimientoProducto > 0 Then
 
-            If objVenta.UpdateProcedimientoProducto(CveProcedimientoProducto, DdlProducto.SelectedValue.ToEntero, False, True, UsuarioActual.CveUsuario) Then
+            If objVenta.UpdateProcedimientoProducto(CveProcedimientoProducto, DdlProducto.SelectedValue.ToEntero, False, True, UsuarioActual.CveUsuario, TxtCantidad.Text.ToDecimal) Then
                 ProcesoOK = True
             End If
 
         Else
 
-            If objVenta.AddProcedimientoProducto(CveProcedimiento, DdlProducto.SelectedValue.ToEntero, False, True, UsuarioActual.CveUsuario) Then
+            If objVenta.AddProcedimientoProducto(CveProcedimiento, DdlProducto.SelectedValue.ToEntero, False, True, UsuarioActual.CveUsuario, TxtCantidad.Text.ToDecimal) Then
                 ProcesoOK = True
             End If
 
@@ -260,10 +261,12 @@ Partial Class Ventas_CatProcedimientoDetalle
         Dim CvePS As String = GvRow.DataKey("CvePS")
         Dim CodigoPS As String = GvRow.DataKey("CodigoPS")
         Dim Estatus As Boolean = Boolean.Parse(GvRow.DataKey("Estatus"))
+        Dim Cantidad As Decimal = GvRow.DataKey("Cantidad").ToDecimal
 
         DdlProducto.ddl.SelectedValueExist(CvePS)
         DdlProducto.txtText.Value = CodigoPS
         DdlProducto.txtValue.Value = CvePS
+        TxtCantidad.Text = Cantidad.ToString
         ChkEstatusProducto.Checked = Estatus
         LtlTituloAgregar.Text = "Actualizar producto"