AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
RPimienta
2024-08-20 00:46:59 -06:00
parent be822b9ab4
commit 13a263b9fa
1 changed files with 22 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
Compras/Compras.aspx.vb
View File

@@ -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)