diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx
index 0a38b5a7b..48eebe541 100644
--- a/Inventarios/EntradasSalidas.aspx
+++ b/Inventarios/EntradasSalidas.aspx
@@ -15,7 +15,7 @@
 
                 .infomov .col-md-1, .infomov .col-md-2, .infomov .col-md-6 {
                     float: left;
-                    padding-right: 5px;
+                    padding-right: 5px;                   
                 }
 
                 .infomov .col-md-1 {
@@ -116,47 +116,14 @@
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
     <asp:UpdatePanel runat="server">
         <ContentTemplate>
-
-            <%--FILTROS--%>
-            <asp:UpdatePanel ID="UPEncabezado" runat="server" UpdateMode="Conditional">
-                <ContentTemplate>
-                    <asp:Panel ID="Panel1" runat="server" DefaultButton="BtnConsultar">
-                        <div class="portlet solid grey-cascade portlet-filter">
-                            <div class="portlet-title portlet-filterT smalltitle" style="min-height: 39px;">
-                                <div class="tools">
-                                    <asp:Button ID="BtnConsultar" CssClass="btn btn-default" runat="server" Text="Consultar" />
-                                </div>
-                                <div class="titlefiltros  caption ">
-                                    <div class="row" style="padding-top: 10px;">
-                                        <%--<label class="col-md-1 truncate">Almacén:</label>
-                                        <div class="col-md-2">
-                                            <asp:DropDownList ID="DdlCAlmacen" runat="server" CssClass="form-control input-sm" Style="max-width: 200px" DataTextField="Almacen" DataValueField="CveAlmacen"></asp:DropDownList>
-                                        </div>--%>
-                                        <label class="col-md-1 truncate">Concepto:</label>
-                                        <div class="col-md-3 ">
-                                            <asp:DropDownList ID="DdlCConcepto" DataTextField="Concepto" CssClass="form-control input-sm" DataValueField="CveConcepto" runat="server" Style="max-width: 200px"></asp:DropDownList>
-                                        </div>
-                                        <label class="col-md-1 truncate">Folio:</label>
-                                        <div class="col-md-2 ">
-                                            <asp:TextBox ID="TxtCFolio" runat="server" Style="max-width: 120px" ></asp:TextBox>
-                                        </div>
-                                    </div>
-                                </div>
-                            </div>
-                        </div>
-                    </asp:Panel>
-                </ContentTemplate>
-            </asp:UpdatePanel>
-
-            <br />
-
+             
             <div class="row" style="margin-left: 0px; margin-right: 0px;">
 
                 <asp:UpdatePanel ID="UpGenerales" runat="server" UpdateMode="Conditional">
                     <ContentTemplate>
 
                         <div class="col-md-8">
-                            <div class="portlet smmallpadding light bordered infomov" style="width: 750px">
+                            <div class="portlet xspadding light bordered infomov" style="width: 750px">
                                 <div class="portlet-title">
                                     <div class="tools">
                                         <a href="javascript;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a>
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index b8430e834..439943a3e 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -625,11 +625,6 @@ Partial Class Inventarios_EntradasSalidas
         DdlConcepto.DataSource = GlobalDTInvConceptos.FiltraParametros(IIf(UsuarioActual.CveEmpresa.Contiene(72, 80, 1), "CveConcepto NOT IN (4,5,10)", "CveConcepto NOT IN (1,2,4,5,8,9,10,12,26,27,29)").ToString)
         DdlConcepto.DataBind()
 
-        'FILTRO
-        DdlCConcepto.DataSource = GlobalDTInvConceptos.FiltraParametros("CveConcepto NOT IN (4,5)")
-        DdlCConcepto.DataBind()
-
-
         'Llenar el dropdownlist de almacén
         If Not IfNull(Request("CI"), -1).ToString.ToEntero > 0 AndAlso Not IfNull(Request("CveEntregaAlmacen"), -1).ToString.ToEntero > 0 Then
             DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
@@ -743,11 +738,7 @@ Partial Class Inventarios_EntradasSalidas
 
 
 #Region "   CARGA DATOS   "
-    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
-        GvM.EditIndex = -1
-        LimpiarMovimiento()
-        CargaDatos(-1, DdlCConcepto.SelectedValue.ToEntero(), TxtCFolio.Text.ToEntero)
-    End Sub
+
     Private Sub CargaDatos(tCveMovimiento As Integer, Optional pCveConcepto As Integer = -1, Optional pFolio As Integer = -1)
         Dim Mov As New ClsInventarios
         DtMovimientos.Clear()
@@ -1163,7 +1154,6 @@ Partial Class Inventarios_EntradasSalidas
         UpGenerales.Update()
         UPDatos.Update()
         UppGrid.Update()
-        UPEncabezado.Update()
         UpRegistroTipoCambio.Update()
 
     End Sub
@@ -1221,7 +1211,7 @@ Partial Class Inventarios_EntradasSalidas
     End Sub
 
     Private Sub CargaCodigoBarras()
-        If DdlCConcepto.SelectedValue.ToEntero = 1 Then
+        If DdlConcepto.SelectedValue.ToEntero = 1 Then
             DivCodigoBarras.Visible = True
         End If
     End Sub
@@ -1889,7 +1879,7 @@ Partial Class Inventarios_EntradasSalidas
                             Dim CveConceptoContable As Integer = 260
                             Dim CveClasificacion As Integer = -1
                             Select Case DdlConcepto.SelectedValue.ToEntero
-                                Case 2
+                                Case 2, 32
                                     CveConceptoContable = 78
                                     EsContabilizable = True
                                 Case 28, 31
@@ -1921,10 +1911,10 @@ Partial Class Inventarios_EntradasSalidas
                                         CveClasificacion = drr("CveClasificacion").ToString.ToEntero
                                         IdCtaContableOtro = drr("IdCuentaCostos").ToString.ToEntero
                                     End If
-
+                                Case Else
+                                    CveConceptoContable = 95
                             End Select
 
-
                             '2-78 
 
                             If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoAlmacen, tValorInventario, TxtObservaciones.Text.Trim, 68, TxtObservaciones.Text.Trim, TxtFecha.Text.ToDate, idCtaContable, -1, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=tValorInventario, CveClasificacion:=CveClasificacion, Contabilizable:=EsContabilizable) Then
