Marcar RNC de cargo y bonificacion

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