From 9a44b9de174340b5af8ec0202783a4065868d40c Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 12 Jan 2024 21:06:12 -0700
Subject: [PATCH] -- columnas de SMS

---
 Ventas/RepRemisiones.aspx    | 99 ++++++------------------------------
 Ventas/RepRemisiones.aspx.vb | 40 +++++++--------
 2 files changed, 34 insertions(+), 105 deletions(-)

diff --git a/Ventas/RepRemisiones.aspx b/Ventas/RepRemisiones.aspx
index e97d8a298..2ad99df24 100644
--- a/Ventas/RepRemisiones.aspx
+++ b/Ventas/RepRemisiones.aspx
@@ -220,81 +220,21 @@
             <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró ninguna remisión pendiente por facturar" DataKeyNames="CveVenta"
                 ToolTip="Remisiones sin Facturar"
                 CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
-                data-sort="true" Style="text-align: center;" GridLines="None">
+                data-sort="true"  GridLines="None">
                 <Columns>
-                    <asp:TemplateField>
-                        <HeaderTemplate>
-                            <asp:Label Text="Folio" runat="server" CausesValidation="false"> </asp:Label>
-                        </HeaderTemplate>
-                        <ItemTemplate>
-                            <asp:Literal ID="LtlFolio" runat="server" Text='<%# Eval("Folio") %>'></asp:Literal>
-                        </ItemTemplate>
-                    </asp:TemplateField>
-                    <asp:TemplateField>
-                        <HeaderTemplate>
-                            <asp:Label Text="Fecha" runat="server" CausesValidation="false"> </asp:Label>
-                        </HeaderTemplate>
-                        <ItemTemplate>
-                            <asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("Fecha", "{0:d}") %>'></asp:Literal>
-                        </ItemTemplate>
-                    </asp:TemplateField>
-                    <asp:TemplateField>
-                        <HeaderTemplate>
-                            <asp:Label Text="F. Vencimiento" runat="server" CausesValidation="false"> </asp:Label>
-                        </HeaderTemplate>
-                        <ItemTemplate>
-                            <asp:Literal ID="LtlFechaVencimiento" runat="server" Text='<%# Eval("FechaVencimiento", "{0:d}") %>'></asp:Literal>
-                        </ItemTemplate>
-                    </asp:TemplateField>
-                    <asp:TemplateField ItemStyle-HorizontalAlign="Left">
-                        <HeaderTemplate>
-                            <asp:Label Text="Cliente" runat="server" CausesValidation="false"> </asp:Label>
-                        </HeaderTemplate>
-                        <ItemTemplate>
-                            <asp:Literal ID="LtlCliente" runat="server" Text='<%# Eval("Cliente") %>'></asp:Literal>
-                        </ItemTemplate>
-                    </asp:TemplateField>
-                    <asp:TemplateField>
-                        <HeaderTemplate>
-                            <asp:Label Text="Contrato" runat="server" CausesValidation="false"> </asp:Label>
-                        </HeaderTemplate>
-                        <ItemTemplate>
-                            <asp:Literal ID="LtlContrato" runat="server" Text='<%# Eval("TieneContrato") %>'></asp:Literal>
-                        </ItemTemplate>
-                    </asp:TemplateField>
-                    <asp:BoundField DataField="PorcentajeAvance" HeaderText="Facturado" DataFormatString="{0:F}" HtmlEncode="false" />
-                    <%-- <asp:TemplateField>
-                        <HeaderTemplate>
-                            <asp:Label Text="Facturado" runat="server" CausesValidation="false"> </asp:Label>
-                        </HeaderTemplate>
-                        <ItemTemplate>
-                            <asp:Literal ID="LtlAvance"   runat="server" Text='<%# String.Concat(Eval("PorcentajeAvance"), "%") %>'></asp:Literal>
-                        </ItemTemplate>
-                    </asp:TemplateField>--%>
-                    <asp:TemplateField ItemStyle-HorizontalAlign="Right">
-                        <HeaderTemplate>
-                            <asp:Label Text="SubTotal" runat="server" CausesValidation="false"> </asp:Label>
-                        </HeaderTemplate>
-                        <ItemTemplate>
-                            <asp:Literal ID="LtlSubTotal" runat="server" Text='<%# Eval("SubTotal", "{0:N2}") %>'></asp:Literal>
-                        </ItemTemplate>
-                    </asp:TemplateField>
-                    <asp:TemplateField ItemStyle-HorizontalAlign="Right" Visible="false">
-                        <HeaderTemplate>
-                            <asp:Label Text="Descuento" runat="server" CausesValidation="false"> </asp:Label>
-                        </HeaderTemplate>
-                        <ItemTemplate>
-                            <asp:Literal ID="LtlDescuento" runat="server" Text='<%# Eval("Descuento", "{0:N2}") %>'></asp:Literal>
-                        </ItemTemplate>
-                    </asp:TemplateField>
-                    <asp:TemplateField ItemStyle-HorizontalAlign="Right">
-                        <HeaderTemplate>
-                            <asp:Label Text="IVA" runat="server" CausesValidation="false"> </asp:Label>
-                        </HeaderTemplate>
-                        <ItemTemplate>
-                            <asp:Literal ID="LtlIVA" runat="server" Text='<%# Eval("IVA", "{0:N2}") %>'></asp:Literal>
-                        </ItemTemplate>
-                    </asp:TemplateField>
+                     <asp:HyperLinkField HeaderText="Folio" ItemStyle-Width="100px" DataTextField ="Folio" DataNavigateUrlFormatString="/Ventas/RepRemisionesDetalle.aspx?CveVenta={0}"  DataNavigateUrlFields="CveVenta" />
+                     <asp:HyperLinkField HeaderText="Fecha" ItemStyle-Width="100px" DataTextField ="Fecha" DataTextFormatString="{0:d}" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}"  DataNavigateUrlFields="CveVenta" />                    
+                    <asp:BoundField HeaderText="Vencimiento" DataField="FechaVencimiento" DataFormatString="{0:d}"  />
+                    <asp:BoundField HeaderText="Cliente" DataField="Cliente"  />
+                    <asp:BoundField HeaderText="Contrato" DataField="TieneContrato" Visible="false"  />                    
+                    <asp:BoundField HeaderText="Médico" DataField="Medico" Visible="false"  />
+                    <asp:BoundField HeaderText="Procedimiento" DataField="Procedimiento" Visible="false"  /> 
+                    <asp:BoundField HeaderText="Vendedor" DataField="Vendedor" />
+                    <asp:BoundField DataField="PorcentajeAvance" HeaderText="Facturado" DataFormatString="{0:F}%" HtmlEncode="false" />
+                    <asp:BoundField DataField="SubTotal" HeaderText="SubTotal" DataFormatString="{0:N2}"  Visible="false" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField DataField="Descuento" HeaderText="Descuento" DataFormatString="{0:N2}" Visible="false" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField DataField="IVA" HeaderText="IVA" DataFormatString="{0:N2}" Visible="false" ItemStyle-HorizontalAlign="Right" />
+                                         
                     <asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="10%"  >
                         <HeaderTemplate>
                             <asp:Label Text="Total" runat="server" CausesValidation="false"> </asp:Label>
