From 7b3e95bc3b6afca785bdb33cc56af11d21611cad Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Fri, 31 Jan 2025 17:49:22 -0700
Subject: [PATCH] =?UTF-8?q?9=20Formato=20de=20pago,=20Poner=20fecha=20de?=
 =?UTF-8?q?=20recepci=C3=B3n=20y=20TC,=20en=20impresi=C3=B3n?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Compras/PopUpVerFactura.aspx.vb               |   3 +
 .../rptChequeMovimientosPrePoliza.rdlc        | 172 +++++++++++++++++-
 2 files changed, 165 insertions(+), 10 deletions(-)

diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index bb7c75bd0..d0dfa196f 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -5995,6 +5995,7 @@ Partial Class PopUpVerFactura
                     Dim reportDataSetsList As New List(Of ReportDataSource)
                     Dim CvePrePoliza As Integer = ObjIE.DtResultados.Rows(0)("CvePrePoliza").ToString.ToEntero
                     Dim dtMovs As New DataTable
+                    Dim TC As Decimal = ObjIE.TipoCambio
                     If ObjIE.GetBancosIEFacturasPagadas(CveIE, UsuarioActual.CveEmpresa) Then
 
                         dtMovs = ObjIE.DtResultados.FiltraParametros("CveConceptoContable IN (17,2,308,309,312,292 )")
@@ -6042,6 +6043,8 @@ Partial Class PopUpVerFactura
                         .Add(New ReportParameter("Folio", ObjIE.Folio, True))
                         .Add(New ReportParameter("MonedaAbreviatura", ObjIE.MonedaAbreviatura, True))
                         .Add(New ReportParameter("LogoPath", RutaImagenLogo))
+                        .Add(New ReportParameter("TC", TC.ToString))
+
                     End With
                     dtMovs.Dispose()
 
diff --git a/Empresas/Grales/Formatos/rptChequeMovimientosPrePoliza.rdlc b/Empresas/Grales/Formatos/rptChequeMovimientosPrePoliza.rdlc
index 1d82cfdad..9082511dd 100644
--- a/Empresas/Grales/Formatos/rptChequeMovimientosPrePoliza.rdlc
+++ b/Empresas/Grales/Formatos/rptChequeMovimientosPrePoliza.rdlc
@@ -33,6 +33,10 @@
           <DataField>FechaCompra</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
+        <Field Name="FechaMovto">
+          <DataField>FechaMovto</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
         <Field Name="Total">
           <DataField>Total</DataField>
           <rd:TypeName>System.Double</rd:TypeName>
@@ -268,7 +272,7 @@
             <Top>0.48633in</Top>
             <Left>0.73547in</Left>
             <Height>0.23622in</Height>
-            <Width>6.8993in</Width>
+            <Width>6.76774in</Width>
             <ZIndex>3</ZIndex>
             <Style>
               <Border>
@@ -287,25 +291,28 @@
                   <Width>2.30174cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>2.5cm</Width>
+                  <Width>2.21357cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>5.49301cm</Width>
+                  <Width>4.962cm</Width>
                 </TablixColumn>
                 <TablixColumn>
                   <Width>2.03516cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>2.35633cm</Width>
+                  <Width>2.03516cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>1.96772cm</Width>
+                  <Width>2.21154cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>2.20167cm</Width>
+                  <Width>1.82293cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>2.21744cm</Width>
+                  <Width>1.58202cm</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>1.95043cm</Width>
                 </TablixColumn>
               </TablixColumns>
               <TablixRows>
@@ -460,6 +467,43 @@
                         </Textbox>
                       </CellContents>
                     </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox20">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>F. Alm.</Value>
+                                  <Style>
+                                    <FontFamily>Verdana</FontFamily>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Center</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox20</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Color>LightGrey</Color>
+                              <Style>Solid</Style>
+                            </Border>
+                            <BackgroundColor>LightGrey</BackgroundColor>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="Textbox25">
@@ -746,6 +790,40 @@
                         </Textbox>
                       </CellContents>
                     </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="FechaMovto">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!FechaMovto.Value</Value>
+                                  <Style>
+                                    <FontFamily>Verdana</FontFamily>
+                                    <FontSize>8pt</FontSize>
+                                    <Format>dd/MM/yyyy</Format>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>FechaMovto</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Color>LightGrey</Color>
+                              <Style>Solid</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="Total">
@@ -932,13 +1010,14 @@
                             <PaddingBottom>2pt</PaddingBottom>
                           </Style>
                         </Textbox>
-                        <ColSpan>5</ColSpan>
+                        <ColSpan>6</ColSpan>
                       </CellContents>
                     </TablixCell>
                     <TablixCell />
                     <TablixCell />
                     <TablixCell />
                     <TablixCell />
+                    <TablixCell />
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="Importe2">
@@ -1064,6 +1143,7 @@
                 <TablixMember />
                 <TablixMember />
                 <TablixMember />
+                <TablixMember />
               </TablixMembers>
             </TablixColumnHierarchy>
             <TablixRowHierarchy>
@@ -1093,7 +1173,7 @@
             <Top>2.18687cm</Top>
             <Left>0.19063cm</Left>
             <Height>1.42958cm</Height>
-            <Width>21.07307cm</Width>
+            <Width>21.11455cm</Width>
             <ZIndex>4</ZIndex>
             <Style>
               <Border>
@@ -2335,6 +2415,72 @@
               </Border>
             </Style>
           </Tablix>
+          <Textbox Name="Textbox45">
+            <CanGrow>true</CanGrow>
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>T.C.:</Value>
+                    <Style>
+                      <FontSize>9pt</FontSize>
+                      <FontWeight>Bold</FontWeight>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>Textbox36</rd:DefaultName>
+            <Top>1.32849cm</Top>
+            <Left>19.09344cm</Left>
+            <Height>0.6cm</Height>
+            <Width>0.88096cm</Width>
+            <ZIndex>14</ZIndex>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
+          <Textbox Name="TC">
+            <CanGrow>true</CanGrow>
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>=Parameters!TC.Value</Value>
+                    <Style>
+                      <FontSize>9pt</FontSize>
+                      <Format>0.00;(0.00)</Format>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>TC</rd:DefaultName>
+            <Top>1.33053cm</Top>
+            <Left>19.9744cm</Left>
+            <Height>0.6cm</Height>
+            <Width>1.33078cm</Width>
+            <ZIndex>15</ZIndex>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
         </ReportItems>
         <Height>7.79798cm</Height>
         <Style />
@@ -2387,7 +2533,7 @@
                 <Paragraph>
                   <TextRuns>
                     <TextRun>
-                      <Value>REPORTE DE PAGO DE MOVIMIENTOS</Value>
+                      <Value>REPORTE DE PAGO DE MOVIMIENTOS </Value>
                       <Style>
                         <FontSize>10.5pt</FontSize>
                         <FontWeight>Bold</FontWeight>
@@ -2706,6 +2852,12 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="TC">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <Variables>
     <Variable Name="SumNC">