From 4c8980bef3711484cd8211fedbec5db00154f111 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Sat, 10 Sep 2022 08:09:09 -0700
Subject: [PATCH] RepAnt-NC, saldados  no contabilizables empresa 13

---
 Bancos/ProveedoresAbonar.aspx.vb            | 18 ++++++-----
 Bancos/RepEgresosSinComprobante.aspx.vb     | 10 ++++--
 Compras/Compras.aspx.vb                     | 36 +++++++++++++++++++++
 Compras/RepAnt-NC-EXCDetalle.aspx           |  2 +-
 Compras/RepCxPDetalle.aspx                  |  2 +-
 Empresas/15/Formatos/Factura.rdlc           | 36 ++++++++++-----------
 Empresas/Grales/Formatos/RepCxPDetalle.rdlc |  7 +++-
 7 files changed, 79 insertions(+), 32 deletions(-)

diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb
index acb22ef22..8a1ff5b14 100644
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -1861,6 +1861,8 @@ Partial Class Bancos_ProveedoresAbonar
         Dim MsgError As String = ""
         Dim FuncionalidadFluctuacionImpuestos As Boolean = If(UsuarioActual.Empresa.Funcionalidad(159) = "1", True, False)
 
+        Dim EsContabilizable As Boolean = If(UsuarioActual.CveEmpresa.Contiene(13, 83), False, True)
+
         For Each gr As GridViewRow In GvCxP.Rows
             If gr.FCCheckBox("Chk").Checked Then
                 Dim IdCtaContable As Integer = CtaProveedor
@@ -1893,19 +1895,19 @@ Partial Class Bancos_ProveedoresAbonar
 
                 If CveMoneda > 1 AndAlso (IdCtaContComplementaria > 0 Or UsaComplementariaProveedores) Then
                     IdCtaContable = IdCtaContComplementaria
-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, 0.00D, gr.DataKey("SerieFolio").ToString, CveConceptoContableComplementaria, ConceptoPartida, Now, IdCtaContable:=IdCtaContable, CveIE:=-1, IdSegmentoNegocio:=-1, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=Math.Round(Saldo * TCCompra - Saldo, 2, MidpointRounding.AwayFromZero), ImporteME:=Saldo, TipoCambio:=TCCompra) Then
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, 0.00D, gr.DataKey("SerieFolio").ToString, CveConceptoContableComplementaria, ConceptoPartida, Now, IdCtaContable:=IdCtaContable, CveIE:=-1, IdSegmentoNegocio:=-1, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=Math.Round(Saldo * TCCompra - Saldo, 2, MidpointRounding.AwayFromZero), ImporteME:=Saldo, TipoCambio:=TCCompra, Contabilizable:=EsContabilizable) Then
                         MsgError = "No se pudo insertar la póliza"
                     End If
                     IdCtaContable = IdCtaProveedorExtranjera
 
-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Saldo, gr.DataKey("SerieFolio").ToString, CveConceptoContablePago, ConceptoPartida, Now, IdCtaContable:=IdCtaContable, CveIE:=-1, IdSegmentoNegocio:=-1, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=Saldo, ImporteME:=If(CveMoneda > 1, Saldo, 0), TipoCambio:=TCCompra) Then
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Saldo, gr.DataKey("SerieFolio").ToString, CveConceptoContablePago, ConceptoPartida, Now, IdCtaContable:=IdCtaContable, CveIE:=-1, IdSegmentoNegocio:=-1, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=Saldo, ImporteME:=If(CveMoneda > 1, Saldo, 0), TipoCambio:=TCCompra, Contabilizable:=EsContabilizable) Then
                         MsgError = "Ocurrio un error al saldar el movimiento"
                     End If
                 Else
                     If CveMoneda > 1 Then
                         IdCtaContable = IdCtaProveedorExtranjera
                     End If
-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Saldo, gr.DataKey("SerieFolio").ToString, CveConceptoContablePago, ConceptoPartida, Now, IdCtaContable:=IdCtaContable, CveIE:=-1, IdSegmentoNegocio:=-1, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=If(CveMoneda = 1, Saldo, Saldo * TCCompra), ImporteME:=If(CveMoneda > 1, Saldo, 0), TipoCambio:=TCCompra) Then
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Saldo, gr.DataKey("SerieFolio").ToString, CveConceptoContablePago, ConceptoPartida, Now, IdCtaContable:=IdCtaContable, CveIE:=-1, IdSegmentoNegocio:=-1, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=If(CveMoneda = 1, Saldo, Saldo * TCCompra), ImporteME:=If(CveMoneda > 1, Saldo, 0), TipoCambio:=TCCompra, Contabilizable:=EsContabilizable) Then
                         MsgError = "Ocurrio un error al saldar el movimiento"
                     End If
                 End If
