From a0d6bdb01b52dac5ea30196106f2c929b00678f3 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 2 Dec 2023 14:38:00 -0700 Subject: [PATCH] - cambio en PU de usados en almacen --- App_Code/Modelos.vb | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 286a10cb5..04d428c97 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -2832,10 +2832,11 @@ Namespace Modelos Dim ImporteConcepto As Decimal = 0 For Each Dr As DataRow In factura.DtMovimientosUsados.Rows + 'garantía y recepción de usados deben de ser valor cero - If Not factura.EsGarantia Then - ImporteConcepto = Dr("PU").ToString().ToDecimal() - End If + 'If Not factura.EsGarantia Then + ' ImporteConcepto = Dr("PU").ToString().ToDecimal() + 'End If If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, ImporteConcepto, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, Observaciones:=Dr("Observaciones").ToString, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then 'Mensaje = "Error al guardar los movimientos"