Ventas/Clientes.aspx

@@ -584,7 +584,14 @@
                                             </asp:DropDownList>
                                             <label for="<%= DdlTipoCliente.ClientID.ToString()%>">Tipo de Cliente:</label>
                                         </div>
-
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <label>Cargo Usado:</label>
+                                            <asp:CheckBox ID="ChkCargoUsado" runat="server" CssClass="make-switchsd" data-size="small" Text="" ClientIDMode="Static" />
+                                        </div>
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <label>Bonificación Usado:</label>
+                                            <asp:CheckBox ID="ChkBonificacionUsado" runat="server" CssClass="make-switchsd" data-size="small" Text="" ClientIDMode="Static" />
+                                        </div>
                                     </div>
                                 </div>
                             </div>

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)

Ventas/Ventas.aspx.vb

@@ -21316,7 +21316,7 @@ Partial Class Ventas
                 AgregarProductoServicio(tCantidad, Dr("CveUM").ToString.ToEntero, Dr("UM").ToString, Dr("CveClasificacion").ToString.ToEntero, Dr("Clasificacion").ToString,
                                         Dr("CvePS").ToString.ToEntero, Dr("PS").ToString, Dr("Obs").ToString, Dr("PU").ToString.ToDecimal, Dr("Descuento").ToString.ToDecimal,
                                         Dr("CveProyecto").ToString.ToEntero, Dr("Proyecto").ToString, Dr("CveSubProyecto").ToString.ToEntero, Dr("SubProyecto").ToString,
-                                        CveContratoDetalle:=Dr("CveContratoDetalle").ToString.ToEntero, CveVentaDetalleCotizacion:=Dr("CveVentaDetalle").ToString.ToEntero)
+                                        CveContratoDetalle:=Dr("CveContratoDetalle").ToString.ToEntero, CveVentaDetalleCotizacion:=Dr("CveVentaDetalle").ToString.ToEntero, SeActualiza:=True)
             Next
             CalculaTotalesVenta()
             Return True