From 0b08ebd24ca48aaeda842216cdcf3548d141d205 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 13 Dec 2023 19:40:20 -0700 Subject: [PATCH] -- mensaje de asgnaciones duplicadas --- App_Code/ClsContabilidad.vb | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 4a344b992..22263859e 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -5721,7 +5721,12 @@ Public Class ClsContabilidad SqlAdapter.Fill(Data) Retorno = True Catch ex As Exception - Me.OnError("Ocurrió un error al agregar la cuenta asignación", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + If ex.Message.Contains("UK_Conta_CuentasAsignaciones") Then + Me.OnError("La Asignación ya fue especificada previamente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo(), TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al agregar la cuenta asignación", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + End Try Return Retorno