From 33d41836ddbcafdd7c20d2c0951ff1bdab1ab2ce Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 27 Jun 2023 15:30:49 -0700 Subject: [PATCH] =?UTF-8?q?-=20cambio=20no=20usar=20prepolizasdetalle,=20p?= =?UTF-8?q?ara=20obtenr=20facturas=20pagadas=20o=20movtos=20de=20bancos,?= =?UTF-8?q?=20afecta=20a=20la=20obtenci=C3=B3n=20de=20prepolizas?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsBancos.vb | 41 ++++++++++---- App_Code/ClsContabilidad.vb | 6 +-- App_Code/Modelos.vb | 2 +- App_Code/modExtensiones.vb | 4 +- Bancos/IE.aspx | 46 ++++++++++++++-- Bancos/IE.aspx.vb | 94 +++++++++++++++++++-------------- Compras/PopUpVerFactura.aspx.vb | 29 +++++----- 7 files changed, 148 insertions(+), 74 deletions(-) diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index 93ebfc00b..7afa67d63 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -848,21 +848,41 @@ Public Class ClsBancos Return Retorno End Function - 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 - DataAdapter("PA_Conta_PrePolizasDetalleGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveIE", SqlDbType.Int).Value = CveIE - .Add("@CveOC", SqlDbType.Int).Value = CveOC - End With + '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 + ' DataAdapter("PA_Conta_PrePolizasDetalleGet") + ' With SqlAdapter.SelectCommand.Parameters + ' .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza + ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + ' .Add("@CveIE", SqlDbType.Int).Value = CveIE + ' .Add("@CveOC", SqlDbType.Int).Value = CveOC + ' 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 SqlAdapter.Fill(Data) + Retorno = True 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 Return Retorno @@ -944,6 +964,7 @@ Public Class ClsBancos Return Retorno End Function + Public Function GetFoliosCancelados(CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Banc_FoliosCanceladosGet") diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index cb0596ad0..e3f903e99 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -1195,14 +1195,14 @@ Public Class ClsContabilidad Return Concepto 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 DataAdapter("PA_Conta_PrePolizasDetalleGet") With SqlAdapter.SelectCommand.Parameters .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("@CveVenta", SqlDbType.Int).Value = CveVenta + '.Add("@CveVenta", SqlDbType.Int).Value = CveVenta End With Try diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index df54b086e..64289248f 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -2442,7 +2442,7 @@ Namespace Modelos Dim DtPrePolizasAFCancelar As DataTable = Nothing 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)") End If End If diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index fb6ddaac8..ab43d4a54 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -2025,8 +2025,8 @@ Namespace Extensiones RefCrediproveedor = ObjIE.DepositoRefCrediProveedor 'Dim UsuarioResponsable As String = "" - Dim PreP As New ClsContabilidad - If PreP.GetPrePolizasDetalle(-1, tCveEmpresa, CveIE:=pCveIE) Then + Dim PreP As New ClsBancos + If PreP.GetBancosIEMovimientos(pCveIE, tCveEmpresa) Then If PreP.DtResultados.Rows.Count > 0 Then CveProveedor = PreP.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero CvePersonal = PreP.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx index c967b9b73..1271eb8cd 100644 --- a/Bancos/IE.aspx +++ b/Bancos/IE.aspx @@ -653,8 +653,8 @@
-
- + @@ -671,7 +671,7 @@ - + @@ -1604,6 +1604,46 @@
+ + + diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 7a69d4a3e..aff25f863 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -966,13 +966,14 @@ Partial Class Bancos_IE End If '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 + Dim dtMovtos As DataTable = ObjIE2.DtResultados - Dim CveConceptoContable As Integer = ObjIE2.DtResultados.FiltroPrimeroValor("CveConceptoContable", "CveConceptoContable <> 30 and CveConceptoContable <> 61").ToEntero - CveCliente = ObjIE2.DtResultados.Rows(0)("CveCliente").ToString.ToEntero - CvePersonal = ObjIE2.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero - CveProveedor = ObjIE2.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero + Dim CveConceptoContable As Integer = dtMovtos.FiltroPrimeroValor("CveConceptoContable", "CveConceptoContable <> 30 and CveConceptoContable <> 61").ToEntero + CveCliente = dtMovtos.Rows(0)("CveCliente").ToString.ToEntero + CvePersonal = dtMovtos.Rows(0)("CvePersonal").ToString.ToEntero + CveProveedor = dtMovtos.Rows(0)("CveProveedor").ToString.ToEntero Select Case CveConceptoContable Case 66 @@ -986,10 +987,28 @@ Partial Class Bancos_IE PnlRecibidoPor.Visible = True 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 + If CveCliente > 0 Then DdlCliente.SelectedText = ObjIE.PagueseA DdlCliente.SelectedValue = CveCliente.ToString @@ -1224,27 +1243,27 @@ Partial Class Bancos_IE '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 ObjIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then - GvM.DataSource = ObjIE.DtResultados + ' If UsuarioActual.TienePermisoProceso(277) AndAlso Not TabCancelacion.Visible Then + ' GvM.Columns(8).Visible = True + ' End If - If UsuarioActual.TienePermisoProceso(277) AndAlso Not TabCancelacion.Visible Then - GvM.Columns(8).Visible = True - End If + ' If ObjIE.DtResultados.FiltraParametros("TCPago > 1").Rows.Count.ToEntero() > 0 Then + ' GvM.Columns(7).Visible = True + ' End If - If ObjIE.DtResultados.FiltraParametros("TCPago > 1").Rows.Count.ToEntero() > 0 Then - GvM.Columns(7).Visible = True - End If + ' If ObjIE.DtResultados.FiltraParametros("CveMonedaIE <> CveMoneda").Rows.Count.ToEntero > 0 Then + ' GvM.Columns(5).Visible = True + ' GvM.Columns(6).Visible = True + ' End If - If ObjIE.DtResultados.FiltraParametros("CveMonedaIE <> CveMoneda").Rows.Count.ToEntero > 0 Then - GvM.Columns(5).Visible = True - GvM.Columns(6).Visible = True - End If + ' GvM.DataBind() - GvM.DataBind() - - End If + 'End If 'Movimientos Relacionados Padre If ObjIE.GetBancosIEMovimientosPadre(CveIE, UsuarioActual.CveEmpresa) Then @@ -6328,29 +6347,26 @@ Partial Class Bancos_IE End Sub - 'Private Sub LnkAjustarMovimiento_Click(sender As Object, e As EventArgs) Handles LnkAjustarMovimiento.Click - ' RegistraScript("$('#ModalAjustarMovimiento').modal('show');") - 'End Sub + Private Sub LnkAjustarMovimiento_Click(sender As Object, e As EventArgs) Handles LnkAjustarMovimiento.Click + RegistraScript("$('#ModalAjustarMovimiento').modal('show');") + 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 - ' 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 + Dim ObjBanco As New ClsBancos + 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 Protected Sub LnkCancelaMovimiento_Click(sender As Object, e As EventArgs) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 931cf3ea0..02ef04665 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -5953,17 +5953,17 @@ Partial Class PopUpVerFactura DtMovimientosPoliza.Rows.Add(Dr) End If 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.Columns.Add("CODIGO", GetType(String)) DtMovimientosPoliza.Columns.Add("Cuenta", GetType(String)) DtMovimientosPoliza.Columns.Add("Cargo", 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 Dr("CODIGO") = drt("CuentaCodigo") Dr("Cuenta") = drt("CuentaNombre") @@ -5974,7 +5974,7 @@ Partial Class PopUpVerFactura Next End If End If - PreP.Dispose() + End If @@ -6030,13 +6030,12 @@ Partial Class PopUpVerFactura NotificarA = ObjIE.NotificarA tIdPoliza = ObjIE.IDPoliza - Dim PreP As New ClsContabilidad - If PreP.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then - If PreP.DtResultados.Rows.Count > 0 Then - CveProveedor = PreP.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero - CvePersonal = PreP.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero + If ObjIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then + If ObjIE.DtResultados.Rows.Count > 0 Then + CveProveedor = ObjIE.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero + CvePersonal = ObjIE.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 Dim Prov As New ClsCompProveedores @@ -6067,7 +6066,6 @@ Partial Class PopUpVerFactura End If End If End If - PreP.Dispose() 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 dtMovs As New DataTable - Dim Mov As New ClsContabilidad - If Mov.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then + If ObjIE.GetBancosIEFacturasPagadas(CveIE, UsuarioActual.CveEmpresa) 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 'CONVIERTO A PESOS CUANDO SE PAGA CON PESOS FACTURAS DE DOLARES @@ -6254,7 +6251,7 @@ Partial Class PopUpVerFactura End If End If - Mov.Dispose() + Dim rds = New ReportDataSource("DataSet1", dtMovs) reportDataSetsList.Add(rds)