diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 55170195e..6bc4593c9 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -3942,7 +3942,7 @@ Partial Class Inventarios_EntradasSalidas
                                             ErrorMovInv = True
                                         End If
                                     Else
-                                        If DdlConcepto.SelectedValue.Contiene("6", "22", "23", "7", "16", "21", "24", "32") Then
+                                        If DdlConcepto.SelectedValue.Contiene("1", "6", "22", "23", "7", "16", "21", "24", "32") Then
                                             'genero las prepolizas manuales
                                             Dim tCveConcepto As Integer = 95
                                             Dim CveCuenta As Integer