@@ -1924,7 +1926,7 @@ Partial Class Bancos_ProveedoresAbonar
 
                     Dim IVA As Decimal = PorcentajePago * gr.DataKey("IVA").ToDecimal
 
-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, IVA, gr.DataKey("SerieFolio").ToString, 14, ConceptoPartida, Now, IdCtaContable:=IdCtaIVAXAcreditar, CveIE:=-1, IdSegmentoNegocio:=-1, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=If(CveMoneda = 1, IVA, IVA * If(FuncionalidadFluctuacionImpuestos, TCPago, TCCompra)), PorcentajeImpuesto:=PorcentajeImpuesto) Then
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, IVA, gr.DataKey("SerieFolio").ToString, 14, ConceptoPartida, Now, IdCtaContable:=IdCtaIVAXAcreditar, CveIE:=-1, IdSegmentoNegocio:=-1, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=If(CveMoneda = 1, IVA, IVA * If(FuncionalidadFluctuacionImpuestos, TCPago, TCCompra)), PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=EsContabilizable) Then
                         MsgError = "Ocurrio un error al saldar el movimiento"
                     End If
 
@@ -1941,7 +1943,7 @@ Partial Class Bancos_ProveedoresAbonar
                         End If
                     End If
 
-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, IEPS, gr.DataKey("SerieFolio").ToString, 25, ConceptoPartida, Now, IdCtaContable:=IdCtaContable, CveIE:=-1, IdSegmentoNegocio:=-1, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=If(CveMoneda = 1, IEPS, IEPS * If(FuncionalidadFluctuacionImpuestos, TCPago, TCCompra))) Then
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, IEPS, gr.DataKey("SerieFolio").ToString, 25, ConceptoPartida, Now, IdCtaContable:=IdCtaContable, CveIE:=-1, IdSegmentoNegocio:=-1, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=If(CveMoneda = 1, IEPS, IEPS * If(FuncionalidadFluctuacionImpuestos, TCPago, TCCompra)), Contabilizable:=EsContabilizable) Then
                         MsgError = "Ocurrio un error al saldar el movimiento"
                     End If
 
@@ -1954,7 +1956,7 @@ Partial Class Bancos_ProveedoresAbonar
                     If Saldo < 0 Then
                         tcvecon = 211
                     End If
-                    If MsgError = "" AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Saldo, gr.DataKey("SerieFolio").ToString, tcvecon, ConceptoPartida, Now, IdCtaContable:=UsuarioActual.Empresa.IdCuentaOtrosIngresos, CveIE:=-1, IdSegmentoNegocio:=-1, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=If(CveMoneda = 1, Saldo, Saldo * TCPago), TipoCambio:=TCCompra, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then
+                    If MsgError = "" AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Saldo, gr.DataKey("SerieFolio").ToString, tcvecon, ConceptoPartida, Now, IdCtaContable:=UsuarioActual.Empresa.IdCuentaOtrosIngresos, CveIE:=-1, IdSegmentoNegocio:=-1, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=If(CveMoneda = 1, Saldo, Saldo * TCPago), TipoCambio:=TCCompra, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto, Contabilizable:=EsContabilizable) Then
                         MsgError = "Ocurrio un error al saldar el movimiento"
                     End If
                 End If
@@ -1970,11 +1972,11 @@ Partial Class Bancos_ProveedoresAbonar
                     End If
 
                     If TCCompra > TCPago Then
-                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Math.Abs(ImporteFluctuacion), gr.DataKey("SerieFolio").ToString, 64, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=UsuarioActual.Empresa.IdCuentaGananciaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveSubProyecto:=CveSubProyecto, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TCCompra, TipoCambioPago:=TCPago) Then
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Math.Abs(ImporteFluctuacion), gr.DataKey("SerieFolio").ToString, 64, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=UsuarioActual.Empresa.IdCuentaGananciaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveSubProyecto:=CveSubProyecto, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TCCompra, TipoCambioPago:=TCPago, Contabilizable:=EsContabilizable) Then
                             MsgError = "Ocurrio un error al saldar el movimiento"
                         End If
                     Else
