-

App_Code/ClsInventarios.vb

@@ -2031,9 +2031,11 @@ Public Class ClsInventarios
     Public Function GetExistenciasProducto(CvePS As Integer, CveUnidadMedida As Integer, CveEmpresa As Integer,
                                     CveAlmacen As Integer, Optional CveSeccionAlmacen As Integer = -1, Optional CveTipoAlmacen As Integer = -1, Optional CveSubProyecto As Integer = -1,
                                     Optional FechaMovto As String = "-1", Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1,
-                                     Optional Serie As String = "-1", Optional Lote As String = "-1", Optional Caducidad As Date = MinFecha,
+                                    Optional Serie As String = "-1", Optional Lote As String = "-1", Optional Caducidad As Date = MinFecha,
                                     Optional ExcluyeAdelantado As Integer = -1, Optional PendientePorSurtir As Integer = -1,
-                                    Optional ExcluyeApartados As Integer = 1, Optional RestringirAlmacenes As Integer = -1, Optional ExcluyeTransitorios As Integer = -1, Optional TopSelect As Integer = 10000) As Boolean
+                                    Optional ExcluyeApartados As Integer = 1, Optional RestringirAlmacenes As Integer = -1,
+                                    Optional ExcluyeTransitorios As Integer = -1, Optional TopSelect As Integer = 10000,
+                                    Optional IncluyeProximaLlegada As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_ExistenciasGet")
 
@@ -2056,6 +2058,7 @@ Public Class ClsInventarios
             .Add("@ExcluyeApartados", SqlDbType.Int).Value = ExcluyeApartados
             .Add("@ExcluyeTransitorios", SqlDbType.Int).Value = ExcluyeTransitorios
             .Add("@RestringirAlmacenes", SqlDbType.Int).Value = RestringirAlmacenes
+            .Add("@IncluyeProximaLlegada", SqlDbType.Int).Value = IncluyeProximaLlegada
             .Add("@TopSelect", SqlDbType.Int).Value = TopSelect
 
             .Add("@Existencia", SqlDbType.Money).Direction = ParameterDirection.Output

App_Code/ClsVentas.vb

@@ -6334,6 +6334,28 @@ Public Class ClsVentas
 
 #End Region
 
+#Region "ECOMMERCE"
+    Public Function GetEntregasEcommerce(FechaI As Date, FechaF As Date, Opcion As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_EntregasEcommerceGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@FechaInicio", SqlDbType.Date).Value = FechaI
+            .Add("@FechaFin", SqlDbType.Date).Value = FechaF
+            .Add("@Opcion", SqlDbType.Int).Value = Opcion
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Reporte de Comisiones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+#End Region
 #Region "IDisposable Support"