diff --git a/Inventarios/RecepcionUsados.aspx b/Inventarios/RecepcionUsados.aspx
index f5b6dcc47..73a3c86bf 100644
--- a/Inventarios/RecepcionUsados.aspx
+++ b/Inventarios/RecepcionUsados.aspx
@@ -494,8 +494,8 @@
                                                 <div class="col-md-2">
                                                     <div class="form-group form-md-line-input input-iconright">
                                                         <asp:TextBox ID="TxtPoliza" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
-                                                        <%--<asp:RequiredFieldValidator ID="RFVPoliza" runat="server" ControlToValidate="TxtPoliza" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Poliza''</b> es necesario, por favor ingréselo." ValidationGroup="VGMAjuste"></asp:RequiredFieldValidator>--%>
-                                                        <%--<ajax:ValidatorCalloutExtender ID="VCEPoliza" runat="server" HighlightCssClass="vco" TargetControlID="RFVPoliza"></ajax:ValidatorCalloutExtender>--%>
+                                                        <asp:RequiredFieldValidator ID="RFVPoliza" runat="server" ControlToValidate="TxtPoliza" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Poliza''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAjuste"></asp:RequiredFieldValidator>
+                                                        <ajax:ValidatorCalloutExtender ID="VCEPoliza" runat="server" HighlightCssClass="vco" TargetControlID="RFVPoliza"></ajax:ValidatorCalloutExtender>
                                                         <label for="<%= TxtPoliza.ClientID.ToString()%>">Poliza:</label>
                                                     </div>
                                                 </div>
diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb
index 22e3f17ec..51f377cdc 100644
--- a/Inventarios/RecepcionUsados.aspx.vb
+++ b/Inventarios/RecepcionUsados.aspx.vb
@@ -1113,62 +1113,67 @@ Partial Class Inventarios_RecepcionUsados
                         FolioInv = Resp.FolioUsado
                     Else
 
-                        CveMovimiento = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, CveConcepto, 1, Fecha, tFolio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta,
+                        Dim tCveConcepto As Integer = CveConcepto
+                        If RblUsadosAjuste.SelectedValue = "1" Then 'cuando es garantia, el concepto es de entrada
+                            tCveConcepto = 2
+                        End If
+
+                        CveMovimiento = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, tCveConcepto, 1, Fecha, tFolio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta,
                                                                 CveSubProyecto, ActivoFijo, Guia:=TxtGuia.Text, Observaciones:=TxtObservaciones.Text, CvePersonal:=DdlPersonal.SelectedValue.ToEntero,
                                                                 Recibio:=TxtResponsable.Text.Trim, CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, DepartamentoEntrega:=TxtDepartamentoEntrega.Text,
                                                                 PedidoContrato:=TxtPedidoContrato.Text, CveProveedor:=tCveProveedor, Modulo:="RU/G")
                         If CveMovimiento <= 0 Then
-                            Mensaje = "Error al guardar los movimientos"
-                            ErrorMovInv = True
-                        Else
-                            FolioInv = ObjInventario.Folio.ToString()
+                                Mensaje = "Error al guardar los movimientos"
+                                ErrorMovInv = True
+                            Else
+                                FolioInv = ObjInventario.Folio.ToString()
 
-                            For Each Dr As DataRow In DtMovimientos.Rows
+                                For Each Dr As DataRow In DtMovimientos.Rows
 
-                                If CveConcepto = 42 AndAlso DdlMoneda.SelectedValue.ToEntero = 2 Then
-                                    ImporteConcepto = Dr("PU").ToString.ToDecimal * GlobalTipoCambio(TxtFecha.Text.ToDate).ToDecimal
-                                Else
-                                    ImporteConcepto = Dr("PU").ToString.ToDecimal
-                                End If
+                                    If CveConcepto = 42 AndAlso DdlMoneda.SelectedValue.ToEntero = 2 Then
+                                        ImporteConcepto = Dr("PU").ToString.ToDecimal * GlobalTipoCambio(TxtFecha.Text.ToDate).ToDecimal
+                                    Else
+                                        ImporteConcepto = Dr("PU").ToString.ToDecimal
+                                    End If
 
