- tome el % de impuesto según el subproyecto

- cambio de producto para la remisión

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