From eb28a271e6a09b7dd8975ccbd1269a4edc2e6971 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Fri, 31 Jan 2020 18:50:19 -0700
Subject: [PATCH] BANDERA DE ESTATUS DE ALMACEN EN REP CXP DETALLE

---
 Compras/RepCxPDetalle.aspx    |  8 ++++++++
 Compras/RepCxPDetalle.aspx.vb | 27 +++++++++++++++++++++++++--
 2 files changed, 33 insertions(+), 2 deletions(-)

diff --git a/Compras/RepCxPDetalle.aspx b/Compras/RepCxPDetalle.aspx
index ffe97d3fc..43593a36d 100644
--- a/Compras/RepCxPDetalle.aspx
+++ b/Compras/RepCxPDetalle.aspx
@@ -10,6 +10,9 @@
             white-space: nowrap;
             overflow: hidden;
         }
+        .tooltip-inner {
+            max-width: 350px !important;
+        }
     </style>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
@@ -315,6 +318,11 @@
                             <asp:Literal ID="LtlObservaciones" runat="server" Text='<%# Eval("Observaciones")%>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Alm." ItemStyle-Width="10%" Visible="false">
+                        <ItemTemplate>
+                            <asp:Label data-toggle="tooltip" data-html="true" Text='' ID="LbEstatusInv" runat="server" />
+                        </ItemTemplate>
+                    </asp:TemplateField>
                 </Columns>
                 <RowStyle CssClass="Texto" />
                 <HeaderStyle CssClass="Titulos" />
diff --git a/Compras/RepCxPDetalle.aspx.vb b/Compras/RepCxPDetalle.aspx.vb
index bad04658b..8dab1f576 100644
--- a/Compras/RepCxPDetalle.aspx.vb
+++ b/Compras/RepCxPDetalle.aspx.vb
@@ -315,7 +315,9 @@ Partial Class RepCxPDetalle
         DdlTipoProveedor.SelectedValueExist(CveTipoProveedor)
 
         Dim Comprobaciones = IfNull(Request("Comprobaciones"), -1).ToString.ToEntero
-        DdlComprobacion.SelectedValueExist(Comprobaciones)
+        DdlComprobacion.SelectedValueExist(Comprobaciones)
+
+        GvDatos.Columns(9).Visible = (UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Or UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0)
 
     End Sub
 
@@ -489,7 +491,28 @@ Partial Class RepCxPDetalle
                     e.Row.FCHyperLink("HplFolio").Text = String.Format("{0}...", e.Row.DBCampo("Agrupador").Substring(0, 25))
                 End If
             Else
-                e.Row.FCHyperLink("HplFolio").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DBCampo("CveCompra"))
+                e.Row.FCHyperLink("HplFolio").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DBCampo("CveCompra"))
+
+                If UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Or UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0 Then
+                    Dim Str As New StringBuilder
+                    Str.AppendFormat("Importe Almacen: ${0} ({1}%) <br/>", e.Row.DBCampo("ImporteAlmacen").FormatoNumero, e.Row.DBCampo("ImporteAlmacenPorcentaje"))
+                    If e.Row.DBCampo("ImporteServicios").ToDouble > 0 Then Str.AppendFormat("Importe Servicios: ${0} ({1}%) <br/>", e.Row.DBCampo("ImporteServicios").FormatoNumero, e.Row.DBCampo("ImporteServiciosPorcentaje"))
+                    If e.Row.DBCampo("ImporteDevolucion").ToDouble > 0 Then Str.AppendFormat("Importe Devuelto: ${0} ({1}%) <br/>", e.Row.DBCampo("ImporteDevolucion").FormatoNumero, e.Row.DBCampo("ImporteDevolucionPorcentaje"))
+                    Str.AppendFormat(" <i> Importes <b> SIN</b> IVA</i>")
+
+                    e.Row.FCLabel("LbEstatusInv").Attributes.Add("title", Str.ToString)
+                    Select Case e.Row.DBCampo("EstatusInventario").ToEntero
+                        Case 1
+                            e.Row.FCLabel("LbEstatusInv").Text = "<i Class='fa fa-flag-o' aria-hidden='true'></i>"
+                            e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.Red
+                        Case 2
+                            e.Row.FCLabel("LbEstatusInv").Text = "<i Class='fa fa-flag-checkered' aria-hidden='true'></i>"
+                            e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.DarkOrange
+                        Case 3
+                            e.Row.FCLabel("LbEstatusInv").Text = "<i Class='fa fa-flag' aria-hidden='true'></i>"
+                            e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.Green
+                    End Select
+                End If
             End If
 
         End If