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

Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2019-08-22 18:43:19 -07:00
parent ed50ef861e 42b8fcbec8
commit aef84f075c
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Bancos/IE.aspx.vb
View File

@@ -727,8 +727,8 @@ Partial Class Bancos_IE
End If End If
End If End If
End Sub End Sub
#Region " CARGA DATOS " #Region " CARGA DATOS "
Private Sub CargaDatos() Private Sub CargaDatos()
Dim ObjIE As New ClsBancos() Dim ObjIE As New ClsBancos()
@@ -3803,7 +3803,7 @@ Partial Class Bancos_IE
Banc.IniciaTransacSQL() Banc.IniciaTransacSQL()
Dim ObjAC As ClsContPAQi = Nothing 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 = New ClsContPAQi(UsuarioActual.Empresa)
ObjAC.IniciaTransacSQL() ObjAC.IniciaTransacSQL()
End If End If
@@ -3814,7 +3814,7 @@ Partial Class Bancos_IE
Dim IdPolizaNueva = -1 Dim IdPolizaNueva = -1
Dim FolioPolizaNueva = -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 If ObjAC Is Nothing Then
ErrorCancelar = True ErrorCancelar = True
@@ -4013,7 +4013,7 @@ Partial Class Bancos_IE
Dim ObjConta As New ClsContabilidad(Banc.IniciaTransacSQL) Dim ObjConta As New ClsContabilidad(Banc.IniciaTransacSQL)
Dim ObjAC As ClsContPAQi = Nothing 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 = New ClsContPAQi(UsuarioActual.Empresa)
ObjAC.IniciaTransacSQL() ObjAC.IniciaTransacSQL()
End If End If
@@ -4023,7 +4023,7 @@ Partial Class Bancos_IE
Dim IdPolizaNueva = -1 Dim IdPolizaNueva = -1
Dim FolioPolizaNueva = -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 If ObjAC Is Nothing Then
ErrorCancelar = True ErrorCancelar = True