@@ -304,15 +244,8 @@
                             <%--<asp:Literal ID="LtlMon" runat="server" Text='<%# Eval("Abreviatura") %>'></asp:Literal>--%>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField ItemStyle-HorizontalAlign="Right">
-                        <HeaderTemplate>
-                            <asp:Label Text="Inventario" runat="server" CausesValidation="false"> </asp:Label>
-                        </HeaderTemplate>
-                        <ItemTemplate>
-                            <asp:Literal ID="LtlTotalInventario" runat="server" Text='<%# Eval("ImporteInventario", "{0:N2}") & " MXN" %>'></asp:Literal>
-                            <%--<asp:Literal ID="LtlMon" runat="server" Text='<%# Eval("Abreviatura") %>'></asp:Literal>--%>
-                        </ItemTemplate>
-                    </asp:TemplateField>
+                    <asp:BoundField DataField="ImporteInventario" HeaderText="Inventario" DataFormatString="{0:N2} MXN" Visible="false" ItemStyle-HorizontalAlign="Right" />
+                     
                 </Columns>
                 <HeaderStyle CssClass="Titulos" />
                 <RowStyle CssClass="Texto" />
diff --git a/Ventas/RepRemisiones.aspx.vb b/Ventas/RepRemisiones.aspx.vb
index 41da0b713..5f7c92f82 100644
--- a/Ventas/RepRemisiones.aspx.vb
+++ b/Ventas/RepRemisiones.aspx.vb
@@ -97,10 +97,10 @@ Partial Class RepRemisiones
         End If
 
         If DtVentas IsNot Nothing Then
