Merge branch 'master' of http://192.168.10.111:8383/SIG

Bancos/IE.aspx.vb

@@ -4304,6 +4304,12 @@ Partial Class Bancos_IE
             End If
         End If
 
+        If Not ErrorCompra Then
+            If Not ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then
+                ErrorCompra = True
+            End If
+        End If
+
         If Not ErrorCompra Then
             Alert("La poliza ha sido desvinculada y eliminada con exito.", TipoMensaje.MsgInformacion)
             ObjAC.Commit()
@@ -4660,8 +4666,8 @@ Partial Class Bancos_IE
             ObjGral.Dispose()
             If Borrar = True Then
                 Dim ObjAC As ClsContPAQi = Nothing
-                Dim Banc As New ClsBancos
-                Banc.IniciaTransacSQL()
+                Dim Banc As New ClsBancos
+                Dim ObjConta As New ClsContabilidad(Banc.IniciaTransacSQL())
 
                 Dim ErrorCompra = False
 
@@ -4680,6 +4686,13 @@ Partial Class Bancos_IE
                     End If
                 End If
 
+                If Not ErrorCompra Then
+                    If Not ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then
+                        ErrorCompra = True
+                    End If
+                End If
+
+
                 If Not ErrorCompra Then
                     If Not Banc.EliminarBancos_IE(UsuarioActual.CveUsuario, CveIE) Then
                         ErrorCompra = True
@@ -4698,6 +4711,7 @@ Partial Class Bancos_IE
 
                 If ObjAC IsNot Nothing Then ObjAC.Dispose()
                 Banc.Dispose()
+                ObjConta.Dispose()
             End If
         Else
             Alert("Tiene que decir el motivo de su eliminacion.", TipoMensaje.MsgInformacion)