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

-- corrección

Browse Source
This commit is contained in:
rrene
2024-09-26 20:32:48 -07:00
parent 3957601723
commit 9ee199fc02
1 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Compras/Compras.aspx.vb
View File

@@ -11632,12 +11632,16 @@ Partial Class Compras_Compras
If TmpDT.Rows(Indice)("PU").ToString.ToDecimal + tPU < 0 Then 'si es negativo, que tome el dato anterior
Indice = Indice - 1
If TmpDT.Rows(Indice)("Cantidad").ToString.ToDecimal > 0 Then
tPU = ImporteAjuste / TmpDT.Rows(Indice)("Cantidad").ToString.ToDecimal
Else
tPU = 0
'VALIDACION ADICIONAL DE OTRO PRODUCTO CON LA MISMA SITUACIÓN
If TmpDT.Rows(Indice)("PU").ToString.ToDecimal + tPU < 0 AndAlso Indice > 0 Then 'si es negativo, que tome el dato anterior
Indice = Indice - 1
End If
End If
If TmpDT.Rows(Indice)("Cantidad").ToString.ToDecimal > 0 Then
tPU = ImporteAjuste / TmpDT.Rows(Indice)("Cantidad").ToString.ToDecimal
Else
tPU = 0
End If
TmpDT.Rows(Indice)("PU") = TmpDT.Rows(Indice)("PU").ToString.ToDecimal + tPU
TmpDT.Rows(Indice)("Total") = TmpDT.Rows(Indice)("Total").ToString.ToDecimal + ImporteAjuste