Merge branch 'master' of http://192.168.10.111:8383/SIG

Ventas/Clientes.aspx.vb

@@ -9323,6 +9323,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
@@ -9334,6 +9335,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
@@ -9455,7 +9458,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
@@ -9505,7 +9509,7 @@ Partial Class Clientes
         ObjFactura.SetCliente()
 
         ''SUCURSAL
-
+        ObjFactura.CveSubProyecto = CveSubProyecto
         ObjFactura.SetSubProyectoMatriz(Me)
         ObjFactura.SetSubProyecto(Me)
         ObjFactura.ClienteSucursal = New Modelos.SucursalModel