From 13a263b9fafc5c1c7c600cdb4c8f366b1cc0c539 Mon Sep 17 00:00:00 2001 From: RPimienta Date: Tue, 20 Aug 2024 00:46:59 -0600 Subject: [PATCH] Ajuste en compras para que si tienes la funcionalidad 109 te pongo la um base y haga conversiones si es necesario en cantidad y pu --- Compras/Compras.aspx.vb | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 4c49b4a31..a24cdb404 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -2290,6 +2290,28 @@ Partial Class Compras_Compras Alert("El xml no contiene la etiqueta 'método de pago', favor de verificar la emisión con el proveedor.", TipoMensaje.MsgAdvertencia) BtnGuardar.Visible = False End If + + If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then + For Each item As DataRow In TmpDT.Rows + Dim EquivalenciaBase = GlobalDTProductosServiciosEquivalencias(item("CvePS").ToString().ToEntero(), -1, UsuarioActual.CveEmpresa).FiltroPrimero("UnidadBase = 1") + If EquivalenciaBase IsNot Nothing Then + If item("CveUM").ToString() <> EquivalenciaBase("CveUM").ToString() Then + Dim EquivalenciaACambiar = GlobalDTProductosServiciosEquivalencias(item("CvePS").ToString().ToEntero(), item("CveUM").ToString().ToEntero(), UsuarioActual.CveEmpresa).FiltroPrimero("") + If EquivalenciaACambiar IsNot Nothing Then + Dim Cantidad As Decimal = Math.Round(item("Cantidad").ToString().ToDecimal() / EquivalenciaACambiar("Cantidad").ToString().ToDecimal(), 6) + Dim PU As Decimal = Math.Round((item("Total").ToString().ToDecimal() + item("Descuento").ToString().ToDecimal()) / Cantidad, 6) + item("Cantidad") = Cantidad + item("PU") = PU + End If + item("CveUM") = EquivalenciaBase("CveUM") + item("UM") = EquivalenciaBase("UM") + End If + End If + Next + GvPS.DataSource = TmpDT + GvPS.DataBind() + UpPS.Update() + End If End If Else Alert("No se Encontró la Factura", TipoMensaje.MsgAdvertencia)