-                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Math.Abs(ImporteFluctuacion), gr.DataKey("SerieFolio").ToString, 65, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=UsuarioActual.Empresa.IdCuentaPerdidaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveSubProyecto:=CveSubProyecto, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TCCompra, TipoCambioPago:=TCPago) Then
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Math.Abs(ImporteFluctuacion), gr.DataKey("SerieFolio").ToString, 65, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=UsuarioActual.Empresa.IdCuentaPerdidaCambiaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveSubProyecto:=CveSubProyecto, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=Math.Abs(ImporteFluctuacion), TipoCambio:=TCCompra, TipoCambioPago:=TCPago, Contabilizable:=EsContabilizable) Then
                             MsgError = "Ocurrio un error al saldar el movimiento"
                         End If
                     End If
diff --git a/Bancos/RepEgresosSinComprobante.aspx.vb b/Bancos/RepEgresosSinComprobante.aspx.vb
index 383c5a74a..21057b1ce 100644
--- a/Bancos/RepEgresosSinComprobante.aspx.vb
+++ b/Bancos/RepEgresosSinComprobante.aspx.vb
@@ -195,10 +195,14 @@ Partial Class Bancos_RepEgresosSinComprobante
         Next
     End Sub
 
-    Protected Sub LnkSaldar_Click(sender As Object, e As EventArgs)
+    Protected Sub LnkSaldar_Click(sender As Object, e As EventArgs)
+
         Dim ObjConta As New ClsContabilidad
         Dim ObjProveedor As New ClsCompProveedores(ObjConta.IniciaTransacSQL())
 
+
+        Dim EsContabilizable As Boolean = If(UsuarioActual.CveEmpresa.Contiene(13, 83), False, True)
+
         Dim CvePrePoliza As Integer = 0
         Dim MsgError As String = ""
         Try
@@ -235,13 +239,13 @@ Partial Class Bancos_RepEgresosSinComprobante
 
                     If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoConcepto, gr.DataKey("Saldo").ToDecimal, "", CveConceptoContable, "Saldo de ExC por Sistema", Now, IdCtaContable, -1,
                                                          gr.DataKey("CveIE").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero,
-                                                         ImporteMX:=gr.DataKey("Saldo").ToDecimal) Then
+                                                         ImporteMX:=gr.DataKey("Saldo").ToDecimal, Contabilizable:=EsContabilizable) Then
                         MsgError = "Ocurrio un error al saldar el movimiento"
                         Exit For
                     End If
 
                     If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoOtIngresos, gr.DataKey("Saldo").ToDecimal, "", 78, "Saldo de ExC por Sistema", Now, UsuarioActual.Empresa.IdCuentaOtrosIngresos, -1, gr.DataKey("CveIE").ToEntero,
-                                                         ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveSubProyecto:=gr.DataKey("CveSubProyecto").ToEntero) Then
+                                                         ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveSubProyecto:=gr.DataKey("CveSubProyecto").ToEntero, Contabilizable:=EsContabilizable) Then
                         MsgError = "Ocurrio un error al saldar el movimiento"
                         Exit For
                     End If
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index e64ab4230..48968f247 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -4090,6 +4090,10 @@ Partial Class Compras_Compras
 
         '------------------ INICIA VALIDACIONES ------------------
 
