--

App_Code/ClsVentas.vb

@@ -1763,7 +1763,7 @@ Public Class ClsVentas
         Return Retorno
     End Function
 
-    Public Function GetRepPedidosSTF(CveSubProyecto As Integer, CveVendedor As Integer, CveEmpresa As Integer) As Boolean
+    Public Function GetRepPedidosSTF(CveSubProyecto As Integer, CveVendedor As Integer, CveEmpresa As Integer, Opcion As Integer, FechaInicio As Date, FechaFin As Date) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_PedidosSTFRep")
 
@@ -1771,6 +1771,9 @@ Public Class ClsVentas
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
+            .Add("@Opcion", SqlDbType.Int).Value = Opcion
+            .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
+            .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
         End With
 
         Try