@@ -2121,12 +2111,6 @@ Partial Class Inventarios_EntradasSalidas
                                 End If
 
                                 Alert(Msg.ToString, TipoMensaje.MsgInformacion)
-
-                                'Limpia Valores cuando inserta de campos especiales
-                                If UsuarioActual.CveEmpresa = 66 Then
-                                    DdlSubProyecto.SelectedValueExist("-1")
-                                    UPEncabezado.Update()
-                                End If
                                 UPDatos.Update()
 
                                 If UsuarioActual.TienePermisoProceso(139) Then
@@ -2532,7 +2516,6 @@ Partial Class Inventarios_EntradasSalidas
 
         TxtFolio.Text = Folio.ToString
         FolioAsignado = Folio
-        UPEncabezado.Update()
     End Sub
     Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlClasificacion.SelectedIndexChanged
         ChangeDdlProducto()
@@ -3447,8 +3430,6 @@ Partial Class Inventarios_EntradasSalidas
 #Region "  CONSUMO INTERNO  "
     Private Sub ActivaConsumoInterno()
         EsConsumoInterno = True
-
-        Panel1.Visible = False
         DdlConcepto.Items.Insert(0, New ListItem("Salida por Consumo Interno", "30"))
         DdlConcepto.SelectedValue = "30"
         DdlAlmacen.AutoPostBack = False
@@ -3928,7 +3909,7 @@ Partial Class Inventarios_EntradasSalidas
                                             ErrorMovInv = True
                                         End If
                                     Else
-                                        If DdlConcepto.SelectedValue.Contiene("6", "22", "23", "7", "16", "21", "24") Then
+                                        If DdlConcepto.SelectedValue.Contiene("6", "22", "23", "7", "16", "21", "24", "32") Then
                                             'genero las prepolizas manuales
                                             Dim tCveConcepto As Integer = 95
                                             Dim CveCuenta As Integer
@@ -3936,9 +3917,7 @@ Partial Class Inventarios_EntradasSalidas
                                             IdCtaContable = 1
                                             If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total"), Concepto, tCveConcepto, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveClasificacion:=-1, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=DtCostos.SUMD("Total"), CveSubProyecto:=-1, CveCuenta:=CveCuenta, Contabilizable:=Contabilizable) Then
                                                 ErrorMovInv = True
-
                                             End If
-
                                         Else
 
                                             Dim tCveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue.ToEntero}").ToEntero