RepAnt-NC, saldados no contabilizables empresa 13

This commit is contained in:
rakcsle
2022-09-10 08:09:09 -07:00
parent a12a397c48
commit 4c8980bef3
7 changed files with 79 additions and 32 deletions

View File

@@ -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

View File

@@ -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

View File

@@ -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

View File

@@ -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" />

View File

@@ -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>

View File

@@ -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>

View File

@@ -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>