From 6262cee212cf7f007e57b48cf459d2f7f372cf02 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 28 May 2021 07:38:40 -0700 Subject: [PATCH] =?UTF-8?q?--=20mejora=20en=20detectecci=C3=B3n=20de=20err?= =?UTF-8?q?ores=20al=20registrar=20concepto?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsContabilidad.vb | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 1bd0ca8fa..2880efb7d 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -889,6 +889,7 @@ Public Class ClsContabilidad With SqlAdapter.SelectCommand.Parameters .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza .Add("@CvePrePolizaOriginal", SqlDbType.Int).Value = CvePrePolizaOriginal + .Add("@CveConceptoContable", SqlDbType.Int).Value = CveConceptoContable .Add("@TipoMovto", SqlDbType.Bit).Value = TipoMovimiento .Add("@Importe", SqlDbType.Money).Value = If(CveConceptoContable = 30, Importe, Math.Round(Importe, 2)) .Add("@ImporteMX", SqlDbType.Money).Value = Math.Round(ImporteMX, 2) @@ -896,7 +897,6 @@ Public Class ClsContabilidad .Add("@TC", SqlDbType.Decimal).Value = TipoCambio .Add("@TCPago", SqlDbType.Decimal).Value = TipoCambioPago .Add("@Referencia", SqlDbType.VarChar).Value = Referencia - .Add("@CveConceptoContable", SqlDbType.Int).Value = CveConceptoContable .Add("@Concepto", SqlDbType.VarChar).Value = Concepto .Add("@FechaVencimiento", SqlDbType.Date).Value = FechaVencimiento .Add("@IdCtaContable", SqlDbType.Int).Value = IdCtaContable @@ -938,9 +938,15 @@ Public Class ClsContabilidad Catch ex1 As SqlException If ex1.Message.Contains("50015;") Then OnError("No se puede registrar una póliza en un ejercicio Cerrado", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + ElseIf ex1.Message.Contains("50024; La Cuenta no fue detectada") Then + Dim Concepto1 As String = DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimeroValor("ConceptoContable", String.Format("CveConceptoContable = {0}", CveConceptoContable)) + OnError(String.Format("El concepto '{0}' no tiene especificada la cuenta", Concepto1), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + ElseIf ex1.Message.Contains("Vw_Val_Conta_CuentasResultados_SubProyectos") Then + Dim Concepto2 As String = DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimeroValor("ConceptoContable", String.Format("CveConceptoContable = {0}", CveConceptoContable)) + OnError(String.Format("El concepto '{0}' requiere centro de costo", Concepto2), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) Else OnError("Ocurrió un error al Guardar", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End If + End If ' Catch ex As Exception If ex.Message.Contains("50015;") Then OnError("No se puede registrar una póliza en un ejercicio Cerrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)