-- envío de parámetro de cvepromociondetalle

App_Code/Modelos.vb

@@ -1488,7 +1488,8 @@ Namespace Modelos
                                      Optional CveSubProyecto As Integer = -1,
                                      Optional SubProyecto As String = "", Optional PorcentajeIVA As Decimal = -1,
                                      Optional CuentaPredial As String = "", Optional CveVentaDetallePadre As Integer = -1,
-                                     Optional CveVentaDetalleRemision As Integer = -1, Optional CveViajePasajero As Integer = -1, Optional RedondearTotal As Boolean = True) As Boolean
+                                     Optional CveVentaDetalleRemision As Integer = -1, Optional CveViajePasajero As Integer = -1, Optional RedondearTotal As Boolean = True,
+                                     Optional CvePromocionDetalle As Integer = -1) As Boolean
 
             If Not CvePS > 0 Then
                 Alert("Ocurrió un error al cargar la información del producto a agregar. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgError)
@@ -1651,7 +1652,6 @@ Namespace Modelos
             Row("IEPS") = Row("ImporteIEPS")
             Row("Descuento") = (Descuento).RoundSQL(NumeroDecimales)
             Row("TipoDescuento") = -1
-            Row("CvePromocionDetalle") = -1
 
             If RedondearTotal Then
                 Row("Total") = (Cantidad * PU).RoundSQL(NumeroDecimales)
@@ -1678,6 +1678,7 @@ Namespace Modelos
             Row("CveVentaDetallePedido2") = -1
             Row("CuentaPredial") = CuentaPredial
             Row("EsCargo") = 0
+            Row("CvePromocionDetalle") = CvePromocionDetalle
 
             If Me.DtDetalle.Columns.Contains("CveMarca") Then
                 Row("CveMarca") = DrPS("CveMarca")
@@ -2258,7 +2259,7 @@ Namespace Modelos
                                                  Row("PU").ToString.ToDecimal(If(factura.ConvertirPesos, factura.TipoCambio, 1)), Row("ImporteIVA").ToString.ToDecimal(If(factura.ConvertirPesos, factura.TipoCambio, 1)), Math.Round((Row("Total").ToString.ToDecimal(If(factura.ConvertirPesos, factura.TipoCambio, 1)) * (1 + Row("PorcentajeIVA").ToString.ToDecimal(If(factura.ConvertirPesos, factura.TipoCambio, 1)))), 6),
                                                  Row("Obs").ToString, Row("Descuento").ToString.ToDecimal(If(factura.ConvertirPesos, factura.TipoCambio, 1)), Row("TipoDescuento").ToString.ToEntero, Row("CveSubProyecto").ToString.ToEntero, Row("CvePresupuestoIngreso").ToString.ToEntero,
                                                  TiempoEntrega:=Row("TiempoEntrega").ToString, CveVentaDetallePadre:=Row("CveVentaDetalle").ToString.ToEntero, CveContratoDetalle:=Row("CveContratoDetalle").ToString.ToEntero,
-                                                 CvePromocionDetalle:=If(DtPromociones IsNot Nothing, DtPromociones.FiltroPrimeroValor("CvePromocionDetalle", $"CvePS={Row("CvePS").ToString}").ToEntero, -1),
+                                                 CvePromocionDetalle:=Row("CvePromocionDetalle").ToString.ToEntero,
                                                  IEPS:=Row("ImporteIEPS").ToString.ToDecimal, CveMovimientoDetallePedido:=Row("CveMovimientoDetallePedido").ToString.ToEntero,
                                                  ImporteRetIVA:=Row("ImporteRetIVA").ToString.ToDecimal, ImporteRetISR:=Row("ImporteRetISR").ToString.ToDecimal,
                                                  PorcentajeIEPS:=Row("PorcentajeIEPS").ToString.ToDecimal, PorcentajeRetIVA:=Row("PorcentajeRetIVA").ToString.ToDouble, PorcentajeRetISR:=Row("PorcentajeRetISR").ToString.ToDecimal, CuentaPredial:=Row("CuentaPredial").ToString,

Ventas/PVCobranza.aspx.vb

@@ -1139,7 +1139,7 @@ Partial Class Ventas_PVCobranza
             For Each Dr As DataRow In ObjFactura.DtRemisionesPS.Rows
                 ObjFactura.AgregarPS(Dr("CvePS").ToString().ToEntero(), Dr("Cantidad").ToString().ToDecimal(), Dr("PU").ToString().ToDecimal(), Dr("Descuento").ToString().ToDecimal, Dr("Obs").ToString(), CveUM:=Dr("CveUM").ToString().ToEntero(),
                                  CveProyecto:=Dr("CveProyecto").ToString().ToEntero(), CveSubProyecto:=Dr("CveSubProyecto").ToString().ToEntero(), CveVentaDetallePadre:=Dr("CveVentaDetalle").ToString().ToEntero(), CveVentaDetalleRemision:=Dr("CveVentaDetalle").ToString().ToEntero(),
-                                 PorcentajeIVA:=Dr("PorcentajeIVA").ToString().ToDecimal())
+                                 PorcentajeIVA:=Dr("PorcentajeIVA").ToString().ToDecimal(), CvePromocionDetalle:=Dr("CvePromocionDetalle").ToString.ToEntero)
             Next
 
             If Not ValidateString(ObservacionesAlmacen.ToLower(), "parcial") Then
@@ -1148,14 +1148,12 @@ Partial Class Ventas_PVCobranza
                 ObjFactura.CveAlmacen = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveTipoAlmacen = 1 AND CveSubProyecto = {VentaRemision.CveSubProyecto}", "Orden").ToString().ToEntero()
             End If
 
-
             ObjFactura.CalculaTotales()
 
             ObjFactura.PreparaTimbre()
 
             If HdnTipoAmortizacion.Value = "4" Then
 
-
                 DtAnticipos.Columns.Add("CveVenta", GetType(Integer))
                 DtAnticipos.Columns.Add("Importe", GetType(Decimal))
                 DtAnticipos.Columns.Add("CveConceptoContable", GetType(Integer))