SMS 2024.02.12- Proceso de A-Vista

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()