Correciones en formato de RepProductosServicios Ventas

Se puso que  se desbloquearala prepoliza al eliminar la poliza en Ventas, EntradasSalidas, PopUpAuxiliar, Compras y IE

Bancos/IE.aspx.vb

@@ -4356,6 +4356,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()
@@ -4712,8 +4718,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
 
@@ -4732,6 +4738,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
@@ -4750,6 +4763,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)