From acbfc081bf450932fe1f111ca1b01f88ca8fddec Mon Sep 17 00:00:00 2001 From: rakcsle Date: Thu, 10 Mar 2022 12:29:50 -0700 Subject: [PATCH] =?UTF-8?q?Editar=20IE=20CArgar=20Tipos=20de=20=20transacc?= =?UTF-8?q?iones=20se=20gun=20naturaleza=20de=20la=20transacci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsContabilidad.vb | 2 ++ Bancos/IE.aspx.vb | 11 ++++++++++- Compras/Compras.aspx.vb | 1 + Contabilidad/RepOrigenAplicacion.aspx | 6 +++--- Contabilidad/RepOrigenAplicacion.aspx.vb | 19 +++++++++++++++++-- 5 files changed, 33 insertions(+), 6 deletions(-) diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 591b8d100..d5cf5e840 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -324,6 +324,8 @@ Public Class ClsContabilidad Catch ex As Exception If ex.Message.Contains("CuentasResultados_SubProyectos") Then OnError("El concepto requiere que se le especifique centro de costo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + ElseIf ex.Message.Contains("50015") Then + OnError("No se puede eliminar una póliza en un ejercicio Cerrado.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) Else If ex.Message.Contains("concepto de bancos con un importe diferente") Then OnError("No se puede editar el valor del bancos con un valor diferente a movimiento registrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index cb9885c32..2eab22861 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -886,6 +886,10 @@ Partial Class Bancos_IE RegistraScript("if($get('imgBuscarProveedor')) $get('imgBuscarProveedor').style.display='none';") 'DdlBanco.SelectedValue = ObjIE.CveBanco.ToString + 'Abono es Egreso Egs + + + CargaTipoTransaccion(If(Tipo = "Abono", "Egs", "Ing")) DdlTipoTransaccion.SelectedValue = ObjIE.CveTipoTransaccion.ToString @@ -1823,7 +1827,7 @@ Partial Class Bancos_IE DdlCuenta.Items.Insert(0, New ListItem("Seleccione", "-1")) End Sub - Private Sub CargaTipoTransaccion() + Private Sub CargaTipoTransaccion(Optional Tipo As String = "") Dim dt As DataTable If Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString.Contiene("EGSSINFACT", "EGSCREDITO") Then dt = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Egs'") @@ -1869,6 +1873,11 @@ Partial Class Bancos_IE DdlTipoTransaccion.DataSource = dt End If + If Tipo.Length > 0 Then + DdlTipoTransaccion.Items.Clear() + DdlTipoTransaccion.DataSource = dt.FiltraParametros($"Tipo = '{Tipo}' ") + End If + DdlTipoTransaccion.DataBind() DdlTipoTransaccion.Items.Insert(0, New ListItem("Seleccione Tipo Movimiento", "-1")) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 3bd998955..641e09fab 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -6289,6 +6289,7 @@ Partial Class Compras_Compras importeMovimiento = importeRetIVAxAcreditar importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}" + If CtaProveedorRetIVA > 0 Then IdCtaContable = CtaProveedorRetIVA ElseIf UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero > 0 Then diff --git a/Contabilidad/RepOrigenAplicacion.aspx b/Contabilidad/RepOrigenAplicacion.aspx index 5e47e1b03..0d6a3eae7 100644 --- a/Contabilidad/RepOrigenAplicacion.aspx +++ b/Contabilidad/RepOrigenAplicacion.aspx @@ -235,7 +235,7 @@ - + @@ -246,14 +246,14 @@ - + - + diff --git a/Contabilidad/RepOrigenAplicacion.aspx.vb b/Contabilidad/RepOrigenAplicacion.aspx.vb index 857ac42b4..ded0f81d4 100644 --- a/Contabilidad/RepOrigenAplicacion.aspx.vb +++ b/Contabilidad/RepOrigenAplicacion.aspx.vb @@ -82,7 +82,7 @@ Partial Class Contabilidad_RepOrigenAplicacion TabContainer_ActiveTabChanged(TabContainer, EventArgs.Empty) - If UsuarioActual.Empresa.UsaContabilidadSIG Then + If UsuarioActual.Empresa.TipoContabilidad = 1 Then TabMensual.Enabled = False TabAnual.Enabled = False @@ -156,7 +156,7 @@ Partial Class Contabilidad_RepOrigenAplicacion - If UsuarioActual.Empresa.UsaContabilidadSIG Then + If UsuarioActual.Empresa.TipoContabilidad = 1 Then Dim AnioActual As Integer = TxtFechaAl.Text.ToDate.Year Dim AnioAnteior As Integer = AnioActual - 1 @@ -234,6 +234,21 @@ Partial Class Contabilidad_RepOrigenAplicacion e.Row.FCLabel("LbNombre").Text = "TOTAL" End If + + If UsuarioActual.Empresa.TipoContabilidad = 1 Then + + 'Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta=55274&FF=31/12/2021 + Dim FechaFinBase As Date = New Date(TxtFechaAl.Text.ToDate.Year - 1, 12, 31) + + If e.Row.DataKey("CveCuenta").ToEntero > 0 Then + e.Row.FCHyperLink("HLlImporteBase").NavigateUrl = $"/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={e.Row.DataKey("CveCuenta")}&FF={FechaFinBase.ToString("dd/MM/yyyy")}" + e.Row.FCHyperLink("HLImporteActual").NavigateUrl = $"/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={e.Row.DataKey("CveCuenta")}&FF={TxtFechaAl.Text}" + e.Row.FCHyperLink("HLOrigen").NavigateUrl = $"/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={e.Row.DataKey("CveCuenta")}&FF={TxtFechaAl.Text}" + e.Row.FCHyperLink("HLAplicacion").NavigateUrl = $"/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={e.Row.DataKey("CveCuenta")}&FF={TxtFechaAl.Text}" + End If + + End If + End If End Sub #End Region