diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index e4fa603fe..f733f1889 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -5727,6 +5727,11 @@ Public Class ClsPaginas
                 params.Add(New ReportParameter("ClientePais", If(Vta.Cliente.Pais.Length > 0, Vta.Cliente.Pais, "")))
                 params.Add(New ReportParameter("ClienteContacto", Vta.AtencionA))
             End If
+
+            If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+                params.Add(New ReportParameter("UsaProductoAlterno", If(Vta.Cliente.UsaProductoAlterno, "1", "0")))
+            End If
+
             'PARAMETROS SEGUN TIPO DOCUMENTO
             Select Case Vta.TipoDocto
                 Case "Ing"
diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index d922e528d..0543bb1c9 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -7954,6 +7954,7 @@ Namespace Modelos
         Public Property CorreoCotizacion As String
         Public Property ImprimeNombreSucursal As Integer
         Public Property CobranzaCorreo As String
+        Public Property UsaProductoAlterno As Boolean = False
     End Class
 
     <Serializable>
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index c996c2303..35e084999 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -2980,7 +2980,7 @@ Partial Class PopUpVerFactura
                 Vta.Cliente.MailCotizacion = dtVentas(0)("SucClienteCorreo").ToString
                 Vta.Cliente.CodigoRegimenFiscal = dtVentas(0)("CodigoRegimenFiscal").ToString
                 Vta.Cliente.RegimenFiscal = dtVentas(0)("RegimenFiscal").ToString
-
+                Vta.Cliente.UsaProductoAlterno = CBool(dtVentas(0)("UsaProductoAlterno"))
 
                 Vta.RefDocto = dtVentas(0)("Ref").ToString
                 Vta.CveVenta = dtVentas(0)("CveVenta").ToString.ToEntero
diff --git a/OS/RepOSMedicas.aspx b/OS/RepOSMedicas.aspx
index 515216683..a1c88c61a 100644
--- a/OS/RepOSMedicas.aspx
+++ b/OS/RepOSMedicas.aspx
@@ -168,8 +168,8 @@
                     <%--0--%>
                     <asp:HyperLinkField HeaderText="Folio" DataNavigateUrlFields="CveOS" DataNavigateUrlFormatString="/OS/OrdenesServicios.aspx?CveOS={0}" DataTextField="Folio" Target="_blank" />
                     <%--<asp:BoundField HeaderText="Folio" DataField="Folio"   ItemStyle-HorizontalAlign="Left" />--%>
-                    <%--1--%>
-                   <asp:BoundField HeaderText="FechaCita" DataField="FechaCita"   ItemStyle-HorizontalAlign="Left" />
+                    <%--1--%>                   
+                    <asp:BoundField DataField="FechaCita" HeaderText="Fech aCita" DataFormatString="{0:dd/MM/yyyy HH:mm}" HtmlEncode="False" />
                     <%--2--%>
                     <asp:BoundField HeaderText="Cliente" DataField="Nombre"   ItemStyle-HorizontalAlign="Left" />                    
                     <%--3--%>
diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 4880672b7..d4b0fd8d3 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -8471,13 +8471,9 @@
                         <div class="row" runat="server" id="DVGvProductosProcedimiento" visible="false">                                
                             <div class="col-md-12">
                                  Productos utilizados en el procedimiento
-                                 <asp:GridView ID="GvProductosProcedimiento" runat="server" CssClass="table table-hover table-striped ScrollAD mysmallbtn" data-sort="true" AutoGenerateColumns="False" Width="100%" 
-                                            DataKeyNames="CveProcedimientoProducto,CveProcedimiento,Cantidad,CvePS,CodigoPS,Autogenerado,Estatus,CveVenta,CveUnidadMedida,Abreviatura,CveClasificacion,Clasificacion" GridLines="None">
+                                 <asp:GridView ID="GvProductosProcedimiento" runat="server" CssClass="table table-hover table-striped ScrollAD mysmallbtn" data-sort="true" AutoGenerateColumns="False" Width="100%"  OnRowDataBound="GvProductosProcedimiento_RowDataBound"
+                                            DataKeyNames="CveProcedimientoProducto,CveProcedimiento,Cantidad,CvePS,CodigoPS,Autogenerado,Estatus,CveVenta,CveUnidadMedida,Abreviatura,CveClasificacion,Clasificacion,Precio" GridLines="None">
                                             <Columns>
