From d939d28df94bae1cbddd96edb7ea44769305c176 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 9 Dec 2023 14:23:50 -0700 Subject: [PATCH] - cambio en otros ingresos al pagar la compra, toma como base la moneda de la compra. en lugar de la moneda del pago --- App_Code/ClsPaginas.vb | 2 +- Compras/Compras.aspx.vb | 9 ++++++--- 2 files changed, 7 insertions(+), 4 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 916d5d40b..d1ac33686 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -7570,7 +7570,7 @@ Public Class ClsPaginas 'si tiene otros gastos/ingresos If Not ErrorMovtos AndAlso Pago.OtroGastoIngreso <> 0 Then - ImporteMovimiento = (Pago.OtroGastoIngreso * If(Pago.CveMonedaPago = 1, 1, Pago.TCPago)).RoundSQL ' cuando hay pagos en diferente moneda hay TC en ambos lados + ImporteMovimiento = (Pago.OtroGastoIngreso * If(CompraActual.CveMoneda = 1, 1, Pago.TCPago)).RoundSQL ' cuando hay pagos en diferente moneda hay TC en ambos lados Dim tOtCveCon As Integer = 211 Dim tOtTipoMovto As Boolean = False diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index ef64bf4d7..98bf9b198 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -6939,7 +6939,7 @@ Partial Class Compras_Compras End If End If - ''' A N T I C I P O S + '' A N T I C I P O S 'If UsuarioActual.Empresa.UsaAC Then ' If ArrAnticipos.Count > 0 Then @@ -10264,7 +10264,8 @@ Partial Class Compras_Compras End If e.Row.FCCheckBox("cbInv").Enabled = False End If - If UsuarioActual.Empresa.Funcionalidad(567) = "1" Then + 'que no sea recepcion alamcen adelatnado. DdlOCVinculaInv + If UsuarioActual.Empresa.Funcionalidad(567) = "1" AndAlso DdlOCVinculaInv.SelectedValue <> "176" Then If e.Row.FCDropDownList("ddlEAlmacen").Items.Count > 1 Then e.Row.FCDropDownList("ddlEAlmacen").SelectedIndex = 1 e.Row.FCCheckBox("cbInv").Checked = True @@ -10343,7 +10344,8 @@ Partial Class Compras_Compras e.Row.FCDropDownList("ddlAlmacenConsignacionGeneral").DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 4) e.Row.FCDropDownList("ddlAlmacenConsignacionGeneral").DataBind() - If UsuarioActual.Empresa.Funcionalidad(567) = "1" Then + 'que no sea recepcion alamcen adelatnado. DdlOCVinculaInv + If UsuarioActual.Empresa.Funcionalidad(567) = "1" AndAlso DdlOCVinculaInv.SelectedValue <> "176" Then If e.Row.FCDropDownList("ddlAlmacen").Items.Count > 1 Then e.Row.FCDropDownList("ddlAlmacen").SelectedIndex = 1 e.Row.FCCheckBox("cbAll").Checked = True @@ -14101,6 +14103,7 @@ Partial Class Compras_Compras ' Exit Sub 'End If + If Math.Abs(SubTotalGV - SubTotalCompra) < DiferenciaPermitida Then LbSubTotalDif.Visible = False Vinculacion()