diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index 4f6329ac5..0fd71e90d 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -4602,7 +4602,7 @@ Public Class ClsInventarios
         Return Retorno
     End Function
 
-    Public Function GetFletes(CveEmpresa As Integer, Optional CveFlete As Integer = -1, Optional Folio As String = "-1", Optional CveProveedor As Integer = -1, Optional CveOC As Integer = -1, Optional CveCompra As Integer = -1, Optional FechaInicio As Date = MinFecha, Optional FechaFin As Date = MaxFecha) As Boolean
+    Public Function GetFletes(CveEmpresa As Integer, Optional CveFlete As Integer = -1, Optional Folio As String = "-1", Optional CveProveedor As Integer = -1, Optional CveOC As Integer = -1, Optional CveCompra As Integer = -1, Optional FechaInicio As Date = MinFecha, Optional FechaFin As Date = MaxFecha, Optional OpcionInventario As Integer = 0) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_FletesGet")
         With SqlAdapter.SelectCommand.Parameters
@@ -4614,6 +4614,7 @@ Public Class ClsInventarios
             .Add("@CveCompra", SqlDbType.Int).Value = CveCompra
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveFlete", SqlDbType.Int).Value = CveFlete
+            .Add("@OpcionInventario", SqlDbType.Int).Value = OpcionInventario
         End With
         Try
             SqlAdapter.Fill(Data)