From 42b8fcbec8943f7d434064866ef2c0a50dccb5af Mon Sep 17 00:00:00 2001 From: Desarrollo2019 Date: Thu, 22 Aug 2019 18:03:13 -0700 Subject: [PATCH] Al cancelar ie o al devolver un cheque que te aprezca la liga a la poliza contabilizada --- Bancos/IE.aspx.vb | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 82bb5f3a3..305f8edcc 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -727,8 +727,8 @@ Partial Class Bancos_IE End If End If - End Sub - + End Sub + #Region " CARGA DATOS " Private Sub CargaDatos() Dim ObjIE As New ClsBancos() @@ -3803,7 +3803,7 @@ Partial Class Bancos_IE Banc.IniciaTransacSQL() Dim ObjAC As ClsContPAQi = Nothing - If UsuarioActual.Empresa.UsaAC Then + If UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.UsaContabilidad Then ObjAC = New ClsContPAQi(UsuarioActual.Empresa) ObjAC.IniciaTransacSQL() End If @@ -3814,7 +3814,7 @@ Partial Class Bancos_IE Dim IdPolizaNueva = -1 Dim FolioPolizaNueva = -1 - If (IDPoliza > 0 AndAlso UsuarioActual.Empresa.UsaAC) Then + If (IDPoliza > 0 AndAlso (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.UsaContabilidad)) Then If ObjAC Is Nothing Then ErrorCancelar = True @@ -4013,7 +4013,7 @@ Partial Class Bancos_IE Dim ObjConta As New ClsContabilidad(Banc.IniciaTransacSQL) Dim ObjAC As ClsContPAQi = Nothing - If UsuarioActual.Empresa.UsaAC Then + If UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.UsaContabilidad Then ObjAC = New ClsContPAQi(UsuarioActual.Empresa) ObjAC.IniciaTransacSQL() End If @@ -4023,7 +4023,7 @@ Partial Class Bancos_IE Dim IdPolizaNueva = -1 Dim FolioPolizaNueva = -1 - If (IDPoliza > 0 AndAlso UsuarioActual.Empresa.UsaAC) Then + If (IDPoliza > 0 AndAlso (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.UsaContabilidad)) Then If ObjAC Is Nothing Then ErrorCancelar = True