IE Mensaje PUE al genra complemento de pago, tareas programadas carga corrteva

Bancos/IE.aspx.vb

@@ -6011,6 +6011,16 @@ Partial Class Bancos_IE
         Dim Str As New StringBuilder
 
         Dim Banco As New ClsBancos
+
+        If Banco.GetComplementoPagosRep(-1, Now.AddYears(-2), Now, CveIE, -1, 2, UsuarioActual.CveEmpresa, -1) Then
+            If Not Banco.DtResultados.Rows.Count > 0 Then
+                Banco.Dispose()
+                Alert("No se generaron complementos de pago porque no hay facturas con método de pago PPD", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+        End If
+
+
         Banco.IniciaTransacSQL()