From 450b9efc4497c112314742854e6a8475e73381e2 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Thu, 21 Dec 2023 19:49:26 -0700
Subject: [PATCH 1/3] Ventras cambios Sms  en modal

---
 Ventas/Ventas.aspx    | 28 +++++++++++++---------------
 Ventas/Ventas.aspx.vb | 12 +++++++++++-
 2 files changed, 24 insertions(+), 16 deletions(-)

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 e1eff45d0..c28b8c96d 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -36101,7 +36101,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
@@ -36128,6 +36128,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
@@ -36259,5 +36267,7 @@ Partial Class Ventas
         CargarSaldoAuxiliar(CveCliente)
     End Sub
 
+
+   
 End Class
 

From d1815c2eb166d61f49e3252877a4a4a60293f57c Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Thu, 21 Dec 2023 19:53:30 -0700
Subject: [PATCH 2/3] Reporte de Ordenes de Servicio Medicas ajustes fecha
 dd/MM/yyyy hh:mm

---
 OS/RepOSMedicas.aspx | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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--%>

From 9a117112fa47d4e1f5ddb65c69ff7d8f5b9914ae Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Fri, 22 Dec 2023 01:40:38 -0700
Subject: [PATCH 3/3] --SMS. impresion de codigo de producto alterno en
 ventas.aspx

---
 App_Code/ClsPaginas.vb          | 5 +++++
 App_Code/Modelos.vb             | 1 +
 Compras/PopUpVerFactura.aspx.vb | 2 +-
 3 files changed, 7 insertions(+), 1 deletion(-)

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