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

correccion para que no truene transaccion

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2023-07-26 04:30:56 -07:00
parent 384609a499
commit 0276d1e538
1 changed files with 185 additions and 184 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
RH/Personal.aspx.vb
View File

@@ -1936,9 +1936,10 @@ Partial Class RH_Personal
Dim EnviarCorreoNomina As Boolean = False Dim EnviarCorreoNomina As Boolean = False
'System.Threading.Thread.Sleep(3000) 'System.Threading.Thread.Sleep(3000)
Dim ObjPersonal As New ClsRH() Using ObjPersonal As New ClsRH()
Dim ObjCuentasDeposito As New ClsGenerales(ObjPersonal.IniciaTransacSQL()) Using ObjCuentasDeposito As New ClsGenerales(ObjPersonal.IniciaTransacSQL())
Dim ObjAF As New ClsAF(ObjPersonal.IniciaTransacSQL()) Using ObjAF As New ClsAF(ObjPersonal.IniciaTransacSQL())
Dim Extension As String = Path.GetExtension(UsuarioActual.Empresa.Ruta & "Temp\RH\" & ViewState("Archivo").ToString()) Dim Extension As String = Path.GetExtension(UsuarioActual.Empresa.Ruta & "Temp\RH\" & ViewState("Archivo").ToString())
Dim URL As String = If(Extension.Trim().Length > 0, CvePersonal & Extension, "") Dim URL As String = If(Extension.Trim().Length > 0, CvePersonal & Extension, "")
@@ -2019,7 +2020,7 @@ Partial Class RH_Personal
If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then
ProcesaDTFamiliares(ObjPersonal) ProcesaDTFamiliares(ObjPersonal)
End If End If
If TempDTCuentasBancos.Rows.Count > 0 Then If TempDTCuentasBancos IsNot Nothing AndAlso TempDTCuentasBancos.Rows.Count > 0 Then
For Each row As DataRow In TempDTCuentasBancos.Rows For Each row As DataRow In TempDTCuentasBancos.Rows
If Not ObjCuentasDeposito.AddCuentasDepositos(row("BancoNombre").ToString(), row("Plaza").ToString(), row("Sucursal").ToString(), row("Cuenta").ToString(), row("CLABE").ToString(), row("CIE").ToString(), row("SWIFT").ToString(), row("Referencia").ToString(), "", UsuarioActual.CveUsuario, row("CveMoneda").ToString().ToEntero(), UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal, CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=row("BBVAAlias").ToString()) Then If Not ObjCuentasDeposito.AddCuentasDepositos(row("BancoNombre").ToString(), row("Plaza").ToString(), row("Sucursal").ToString(), row("Cuenta").ToString(), row("CLABE").ToString(), row("CIE").ToString(), row("SWIFT").ToString(), row("Referencia").ToString(), "", UsuarioActual.CveUsuario, row("CveMoneda").ToString().ToEntero(), UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal, CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=row("BBVAAlias").ToString()) Then
@@ -2145,9 +2146,9 @@ Partial Class RH_Personal
Session("FileUpload") = "" Session("FileUpload") = ""
ViewState("Archivo") = "" ViewState("Archivo") = ""
ObjPersonal.Dispose() End Using
ObjCuentasDeposito.Dispose() End Using
ObjAF.Dispose() End Using
UpDatos.Update() UpDatos.Update()
CargaGvBitacora() CargaGvBitacora()