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

-- mejora en manejo de error al autocontabilizar

Browse Source
This commit is contained in:
rrene
2023-01-16 06:24:42 -07:00
parent b6dbbb031a
commit 5f9ad5f01f
1 changed files with 15 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
Bancos/IE.aspx.vb
View File

@@ -3850,15 +3850,10 @@ Partial Class Bancos_IE
'Conta ContPAQ 'Conta ContPAQ
If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
If IDCtaBeneficiario > 0 And IDCtaContable > 0 Then Dim AutoConta As Boolean = True
If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then If UsuarioActual.Empresa.TipoContabilidad = 2 Then
IDPoliza = ObjMov.ContaIdPoliza If Not (IDCtaBeneficiario > 0 And IDCtaContable > 0) Then
'Alert(alertaContabilizacion & ObjMov.AlertaMensaje, ModExtensiones.TipoMensaje.MsgInformacion) AutoConta = False
Else
Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError)
MsgError = "Error al contabilizar."
End If
Else
If IDCtaContable < 1 Then If IDCtaContable < 1 Then
Alert("No se puede contabilizar la Prepoliza debido a que la cuenta de Bancos es invalida", TipoMensaje.MsgAdvertencia) Alert("No se puede contabilizar la Prepoliza debido a que la cuenta de Bancos es invalida", TipoMensaje.MsgAdvertencia)
End If End If
@@ -3868,6 +3863,17 @@ Partial Class Bancos_IE
End If End If
End If End If
If AutoConta Then
If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
IDPoliza = ObjMov.ContaIdPoliza
Else
Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError)
MsgError = "Error al contabilizar."
End If
End If
End If
If MsgError = "" Then If MsgError = "" Then
'IMPRIME CHEQUE 'IMPRIME CHEQUE
'GeneraChequePDF(CveIE, UsuarioActual.Empresa, IDPoliza) 'GeneraChequePDF(CveIE, UsuarioActual.Empresa, IDPoliza)