From 1f803382e07d451bc8d1761d6257460ee629be50 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 9 Oct 2024 18:03:32 -0700 Subject: [PATCH] =?UTF-8?q?--=20correcci=C3=B3n=20de=20costo=20indirecto?= =?UTF-8?q?=20al=20"dividir=20la=20partida"?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/RecepcionAlmacen.aspx.vb | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index 36010d5c9..fef677302 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -4766,21 +4766,17 @@ Partial Class Inventarios_RecepcionAlmacen Dim CantidadSeleccionadaOriginal As Decimal = dr1("CantidadSeleccionada").ToString.ToDecimal dr1("CantidadSeleccionada") = If(CantidadSeleccionadaOriginal > dr1("CantidadF").ToString.ToDecimal, dr1("CantidadF").ToString.ToDecimal, CantidadSeleccionadaOriginal) CantidadSeleccionadaOriginal = CantidadSeleccionadaOriginal - dr1("CantidadF").ToString.ToDecimal - - Dim CostoIndirectoOriginal As Decimal = dr1("CostoIndirecto").ToString.ToDecimal - dr1("CostoIndirecto") = (CostoIndirectoOriginal * dr1("CantidadF").ToString.ToDecimal) / CantidadFOriginal - Dim CostoIndirectoExtranjeroOriginal As Decimal = dr1("CostoIndirectoExtranjero").ToString.ToDecimal - dr1("CostoIndirectoExtranjero") = (CostoIndirectoExtranjeroOriginal * dr1("CantidadF").ToString.ToDecimal) / CantidadFOriginal - DtInv.AcceptChanges() + Dim CostoIndirectoOriginal As Decimal = dr1("CostoIndirecto").ToString.ToDecimal + Dim CostoIndirectoExtranjeroOriginal As Decimal = dr1("CostoIndirectoExtranjero").ToString.ToDecimal dr("CantidadC") = Cantidad.ToDecimal dr("CantidadF") = Cantidad.ToDecimal dr("CantidadS") = (CantidadSOriginal * dr("CantidadF").ToString.ToDecimal) / CantidadFOriginal dr("CantidadSeleccionada") = If(CantidadSeleccionadaOriginal > 0, CantidadSeleccionadaOriginal, 0) dr("Seleccionado") = If(CantidadSeleccionadaOriginal > 0, True, False) - dr("CostoIndirecto") = (CostoIndirectoOriginal * dr("CantidadF").ToString.ToDecimal) / CantidadFOriginal - dr("CostoIndirectoExtranjero") = (CostoIndirectoExtranjeroOriginal * dr("CantidadF").ToString.ToDecimal) / CantidadFOriginal + dr("CostoIndirecto") = CostoIndirectoOriginal + dr("CostoIndirectoExtranjero") = CostoIndirectoExtranjeroOriginal DtInv.Rows.InsertAt(dr, Index) DtInv.AcceptChanges()