-                                             
-                                                 <asp:BoundField DataField="Cantidad" HeaderText="Cant." DataFormatString="{0:N3}" ItemStyle-Width="30px" >
-                                                    <ItemStyle HorizontalAlign="Right" />
-                                                </asp:BoundField>
 
                                                 <asp:TemplateField  ItemStyle-HorizontalAlign="Right" HeaderText="Cant." ItemStyle-Width="40px">
                                                     <ItemTemplate>
@@ -8486,22 +8482,24 @@
                                                     </ItemTemplate>
                                                 </asp:TemplateField>
 
+                                             
+                                                 <asp:BoundField DataField="Cantidad" HeaderText="Cant." DataFormatString="{0:N3}" ItemStyle-Width="30px" >
+                                                    <ItemStyle HorizontalAlign="Right" />
+                                                </asp:BoundField>
+
+                                                
+
                                                 <asp:BoundField DataField="CodigoPS" HeaderText="Producto">
                                                     <ItemStyle HorizontalAlign="Left" />
                                                 </asp:BoundField>
                                                 <asp:BoundField DataField="Abreviatura" HeaderText="UM">
                                                     <ItemStyle HorizontalAlign="Left" />
                                                 </asp:BoundField>  
-                                                <%--<asp:BoundField DataField="Precio" HeaderText="Precio">
-                                                    <ItemStyle HorizontalAlign="Right" />
-                                                </asp:BoundField> --%>        
                                                 
-                                                <asp:TemplateField  ItemStyle-HorizontalAlign="Right" HeaderText="P.U." ItemStyle-Width="50px">
-                                                    <ItemTemplate>
-                                                        <asp:TextBox ID="TxtPrecio" runat="server" Text='<%# Eval("Precio") %>'  Width="50px"></asp:TextBox>
-                                                        <ajax:FilteredTextBoxExtender ID="FilTxtPrecio" runat="server" TargetControlID="TxtPrecio" FilterType="Custom, Numbers" ValidChars="." />
-                                                    </ItemTemplate>
-                                                </asp:TemplateField>
+
+                                                <asp:BoundField DataField="Precio" DataFormatString="{0:#,##0.###}"   HtmlEncode="False" />
+                                                
+                                               
 
                                             </Columns>
                                             <HeaderStyle CssClass="Titulos" Height="15px"></HeaderStyle>
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 97c901b18..e418969b4 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -36104,7 +36104,7 @@ Partial Class Ventas
 
             Dim CveUnidadMedida As Integer = GvRow.DataKey("CveUnidadMedida").ToEntero
             Dim Abreviatura As String = GvRow.DataKey("Abreviatura").ToString
-            Dim PU As Decimal = GvRow.FCTextBox("TxtPrecio").Text.ToDecimal
+            Dim PU As Decimal = GvRow.DataKey("Precio").ToDecimal
             Dim CveClasificacion As Integer = GvRow.DataKey("CveClasificacion").ToEntero
             Dim Clasificacion As String = GvRow.DataKey("Clasificacion").ToString
             Dim CvePS As Integer = GvRow.DataKey("CvePS").ToEntero
@@ -36131,6 +36131,14 @@ Partial Class Ventas
 
     End Sub
 
+    Protected Sub GvProductosProcedimiento_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            If e.Row.DataKey("Precio").ToDecimal = 0 Then
+                e.Row.FCTextBox("TxtCantidad").Enabled = False
+            End If
+        End If
+    End Sub
+
     Protected Sub ChkRequiereTecnicoModal_CheckedChanged(sender As Object, e As EventArgs)
 
         DvModalRequiereOSFecha.Visible = ChkRequiereTecnicoModal.Checked
@@ -36262,5 +36270,7 @@ Partial Class Ventas
         CargarSaldoAuxiliar(CveCliente)
     End Sub
 
+
+   
 End Class