diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 127565246..ada49dc1c 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -6507,16 +6507,19 @@ Partial Class Compras_Compras
                                                                             End If
                                                                         Else
                                                                             Dim AplicadoenFactura As Boolean = False
-                                                                            For Each Gvr As GridViewRow In GvFacturaNC.Rows
-                                                                                If Gvr.FCCheckBox("ChkFacturaNC").Checked Then ' recorro la seleccion y tomo el TC de cada aplicación 
-                                                                                    AplicadoenFactura = True
-                                                                                    Dim timporteMovimientoNC As Decimal = (Gvr.FCTextBox("TxtImporte").Text.ToDecimal * Gvr.DataKey("SubTotal").ToDecimal / Gvr.DataKey("Saldo").ToDecimal).RoundSQL
-                                                                                    Dim TCNC As Decimal = Gvr.DataKey("TipoCambio").ToDecimal
-                                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, timporteMovimientoNC, (timporteMovimientoNC * TCNC * Multiplicador).RoundSQL, ConceptoContabilizacionNC, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=TCNC, CveMovimientoAlmacen:=CveMovimientoDevolucion, CveClasificacion:=tCveClasif, CveSubProyecto:=tCveSubProyecto, Contabilizable:=SeContabiliza) Then
-                                                                                        ErrorPrepoliza = True
+                                                                            If UsuarioActual.CveEmpresa = 119 Then
+                                                                                For Each Gvr As GridViewRow In GvFacturaNC.Rows
+                                                                                    If Gvr.FCCheckBox("ChkFacturaNC").Checked Then ' recorro la seleccion y tomo el TC de cada aplicación 
+                                                                                        AplicadoenFactura = True
+                                                                                        Dim timporteMovimientoNC As Decimal = (Gvr.FCTextBox("TxtImporte").Text.ToDecimal * Gvr.DataKey("SubTotal").ToDecimal / Gvr.DataKey("Saldo").ToDecimal).RoundSQL
+                                                                                        Dim TCNC As Decimal = Gvr.DataKey("TipoCambio").ToDecimal
+                                                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, timporteMovimientoNC, (timporteMovimientoNC * TCNC * Multiplicador).RoundSQL, ConceptoContabilizacionNC, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=TCNC, CveMovimientoAlmacen:=CveMovimientoDevolucion, CveClasificacion:=tCveClasif, CveSubProyecto:=tCveSubProyecto, Contabilizable:=SeContabiliza) Then
+                                                                                            ErrorPrepoliza = True
+                                                                                        End If
                                                                                     End If
-                                                                                End If
-                                                                            Next
+                                                                                Next
+                                                                            End If
+
                                                                             If Not AplicadoenFactura Then ' se aplica el subtotal
                                                                                 If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento.RoundSQL, importeMovimiento * tipoCambioActual * Multiplicador, ConceptoContabilizacionNC, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, CveClasificacion:=tCveClasif, CveSubProyecto:=tCveSubProyecto, Contabilizable:=SeContabiliza) Then
                                                                                     ErrorPrepoliza = True