AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- cambio no usar prepolizasdetalle, para obtenr facturas pagadas o movtos de bancos, afecta a la obtención de prepolizas

Browse Source
This commit is contained in:
rrene
2023-06-27 15:30:49 -07:00
parent d22e648582
commit 33d41836dd
7 changed files with 148 additions and 74 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
App_Code/ClsBancos.vb
View File

@@ -848,21 +848,41 @@ Public Class ClsBancos
Return Retorno Return Retorno
End Function End Function
Public Function GetPrePolizasDetalle(CvePrePoliza As Integer, CveEmpresa As Integer, Optional CveIE As Integer = -1, Optional CveOC As Integer = -1) As Boolean 'Public Function GetPrePolizasDetalle(CvePrePoliza As Integer, CveEmpresa As Integer, Optional CveIE As Integer = -1, Optional CveOC As Integer = -1) As Boolean
Dim Retorno As Boolean = False ' Dim Retorno As Boolean = False
DataAdapter("PA_Conta_PrePolizasDetalleGet") ' DataAdapter("PA_Conta_PrePolizasDetalleGet")
With SqlAdapter.SelectCommand.Parameters ' With SqlAdapter.SelectCommand.Parameters
.Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza ' .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveIE", SqlDbType.Int).Value = CveIE ' .Add("@CveIE", SqlDbType.Int).Value = CveIE
.Add("@CveOC", SqlDbType.Int).Value = CveOC ' .Add("@CveOC", SqlDbType.Int).Value = CveOC
End With ' End With
' Try
' SqlAdapter.Fill(Data)
' Retorno = True
' Catch ex As Exception
' OnError("Ocurrió un error al obtener Movimientos Prepolizas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
' End Try
' Return Retorno
'End Function
Public Function GetBancosIEFacturasPagadas(CveIE As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Banc_IEFacturasPagadasGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveIE", SqlDbType.Int).Value = CveIE
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
Retorno = True Retorno = True
Catch ex As Exception Catch ex As Exception
OnError("Ocurrió un error al obtener Movimientos Prepolizas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) OnError("Ocurrió un error al obtener los movimientos del documento.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try End Try
Return Retorno Return Retorno
@@ -944,6 +964,7 @@ Public Class ClsBancos
Return Retorno Return Retorno
End Function End Function
Public Function GetFoliosCancelados(CveEmpresa As Integer) As Boolean Public Function GetFoliosCancelados(CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Banc_FoliosCanceladosGet") DataAdapter("PA_Banc_FoliosCanceladosGet")

6
App_Code/ClsContabilidad.vb
View File

@@ -1195,14 +1195,14 @@ Public Class ClsContabilidad
Return Concepto Return Concepto
End Function End Function
Public Function GetPrePolizasDetalle(CvePrePoliza As Integer, CveEmpresa As Integer, Optional CveIE As Integer = -1, Optional CveVenta As Integer = -1) As Boolean Public Function GetPrePolizasDetalle(CvePrePoliza As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Conta_PrePolizasDetalleGet") DataAdapter("PA_Conta_PrePolizasDetalleGet")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza
.Add("@CveIE", SqlDbType.Int).Value = CveIE .Add("@CveIE", SqlDbType.Int).Value = -1
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveVenta", SqlDbType.Int).Value = CveVenta '.Add("@CveVenta", SqlDbType.Int).Value = CveVenta
End With End With
Try Try

2
App_Code/Modelos.vb
View File

@@ -2442,7 +2442,7 @@ Namespace Modelos
Dim DtPrePolizasAFCancelar As DataTable = Nothing Dim DtPrePolizasAFCancelar As DataTable = Nothing
If ValorMultiplicador = -1 AndAlso ObjFactura.DtDetalle IsNot Nothing AndAlso ObjFactura.DtDetalle.COUNT("CveActivoFijo", "CveActivoFijo > 0") > 0 Then If ValorMultiplicador = -1 AndAlso ObjFactura.DtDetalle IsNot Nothing AndAlso ObjFactura.DtDetalle.COUNT("CveActivoFijo", "CveActivoFijo > 0") > 0 Then
If ObjConta.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveVenta:=ObjFactura.CveVenta) Then If ObjConta.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa) Then
DtPrePolizasAFCancelar = ObjConta.DtResultados.FiltraParametros("CveConceptoContable IN (271,49,4)") DtPrePolizasAFCancelar = ObjConta.DtResultados.FiltraParametros("CveConceptoContable IN (271,49,4)")
End If End If
End If End If

4
App_Code/modExtensiones.vb
View File

@@ -2025,8 +2025,8 @@ Namespace Extensiones
RefCrediproveedor = ObjIE.DepositoRefCrediProveedor RefCrediproveedor = ObjIE.DepositoRefCrediProveedor
'Dim UsuarioResponsable As String = "" 'Dim UsuarioResponsable As String = ""
Dim PreP As New ClsContabilidad Dim PreP As New ClsBancos
If PreP.GetPrePolizasDetalle(-1, tCveEmpresa, CveIE:=pCveIE) Then If PreP.GetBancosIEMovimientos(pCveIE, tCveEmpresa) Then
If PreP.DtResultados.Rows.Count > 0 Then If PreP.DtResultados.Rows.Count > 0 Then
CveProveedor = PreP.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero CveProveedor = PreP.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero
CvePersonal = PreP.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero CvePersonal = PreP.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero

46
Bancos/IE.aspx
View File

@@ -653,8 +653,8 @@
<ajax:TabPanel ID="TabM" runat="server" HeaderText="Movimientos"> <ajax:TabPanel ID="TabM" runat="server" HeaderText="Movimientos">
<ContentTemplate> <ContentTemplate>
<div class="row"> <div class="row">
<div class="col-md-6"> <div class="col-md-6" >
<asp:GridView ID="GvM" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-advance table-hover Widthall mysmallbtn" Style="text-align: center;" GridLines="None" <asp:GridView ID="GvM" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-advance table-hover Widthall ADSCroll mysmallbtn ScrollAD" Style="text-align: center;" GridLines="None"
DataKeyNames="CveVenta" OnRowDataBound="GvM_RowDataBound"> DataKeyNames="CveVenta" OnRowDataBound="GvM_RowDataBound">
<Columns> <Columns>
<asp:BoundField DataField="ConceptoContable" HeaderText="ConceptoContable"> <asp:BoundField DataField="ConceptoContable" HeaderText="ConceptoContable">
@@ -671,7 +671,7 @@
<asp:HyperLink ID="HplF" runat="server" CssClass="Texto" Text='<%# Eval("Referencia") %>' NavigateUrl='<%# If(Eval("CveCompra").ToString <> "", Eval("CveCompra", "/Compras/Compras.aspx?CveCompra={0}"), Eval("CveVenta", "/Ventas/Ventas.aspx?CveVenta={0}")) %>'></asp:HyperLink> <asp:HyperLink ID="HplF" runat="server" CssClass="Texto" Text='<%# Eval("Referencia") %>' NavigateUrl='<%# If(Eval("CveCompra").ToString <> "", Eval("CveCompra", "/Compras/Compras.aspx?CveCompra={0}"), Eval("CveVenta", "/Ventas/Ventas.aspx?CveVenta={0}")) %>'></asp:HyperLink>
</ItemTemplate> </ItemTemplate>
<HeaderStyle HorizontalAlign="Center" /> <HeaderStyle HorizontalAlign="Center" />
<ItemStyle Width="100px" /> <ItemStyle Width="120px" />
</asp:TemplateField> </asp:TemplateField>
<asp:BoundField DataField="Importe" HeaderText="Importe" DataFormatString="{0:N2}"> <asp:BoundField DataField="Importe" HeaderText="Importe" DataFormatString="{0:N2}">
<ItemStyle HorizontalAlign="Right" Width="100px" /> <ItemStyle HorizontalAlign="Right" Width="100px" />
@@ -1604,6 +1604,46 @@
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</div> </div>
<div id="ModalAjustarMovimiento" class="modal ADS fade" role="dialog">
<div class="modal-dialog">
<!-- Modal content-->
<div class="modal-content">
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">&times;</button>
<h4 class="modal-title">Ajustar Movimiento</h4>
</div>
<div class="modal-body">
<asp:UpdatePanel ID="UpModalAjustarMovimiento" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="row">
<div class="col-xs-2">Importe:</div>
<div class="col-xs-8" style="text-align: left">
<asp:TextBox ID="TxtAjustarMovimiento" runat="server" Width="120px" CssClass="form-control" ClientIDMode="Static" Style="text-align: right;" AutoComplete="off" onkeydown="return (event.keyCode!=13);"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVTxtAjustarMovimiento" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtAjustarMovimiento" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Importe''</b> es necesario, por favor ingréselo." ValidationGroup="GpoAjustarMovimiento"></asp:RequiredFieldValidator>
<ajax:FilteredTextBoxExtender ID="FIETxtAjustarMovimiento" runat="server" TargetControlID="TxtAjustarMovimiento" FilterType="Custom, Numbers" ValidChars="+-.," />
<i></i>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
<div class="modal-footer">
<asp:UpdatePanel runat="server">
<ContentTemplate>
<asp:Button ID="BtnAjustarMovimiento" Text="Ajustar" runat="server" ClientIDMode="Static" CssClass="btn btn-primary" ValidationGroup="GpoAjustarMovimiento" />
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</div>
</div>
</asp:Content> </asp:Content>

94
Bancos/IE.aspx.vb
View File

@@ -966,13 +966,14 @@ Partial Class Bancos_IE
End If End If
'Detectamos a quien se le hizo el cobro (Cliente, proveedor, Funcionario/Empleado, etc.) 'Detectamos a quien se le hizo el cobro (Cliente, proveedor, Funcionario/Empleado, etc.)
If ObjIE2.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then If ObjIE2.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then
If ObjIE2.DtResultados.Rows.Count > 0 Then If ObjIE2.DtResultados.Rows.Count > 0 Then
Dim dtMovtos As DataTable = ObjIE2.DtResultados
Dim CveConceptoContable As Integer = ObjIE2.DtResultados.FiltroPrimeroValor("CveConceptoContable", "CveConceptoContable <> 30 and CveConceptoContable <> 61").ToEntero Dim CveConceptoContable As Integer = dtMovtos.FiltroPrimeroValor("CveConceptoContable", "CveConceptoContable <> 30 and CveConceptoContable <> 61").ToEntero
CveCliente = ObjIE2.DtResultados.Rows(0)("CveCliente").ToString.ToEntero CveCliente = dtMovtos.Rows(0)("CveCliente").ToString.ToEntero
CvePersonal = ObjIE2.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero CvePersonal = dtMovtos.Rows(0)("CvePersonal").ToString.ToEntero
CveProveedor = ObjIE2.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero CveProveedor = dtMovtos.Rows(0)("CveProveedor").ToString.ToEntero
Select Case CveConceptoContable Select Case CveConceptoContable
Case 66 Case 66
@@ -986,10 +987,28 @@ Partial Class Bancos_IE
PnlRecibidoPor.Visible = True PnlRecibidoPor.Visible = True
End Select End Select
'codigo reubicado, para no consultar 2 veces
GvM.DataSource = dtMovtos.FiltraParametros("CveConceptoContable <> 30")
If UsuarioActual.TienePermisoProceso(277) AndAlso Not TabCancelacion.Visible Then
GvM.Columns(8).Visible = True
End If
If dtMovtos.FiltraParametros("TCPago > 1").Rows.Count.ToEntero() > 0 Then
GvM.Columns(7).Visible = True
End If
If dtMovtos.FiltraParametros("CveMonedaIE <> CveMoneda").Rows.Count.ToEntero > 0 Then
GvM.Columns(5).Visible = True
GvM.Columns(6).Visible = True
End If
GvM.DataBind()
End If End If
End If End If
End If End If
If CveCliente > 0 Then If CveCliente > 0 Then
DdlCliente.SelectedText = ObjIE.PagueseA DdlCliente.SelectedText = ObjIE.PagueseA
DdlCliente.SelectedValue = CveCliente.ToString DdlCliente.SelectedValue = CveCliente.ToString
@@ -1224,27 +1243,27 @@ Partial Class Bancos_IE
'End If 'End If
' codigo se reubicó a linea 969
''DETALLES - MOVIMIENTOS
'If ObjIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then
' GvM.DataSource = ObjIE.DtResultados.FiltraParametros("CveConceptoContable <> 30")
'DETALLES - MOVIMIENTOS ' If UsuarioActual.TienePermisoProceso(277) AndAlso Not TabCancelacion.Visible Then
If ObjIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then ' GvM.Columns(8).Visible = True
GvM.DataSource = ObjIE.DtResultados ' End If
If UsuarioActual.TienePermisoProceso(277) AndAlso Not TabCancelacion.Visible Then ' If ObjIE.DtResultados.FiltraParametros("TCPago > 1").Rows.Count.ToEntero() > 0 Then
GvM.Columns(8).Visible = True ' GvM.Columns(7).Visible = True
End If ' End If
If ObjIE.DtResultados.FiltraParametros("TCPago > 1").Rows.Count.ToEntero() > 0 Then ' If ObjIE.DtResultados.FiltraParametros("CveMonedaIE <> CveMoneda").Rows.Count.ToEntero > 0 Then
GvM.Columns(7).Visible = True ' GvM.Columns(5).Visible = True
End If ' GvM.Columns(6).Visible = True
' End If
If ObjIE.DtResultados.FiltraParametros("CveMonedaIE <> CveMoneda").Rows.Count.ToEntero > 0 Then ' GvM.DataBind()
GvM.Columns(5).Visible = True
GvM.Columns(6).Visible = True
End If
GvM.DataBind() 'End If
End If
'Movimientos Relacionados Padre 'Movimientos Relacionados Padre
If ObjIE.GetBancosIEMovimientosPadre(CveIE, UsuarioActual.CveEmpresa) Then If ObjIE.GetBancosIEMovimientosPadre(CveIE, UsuarioActual.CveEmpresa) Then
@@ -6328,29 +6347,26 @@ Partial Class Bancos_IE
End Sub End Sub
'Private Sub LnkAjustarMovimiento_Click(sender As Object, e As EventArgs) Handles LnkAjustarMovimiento.Click Private Sub LnkAjustarMovimiento_Click(sender As Object, e As EventArgs) Handles LnkAjustarMovimiento.Click
' RegistraScript("$('#ModalAjustarMovimiento').modal('show');") RegistraScript("$('#ModalAjustarMovimiento').modal('show');")
'End Sub End Sub
'Private Sub BtnAjustarMovimiento_Click(sender As Object, e As EventArgs) Handles BtnAjustarMovimiento.Click Private Sub BtnAjustarMovimiento_Click(sender As Object, e As EventArgs) Handles BtnAjustarMovimiento.Click
' Dim ObjBanco As New ClsBancos Dim ObjBanco As New ClsBancos
' ObjBanco.IniciaTransacSQL() ObjBanco.IniciaTransacSQL()
' If ObjBanco.UpdateAjustarMovimiento(CveIE, TxtAjustarMovimiento.Text.ToDecimal, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
' ObjBanco.Commit()
' RegistraScript("$('#ModalAjustarMovimiento').modal('hide');", "ALTR")
' Alert("El ajuste se realizo correctamente.", TipoMensaje.MsgInformacion, $" document.location.href = ""./IE.aspx?CveIE={CveIE}"";")
' Else
' ObjBanco.RollBack()
' End If
' ObjBanco.Dispose()
'End Sub
If ObjBanco.UpdateAjustarMovimiento(CveIE, TxtAjustarMovimiento.Text.ToDecimal, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
ObjBanco.Commit()
RegistraScript("$('#ModalAjustarMovimiento').modal('hide');", "ALTR")
Alert("El ajuste se realizo correctamente.", TipoMensaje.MsgInformacion, $" document.location.href = ""./IE.aspx?CveIE={CveIE}"";")
Else
ObjBanco.RollBack()
End If
ObjBanco.Dispose()
End Sub
Protected Sub LnkCancelaMovimiento_Click(sender As Object, e As EventArgs) Protected Sub LnkCancelaMovimiento_Click(sender As Object, e As EventArgs)

29
Compras/PopUpVerFactura.aspx.vb
View File

@@ -5953,17 +5953,17 @@ Partial Class PopUpVerFactura
DtMovimientosPoliza.Rows.Add(Dr) DtMovimientosPoliza.Rows.Add(Dr)
End If End If
ElseIf UsuarioActual.CveEmpresa.Contiene(119, 141) Then ElseIf UsuarioActual.CveEmpresa.Contiene(119, 141) Then
Dim PreP As New ClsContabilidad
If PreP.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then If ObjIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then
DtMovimientosPoliza = New DataTable DtMovimientosPoliza = New DataTable
DtMovimientosPoliza.Columns.Add("CODIGO", GetType(String)) DtMovimientosPoliza.Columns.Add("CODIGO", GetType(String))
DtMovimientosPoliza.Columns.Add("Cuenta", GetType(String)) DtMovimientosPoliza.Columns.Add("Cuenta", GetType(String))
DtMovimientosPoliza.Columns.Add("Cargo", GetType(Double)) DtMovimientosPoliza.Columns.Add("Cargo", GetType(Double))
DtMovimientosPoliza.Columns.Add("Abono", GetType(Double)) DtMovimientosPoliza.Columns.Add("Abono", GetType(Double))
If PreP.DtResultados.Rows.Count > 0 Then If ObjIE.DtResultados.Rows.Count > 0 Then
For Each drt As DataRow In PreP.DtResultados.Rows For Each drt As DataRow In ObjIE.DtResultados.Rows
Dim Dr = DtMovimientosPoliza.NewRow Dim Dr = DtMovimientosPoliza.NewRow
Dr("CODIGO") = drt("CuentaCodigo") Dr("CODIGO") = drt("CuentaCodigo")
Dr("Cuenta") = drt("CuentaNombre") Dr("Cuenta") = drt("CuentaNombre")
@@ -5974,7 +5974,7 @@ Partial Class PopUpVerFactura
Next Next
End If End If
End If End If
PreP.Dispose()
End If End If
@@ -6030,13 +6030,12 @@ Partial Class PopUpVerFactura
NotificarA = ObjIE.NotificarA NotificarA = ObjIE.NotificarA
tIdPoliza = ObjIE.IDPoliza tIdPoliza = ObjIE.IDPoliza
Dim PreP As New ClsContabilidad If ObjIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then
If PreP.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then If ObjIE.DtResultados.Rows.Count > 0 Then
If PreP.DtResultados.Rows.Count > 0 Then CveProveedor = ObjIE.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero
CveProveedor = PreP.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero CvePersonal = ObjIE.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero
CvePersonal = PreP.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero
IVA = PreP.DtResultados.SUM("Importe", "CveConceptoContable = 19") ' concepto de IVA IVA = ObjIE.DtResultados.SUM("Importe", "CveConceptoContable = 19") ' concepto de IVA
If CveProveedor > 0 Then If CveProveedor > 0 Then
Dim Prov As New ClsCompProveedores Dim Prov As New ClsCompProveedores
@@ -6067,7 +6066,6 @@ Partial Class PopUpVerFactura
End If End If
End If End If
End If End If
PreP.Dispose()
params.Add(New ReportParameter("Fecha", FechaExpedicion.ToString("dd-MM-yyyy"))) params.Add(New ReportParameter("Fecha", FechaExpedicion.ToString("dd-MM-yyyy")))
@@ -6238,10 +6236,9 @@ Partial Class PopUpVerFactura
Dim reportDataSetsList As New List(Of ReportDataSource) Dim reportDataSetsList As New List(Of ReportDataSource)
Dim dtMovs As New DataTable Dim dtMovs As New DataTable
Dim Mov As New ClsContabilidad If ObjIE.GetBancosIEFacturasPagadas(CveIE, UsuarioActual.CveEmpresa) Then
If Mov.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
dtMovs = Mov.DtResultados.FiltraParametros("CveConceptoContable IN (17,2,308,309,312)") dtMovs = ObjIE.DtResultados.FiltraParametros("CveConceptoContable IN (17,2,308,309,312,292 )")
If Not UsuarioActual.CveEmpresa.Contiene(13, 83) Then If Not UsuarioActual.CveEmpresa.Contiene(13, 83) Then
'CONVIERTO A PESOS CUANDO SE PAGA CON PESOS FACTURAS DE DOLARES 'CONVIERTO A PESOS CUANDO SE PAGA CON PESOS FACTURAS DE DOLARES
@@ -6254,7 +6251,7 @@ Partial Class PopUpVerFactura
End If End If
End If End If
Mov.Dispose()
Dim rds = New ReportDataSource("DataSet1", dtMovs) Dim rds = New ReportDataSource("DataSet1", dtMovs)
reportDataSetsList.Add(rds) reportDataSetsList.Add(rds)