diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 5c74dc695..700cef5ba 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -372,12 +372,6 @@ Partial Class Inventarios_EntradasSalidas
                 Exit Sub
             End If
 
-
-            If IfNull(Request("AL"), "").ToString = "1" Then
-                DivEmitirTransitorio.Visible = True
-                EsApoyoLogistico = True
-            End If
-
             CveMovimiento = -1
             CveMovimientoRelacionado = -1
             TieneRelacionado = -1
@@ -403,6 +397,12 @@ Partial Class Inventarios_EntradasSalidas
             IndexSeccionAlmacen = 0
             Tipo = 0
 
+            If IfNull(Request("AL"), "").ToString = "1" Then
+                DivEmitirTransitorio.Visible = True
+                EsApoyoLogistico = True
+                DivCliente.Visible = True
+            End If
+
             'si viene una parámetro para cargar un movimiento lo hacemos dentro del procedimiento cargadatos
             Select Case UsuarioActual.Empresa.Funcionalidad(103)
                 Case "1"
@@ -893,14 +893,14 @@ Partial Class Inventarios_EntradasSalidas
 
             If drM("CveEstatusTimbrado").ToString.ToEntero > 0 Then
                 HplDescargaXml.Visible = True
-                HplDescargaXml.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=DesXmlTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", CveMovimiento, "XML", drM("TimbreSerieFolio"), "Tra")))
+                HplDescargaXml.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=DesXmlTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", CveMovimiento, "XML", drM("TimbreSerieFolio"), drM("TimbreTipoDocto"))))
 
                 If drM("AplicaCP").ToString = "True" Then
                     HplCartaPorteTimbre.Visible = True
                     HplCartaPorteTimbre.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CARPOTIMBRE&CVEMOV={0}&CVETIMBRE={1}", CveMovimiento, drM("CveTimbre"))))
                 Else
                     HplDescargaPdf.Visible = True
-                    HplDescargaPdf.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=DesPdfTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}&CVETIMBRE={4}", CveMovimiento, "PDF", drM("TimbreSerieFolio"), "Tra", drM("CveTimbre"))))
+                    HplDescargaPdf.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=DesPdfTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}&CVETIMBRE={4}", CveMovimiento, "PDF", drM("TimbreSerieFolio"), drM("TimbreTipoDocto"), drM("CveTimbre"))))
 
                     HplCartaPorte.Visible = True
                     HplCartaPorte.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CARPO&CVEMOV={0}", CveMovimiento)))
@@ -2054,11 +2054,10 @@ Partial Class Inventarios_EntradasSalidas
                                 ErrorMovInv = RetornoVirtual.TieneError
                             End If
 
-
-
                             Dim SerieInsertadaTimbre As String = ""
                             Dim FolioInsertadoTimbre As Integer = -1
                             Dim CveTimbre As Integer = -1
+                            Dim tTimbreTipoDocto As String = "Tra"
 
                             If Not ErrorAC And Not ErrorMovInv Then
 
@@ -2075,12 +2074,12 @@ Partial Class Inventarios_EntradasSalidas
                                     Dim CveSubProyectoTimbre As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros($"CveAlmacen = {DdlAlmacen.SelectedValue}").Rows(0)("CveSubProyecto").ToString.ToEntero
                                     Dim Fechallegada As DateTime = (TxtFechaLlegada.Text & " 23:59:59").ToDateTime
 
