ClientesAbonar

Ventas/ClientesAbonar.aspx.vb

@@ -636,6 +636,17 @@ Partial Class Ventas_ClientesAbonar
                 e.Row.FCCheckBox("Chk").Visible = False
             End If
 
+
+            If e.Row.DBCampo("CveVenta").ToEntero > 0 Then
+                If e.Row.DataKey("ClaveMetodoPagoSAT") = "PUE" Then
+                    e.Row.FCLinkButton("LnkComplemento").Text = "<i class='fa fa-times' aria-hidden='true'></i>"
+                    e.Row.FCLinkButton("LnkComplemento").CssClass = "text-danger"
+                End If
+            Else
+                e.Row.FCLinkButton("LnkComplemento").Visible = False
+            End If
+
+
         End If
     End Sub
 
@@ -2505,6 +2516,18 @@ Partial Class Ventas_ClientesAbonar
 
         'For i = 0 To CveVentas.Count - 1
         Dim ObjBancos As New ClsBancos
+
+
+        If ObjBancos.GetComplementoPagosRep(-1, Now.AddYears(-2), Now, CveIE, -1, If(CveIESustitucion > 0, 2, 1), 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, CFDIRelacionado:=CFDIRelacionadoSustitucion, EsRegeneracion:=If(CveIESustitucion > 0, True, False)) Then