diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx
index caa056712..1ce8ec81e 100644
--- a/Inventarios/EntradasSalidas.aspx
+++ b/Inventarios/EntradasSalidas.aspx
@@ -513,6 +513,14 @@
                                             <asp:HyperLink ID="HplMtoVirtual" CssClass="Texto" runat="server" Target="_blank">Virtual</asp:HyperLink>
                                         </div>
                                     </div>
+                                    <div class="row" runat="server" id="DivMovtoTransitorio" visible="false" style="margin-top: 5px;">
+                                        <label class="col-md-4 truncate">
+                                            Mto. Transitorio.:                                       
+                                        </label>
+                                        <div class="col-md-8">
+                                            <asp:HyperLink ID="HplMtoTransitorio" CssClass="Texto" runat="server" Target="_blank">Transitorio</asp:HyperLink>
+                                        </div>
+                                    </div>
                                 </div>
 
                             </div>
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index ebc7303a3..c57e02d42 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -730,8 +730,17 @@ Partial Class Inventarios_EntradasSalidas
             If Mov.CveMovimientoVirtual > 0 Then
                 DivMovtoVirtual.Visible = True
                 HplMtoVirtual.NavigateUrl = "/Inventarios/EntradasSalidas.aspx?CveMovimiento=" & Mov.CveMovimientoVirtual
+                HplMtoVirtual.Text = Mov.FolioVirtual.ToString
             End If
 
+            If Mov.CveMovimientoTransitorio > 0 Then
+                DivMovtoTransitorio.Visible = True
+                HplMtoTransitorio.NavigateUrl = "/Inventarios/EntradasSalidas.aspx?CveMovimiento=" & Mov.CveMovimientoTransitorio
+                HplMtoTransitorio.Text = Mov.FolioTransitorio.ToString
+            End If
+
+
+
             If (DdlAlmacen.Items.FindByValue(Mov.CveAlmacen.ToString()) Is Nothing) Then
                 Dim dr As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveEstatus:=-1).FiltroPrimero(String.Format("CveAlmacen = {0}", Mov.CveAlmacen))
                 If dr IsNot Nothing Then
@@ -1798,7 +1807,7 @@ Partial Class Inventarios_EntradasSalidas
                                     If DdlConcepto.SelectedValue.ToEntero = 31 Then
                                         IdCtaContableOtro = 1319
                                     End If
-
+                                    EsContabilizable = False
                                 Case 30
                                     CveConceptoContable = 181
                                     TipoMovtoOtro = False
@@ -3805,26 +3814,26 @@ Partial Class Inventarios_EntradasSalidas
                                         End If
                                     Else
                                         If DdlConcepto.SelectedValue.Contiene("6", "22", "23", "7", "16", "21", "24") Then
-                                                'genero las prepolizas manuales
-                                                Dim tCveConcepto As Integer = 95
-                                                Dim CveCuenta As Integer
-                                                If UsuarioActual.CveEmpresa = 119 Then CveCuenta = 55519
-                                                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
+                                            'genero las prepolizas manuales
+                                            Dim tCveConcepto As Integer = 95
+                                            Dim CveCuenta As Integer
+                                            If UsuarioActual.CveEmpresa = 119 Then CveCuenta = 55519
+                                            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
+                                            End If
 
-                                            Else
+                                        Else
 
-                                                Dim tCveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue.ToEntero}").ToEntero
+                                            Dim tCveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue.ToEntero}").ToEntero
                                                 Dim tCveConcepto As Integer = 69
-                                                If DdlConcepto.SelectedValue = "30" Then
-                                                    tCveConcepto = 181
-                                                    IdCtaContable = UsuarioActual.Empresa.Funcionalidad(342).ToEntero
-                                                End If
+                                            If ObjInventario.CveConcepto = 37 Then
+                                                tCveConcepto = 181
+                                                IdCtaContable = UsuarioActual.Empresa.Funcionalidad(342).ToEntero
+                                            End If
 
-                                                For Each RowInv As DataRow In tmpCostos.Rows
+                                            For Each RowInv As DataRow In tmpCostos.Rows
                                                     ValorInventario = DtCostos.SUM("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").ToString.ToDecimal.RoundSQL
                                                     If tCveConcepto = 69 Then
                                                         IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero