diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index 0fce0f8df..86af4761b 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -4616,6 +4616,7 @@
                                     <asp:HiddenField ID="HdnPSAliasClasificacion" ClientIDMode="Static" runat="server" />
                                     <asp:HiddenField ID="HdnPSAliasCveSATPS" ClientIDMode="Static" runat="server" />
                                     <asp:HiddenField ID="HdnPSAliasSATClavePS" ClientIDMode="Static" runat="server" />
+                                    <asp:HiddenField ID="HdnPSAliasCveTipoPS" ClientIDMode="Static" runat="server" />
                                 </div>
                             </div>
                             <div class="row">
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index aeb5f086b..52b8f4eff 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1,15 +1,11 @@
 Option Explicit On
 Option Strict On
-Imports System.Activities
-Imports System.Data
+
 Imports System.Diagnostics
 Imports System.Globalization
 Imports System.IO
 Imports System.Threading.Tasks
-Imports System.Xml
-Imports Extensiones
-Imports Microsoft.ReportingServices.DataProcessing
-Imports Newtonsoft.Json
+
 
 Partial Class Compras_Compras
     Inherits ClsPaginas
@@ -1873,7 +1869,12 @@ Partial Class Compras_Compras
                             DdlTipoCompra.Items.Add(New ListItem("NC Con Productos", "6"))
                             DdlTipoCompra.Items.Add(New ListItem("Apoyo Logístico", "9"))
                             DdlTipoCompra.Items.Add(New ListItem("NC Por Devolución", "11"))
-
+                        Case "T"
+                            DdlTipoCompra.Items.Clear()
+                            DdlTipoCompra.Items.Add(New ListItem("Apoyo Logístico", "9"))
+                            DdlTipoComprobante.SelectedValue = "Fac"
+                            DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("NC"))
+                            DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("DEV"))
 
                     End Select
 
@@ -2158,7 +2159,7 @@ Partial Class Compras_Compras
                         TxtSerie.Enabled = True
                     End If
 
-                    If LblMetodoPago.Text = "" Then
+                    If LblMetodoPago.Text = "" AndAlso TipoComprobante <> "T" Then
                         Alert("El xml no contiene la etiqueta  'método de pago', favor de verificar la emisión con el proveedor.", TipoMensaje.MsgAdvertencia)
                         BtnGuardar.Visible = False
                     End If
@@ -4775,7 +4776,7 @@ Partial Class Compras_Compras
                             'End If
 
                             'METODO DE PREPOLIZA DE ALMACEN
-                            If UsuarioActual.CveEmpresa.Contiene(1, 119, 72, 80, 140, 141, 145, 152, 153, 154, 158, 159, 160, 161, 162, 163, 172, 173) And UsuarioActual.Empresa.UsaInventarios And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
+                            If UsuarioActual.Empresa.UsaInventarios And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
                                 Dim ImporteAlmacen = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveTipoPS = 2").ToString.ToDecimal
                                 If ImporteAlmacen > 0 Then
                                     If Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then
@@ -6266,7 +6267,7 @@ Partial Class Compras_Compras
 
                                                         Case 6 'Compra
 
-                                                            Dim AgregaMercanciaInventario As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 140, 145, 141, 152, 153, 154, 158, 159, 160, 161, 162, 163) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
+                                                            Dim AgregaMercanciaInventario As Boolean = UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
 
                                                             Dim RegistraConcepto225 As Boolean = UsuarioActual.Empresa.UsaInventarios AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
 
@@ -17940,6 +17941,7 @@ Partial Class Compras_Compras
                 DdlUnidadAlias.DataBind()
                 HdnPSAliasCveClasificacion.Value = DrPS("CveClasificacion").ToString
                 HdnPSAliasClasificacion.Value = DrPS("Clasificacion").ToString
+                HdnPSAliasCveTipoPS.Value = DrPS("CveTipoPS").ToString
             End If
         End If
         UpPSAlias.Update()
@@ -17971,7 +17973,7 @@ Partial Class Compras_Compras
         End If
 
         Dim PS As New ClsProductosServicios
-        If PS.AddPSAlias(System.Web.HttpUtility.HtmlDecode(TxtPSAlias.Text.Trim), CvePS, ChkAliasFlexible.Checked, UsuarioActual.CveUsuario) Then
+        If PS.AddPSAlias(System.Web.HttpUtility.HtmlDecode(TxtPSAlias.Text.Trim), CvePS, ChkAliasFlexible.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
             GlobalDTProductosServiciosAlias(UsuarioActual.CveEmpresa) = PS.DtResultados
 
             TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CvePS") = CvePS
@@ -17983,6 +17985,7 @@ Partial Class Compras_Compras
             TmpDT.Rows(HdnAliasInd.Value.ToEntero)("Obs") = TxtPSAlias.Text.Trim
             TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveSATPS") = HdnPSAliasCveSATPS.Value.ToEntero
             TmpDT.Rows(HdnAliasInd.Value.ToEntero)("SATClaveProductoServicio") = HdnPSAliasSATClavePS.Value
+            TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveTipoPS") = HdnPSAliasCveTipoPS.Value.ToEntero
             TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveSATPSActualizado") = 0
             If DtpsTemp IsNot Nothing AndAlso DtpsTemp.Rows.Count > 0 Then
                 TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveContratoDetalle") = DtpsTemp.FiltroPrimeroValor("CveContratoDetalle", String.Format("CvePS = {0}", CvePS)).ToEntero
@@ -17999,6 +18002,7 @@ Partial Class Compras_Compras
                 drt("Obs") = TxtPSAlias.Text.Trim
                 drt("CveSATPS") = HdnPSAliasCveSATPS.Value.ToEntero
                 drt("SATClaveProductoServicio") = HdnPSAliasSATClavePS.Value
+                drt("CveTipoPS") = HdnPSAliasCveTipoPS.Value
                 drt("CveSATPSActualizado") = 0
                 If DtpsTemp IsNot Nothing AndAlso DtpsTemp.Rows.Count > 0 Then
                     drt("CveContratoDetalle") = DtpsTemp.FiltroPrimeroValor("CveContratoDetalle", String.Format("CvePS = {0}", drt("CvePS"))).ToEntero
@@ -18009,6 +18013,7 @@ Partial Class Compras_Compras
             GvPS.DataSource = TmpDT
             GvPS.DataBind()
             UpPS.Update()
+            CargaGvInv()
 
             Alert("Registro actualizado con éxito.", TipoMensaje.MsgInformacion)