-- ajuste para que solo en los productos de mezcla, se incluya el costo de envío!

Ventas/RepPedidosSTF.aspx.vb

@@ -1,11 +1,10 @@
 Option Explicit On
 Option Strict On
 
-Imports System.Activities.Expressions
 Imports System.Data
-Imports DocumentFormat.OpenXml.Office.CustomUI
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
+
 Partial Class Ventas_RepPedidosSTF
     Inherits ClsPaginas
 
@@ -297,6 +296,7 @@ Partial Class Ventas_RepPedidosSTF
         ObjA.IniciaTransacSQL()
         Dim TieneError As Boolean = False
         Dim StrAlerta As New StringBuilder
+        Dim ActivaEnvio As Boolean = False
 
         For Each drt As DataRow In TmpDTRemis.FiltraParametros("", DistinctColumns:={"CveCliente", "CveSubProyecto", "CveVendedor", "GastosEnvio"}).Rows
 
@@ -327,10 +327,13 @@ Partial Class Ventas_RepPedidosSTF
                             TieneError = True
                         End If
                     End If
+
+                    If dr("CvePS").ToString.ToEntero = 1069499 Then ActivaEnvio = True
+
                 End If
             Next
 
-            If drt("GastosEnvio").ToString.ToDecimal > 0 Then
+            If drt("GastosEnvio").ToString.ToDecimal > 0 AndAlso ActivaEnvio Then
                 Dim tCvePSEnvio As Integer = UsuarioActual.Empresa.Funcionalidad(160).ToEntero
                 If Not ObjFactura.AgregarPS(tCvePSEnvio, 1, drt("GastosEnvio").ToString.ToDecimal, 0, "", CveSubProyecto:=drt("CveSubProyecto").ToString.ToEntero) Then
                     TieneError = True