diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index 10d58a750..e9fd6f6d5 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -1004,11 +1004,13 @@ Public Class ClsContabilidad
             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 dtt As DataTable = ClsPaginas.GlobalDTContaConceptosContables(CveConceptoContable)
+                Dim dr As Data.DataRow = ClsPaginas.GlobalDTContaConceptosContables(CveConceptoContable).FiltroPrimero("")
                 Dim StrMsg As String = ""
-                If dtt IsNot Nothing Then
+                If dr IsNot Nothing Then
+                    If CveConceptoContable <> dr("CveConceptoContable").ToString.ToEntero Then 'si el concepto pareja no es principal, lo obtengo
+                        dr = ClsPaginas.GlobalDTContaConceptosContables(dr("CveParejaContable").ToString.ToEntero).FiltroPrimero("")
+                    End If
                     Dim tCveEmp As Integer = CType(HttpContext.Current.Session("UsuarioSIG"), Usuario).CveEmpresa
-                    Dim dr As Data.DataRow = dtt.FiltroPrimero("")
                     If dr IsNot Nothing Then
                         StrMsg = dr("ConceptoContable").ToString
                         If dr("AplicaClasificacion").ToString = "True" Then