diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 7e142edeb..24541825a 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -707,6 +707,7 @@ Partial Class Bancos_IE
Dim ObjIE2 As New ClsBancos()
If ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then
If ObjIE.DtResultados.Rows.Count > 0 Then
+ Dim NumComplementos As Integer
Try
Tipo = ObjIE.DtResultados.Rows(0)("Tipo").ToString
@@ -719,6 +720,7 @@ Partial Class Bancos_IE
Cuenta = ObjIE.DtResultados(0)("NumCuenta").ToString
CveIEDeposito2 = ObjIE.DtResultados(0)("CveIEDeposito2").ToString.ToEntero
+ NumComplementos = ObjIE.DtResultados(0)("NumComplementos").ToString.ToEntero
If UsuarioActual.TienePermisoProceso(99) Then
'BtnActualizar.Visible = True
@@ -887,10 +889,10 @@ Partial Class Bancos_IE
If UsuarioActual.TienePermisoProceso(85) Then LnkCancelar.Visible = True
'ELIMINAR IE SIN VALIDACIONES
- If UsuarioActual.TienePermisoProceso(80) Then LnkEliminar.Visible = True
+ If UsuarioActual.TienePermisoProceso(80) AndAlso NumComplementos = 0 Then LnkEliminar.Visible = True
'ELIMINA IE CUANDO ES EL MISMO USUARIO QUE LO CREO Y QUE NO ESTE CONTABILIZADO NI CONCILIADO
- If UsuarioActual.TienePermisoProceso(154) AndAlso ObjIE.CveUsuario = UsuarioActual.CveUsuario And Not ObjIE.IDPoliza > 0 Then
+ If UsuarioActual.TienePermisoProceso(154) AndAlso ObjIE.CveUsuario = UsuarioActual.CveUsuario And Not ObjIE.IDPoliza > 0 AndAlso NumComplementos = 0 Then
LnkEliminar.Visible = True
End If
End If
@@ -906,10 +908,10 @@ Partial Class Bancos_IE
LblEstatus.ForeColor = Drawing.Color.Red
'ELIMINAR IE SIN VALIDACIONES
- If UsuarioActual.TienePermisoProceso(80) Then LnkEliminar.Visible = True
+ If UsuarioActual.TienePermisoProceso(80) AndAlso NumComplementos = 0 Then LnkEliminar.Visible = True
'ELIMINA IE CUANDO ES EL MISMO USUARIO QUE LO CREO Y QUE NO ESTE CONTABILIZADO NI CONCILIADO
- If UsuarioActual.TienePermisoProceso(154) AndAlso ObjIE.CveUsuario = UsuarioActual.CveUsuario And Not ObjIE.IDPoliza > 0 Then
+ If UsuarioActual.TienePermisoProceso(154) AndAlso ObjIE.CveUsuario = UsuarioActual.CveUsuario And Not ObjIE.IDPoliza > 0 AndAlso NumComplementos = 0 Then
LnkEliminar.Visible = True
End If
@@ -1089,7 +1091,7 @@ Partial Class Bancos_IE
'2019-08-28 unificados vista de controles complemento (Cancelado, conciliciado, Con complemento vigente, sin complemento vigente)
Dim ExistenComplementosVigentes As Boolean = VerificaComplementos(True)
- Dim ExistenComplementos As Boolean = VerificaComplementos(False)
+ 'Dim ExistenComplementos As Boolean = VerificaComplementos(False)
If Not ChkConciliado.Checked And ObjIE.CveEstatusIE <> 2 Then
@@ -3121,40 +3123,19 @@ Partial Class Bancos_IE
MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución"
End If
End If
-
-
End If
-
-
If Opcion.Contiene("EGSSINFACT") AndAlso CveSolicitudViatico > 0 AndAlso MsgError = "" Then
If Not ObjIE.UpdateSolicitudesViaticosIE(CveSolicitudViatico, CveIE) Then
MsgError = "Ocurrió un error al vincular el egreso con la solicitud de viatico."
End If
End If
- End Select
-
- 'El movimiento 1 es el de Venta
- 'Conta SIG
- If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" AndAlso UsuarioActual.Empresa.UsaContabilidadSIG Then
- If CveCuentaBeneficiario > 0 And CveCuentaConta > 0 Then
- If ObjMov.ContabilizarPrePolizaSIG(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
- IDPoliza = ObjMov.ContaIdPoliza
- Else
- Alert("Ocurrio un error al contabilizar en SIG, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError)
- End If
- Else
- If CveCuentaConta < 1 Then
- Alert("No se puede contabilizar la Prepoliza en SIG debido a que la cuenta de Bancos es invalida", TipoMensaje.MsgAdvertencia)
- End If
- If CveCuentaBeneficiario < 1 Then
- Alert("No se puede contabilizar la Prepoliza en SIG debido a que las cuenta del Beneficiario es invalida", TipoMensaje.MsgAdvertencia)
- End If
- End If
- End If
-
- 'Conta ContPAQ
+ End Select
+
+ 'El movimiento 1 es el de Venta
+
+ 'Conta ContPAQ
If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
If IDCtaBeneficiario > 0 And IDCtaContable > 0 Then
If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
@@ -4774,16 +4755,17 @@ Partial Class Bancos_IE
Alert("El documento seleccionado no se puede eliminar porque se encuentra conciliado.", TipoMensaje.MsgError)
Exit Sub
End If
- Dim ObjGral As New ClsGenerales
+
+
+ Dim ObjAC As ClsContPAQi = Nothing
+ Dim Banc As New ClsBancos
+ Dim ObjConta As New ClsContabilidad(Banc.IniciaTransacSQL())
+ Dim ObjGral As New ClsGenerales(Banc.IniciaTransacSQL())
If ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, TxtDescripcion.Text, "Banco", TxtFolio.Text + " / " + Cuenta) Then
Borrar = True
End If
- ObjGral.Dispose()
- If Borrar = True Then
- Dim ObjAC As ClsContPAQi = Nothing
- Dim Banc As New ClsBancos
- Dim ObjConta As New ClsContabilidad(Banc.IniciaTransacSQL())
+ If Borrar = True Then
Dim ErrorCompra = False
'VERIFICA SI EL IES ESTA VINCULADO A UNA SOLICITUD VIATICO
@@ -4840,6 +4822,7 @@ Partial Class Bancos_IE
If ObjAC IsNot Nothing Then ObjAC.Dispose()
Banc.Dispose()
ObjConta.Dispose()
+ ObjGral.Dispose()
End If
Else
Alert("Tiene que decir el motivo de su eliminacion.", TipoMensaje.MsgInformacion)
diff --git a/Sistemas/SessionesActivas.aspx b/Sistemas/SessionesActivas.aspx
index cac53f774..a61a989a3 100644
--- a/Sistemas/SessionesActivas.aspx
+++ b/Sistemas/SessionesActivas.aspx
@@ -20,6 +20,10 @@
+
+
+
diff --git a/Sistemas/SessionesActivas.aspx.vb b/Sistemas/SessionesActivas.aspx.vb
index d75a25113..71db01552 100644
--- a/Sistemas/SessionesActivas.aspx.vb
+++ b/Sistemas/SessionesActivas.aspx.vb
@@ -196,4 +196,45 @@ Partial Class SessionesActivas
Notificaciones.AlertaVentana(TxtMensaje.Text, lista, timeoutseconds:=0)
RegistraScript($"$(""#DivMensaje"").modal('hide');console.log('{Decripta(Context.User.Identity.Name)}')")
End Sub
+
+
+
+ Private Sub VerGC()
+
+ Dim myGCCol As MyGCCollectClass = New MyGCCollectClass()
+ Console.WriteLine("The highest generation is {0}", GC.MaxGeneration)
+ myGCCol.MakeSomeGarbage()
+ Console.WriteLine("Generation: {0}", GC.GetGeneration(myGCCol))
+ Console.WriteLine("Total Memory: {0}", GC.GetTotalMemory(False))
+ GC.Collect(0)
+ Console.WriteLine("Generation: {0}", GC.GetGeneration(myGCCol))
+ Console.WriteLine("Total Memory: {0}", GC.GetTotalMemory(False))
+ GC.Collect(2)
+ Console.WriteLine("Generation: {0}", GC.GetGeneration(myGCCol))
+ Console.WriteLine("Total Memory: {0}", GC.GetTotalMemory(False))
+ Console.Read()
+
+ GC.Collect()
+ GC.WaitForPendingFinalizers()
+
+ End Sub
+
+ Private Sub LBGC_Click(sender As Object, e As EventArgs) Handles LBGC.Click
+ GC.Collect()
+ GC.WaitForPendingFinalizers()
+ End Sub
+
+ Class MyGCCollectClass
+ Public Sub MakeSomeGarbage()
+ Dim vt As Version
+
+ For i As Integer = 0 To 1000 - 1
+ vt = New Version()
+ Next
+ End Sub
+
+ End Class
+
+
+
End Class