- cambio en PU de usados en almacen

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"