diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index bb6625d18..af513ac44 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -6931,7 +6931,7 @@ Partial Class Compras_Compras
                                                                                         tidctacon = ViewState("CtaProveedorAnticiposExtranjera").ToString.ToEntero
                                                                                     End If
 
-                                                                                ElseIf DdlTipoComprobante.SelectedValue = "NC" Then
+                                                                                ElseIf DdlTipoComprobante.SelectedValue = "NC" AndAlso UsuarioActual.Empresa.Funcionalidad(405).ToEntero > 0 Then
                                                                                     tcvecon = 259
                                                                                     tidctacon = UsuarioActual.Empresa.Funcionalidad(405).ToEntero
 
@@ -10216,9 +10216,10 @@ Partial Class Compras_Compras
                             Next
 
                             For Each item As String In ClavesBorradas
-                                Dim ObjCompras As New ClsCompras
-                                If Not ObjCompras.DeleteCompraDetalle(item.ToEntero) Then
-                                    Retorno = False
+                                If item.ToEntero > 0 Then
+                                    If Not ObjCompra.DeleteCompraDetalle(item.ToEntero) Then
+                                        Retorno = False
+                                    End If
                                 End If
                             Next
 
@@ -20107,14 +20108,6 @@ Partial Class Compras_Compras
         Dim IDPoliza As Integer = 0
 
 
-        'EMPIEZA OBJETOS Y TRANSACCIONES
-        'Dim OC As New ClsOC
-        'Dim OCBitacora As New ClsOIEventos(OC.IniciaTransacSQL())
-        'Dim ObjInventarios As New ClsInventarios(OC.IniciaTransacSQL())
-        'Dim ObjConta As New ClsContabilidad(OC.IniciaTransacSQL())
-
-
-
         Dim DtInvOC As New DataTable
         Dim DtInvOCDiferencias As New DataTable 'Actualizado con diferencia
         DtInvOCDiferencias.Columns.Add("CveOrdenCompra", GetType(Integer))
@@ -20142,7 +20135,7 @@ Partial Class Compras_Compras
                 Dim diferencia As Decimal = (dr2("PU").ToString.ToDecimal - gvr.FCTextBox("TxtPU").Text.ToDecimal) * gvr.FCTextBox("TxtCantidad").Text.ToDecimal
 
                 Dim DrInvOCDiferencias As DataRow
-                If diferencia <> 0 Then 'And DtInvOC.Rows.Count > 0
+                If diferencia <> 0 Then
                     DrInvOCDiferencias = DtInvOCDiferencias.NewRow
                     DrInvOCDiferencias("CveOrdenCompra") = dr2("CveOrdenCompra").ToString.ToEntero
                     DrInvOCDiferencias("CveOrdenCompraDetalle") = dr2("CveOrdenCompraDetalle").ToString.ToEntero
@@ -20201,7 +20194,7 @@ Partial Class Compras_Compras
             If DtInvOCDiferencias.Rows.Count > 0 Then
 
                 'VARIABLES
-                Dim CveOrdenCompra = -1
+                Dim CveOrdenCompra As Integer = -1
                 Dim DiferenciaInvOC = 0.0D
                 Dim CveMovimientoAlmacen = -1
                 Dim CveOCDetalle = -1
@@ -20284,15 +20277,14 @@ Partial Class Compras_Compras
                     If DiferenciaInvOC.RoundSQL() <> 0 Then
 
                         If CveSubProyecto <= 0 Then
-                            Alert("Debe de asignar un sub proyecto o centro de constos.", TipoMensaje.MsgAdvertencia)
+                            Alert("Debe de asignar un sub proyecto o centro de costos.", TipoMensaje.MsgAdvertencia)
                             Retorno = False
                         End If
 
-
                         CvePrePoliza = ObjConta.AddPrePolizas("Compras/OC-(OCAlmacen)", 74, DiferenciaInvOC, DiferenciaInvOC, 1, Fecha, ConceptoPartida, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
                         If CvePrePoliza > 0 Then
 
-                            If CveMoneda = 2 And UsuarioActual.CveEmpresa.Contiene(119) Then
+                            If CveMoneda = 2 Then
                                 ImporteME = (DiferenciaInvOC / TCInvOC).RoundAD()
                                 ImporteMEComp = ((ImporteME * TCInvOC) - ImporteME).RoundAD()