diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 06016b375..79d454b1f 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -1530,6 +1530,8 @@ Partial Class Inventarios_EntradasSalidas
                                     End If
                                 Case 13, 29
                                     CveConceptoContable = 69
+                                    TipoMovtoAlmacen = False
+                                    tValorInventario = -tValorInventario
                                     Dim drr As DataRow = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimero("")
                                     If drr IsNot Nothing Then
                                         CveClasificacion = drr("CveClasificacion").ToString.ToEntero