From 74c939c37239af974ab81c7bbb7d9acffe8f0c19 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 4 Jun 2025 10:18:09 -0700 Subject: [PATCH] =?UTF-8?q?--=20ajuste=20para=20que=20solo=20en=20los=20pr?= =?UTF-8?q?oductos=20de=20mezcla,=20se=20incluya=20el=20costo=20de=20env?= =?UTF-8?q?=C3=ADo!?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/RepPedidosSTF.aspx.vb | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/Ventas/RepPedidosSTF.aspx.vb b/Ventas/RepPedidosSTF.aspx.vb index 06e929e9f..87d19bf9e 100644 --- a/Ventas/RepPedidosSTF.aspx.vb +++ b/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