From 30e43d53322d97e7ae97b65332b1ef3ab9550948 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Fri, 3 Jan 2025 09:46:02 -0700
Subject: [PATCH 1/3] OC Imprimir Req al generar

---
 Empresas/189/Formatos/Entradas.rdlc |  5 +++--
 OC/OC.aspx.vb                       | 22 +++++++++++++++++++---
 2 files changed, 22 insertions(+), 5 deletions(-)

diff --git a/Empresas/189/Formatos/Entradas.rdlc b/Empresas/189/Formatos/Entradas.rdlc
index 8252f7b10..6b57e96b6 100644
--- a/Empresas/189/Formatos/Entradas.rdlc
+++ b/Empresas/189/Formatos/Entradas.rdlc
@@ -1581,7 +1581,7 @@
                               <TextRuns>
                                 <TextRun>
                                   <Value>=IIf(
-    Fields!Cargo.Value = 0, 
+    Sum(Fields!Cargo.Value) = 0, 
     "", 
     Format(Sum(Fields!Cargo.Value), "###,###,###.00")
 )</Value>
@@ -1618,7 +1618,7 @@
                               <TextRuns>
                                 <TextRun>
                                   <Value>=IIf(
-    Fields!Abono.Value = 0, 
+    Sum(Fields!Abono.Value) = 0, 
     "", 
     Format(Sum(Fields!Abono.Value), "###,###,###.00")
 )</Value>
@@ -1643,6 +1643,7 @@
                             </Border>
                           </Style>
                         </Textbox>
+                        <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                   </TablixCells>
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index aba42539d..ccc00524e 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -3148,7 +3148,10 @@ Partial Class OC_OC
             ViewState("LigaOCs") = If(CveEstatusNuevo <> CboE.SelectedValue.ToEntero, String.Format("<a href='/OC/OC.aspx?OC={0}'>{1}</a>", CveOrdenCompra, SerieFolio), "")
 
             If CveOrdenCompra > 0 Then
-                Dim ImprimirOC As String = String.Format("<a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Orden de Compra</a> ", Encripta(String.Format("OP=OC&CVEOC={0}", CveOrdenCompra)))
+
+                Dim ImprimirOC As String = String.Format("<a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir {1}</a> ", Encripta(String.Format("OP=OC&CVEOC={0}", CveOrdenCompra)), If(TipoOC = "OC", "Orden de Compra", "Requisición"))
+
+
                 Dim Msg As New StringBuilder
 
                 'Cuando Estatus = "Autorizada"
@@ -3164,11 +3167,24 @@ Partial Class OC_OC
                 End If
 
                 If LigaOCs = "" Then
-                    Msg.AppendFormat("La {0} No. <b><font size=""3"" >{1}</font></b>.<br/> Ha sido guardada correctamente <br/> {2}", TipoLargo, SerieFolio, If(TipoOC = "OC", ImprimirOC, ""))
+                    If TipoOC.ToUpper = "REQ" Then
+                        Msg.AppendFormat("La {0} No. <b><font size=""3"" >{1}</font></b>.<br/> Ha sido guardada correctamente <br/> {2}", TipoLargo, SerieFolio, ImprimirOC)
+                    Else
+                        Msg.AppendFormat("La {0} No. <b><font size=""3"" >{1}</font></b>.<br/> Ha sido guardada correctamente <br/> {2}", TipoLargo, SerieFolio, If(TipoOC = "OC", ImprimirOC, ""))
+                    End If
+
                 Else
-                    Msg.AppendFormat("La {0} No. <b><font size=""3"" >{1}</font></b>.<br/> Ha sido guardada correctamente<br><br>Orden de Compra:{2} <br/> {3}", TipoLargo, SerieFolio, LigaOCs, If(TipoOC = "OC", ImprimirOC, ""))
+
+                    If TipoOC.ToUpper = "REQ" Then
+                        Msg.AppendFormat("La {0} No. <b><font size=""3"" >{1}</font></b>.<br/> Ha sido guardada correctamente<br><br>Orden de Compra:{2} <br/> {3}", TipoLargo, SerieFolio, LigaOCs, ImprimirOC)
+                    Else
+                        Msg.AppendFormat("La {0} No. <b><font size=""3"" >{1}</font></b>.<br/> Ha sido guardada correctamente<br><br>Orden de Compra:{2} <br/> {3}", TipoLargo, SerieFolio, LigaOCs, If(TipoOC = "OC", ImprimirOC, ""))
+                    End If
+
                 End If
 
+
+
                 'IMPRIME LIGA A POLIZAS
                 If IDPolizasGeneradas.Count > 0 Then
                     Msg.Append("<br/><br/> <b>Polizas generadas:</b>")

From 21068b59cdd7401f7412f81e97ae835fb42c09b2 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Fri, 3 Jan 2025 10:39:39 -0700
Subject: [PATCH 2/3] 189 Ajuste Formato Entrada

---
 Compras/PopUpVerFactura.aspx.vb     |  6 ++-
 Empresas/189/Formatos/Entradas.rdlc | 59 +++++++++++++++++++++++++----
 2 files changed, 55 insertions(+), 10 deletions(-)

diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 4ca329ed2..87b1c600a 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -3131,14 +3131,16 @@ Partial Class PopUpVerFactura
                             params.Add(New ReportParameter("FechaFactura", If(CveCompra > 0, dr("Fecha").ToString.ToDate().ToString("dd/MM/yyyy"), "")))
                             params.Add(New ReportParameter("SerieFolio", If(CveCompra > 0, dr("SerieFolio").ToString, "")))
                             params.Add(New ReportParameter("Moneda", If(CveCompra > 0, dr("Moneda").ToString, "")))
