From 64348ce135a86128c3fd8821041cb8a3dd5f4bd2 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Fri, 3 Jan 2025 12:20:37 -0700
Subject: [PATCH] Resumen movmientos diarios Folio compra venta

---
 Inventarios/RepResumenMovimientosDiario.aspx   | 10 ++++++++--
 .../RepResumenMovimientosDiario.aspx.vb        | 18 ++++++++++++++++++
 2 files changed, 26 insertions(+), 2 deletions(-)

diff --git a/Inventarios/RepResumenMovimientosDiario.aspx b/Inventarios/RepResumenMovimientosDiario.aspx
index b8caacc42..a2edaf9d2 100644
--- a/Inventarios/RepResumenMovimientosDiario.aspx
+++ b/Inventarios/RepResumenMovimientosDiario.aspx
@@ -175,14 +175,20 @@
 
     <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional" RenderMode="Inline">
         <ContentTemplate>
-            <asp:GridView ID="GvDatos" Width="100%" runat="server" ShowHeader="true" EmptyDataText="No hay registros." AutoGenerateColumns="False" AllowPaging="False"
-                ShowFooter="True" ShowHeaderWhenEmpty="True" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" GridLines="None" DataKeyNames="CveMovimiento,FechaMovto">
+            <asp:GridView ID="GvDatos" Width="100%" runat="server" ShowHeader="true" EmptyDataText="No hay registros." AutoGenerateColumns="False" AllowPaging="False" OnRowDataBound="GvDatos_RowDataBound"
+                ShowFooter="True" ShowHeaderWhenEmpty="True" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" GridLines="None" DataKeyNames="CveMovimiento,FechaMovto,CveVenta,CveCompra,FolioDocto">
                 <Columns>
                     <asp:BoundField DataField="FechaMovto" DataFormatString="{0:dd/MM/yyyy HH:mm:ss}" ItemStyle-Width="90px" HeaderText="Fecha" />
                     <asp:BoundField DataField="Almacen" HeaderText="Almacén" ItemStyle-Width="150px" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField DataField="Concepto" HeaderText="Movimiento" ItemStyle-Width="150px" ItemStyle-HorizontalAlign="Left" />
                     <asp:HyperLinkField DataTextField="CodigoPS" DataNavigateUrlFields="CvePS" DataNavigateUrlFormatString="/Ventas/ProductosServicios.aspx?CvePS={0}" HeaderText="Descripción" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField DataField="TipoMovimiento" HeaderText="Tipo" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField DataField="FolioDocto" HeaderText="Referencia" ItemStyle-Width="70px" ItemStyle-HorizontalAlign="Left" />
+                    <%--<asp:TemplateField ItemStyle-Width="70px" HeaderText="Referencia">
+                        <ItemTemplate>
+                            <asp:HyperLink ID="hlFolio" runat="server" Text='<%# Eval("Folio")%>' CssClass="Texto" NavigateUrl='<%# Eval("CveMovimiento", "/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}")%>' Target="_blank" />
+                        </ItemTemplate>
+                    </asp:TemplateField>--%>
                     <asp:TemplateField ItemStyle-Width="70px" HeaderText="Folio">
                         <ItemTemplate>
                             <asp:HyperLink ID="hlFolio" runat="server" Text='<%# Eval("Folio")%>' CssClass="Texto" NavigateUrl='<%# Eval("CveMovimiento", "/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}")%>' Target="_blank" />
diff --git a/Inventarios/RepResumenMovimientosDiario.aspx.vb b/Inventarios/RepResumenMovimientosDiario.aspx.vb
index 30e15ba61..a2eb4393f 100644
--- a/Inventarios/RepResumenMovimientosDiario.aspx.vb
+++ b/Inventarios/RepResumenMovimientosDiario.aspx.vb
@@ -72,4 +72,22 @@ Partial Class Inventarios_RepResumenMovimientosDiario
     Protected Sub LnkImprimir_Click(sender As Object, e As EventArgs)
         GenerarPDF("PDF")
     End Sub
+
+    Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            'veVenta,CveCompra,FolioDocto
+            Dim CveVenta As Integer = e.Row.DataKey("CveVenta").ToEntero
+            Dim CveCompra As Integer = e.Row.DataKey("CveCompra").ToEntero
+            Dim FolioDocto As String = e.Row.DataKey("FolioDocto")
+
+            If CveVenta > 0 Then
+                e.Row.Cells(5).Text = $"<a href='../Ventas/Ventas.aspx?CveVenta={CveVenta}' class='Texto' target='_blank' >{FolioDocto}<a>"
+            ElseIf CveCompra > 0 Then
+                e.Row.Cells(5).Text = $"<a href='../Compras/Compras.aspx?CveCompra={CveCompra}' class='Texto' target='_blank' >{FolioDocto}<a>"
+            End If
+
+        End If
+
+    End Sub
 End Class