Marcar RNC de cargo y bonificacion

Inventarios/RecepcionUsados.aspx.vb

@@ -2075,6 +2075,8 @@ Partial Class Inventarios_RecepcionUsados
         Me.ObjRemisionNC.DescripcionContrato = ""
         Me.ObjRemisionNC.CveCorte = -1
         Me.ObjRemisionNC.TipoDocumento = "Remisión"
+        'NUM 1- CARGO 2- BONIFICACION
+        Me.ObjRemisionNC.Num1 = 1
         Me.ObjRemisionNC.Alfa1 = ""
         Me.ObjRemisionNC.Alfa2 = ""
         Me.ObjRemisionNC.Alfa3 = ""

Ventas/Clientes.aspx

@@ -4200,7 +4200,7 @@
                                             <ContentTemplate>
 
                                                 <asp:GridView ID="GvAcum" Width="100%" runat="server" GridLines="None"
-                                                    DataKeyNames="CveMovto,	CveCliente,Cantidad,CveTamaño,Puntos,ImporteCargo,ImporteBonificacion,ImporteCompra,CveConcepto,CveVenta,Observaciones,CveUsuario,FechaIng,FacturadoCargo,FacturadoBonificacion"
+                                                    DataKeyNames="CveMovto,	CveCliente,Cantidad,CveTamaño,Puntos,ImporteCargo,ImporteBonificacion,ImporteCompra,CveConcepto,CveVenta,Observaciones,CveUsuario,FechaIng,FacturadoCargo,FacturadoBonificacion,CveSubProyecto"
                                                     CssClass="table table-striped table-advance table-hover ScrollAD " ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true"
                                                     AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False">
                                                     <Columns>

Ventas/Clientes.aspx.vb

@@ -9321,6 +9321,7 @@ Partial Class Clientes
 
         Dim SubTotal As Decimal = 0D
         Dim IVA As Decimal = 0D
+        Dim CveSubProyecto As Integer = -1
 
         For Each GvRow As GridViewRow In GvAcum.Rows
             If Tipo = 1 Then
@@ -9332,6 +9333,8 @@ Partial Class Clientes
                     SubTotal = SubTotal + GvRow.DataKey("ImporteBonificacion").ToDecimal
                 End If
             End If
+
+            CveSubProyecto = GvRow.DataKey("CveSubProyecto").ToEntero
         Next
 
         Dim CvePS As Integer = UsuarioActual.Empresa.Funcionalidad(534).ToEntero 'CvePS Distruibuidor Bonificación Nota
@@ -9453,7 +9456,8 @@ Partial Class Clientes
         ObjFactura.Alfa2 = ""
         ObjFactura.Alfa3 = ""
 
-        ObjFactura.Num1 = 0
+        'NUM 1- CARGO 2- BONIFICACION
+        ObjFactura.Num1 = Tipo
         ObjFactura.Num2 = 0
 
         ObjFactura.Num3 = 0
@@ -9503,7 +9507,7 @@ Partial Class Clientes
         ObjFactura.SetCliente()
 
         ''SUCURSAL
-
+        ObjFactura.CveSubProyecto = CveSubProyecto
         ObjFactura.SetSubProyectoMatriz(Me)
         ObjFactura.SetSubProyecto(Me)
         ObjFactura.ClienteSucursal = New Modelos.SucursalModel