From f3408e4b60528001846066c12e4505d4eac95667 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sat, 12 Oct 2024 13:48:45 -0700
Subject: [PATCH] =?UTF-8?q?-=20tome=20el=20%=20de=20impuesto=20seg=C3=BAn?=
 =?UTF-8?q?=20el=20subproyecto=20-=20cambio=20de=20producto=20para=20la=20?=
 =?UTF-8?q?remisi=C3=B3n?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Transportes/RepContratos.aspx.vb | 14 +++-----------
 1 file changed, 3 insertions(+), 11 deletions(-)

diff --git a/Transportes/RepContratos.aspx.vb b/Transportes/RepContratos.aspx.vb
index 9ceaa570a..23ea4ccb0 100644
--- a/Transportes/RepContratos.aspx.vb
+++ b/Transportes/RepContratos.aspx.vb
@@ -175,7 +175,7 @@ Partial Class ListadoContratos
             If ErrorProceso = False Then
 
                 Dim Respuesta As New RespuestaFacturacion()
-                Dim CvePS As Integer = 907783
+                Dim CvePS As Integer = 907784
                 Respuesta = GeneraRemision(CveContrato, LbFolio.Text, TxtImporte.Text.ToDecimal, CvePS, ObjContratos.IniciaTransacSQL)
 
                 If Respuesta.CveVenta > 0 Then
@@ -346,18 +346,13 @@ Partial Class ListadoContratos
             TmpDTMat.Columns.Add("FechaCaducidad", GetType(Date))
             TmpDTMat.Columns.Add("CveVentaDetalle", GetType(Integer))
 
-
-            Dim SubTotal As Decimal = (Importe / (1 + 0.16)).ToDecimal
-
-            'Dim CvePS As Integer = 907783
             Dim CantidadRegistro As Decimal = 1
-            Dim PorcentajeIVA As Decimal = 0.16D
-
+            Dim PorcentajeIVA As Decimal = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto).FiltroPrimeroValor("IVA").ToDecimal
+            Dim SubTotal As Decimal = (Importe / (1D + PorcentajeIVA))
             Dim PU As Decimal = SubTotal
             Dim Descuento As Decimal = 0
             Dim Obs As String = NumContrato
 
-
             If CantidadRegistro > 0 Then
                 If ObjFactura.AgregarPS(CvePS, CantidadRegistro, PU, Descuento, Obs, CveSubProyecto:=CveSubProyecto, PorcentajeIVA:=PorcentajeIVA) Then
                     Dim drp As DataRow = TmpDTMat.NewRow
@@ -371,7 +366,6 @@ Partial Class ListadoContratos
                 End If
             End If
 
-
             If ProcesoOK Then
                 ObjFactura.CalculaTotales()
                 Dim Resp As New Modelos.Factura.MMensajeFactura
@@ -384,9 +378,7 @@ Partial Class ListadoContratos
                 Else
                     ProcesoOK = False
                 End If
-
             End If
-
         Else
             ProcesoOK = False
         End If