AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- mejorar el mensaje del concepto pareja que falta cuenta

Browse Source
This commit is contained in:
rrene
2024-05-11 07:26:59 -07:00
parent 1ebf10f80d
commit 90c9c1fde3
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
App_Code/ClsContabilidad.vb
View File

@@ -1004,11 +1004,13 @@ Public Class ClsContabilidad
If ex1.Message.Contains("50015;") Then If ex1.Message.Contains("50015;") Then
OnError("No se puede registrar una póliza en un ejercicio Cerrado", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) 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 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 = "" 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 tCveEmp As Integer = CType(HttpContext.Current.Session("UsuarioSIG"), Usuario).CveEmpresa
Dim dr As Data.DataRow = dtt.FiltroPrimero("")
If dr IsNot Nothing Then If dr IsNot Nothing Then
StrMsg = dr("ConceptoContable").ToString StrMsg = dr("ConceptoContable").ToString
If dr("AplicaClasificacion").ToString = "True" Then If dr("AplicaClasificacion").ToString = "True" Then