Editar compra cuando esta contabilizada

Compras/Compras.aspx.vb

@@ -8846,6 +8846,12 @@ Partial Class Compras_Compras
                         '    End If
                         'End If
 
+                        If IdPoliza > 0 Then
+                            If Not ObjContabilidad.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then
+                                Retorno = False
+                            End If
+                        End If
+
                         'If UsuarioActual.Empresa.Funcionalidad(207) = "1" Then
                         If Not ActualizarPrePoliza(ObjContabilidad, ObjCompra) Then
                             Retorno = False
@@ -8853,7 +8859,7 @@ Partial Class Compras_Compras
                         'End If
 
                         ''EMPIEZA: SI USA AC
-                        If UsuarioActual.Empresa.UsaAC And IdPoliza > 0 Then
+                        If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1") AndAlso IdPoliza > 0 Then
                             ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
                             ObjContaAC.IniciaTransacSQL()
 
@@ -9174,6 +9180,8 @@ Partial Class Compras_Compras
                         End If
                         ''TERMINA: SI USA AC
 
+
+
                         If Not ErrorAC Then
                             Dim Cont As Integer = 0
                             For Each Row As DataRow In TmpDT.Rows
@@ -9241,6 +9249,7 @@ Partial Class Compras_Compras
                                     If Not ObjContabilidad.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveEmpresa, UsuarioActual.Empresa, MinFecha, String.Format("{0}-{1}", Serie, Folio), ObjContaAC, pIDPoliza:=ViewState("IdPoliza").ToString.ToEntero) Then
                                         Retorno = False
                                     End If
+
                                 End If
                             End If