-            GvDatos.Columns(7).Visible = DtVentas.SUMD("Descuento") > 0
+            GvDatos.Columns(10).Visible = DtVentas.SUMD("Descuento") > 0
         End If
 
-        GvDatos.Columns(10).Visible = chkInv.Checked 'solo se visualiza si está selccionada
+        GvDatos.Columns(13).Visible = chkInv.Checked 'solo se visualiza si está selccionada
         ObjVentas.Dispose()
 
         GvDatos.DataBind()
@@ -118,16 +118,12 @@ Partial Class RepRemisiones
                 e.Row.CssClass = "SubTotales2"
                 e.Row.Font.Bold = True
                 e.Row.Attributes.Add("style", "background:#CCCCCC !important")
-            Else
-                e.Row.FCLiteral("LtlFolio").Text = "<a class=""Texto"" target=""_blank"" href=""/Ventas/RepRemisionesDetalle.aspx?CveVenta=" & e.Row.DBCampo("CveVenta") & """>" & e.Row.FCLiteral("LtlFolio").Text & "</a>"
-                e.Row.FCLiteral("LtlFecha").Text = "<a class=""Texto"" target=""_blank"" href=""/Ventas/Ventas.aspx?CveVenta=" & e.Row.DBCampo("CveVenta") & """>" & e.Row.FCLiteral("LtlFecha").Text & "</a>"
-
+            Else
                 If e.Row.DBCampo("FechaVencimiento").ToDate < NowADS() Then
                     ' e.Row.Cells(2).CssClass = "danger"
                     e.Row.Cells(2).ForeColor = Drawing.Color.Red
-                End If
-
-                e.Row.Cells(5).Text = e.Row.Cells(5).Text + "%"
+                End If
+
             End If
             e.Row.FCLiteral("LtlTotal").Text = "<a class=""Texto"" target=""_blank"" href=""/Ventas/RepRemisionesDetalle.aspx?CveVenta=" & e.Row.DBCampo("CveVenta") & "&FechaI=" & FechaI & "&FechaF=" & FechaF & "&FechaV=" & FechaV & "&CveCliente=" & If(e.Row.DBCampo("CveCliente").ToString().ToEntero() > 0, e.Row.DBCampo("CveCliente").ToString(), DdlClientes.SelectedValue) & "&CveContrato=" & CveContrato & "&CveSubProyecto=" & Sucursales & "&CveMoneda=" & e.Row.DBCampo("CveMoneda") & """>" & e.Row.FCLiteral("LtlTotal").Text & "</a>"
 
@@ -137,28 +133,28 @@ Partial Class RepRemisiones
 
 #Region "CARGA COMBOS FILTRO"
     Private Sub CargaCliente()
-        'CargaClientes
-        'Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
-        'If EsWS Then
+
         DdlClientes.setEsWebService(True)
-        ' Else
-        'DdlClientes.setEsWebService(False)
-        'DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
-        'DdlClientes.DataBind()
-        'DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
-        'End If
-
         If UsuarioActual.TienePermisoProceso(201) Then
             divVerInv.Visible = True
+        End If
+
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then ' es empresa hospitalaria
+            GvDatos.Columns(3).HeaderText = "Hospital"
+            GvDatos.Columns(5).Visible = True
+            GvDatos.Columns(6).Visible = True
+            'columna de fecha
+            GvDatos.Columns(1).HeaderText = "Fecha Cirugía"
+            CType(GvDatos.Columns(1), HyperLinkField).DataTextFormatString = "{0:dd/MM/yyyy HH:mm}"
+            CType(GvDatos.Columns(1), HyperLinkField).ItemStyle.Width = Unit.Pixel(120)
         End If
 
-
     End Sub
     Private Sub CargaSucursales()
 
         DdlSubProyectos.DataSource() = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-        DdlSubProyectos.DataBind()
-        'DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
+        DdlSubProyectos.DataBind()
+
     End Sub
 
     Private Sub CargaContrato()