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

- entrada por oc, sin servicio y venia en la factura.

Browse Source
This commit is contained in:
rrene
2020-11-05 18:54:11 -07:00
parent 84f0d2c2f8
commit c077d3082d
1 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Compras/Compras.aspx.vb
View File

@@ -6698,8 +6698,15 @@ Partial Class Compras_Compras
End If
Next
'obtengo si hay servicios
Dim CostosIndirectosTardados As Decimal = TmpDT.SUMD("Total", "ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) = 0 And ISNULL(AplicaCostoIndirecto,0) <> 1 And ISNULL(CveTipoPS,0) = 1")
'consideracion, si la oc, se le agrego un servicio y este no se cargo en la entrada al almacen.
If CostoIndirectoAcum176 = 0 AndAlso CostosIndirectosTardados > 0 Then
CostosIndirectosTardados = CostosIndirectosTardados * TCO
End If
'calcula la diferencia entre lo recibido por la OC, considerando costos indirectos y lo que se ingresaria en la compra
SumatoriaOCINV = SumatoriaInventario - (TmpDT.SUMD("Total") * TCO).RoundSQL 'sumatoria de la factura
SumatoriaOCINV = SumatoriaInventario - (TmpDT.SUMD("Total") * TCO).RoundSQL + CostosIndirectosTardados 'sumatoria de la factura
If SumatoriaOCINV.RoundSQL <> 0 Then
' se abona el costo, cambiamos su naturaleza
'SumatoriaOCINV = -SumatoriaOCINV