-

Ventas/ClientesAbonar.aspx.vb

@@ -615,6 +615,22 @@ Partial Class Ventas_ClientesAbonar
 
     Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click
 
+        If ChkComplementoPago.Checked Then
+            Dim objGral As New ClsGralFolios
+            Dim SalirDeMetodo As Boolean = False
+            If objGral.GetFolios("CP", UsuarioActual.CveEmpresa) Then
+                If Not objGral.DtResultados.Rows.Count > 0 Then
+                    Alert("No se cuenta con folios para emitir complemento de pago", TipoMensaje.MsgAdvertencia)
+                    SalirDeMetodo = True
+                End If
+            End If
+            objGral.Dispose()
+            If SalirDeMetodo Then
+                Exit Sub
+            End If
+        End If
+
+
         'SI ES EMPRESA DE ACUMULADORES DEBE OBLIGAR A SUBIR UN ARCHIVO
         If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
             Dim files As Extensiones.Files = Anexo.getfiles()

Ventas/Ventas.aspx

@@ -7029,7 +7029,6 @@
                             <div class="col-md-4">
                                 <asp:DropDownList ID="DdlNCNivelImporte" OnSelectedIndexChanged="DdlNCNivelImporte_SelectedIndexChanged" AutoPostBack="true" runat="server" Width="100%" CssClass="select2me">
                                     <asp:ListItem Selected="True" Text="Nivel Total" Value="1"></asp:ListItem>
-                                    <asp:ListItem Text="Nivel SubTotal" Value="2"></asp:ListItem>
                                 </asp:DropDownList>
                             </div>
                             <div class="col-md-2">