-                                    Dim CveEntregaAlmacen As Integer = ObjGral.AddInvEntregaAlmacenRuta(CveSubProyectoTimbre, -1, DdlDireccionEnvio.SelectedValue.ToEntero, CveMovimiento, DdlChofer.SelectedValue.ToEntero, DdlUnidadCamion.SelectedValue.ToEntero, TxtFechaEntrega.Text.ToDate, TxtFechaLlegada.Text.ToDate, "T", "", "", MinFecha, 1, 1, TxtDistancia.Text.ToEntero,
+                                    Dim CveEntregaAlmacen As Integer = ObjGral.AddInvEntregaAlmacenRuta(CveSubProyectoTimbre, -1, DdlDireccionEnvio.SelectedValue.ToEntero, CveMovimiento, DdlChofer.SelectedValue.ToEntero, DdlUnidadCamion.SelectedValue.ToEntero, TxtFechaEntrega.Text.ToDate, TxtFechaLlegada.Text.ToDateTime, "T", "", "", MinFecha, 1, 1, TxtDistancia.Text.ToEntero,
                                                                                         CveConfigAutoTransporte:=DdlConfigAuto.SelectedValue.ToEntero, CveCamionRemolque1:=DdlRemolque1.SelectedValue.ToEntero, CveCamionRemolque2:=DdlRemolque2.SelectedValue.ToEntero, CveCliente:=DdlClientes.SelectedValue.ToEntero)
 
+                                    If EsApoyoLogistico Then tTimbreTipoDocto = "Ent"
                                     If CveEntregaAlmacen > 0 Then
-                                        CveTimbre = ObjGral.AddGralTimbre("Tra", CveSubProyectoTimbre, TxtFechaEntrega.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveEntregaAlmacen:=CveEntregaAlmacen, AplicaCP:=ChkEmitirCartaPorte.Checked)
-
+                                        CveTimbre = ObjGral.AddGralTimbre(tTimbreTipoDocto, CveSubProyectoTimbre, TxtFechaEntrega.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveEntregaAlmacen:=CveEntregaAlmacen, AplicaCP:=ChkEmitirCartaPorte.Checked)
                                         If CveTimbre > 0 Then
                                             SerieInsertadaTimbre = ObjGral.SerieInsertada
                                             FolioInsertadoTimbre = ObjGral.FolioInsertado
@@ -2090,13 +2089,9 @@ Partial Class Inventarios_EntradasSalidas
                                     Else
                                         ErrorMovInv = True
                                     End If
-
                                 End If
                             End If
 
-
-
-
                             If Not ErrorAC And Not ErrorMovInv Then
 
                                 Dim Msg As New StringBuilder
@@ -2115,10 +2110,9 @@ Partial Class Inventarios_EntradasSalidas
                                 ObjInventario.Commit() ' aplica los movimientos insertados
                                 If ObjContaAC IsNot Nothing Then ObjContaAC.Commit()
 
-
                                 If ChkEmitirTimbrado.Checked Then
                                     CveMovimientoTimbrado = CveMovimiento
-                                    EmitirTimbrado(CveTimbre, CveMovimientoTimbrado, Msg)
+                                    EmitirTimbrado(CveTimbre, tTimbreTipoDocto, CveMovimientoTimbrado, Msg)
                                 End If
 
                                 Alert(Msg.ToString, TipoMensaje.MsgInformacion)
@@ -2128,10 +2122,8 @@ Partial Class Inventarios_EntradasSalidas
                                     DdlSubProyecto.SelectedValueExist("-1")
                                     UPEncabezado.Update()
                                 End If
-
                                 UPDatos.Update()
 
-
                                 If UsuarioActual.TienePermisoProceso(139) Then
                                     CargaDatos(CveMovimiento)
                                 Else
@@ -2146,8 +2138,6 @@ Partial Class Inventarios_EntradasSalidas
                                 Alert(Mensaje, TipoMensaje.MsgError)
                                 RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
                             End If
-
-
                         Else
                             ObjInventario.RollBack() 'deshace lo insertado
                             CveMovimiento = 0
@@ -2155,14 +2145,10 @@ Partial Class Inventarios_EntradasSalidas
                             Alert("ocurrió un Error al registrar los movimientos", TipoMensaje.MsgError)
                             RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
                         End If
-
                     End If
-
                     CargaGVM(DtMovimientos.FiltraParametros("Estatus <> 'E' "))
-
                 End If
 
-
             Catch ex As Exception
                 Try 'por si ya le habian dado rollback o commit
                     ObjInventario.RollBack() 'deshace lo insertad 
@@ -5933,9 +5919,9 @@ Partial Class Inventarios_EntradasSalidas
 
     End Sub
 
-    Private Sub EmitirTimbrado(CveTimbre As Integer, CveMovimientoTimbrado As Integer, ByRef MensajeAlert As StringBuilder)
+    Private Sub EmitirTimbrado(CveTimbre As Integer, TipoDocto As String, CveMovimientoTimbrado As Integer, ByRef MensajeAlert As StringBuilder)
 
-        Dim ObjTimbres As New Timbres("Tra", CveTimbre, UsuarioActual)
+        Dim ObjTimbres As New Timbres(TipoDocto, CveTimbre, UsuarioActual)
 
         MensajeAlert.Append("<br/><br/>")