Correciones en formato de RepProductosServicios Ventas

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

Inventarios/RecepcionUsados.aspx.vb

@@ -633,7 +633,7 @@ Partial Class Inventarios_RecepcionUsados
 
     Protected Sub BtnEliminar_Click(sender As Object, e As EventArgs) Handles BtnEliminar.Click
         Dim Inv As New ClsInventarios
-        Inv.IniciaTransacSQL()
+        Dim Conta As New ClsContabilidad(Inv.IniciaTransacSQL())
 
         Dim TieneError = False
 
@@ -654,6 +654,12 @@ Partial Class Inventarios_RecepcionUsados
             TieneError = True
         End If
 
+        'If Not TieneError Then
+        '    If Not Conta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then
+        '        TieneError = True
+        '    End If
+        'End If
+
         If Not TieneError Then
             If ObjConta IsNot Nothing Then ObjConta.Commit()
             Inv.Commit()
@@ -670,6 +676,7 @@ Partial Class Inventarios_RecepcionUsados
 
         If ObjConta IsNot Nothing Then ObjConta.Dispose()
         Inv.Dispose()
+        Conta.Dispose()
     End Sub
 #End Region