From e4f0e0375c92ea176c905142dc7c7b4c297e5120 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Mon, 13 Jan 2020 09:22:07 -0700
Subject: [PATCH]

---
 Ventas/Ventas.aspx    | 15 +++++++++++++--
 Ventas/Ventas.aspx.vb | 16 ++++++++++++++++
 2 files changed, 29 insertions(+), 2 deletions(-)

diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 92bbd2874..688e063f4 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -1359,9 +1359,20 @@
                                                         <tr id="TrRetIVA" runat="server" align="right" style="display: none;">
                                                             <td style="border: 1px none white"><b>Ret. IVA:</b></td>
                                                             <td>
-                                                                <asp:TextBox ID="TxtRetIVA" ClientIDMode="Static" runat="server" BorderStyle="None" Style="text-align: right;" Text="0.00" Width="78px"></asp:TextBox></td>
+                                                                <asp:TextBox ID="TxtRetIVA" ClientIDMode="Static" runat="server" BorderStyle="None" Style="text-align: right;" Text="0.00" Width="78px"></asp:TextBox>
+                                                            </td>
                                                             <td>
-                                                                <asp:Label ID="LblRetIVA" runat="server" BorderStyle="None" Text="0.00"></asp:Label>&nbsp;(%)</td>
+                                                                <asp:Label ID="LblRetIVA" runat="server" BorderStyle="None" Text="0.00"></asp:Label>&nbsp;(%)
+                                                            </td>
+                                                            <td>
+                                                                <asp:DropDownList ID="DdlTipoRetencion" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoRetencion_SelectedIndexChanged" CssClass="form-control  select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="MetodoPago" DataValueField="CveMetodoPago" ValidationGroup="GrpGuardar">
+                                                                    <asp:ListItem Selected="True" Text="Sin Retención" Value="0"></asp:ListItem>
+                                                                    <asp:ListItem Text="Arrendamiento" Value="1"></asp:ListItem>
+                                                                    <asp:ListItem Text="Servicios Profesionales" Value="2"></asp:ListItem>
+                                                                    <asp:ListItem Text="Fletes" Value="3"></asp:ListItem>
+                                                                    <asp:ListItem Text="Servicios" Value="4"></asp:ListItem>
+                                                                </asp:DropDownList>
+                                                            </td>
                                                         </tr>
 
                                                         <tr id="TrRetISR" runat="server" align="right" style="display: none;">
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index dea66b2a4..905c05980 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -4734,6 +4734,8 @@ Partial Class Ventas
                 End If
                 ViewState("CargoUsado") = ObjCliente.CargoUsados
 
+                DdlTipoRetencion.SelectedValueExist(ObjCliente.DtResultados(0)("CveTipoRetencion").ToString)
+
                 Dim dr As DataRow = Nothing
                 dr = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal = 1 And Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa)
                 If dr IsNot Nothing Then
@@ -23978,5 +23980,19 @@ Partial Class Ventas
 
         Return Retorno
     End Function
+    Protected Sub DdlTipoRetencion_SelectedIndexChanged(sender As Object, e As EventArgs)
+        Dim PorcentajeRetencion As Decimal = 0
+        Select Case DdlTipoRetencion.SelectedValue
+            Case "1" 'Arrendamiento
+                PorcentajeRetencion = 10
+            Case "2" 'Servicios Profesionales
+                PorcentajeRetencion = 10
+            Case "3" 'Fletes
+                PorcentajeRetencion = 4
+            Case "4" 'Servicios
+                PorcentajeRetencion = 6
+        End Select
+
+    End Sub
 
 End Class
\ No newline at end of file