-- módulo de PedidosSTF

App_Code/ClsPaginas.vb

@@ -10650,6 +10650,7 @@ Public Class ClsPaginas
             PaginaDict.Add("/Ventas/RepCostoPromedioVenta.aspx".ToUpper(), 532)
             PaginaDict.Add("/Ventas/RepVentasNetasResumen.aspx".ToUpper(), 533)
             PaginaDict.Add("/Ventas/RepTopVentas.aspx".ToUpper(), -1)
+            PaginaDict.Add("/Ventas/RepPedidosSTF.aspx".ToUpper(), 344)
             PaginaDict.Add("/Ventas/RepSolicitudesCancelacion.aspx".ToUpper(), -1)
             PaginaDict.Add("/Ventas/RepCanceladasPendientes.aspx".ToUpper(), -1)
             PaginaDict.Add("/Ventas/RepCancelacionesPorAtender.aspx".ToUpper(), 750)

App_Code/ClsVentas.vb

@@ -1734,6 +1734,26 @@ Public Class ClsVentas
 
         Return Retorno
     End Function
+
+    Public Function GetRepPedidosSTF(CveSubProyecto As Integer, CveVendedor As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_PedidosSTFRep")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los datos del reporte.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
     Public Function GetRepTopCompras(GPO As Integer, CveEmpresa As Integer, TipoCambio As Integer, TipoCambioEspecifico As Decimal, CveUsuarioConsulta As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Comp_GetTopRepPS")