.

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

Ventas/Ventas.aspx

@@ -2822,9 +2822,9 @@
                                             <div class="col-md-5">
                                                 <asp:RadioButtonList ID="RBLTipoContrato" AppendDataBoundItems="true" OnSelectedIndexChanged="RBLTipoContrato_SelectedIndexChanged" AutoPostBack="true" runat="server" RepeatDirection="Horizontal">
                                                     <asp:ListItem Text="Venta" Value="2" Selected="True" />
-                                                    <asp:ListItem Text="Suministro" Value="1" />
-                                                    <%--<asp:ListItem Text="Consignación" Value="3" Enabled="false" />--%>
+                                                    <asp:ListItem Text="Suministro" Value="1" />                                                   
                                                     <asp:ListItem Text="Obra" Value="4" />
+                                                   
                                                 </asp:RadioButtonList>
                                             </div>
                                             <div class="col-md-6">

Ventas/Ventas.aspx.vb

@@ -9115,7 +9115,7 @@ Partial Class Ventas
         ObjFactura.NumeroPersonas = 0
 
 
-        If ObjFactura.TipoDocto = "Ant" And DdlContratosModal.SelectedValue.ToEntero > 0 Or ObjFactura.TipoDocto = "Ing" And DdlContratosModal.SelectedValue.ToEntero > 0 Then
+        If ObjFactura.TipoDocto = "Ant" And DdlContratosModal.SelectedValue.ToEntero > 0 Or ObjFactura.TipoDocto = "Ing" And DdlContratosModal.SelectedValue.ToEntero > 0 Or ObjFactura.TipoDocto = "Egs" And DdlContratosModal.SelectedValue.ToEntero > 0 Then
             CveContrato = DdlContratosModal.SelectedValue.ToEntero
         End If
 
@@ -16384,6 +16384,10 @@ Partial Class Ventas
             Dim TotalCalculableImpuestosIVA As Decimal = 0
             PU = PU.RoundAD(6) ' el precio unitario puede llevar hasta 6 decimales permitidos
 
+            If Not TmpDT.Columns.Contains("RetIVA") Then
+                TmpDT.Columns.Add("RetIVA", GetType(Decimal))
+            End If
+
             Row = TmpDT.NewRow()
             Row("CveProyecto") = CveProyecto
             Row("Proyecto") = Proyecto
@@ -16510,7 +16514,11 @@ Partial Class Ventas
             Row("IVA") = Row("PorcentajeIVA")
             Row("ImporteIVA") = (Row("PorcentajeIVA").ToString().ToDecimal * TotalCalculableImpuestosIVA).RoundAD(NumeroDecimales)
             Row("ImporteRetIVA") = (ClienteRetIVA * TotalCalculableImpuestos).RoundAD(NumeroDecimales)
+
+
+
             Row("RetIVA") = (ClienteRetIVA * TotalCalculableImpuestos).RoundAD(NumeroDecimales)
+
             Row("ImporteRetISR") = (ClienteRetISR * TotalCalculableImpuestos).RoundAD(NumeroDecimales)
             Row("PorcentajeRetIVA") = ClienteRetIVA
             Row("PorcentajeRetISR") = ClienteRetISR
@@ -28740,11 +28748,11 @@ Partial Class Ventas
                     Alert("Se selecciono un contrato de obra, para continuar seleccione una estimación.", TipoMensaje.MsgAdvertencia)
                 End If
 
-            ElseIf DdlTipoComprobante.SelectedValue = "Ant" Then
+            ElseIf DdlTipoComprobante.SelectedValue = "Ant" Or DdlTipoComprobante.SelectedValue = "Egs" Then
                 Respuesta = True
             Else
                 Alert("Tipo de documento no valido para contratos de obra.", TipoMensaje.MsgAdvertencia)
-                Respuesta = True
+                Respuesta = False
             End If
 
         Else