+        If Not ValidaSeleccionAnticipo() Then
+            Alert("El proveedor tiene anticipos sin aplicar, favor de especiar uno.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
 
 
         Dim TotalRealDevolucion As Decimal = 0
@@ -20563,8 +20567,40 @@ Partial Class Compras_Compras
 
     End Sub
 
+
+    Private Function ValidaSeleccionAnticipo() As Boolean
+
+        Dim Respuesta As Boolean
+
+        If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
+            If GVAnticipos.Rows.Count > 0 Then
+
+                For Each GVRow As GridViewRow In GVAnticipos.Rows
+                    If GVRow.FCCheckBox("Chk").Checked AndAlso GVRow.FCTextBox("TxtAnticipo").Text.ToDecimal > 0 Then
+                        Respuesta = True
+                        Exit For
+                    Else
+                        Respuesta = False
+                    End If
+                Next
+
+            Else
+                Respuesta = True
+            End If
+
+        Else
+            Respuesta = True
+        End If
+
+        Return Respuesta
+
+    End Function
+
 End Class
 
+
+
+
 Public Class MMensajeDevolucion
     Public Property CveMovimiento As Integer
     Public Property TieneError As Boolean
diff --git a/Compras/RepAnt-NC-EXCDetalle.aspx b/Compras/RepAnt-NC-EXCDetalle.aspx
index aa996826f..a28303a5e 100644
--- a/Compras/RepAnt-NC-EXCDetalle.aspx
+++ b/Compras/RepAnt-NC-EXCDetalle.aspx
@@ -146,7 +146,7 @@
                     <asp:BoundField DataField="TipoColumna" HeaderText="" ItemStyle-HorizontalAlign="Left"   />
                     <asp:BoundField DataField="SerieFolio" HeaderText="Proveedor/Folio" ItemStyle-HorizontalAlign="Left"   />
                     <asp:BoundField DataField="Fecha" ItemStyle-Width="10%" HeaderText="Fecha" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" />
-                    <asp:BoundField DataField="Dias" HeaderText="Días Transcurridos" ItemStyle-HorizontalAlign="Right"   />
+                    <asp:BoundField DataField="Dias" HeaderText="Días" ItemStyle-HorizontalAlign="Right"   />
                     <asp:BoundField DataField="SubTotal" ItemStyle-Width="10%" HeaderText="Importe" DataFormatString="{0:C}" ItemStyle-HorizontalAlign="right" />
                     <asp:BoundField DataField="ImporteAmortizacion" ItemStyle-Width="10%" HeaderText="Aplicado" DataFormatString="{0:C}" ItemStyle-HorizontalAlign="right" />
                     <asp:BoundField DataField="Saldo" ItemStyle-Width="10%" HeaderText="Saldo" DataFormatString="{0:C}" ItemStyle-HorizontalAlign="right" />
diff --git a/Compras/RepCxPDetalle.aspx b/Compras/RepCxPDetalle.aspx
index c15dc47e0..86452b3ce 100644
--- a/Compras/RepCxPDetalle.aspx
+++ b/Compras/RepCxPDetalle.aspx
@@ -348,7 +348,7 @@
                             Moneda
                         </HeaderTemplate>
                         <ItemTemplate>
-                            <asp:Label ID="LblMoneda" runat="server" Text='<%# Eval("Moneda")%>' CssClass="Moneda"></asp:Label>
+                            <asp:Label ID="LblMoneda" runat="server" Text='<%# Eval("Abreviatura")%>' CssClass="Moneda"></asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
 
diff --git a/Empresas/15/Formatos/Factura.rdlc b/Empresas/15/Formatos/Factura.rdlc
index 82cab18f5..15b8dc996 100644
--- a/Empresas/15/Formatos/Factura.rdlc
+++ b/Empresas/15/Formatos/Factura.rdlc
@@ -1388,7 +1388,7 @@
               </Line>
             </ReportItems>
             <KeepTogether>true</KeepTogether>
-            <Top>22.18718cm</Top>
+            <Top>22.50468cm</Top>
             <Left>0.0208cm</Left>
             <Height>2.10099cm</Height>
             <Width>20.06179cm</Width>
@@ -2861,7 +2861,7 @@
               </TablixMembers>
             </TablixRowHierarchy>
             <DataSetName>DsOC</DataSetName>
-            <Top>5.47765cm</Top>
+            <Top>5.79515cm</Top>
             <Left>0.11516cm</Left>
             <Height>2.29418cm</Height>
             <Width>19.94648cm</Width>
@@ -3286,7 +3286,7 @@
               </Textbox>
             </ReportItems>
             <KeepTogether>true</KeepTogether>
-            <Top>14.78471cm</Top>
+            <Top>15.10221cm</Top>
             <Left>0.04257cm</Left>
             <Height>3.74574cm</Height>
             <Width>20.109cm</Width>
@@ -4352,7 +4352,7 @@
               </Tablix>
             </ReportItems>
             <KeepTogether>true</KeepTogether>
-            <Top>7.94557cm</Top>
+            <Top>8.26307cm</Top>
             <Left>0.11516cm</Left>
             <Height>6.80033cm</Height>
             <Width>20.03641cm</Width>
@@ -4403,7 +4403,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox8</rd:DefaultName>
-            <Top>20.99452cm</Top>
+            <Top>21.31202cm</Top>
             <Left>0.07003cm</Left>
             <Height>1.01627cm</Height>
             <Width>9.87342cm</Width>
@@ -4864,7 +4864,7 @@
               </Tablix>
             </ReportItems>
             <KeepTogether>true</KeepTogether>
-            <Top>18.54456cm</Top>
+            <Top>18.86206cm</Top>
             <Left>0.00547cm</Left>
             <Height>2.25247cm</Height>
             <Width>20.1554cm</Width>
@@ -4898,7 +4898,7 @@
             <rd:DefaultName>Textbox19</rd:DefaultName>
             <Top>1.13294in</Top>
             <Left>0.12202cm</Left>
-            <Height>0.22222in</Height>
+            <Height>0.34722in</Height>
             <Width>1.06031in</Width>
             <ZIndex>16</ZIndex>
             <Style>
@@ -4941,7 +4941,7 @@
             <rd:DefaultName>Textbox19</rd:DefaultName>
             <Top>1.13294in</Top>
             <Left>1.10835in</Left>
-            <Height>0.22222in</Height>
+            <Height>0.34722in</Height>
             <Width>4.49659in</Width>
             <ZIndex>17</ZIndex>
             <Style>
@@ -4993,7 +4993,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox19</rd:DefaultName>
-            <Top>1.88745in</Top>
+            <Top>2.01245in</Top>
             <Left>5.68418in</Left>
             <Height>0.2092in</Height>
             <Width>2.19856in</Width>
@@ -5036,7 +5036,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox19</rd:DefaultName>
-            <Top>1.88017in</Top>
+            <Top>2.00517in</Top>
             <Left>0.11516cm</Left>
             <Height>0.22222in</Height>
             <Width>1.06031in</Width>
@@ -5079,7 +5079,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox19</rd:DefaultName>
-            <Top>1.88017in</Top>
+            <Top>2.00517in</Top>
             <Left>1.11815in</Left>
             <Height>0.22222in</Height>
             <Width>4.49659in</Width>
@@ -5122,7 +5122,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox19</rd:DefaultName>
-            <Top>1.38067in</Top>
+            <Top>1.50567in</Top>
             <Left>0.12202cm</Left>
             <Height>0.22222in</Height>
             <Width>1.06031in</Width>
@@ -5166,7 +5166,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox19</rd:DefaultName>
-            <Top>1.38067in</Top>
+            <Top>1.50567in</Top>
             <Left>1.13065in</Left>
             <Height>0.22222in</Height>
             <Width>4.48409in</Width>
@@ -5209,7 +5209,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox19</rd:DefaultName>
-            <Top>1.62928in</Top>
+            <Top>1.75428in</Top>
             <Left>0.12202cm</Left>
             <Height>0.22222in</Height>
             <Width>1.06031in</Width>
@@ -5252,7 +5252,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox19</rd:DefaultName>
-            <Top>1.62928in</Top>
+            <Top>1.75428in</Top>
             <Left>1.12085in</Left>
             <Height>0.22222in</Height>
             <Width>1.76124in</Width>
@@ -5295,7 +5295,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox19</rd:DefaultName>
-            <Top>1.61539in</Top>
+            <Top>1.74039in</Top>
             <Left>7.30984cm</Left>
             <Height>0.22222in</Height>
             <Width>1.06031in</Width>
@@ -5338,7 +5338,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox19</rd:DefaultName>
-            <Top>1.62789in</Top>
+            <Top>1.75289in</Top>
             <Left>3.9382in</Left>
             <Height>0.22222in</Height>
             <Width>1.66674in</Width>
@@ -5364,7 +5364,7 @@
             </Style>
           </Textbox>
         </ReportItems>
-        <Height>24.28817cm</Height>
+        <Height>24.92317cm</Height>
         <Style />
       </Body>
       <Width>20.16087cm</Width>
diff --git a/Empresas/Grales/Formatos/RepCxPDetalle.rdlc b/Empresas/Grales/Formatos/RepCxPDetalle.rdlc
index 22182d4e8..a7a7a44f2 100644
--- a/Empresas/Grales/Formatos/RepCxPDetalle.rdlc
+++ b/Empresas/Grales/Formatos/RepCxPDetalle.rdlc
@@ -769,7 +769,7 @@ IIF(Fields!CveMoneda.Value = "1", "Total Pesos","Total Dólares"),Fields!Agrupad
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>=IIF(Fields!SerieFolio.Value ="", "",Fields!Moneda.Value)</Value>
+                              <Value>=IIF(Fields!SerieFolio.Value ="", "",Fields!Abreviatura.Value)</Value>
                               <Style>
                                 <FontSize>8pt</FontSize>
                                 <FontWeight>=IIF(Fields!SerieFolio.Value = "","Bold","Normal")</FontWeight>
@@ -793,6 +793,7 @@ IIF(Fields!CveMoneda.Value = "1", "Total Pesos","Total Dólares"),Fields!Agrupad
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
+                    <rd:Selected>true</rd:Selected>
                   </CellContents>
                 </TablixCell>
                 <TablixCell>
@@ -1439,6 +1440,10 @@ IIF(Fields!CveMoneda.Value = "1", "Total Pesos","Total Dólares"),Fields!Agrupad
           <DataField>Moneda</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
+        <Field Name="Abreviatura">
+          <DataField>Abreviatura</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
         <Field Name="Saldo">
           <DataField>Saldo</DataField>
           <rd:TypeName>System.Double</rd:TypeName>