-                                If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, 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"
-                                    ErrorMovInv = True
-                                    Exit For
-                                End If
-
-                                If CveVenta > 0 AndAlso Not ObjVentas.UpdateVentaUsadoRecibido(CveVenta, Dr("CvePS").ToString.ToEntero, True, CveMovimiento) Then
-                                    Mensaje = "Error al actualizar el recibo de los usados"
-                                    ErrorMovInv = True
-                                    Exit For
-                                End If
-
-                                'si es selectedvalue = 42, es entrada ,3 -salida
-                                Dim CveConceptoUsados As Integer = If(RBLOpcion.SelectedValue.ToEntero = 42, 1, 2)
-
-                                If EsDistribuidor AndAlso RBLOpcion.SelectedValue.ToEntero = 42 AndAlso Dr("CveTamaño").ToString.ToEntero > 0 Then
-
-                                    If Not ObjAcum.DistribuidorMovtosAdd(DdlClientes.SelectedValue.ToEntero, Dr("Cantidad").ToString.ToEntero(), Dr("CveTamaño").ToString.ToEntero, CveConceptoUsados, CveVenta, UsuarioActual.CveUsuario,
-                                                UsuarioActual.CveEmpresa, 0, Dr("Observaciones").ToString, CveMovimiento:=CveMovimiento) Then
-                                        Mensaje = "Error al guardar Movimientos de distribuidor"
+                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, 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"
                                         ErrorMovInv = True
                                         Exit For
                                     End If
 
-                                End If
-                            Next
+                                    If CveVenta > 0 AndAlso Not ObjVentas.UpdateVentaUsadoRecibido(CveVenta, Dr("CvePS").ToString.ToEntero, True, CveMovimiento) Then
+                                        Mensaje = "Error al actualizar el recibo de los usados"
+                                        ErrorMovInv = True
+                                        Exit For
+                                    End If
 
-                            'GENERA LA PREPOLIZA DE ALMACEN VS EL CONCEPTO DE RNC
-                            'If Not ErrorMovInv Then
-                            '    ErrorMovInv = Not GeneraPrePoliza(CveMovimiento, ObjInventario, ObjConta, True)
-                            'End If
+                                    'si es selectedvalue = 42, es entrada ,3 -salida
+                                    Dim CveConceptoUsados As Integer = If(RBLOpcion.SelectedValue.ToEntero = 42, 1, 2)
+
+                                    If EsDistribuidor AndAlso RBLOpcion.SelectedValue.ToEntero = 42 AndAlso Dr("CveTamaño").ToString.ToEntero > 0 Then
+
+                                        If Not ObjAcum.DistribuidorMovtosAdd(DdlClientes.SelectedValue.ToEntero, Dr("Cantidad").ToString.ToEntero(), Dr("CveTamaño").ToString.ToEntero, CveConceptoUsados, CveVenta, UsuarioActual.CveUsuario,
+                                                UsuarioActual.CveEmpresa, 0, Dr("Observaciones").ToString, CveMovimiento:=CveMovimiento) Then
+                                            Mensaje = "Error al guardar Movimientos de distribuidor"
+                                            ErrorMovInv = True
+                                            Exit For
+                                        End If
+
+                                    End If
+                                Next
+
+                                'GENERA LA PREPOLIZA DE ALMACEN VS EL CONCEPTO DE RNC
+                                'If Not ErrorMovInv Then
+                                '    ErrorMovInv = Not GeneraPrePoliza(CveMovimiento, ObjInventario, ObjConta, True)
+                                'End If
+
+                            End If
 
                         End If
 
-                    End If
 
-
-                    If Not ErrorMovInv Then
+                        If Not ErrorMovInv Then
                         If Resp IsNot Nothing Then
                             For Each mensaje2 As String In Resp.Mensajes
                                 Msg.AppendFormat("<br>{0}", mensaje2)