diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 3ca861b3e..e8820574f 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -19444,7 +19444,7 @@ Partial Class Compras_Compras
                 Case 237
                     Select Case FleteImportacionOpcion
                         Case 1
-                            If Not ObjInventario.AddFletescompras(CveFlete, CveCompra) Then
+                            If Not ObjInventario.AddFletesCompras(CveFlete, CveCompra) Then
                                 ErrorTrans = True
                             End If
                             '''actualiza la compra para que no se surta en almacen. sino por el flete o importación
@@ -20252,24 +20252,24 @@ Partial Class Compras_Compras
     '        CvePSGRuposAux.AppendFormat("{0},", CvePSIndividual)
     '    Next
 
-    Dim CvePSGRupos As String = Left(CvePSGRuposAux.ToString, CvePSGRuposAux.Length - 1)
+    'Dim CvePSGRupos As String = Left(CvePSGRuposAux.ToString, CvePSGRuposAux.Length - 1)
 
-    Dim PSSat As DataTable = GlobalDTPS(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CvePS IN ({0})", CvePSGRuposAux))
+    'Dim PSSat As DataTable = GlobalDTPS(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CvePS IN ({0})", CvePSGRuposAux))
 
-    Dim ProductosCodigoSATNoPermitidos As New StringBuilder("")
-    For Each PS As GridViewRow In GvPS.Rows
-    Dim PSIndividual As String = PS.DataKey("PS")
-    Dim ClavePSSAT As String = PSSat.FiltroPrimeroValor("CveSATPS", String.Format("PS = '{0}'", PSIndividual))
-    If ClavePSSAT = "46920" Then
-                ProductosCodigoSATNoPermitidos.AppendFormat("{0}</br>", PSIndividual)
-            End If
-    Next
+    'Dim ProductosCodigoSATNoPermitidos As New StringBuilder("")
+    'For Each PS As GridViewRow In GvPS.Rows
+    'Dim PSIndividual As String = PS.DataKey("PS")
+    'Dim ClavePSSAT As String = PSSat.FiltroPrimeroValor("CveSATPS", String.Format("PS = '{0}'", PSIndividual))
+    'If ClavePSSAT = "46920" Then
+    '            ProductosCodigoSATNoPermitidos.AppendFormat("{0}</br>", PSIndividual)
+    '        End If
+    'Next
 
-    If ProductosCodigoSATNoPermitidos.ToString.Length > 0 Then
-    Dim mensajeAdvertencia As String = String.Format("No se permite vinculación de productos con código SAT '01010101', revise los productos:</br></br>{0}", ProductosCodigoSATNoPermitidos.ToString)
-            Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
-            Return False
-    End If
+    'If ProductosCodigoSATNoPermitidos.ToString.Length > 0 Then
+    'Dim mensajeAdvertencia As String = String.Format("No se permite vinculación de productos con código SAT '01010101', revise los productos:</br></br>{0}", ProductosCodigoSATNoPermitidos.ToString)
+    '        Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
+    '        Return False
+    'End If
 
     '    Return True