- cambio en el registro de Notas de crédito

Compras/Compras.aspx.vb

@@ -6507,6 +6507,7 @@ Partial Class Compras_Compras
                                                                             End If
                                                                         Else
                                                                             Dim AplicadoenFactura As Boolean = False
+                                                                            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
@@ -6517,6 +6518,8 @@ Partial Class Compras_Compras
                                                                                         End If
                                                                                     End If
                                                                                 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