empresa 145 IVA excepcion, Repnotas de credito

App_Code/ClsContPAQi.vb

@@ -443,7 +443,7 @@ Public Class ClsContPAQi
         End If
 
         ' no puede ser menor el subtotal al IVA, para evitar numeros negativos, excepto VSH
-        If Not CveEmpresa.Contiene(4, 7, 11, 12, 122) Then
+        If Not CveEmpresa.Contiene(4, 7, 11, 12, 122, 145) Then
             If Math.Abs(SubTotal) < Math.Abs(IVA) Then
                 Return False
             End If

Compras/RepNotasCredito.aspx.vb

@@ -169,7 +169,7 @@ Partial Class Compras_RepNotasCredito
                     MsgError = "Ocurrio un Error al saldar el movimiento"
                 End If
 
-                If TC <> TCCompra AndAlso CveMoneda > 1 AndAlso UsaComplementaria Then
+                If TC <> TCCompra AndAlso CveMoneda > 1 Then
                     Dim difFluctuacion As Decimal = TC - TCCompra
                     Dim CveConceptoFluctua As Integer = 64 '64.ganacia, 65.perdida
                     Dim TipoMovtoFluctua As Boolean = True