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

Compras/Compras.aspx.vb

@@ -7760,6 +7760,7 @@ Partial Class Compras_Compras
         Dim ObjAC As ClsContPAQi = Nothing
         Dim Comp As New ClsCompras()
         Dim ObjEventos As New ClsOIEventos(Comp.IniciaTransacSQL())
+        Dim ObjConta As New ClsContabilidad(Comp.IniciaTransacSQL())
 
 
         Dim ErrorCompra = False
@@ -7781,6 +7782,12 @@ Partial Class Compras_Compras
             Next
         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 Comp.DeleteCompra(CveCompra, False) Then
                 ErrorCompra = True
@@ -7799,6 +7806,7 @@ Partial Class Compras_Compras
 
         If ObjAC IsNot Nothing Then ObjAC.Dispose()
         Comp.Dispose()
+        ObjConta.Dispose()
     End Sub
 
     Protected Sub BtnAceptarAnticipos_Click(sender As Object, e As System.EventArgs) Handles BtnAceptarAnticipos.Click
@@ -12857,6 +12865,12 @@ Partial Class Compras_Compras
             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()