ClientesAbonar

Ventas/ClientesAbonar.aspx

@@ -261,7 +261,7 @@
     <asp:UpdatePanel ID="UPVentas" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <asp:GridView ID="GvCxC" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Cuentas por Cobrar Pendientes"
-                DataKeyNames="TipoDocto,CveVenta,CveCliente,SerieFolio,Original,SubTotal,IVA,IEPS,RetIVA,RetISR,Num3,CveSubProyecto,CveMoneda,Saldo,TipoCambio, RFC,UUID,Fecha,PorcentajeIVA,DescuentoProntoPago,CveTipoRetencion,Descuento"
+                DataKeyNames="TipoDocto,CveVenta,CveCliente,SerieFolio,Original,SubTotal,IVA,IEPS,RetIVA,RetISR,Num3,CveSubProyecto,CveMoneda,Saldo,TipoCambio, RFC,UUID,Fecha,PorcentajeIVA,DescuentoProntoPago,CveTipoRetencion,Descuento,ClaveMetodoPagoSAT"
                 CssClass="table table-striped table-advance table-hover Widthall" Style="text-align: center;" GridLines="None">
                 <Columns>
                     <asp:TemplateField>
@@ -358,7 +358,15 @@
                     <asp:TemplateField Visible="False">
                         <HeaderTemplate>CveVenta</HeaderTemplate>
                         <ItemTemplate>
-                            <asp:HyperLink ID="HplF2" CssClass="Texto" Text='<%# Eval("CveVenta")%>' runat="server"></asp:HyperLink>
+                            <asp:HyperLink ID="HplF2" CssClass="btn-success" Text='<%# Eval("CveVenta")%>' runat="server"></asp:HyperLink>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+
+
+                      <asp:TemplateField >
+                        <HeaderTemplate>Complemento Pago</HeaderTemplate>
+                        <ItemTemplate>
+                            <asp:LinkButton runat="server" ID="LnkComplemento" CssClass="text-success" Text="<i class='fa fa-check' aria-hidden='true'></i>"  OnClientClick="return false;"  ></asp:LinkButton>
                         </ItemTemplate>
                     </asp:TemplateField>
 

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