Merge branch 'master' of http://192.168.10.111:8383/SIG

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"

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>

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

OS/RepOSMedicas.aspx

@@ -169,7 +169,7 @@
                     <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" />
+                    <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--%>

Ventas/Ventas.aspx

@@ -8471,14 +8471,10 @@
                         <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%" 
+                                 <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" GridLines="None">
+                                            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>
                                                         <asp:TextBox ID="TxtCantidad" runat="server" Text="0" Width="40px" style="text-align:right!important"></asp:TextBox>
@@ -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:BoundField DataField="Precio" DataFormatString="{0:#,##0.###}"   HtmlEncode="False" />
-                                                        <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>
 
                                             </Columns>
                                             <HeaderStyle CssClass="Titulos" Height="15px"></HeaderStyle>

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