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"