-
                             params.Add(New ReportParameter("Condicion", If(CveCompra > 0, (((dr("FechaVencimiento").ToString.ToDate - dr("Fecha").ToString.ToDate)).TotalDays).ToString, "")))
-
                             params.Add(New ReportParameter("Saldo", If(CveCompra > 0, dr("Saldo").ToString.ToDouble.FormatoNumero(2), "")))
 
                             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
                             params.Add(New ReportParameter("NombreEntrego", String.Format("REVISÓ ALMACÉN{0}{1}", vbCrLf, Recibio)))
                             params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ ALMACÉN{0}{1}", vbCrLf, Recibio)))
+
+                            params.Add(New ReportParameter("FechaVencimiento", If(CveCompra > 0, dr("FechaVencimiento").ToString.ToDate().ToString("dd/MM/yyyy"), "")))
+                            params.Add(New ReportParameter("NombreCapturo", If(CveCompra > 0, dr("NombreCapturo").ToString, "")))
+
                         Else
                             params.Add(New ReportParameter("NombreRecibio", String.Format(Recibio)))
                             params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
diff --git a/Empresas/189/Formatos/Entradas.rdlc b/Empresas/189/Formatos/Entradas.rdlc
index 6b57e96b6..653b09464 100644
--- a/Empresas/189/Formatos/Entradas.rdlc
+++ b/Empresas/189/Formatos/Entradas.rdlc
@@ -1643,7 +1643,6 @@
                             </Border>
                           </Style>
                         </Textbox>
-                        <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                   </TablixCells>
@@ -1993,7 +1992,6 @@
                       <Value>Folio</Value>
                       <Style>
                         <FontFamily>Myriad Pro Light</FontFamily>
-                        <FontSize>8pt</FontSize>
                         <FontWeight>Bold</FontWeight>
                       </Style>
                     </TextRun>
@@ -2001,7 +1999,6 @@
                       <Value>: </Value>
                       <Style>
                         <FontFamily>Myriad Pro</FontFamily>
-                        <FontSize>8pt</FontSize>
                         <FontWeight>Bold</FontWeight>
                       </Style>
                     </TextRun>
@@ -2009,7 +2006,6 @@
                       <Value>=Parameters!Folio.Value</Value>
                       <Style>
                         <FontFamily>Myriad Pro</FontFamily>
-                        <FontSize>8pt</FontSize>
                         <FontWeight>Bold</FontWeight>
                         <Color>Red</Color>
                       </Style>
@@ -2044,13 +2040,21 @@
                 <Paragraph>
                   <TextRuns>
                     <TextRun>
-                      <Value />
+                      <Value>Capturo:</Value>
                       <Style>
                         <FontFamily>Myriad Pro</FontFamily>
                         <FontSize>8pt</FontSize>
                         <FontWeight>Bold</FontWeight>
                       </Style>
                     </TextRun>
+                    <TextRun>
+                      <Value>=Parameters!NombreCapturo.Value</Value>
+                      <Style>
+                        <FontFamily>Myriad Pro</FontFamily>
+                        <FontSize>8pt</FontSize>
+                        <FontWeight>Normal</FontWeight>
+                      </Style>
+                    </TextRun>
                   </TextRuns>
                   <Style>
                     <TextAlign>Right</TextAlign>
@@ -2060,7 +2064,7 @@
               <rd:DefaultName>Textbox50</rd:DefaultName>
               <Top>0.74112cm</Top>
               <Left>6.60454cm</Left>
-              <Height>1.14659cm</Height>
+              <Height>1.25419cm</Height>
               <Width>14.64707cm</Width>
               <ZIndex>2</ZIndex>
               <Style>
@@ -2105,6 +2109,19 @@
                   </TextRuns>
                   <Style />
                 </Paragraph>
+                <Paragraph>
+                  <TextRuns>
+                    <TextRun>
+                      <Value>Fecha Vencimiento:</Value>
+                      <Style>
+                        <FontFamily>Myriad Pro</FontFamily>
+                        <FontSize>8pt</FontSize>
+                        <FontWeight>Bold</FontWeight>
+                      </Style>
+                    </TextRun>
+                  </TextRuns>
+                  <Style />
+                </Paragraph>
                 <Paragraph>
                   <TextRuns>
                     <TextRun>
@@ -2180,9 +2197,9 @@
               </Paragraphs>
               <rd:DefaultName>Textbox2</rd:DefaultName>
               <Top>2.13642cm</Top>
-              <Left>15.21318cm</Left>
+              <Left>14.8163cm</Left>
               <Height>2.87013cm</Height>
-              <Width>2.98794cm</Width>
+              <Width>3.38481cm</Width>
               <ZIndex>4</ZIndex>
               <Visibility>
                 <Hidden>=Parameters!CveTipoAlmacen.Value = "19"</Hidden>
@@ -2216,6 +2233,20 @@
                     <TextAlign>Right</TextAlign>
                   </Style>
                 </Paragraph>
+                <Paragraph>
+                  <TextRuns>
+                    <TextRun>
+                      <Value>=Parameters!FechaVencimiento.Value</Value>
+                      <Style>
+                        <FontFamily>Myriad Pro</FontFamily>
+                        <FontSize>8pt</FontSize>
+                      </Style>
+                    </TextRun>
+                  </TextRuns>
+                  <Style>
+                    <TextAlign>Right</TextAlign>
+                  </Style>
+                </Paragraph>
                 <Paragraph>
                   <TextRuns>
                     <TextRun>
@@ -2863,6 +2894,18 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="FechaVencimiento">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="NombreCapturo">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="Logo">

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 3/3] 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