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) 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 BtnGuardar.Visible = False
End If 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 End If
Else Else
Alert("No se Encontró la Factura", TipoMensaje.MsgAdvertencia) Alert("No se Encontró la Factura", TipoMensaje.MsgAdvertencia)