Validaciones, Complementos Solo PPD

Bancos/PopIEVentas.aspx.vb

@@ -1377,6 +1377,9 @@ Partial Class Bancos_PopIEVentas
 #Region "G U A R D A R"
     Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
 
+
+
+
         Dim FechaFactura As Date = FechaVenta
         Dim FechaDocumentoPago As Date = TxtFechaDocumento.Text.ToDate
 
@@ -3601,6 +3604,16 @@ Partial Class Bancos_PopIEVentas
 
         'For i = 0 To CveVentas.Count - 1
         Dim ObjBancos As New ClsBancos
+
+        If ObjBancos.GetComplementoPagosRep(-1, Now.AddYears(-2), Now, CveIE, -1, 2, UsuarioActual.CveEmpresa, -1) Then
+            If Not ObjBancos.DtResultados.Rows.Count > 0 Then
+                ObjBancos.Dispose()
+                Alert("No se generaron complementos de pago porque no hay facturas con método de pago PPD", TipoMensaje.MsgAdvertencia)
+                Return ""
+            End If
+        End If
+
+
         ObjBancos.IniciaTransacSQL()
 
         If ObjBancos.GeneraTimbrePago(CveIE, -1, UsuarioActual, CveCliente) Then