Campos agregados de Cargo Usado y Bonificacion Usado

Ventas/Clientes.aspx.vb

@@ -400,6 +400,44 @@ Partial Class Clientes
             ViewState("DtPagos") = value
         End Set
     End Property
+    'Private Property EstatusAnteriorCliente As Boolean
+    '    Get
+    '        If ViewState("EstatusAnteriorCliente") Is Nothing Then
+    '            Return True
+    '        Else
+    '            Return Boolean.Parse(ViewState("EstatusAnteriorCliente").ToString)
+    '        End If
+    '    End Get
+    '    Set(value As Boolean)
+    '        ViewState("EstatusAnteriorCliente") = value
+    '    End Set
+    'End Property
+
+    Private Property CargoUsado As Boolean
+        Get
+            If ViewState("CargoUsado") Is Nothing Then
+                Return True
+            Else
+                Return Boolean.Parse(ViewState("CargoUsado").ToString)
+            End If
+        End Get
+        Set(value As Boolean)
+            ViewState("CargoUsado") = value
+        End Set
+    End Property
+
+    Private Property BonificacionUsado As Boolean
+        Get
+            If ViewState("BonificacionUsado") Is Nothing Then
+                Return True
+            Else
+                Return Boolean.Parse(ViewState("BonificacionUsado").ToString)
+            End If
+        End Get
+        Set(value As Boolean)
+            ViewState("BonificacionUsado") = value
+        End Set
+    End Property
 #End Region
 
 #Region "Documentacion"
@@ -1372,7 +1410,8 @@ Partial Class Clientes
 
                 ChkDesglosarIEPS.Checked = ObjClientes.DesglosaIEPS
                 DdlCorporativo.SelectedValueExist(ObjClientes.CveClienteCorporativo.ToString)
-
+                ChkCargoUsado.Checked = ObjClientes.CargoUsados
+                ChkBonificacionUsado.Checked = ObjClientes.BonificacionUsado
                 'COMERCIO EXTERIOR
                 ChkAplicaComercioExterior.Checked = ObjClientes.AplicaComercioExterior
                 DdlTipoOperacion.SelectedValueExist(ObjClientes.CveTipoOperacion)