From ec13d9d1e6262eff1dcab11ec812caeda0a1758e Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Thu, 31 Oct 2019 16:03:22 -0700 Subject: [PATCH] empresa 145 IVA excepcion, Repnotas de credito --- App_Code/ClsContPAQi.vb | 2 +- Compras/RepNotasCredito.aspx.vb | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/App_Code/ClsContPAQi.vb b/App_Code/ClsContPAQi.vb index 57b8483c9..e5cd3194c 100644 --- a/App_Code/ClsContPAQi.vb +++ b/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 diff --git a/Compras/RepNotasCredito.aspx.vb b/Compras/RepNotasCredito.aspx.vb index cd955ec5c..126a82d29 100644 --- a/Compras/RepNotasCredito.aspx.vb +++ b/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