diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index 43b15033c..7fd632990 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -1045,7 +1045,7 @@
                                                         <asp:Label Text="" ID="LbRetISROriginal" runat="server" />
                                                     </td>
                                                     <td>
-                                                        <asp:Label ID="LblRetISR" runat="server" BorderStyle="None" Text="0.00"></asp:Label>%
+                                                        <asp:Label ID="LblRetISR" runat="server" BorderStyle="None" Text="0.00"></asp:Label>
                                                     </td>
                                                     <td runat="server" id="TdRetISRConcepto" visible="false">
                                                         <asp:DropDownList ID="DdlRetISRConcepto" AppendDataBoundItems="true" CssClass="select2me" Style="width: 100%;" runat="server"></asp:DropDownList>
@@ -4429,7 +4429,7 @@
                                                 <div class="row">
                                                     <div class="col-md-6" id="divproyecto" runat="server">
                                                         <div class="form-group form-md-line-input input-iconright">
-                                                            <asp:DropDownList ID="DdlProyecto" CssClass=" form-control input-sm select2me" runat="server" Width="50%" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto">
+                                                            <asp:DropDownList ID="DdlProyecto" CssClass=" form-control input-sm select2me" runat="server" Width="100%" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto">
                                                                 <%--<asp:ListItem Selected="true" Text="Seleccione" Value="-1"></asp:ListItem>--%>
                                                             </asp:DropDownList>
                                                             <%--  <asp:RequiredFieldValidator runat="server" Enabled="true" Display="None" ID="RFVProyecto" ControlToValidate="DdlProyecto" InitialValue="-1" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Proyecto''</b> es necesario, por favor seleccione uno." ValidationGroup="GprAgregaPS"></asp:RequiredFieldValidator>
@@ -4439,7 +4439,7 @@
                                                     </div>
                                                     <div class="col-md-6">
                                                         <div class="form-group form-md-line-input input-iconright">
-                                                            <asp:DropDownList ID="DdlSubProyecto" AutoPostBack="true" CssClass=" form-control input-sm select2me" runat="server" OnSelectedIndexChanged="DdlSubProyecto_SelectedIndexChanged" Width="50%" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto">
+                                                            <asp:DropDownList ID="DdlSubProyecto" AutoPostBack="true" CssClass=" form-control input-sm select2me" runat="server" OnSelectedIndexChanged="DdlSubProyecto_SelectedIndexChanged" Width="100%" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto">
                                                                 <asp:ListItem Selected="true" Text="Seleccione" Value="-1"></asp:ListItem>
                                                             </asp:DropDownList>
                                                             <%--<asp:RequiredFieldValidator runat="server" Enabled="true" Display="None" ID="RFVSubProyecto" ControlToValidate="DdlSubProyecto"  ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''SubProyecto''</b> es necesario, por favor seleccione uno." ValidationGroup="GprAgregaPS"></asp:RequiredFieldValidator>
@@ -4526,7 +4526,7 @@
                                                             <label for="<%= TxtRetISRModal.ClientID.ToString()%>">% RetISR:</label>
                                                         </div>
                                                     </div>
-                                                    <div class="col-md-3">
+                                                    <div class="col-md-3" runat="server" id="divIEPSModal" visible="false">
                                                         <div class="form-group form-md-line-input input-iconright">
                                                             <asp:TextBox ID="TxtIEPSModal" ClientIDMode="Static" Enabled="false" runat="server" onkeyup="Recalcula();" CssClass=" form-control  " CausesValidation="true" MaxLength="12" ValidationGroup="GprAgregaPS"></asp:TextBox>
                                                             <ajax:FilteredTextBoxExtender ID="FTBEIEPS" runat="server" TargetControlID="TxtIEPSModal" FilterType="Custom, Numbers" ValidChars="." />
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 1df16acb0..81b9f6012 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1149,7 +1149,6 @@ Partial Class Compras_Compras
         End Set
 
     End Property
-
     Private Property UUIDSList As List(Of String)
         Get
             If ViewState("UUIDSList") Is Nothing Then
@@ -1163,8 +1162,6 @@ Partial Class Compras_Compras
             ViewState("UUIDSList") = value
         End Set
     End Property
-
-
     Private Property NumeroReembolsoOriginal As String
         Get
             If ViewState("NumeroReembolsoOriginal") Is Nothing Then
@@ -1227,6 +1224,9 @@ Partial Class Compras_Compras
             If UsuarioActual.Empresa.Funcionalidad(117) <> "" Then
                 btnProrateo.Visible = True
             End If
+            If UsuarioActual.Empresa.Funcionalidad(713) = "1" Then
+                divIEPSModal.Visible = True
+            End If
 
             If UsuarioActual.Empresa.Funcionalidad(303) <> "" Then
                 btnProrateo2.Visible = True
@@ -2344,7 +2344,7 @@ Partial Class Compras_Compras
 
             If OtrosImpuestos > 0 Or TrasladoIEPS > 0 Then
 
-                If UsuarioActual.Empresa.Funcionalidad(713).ToEntero = 1 Then
+                If UsuarioActual.Empresa.Funcionalidad(713) = "1" Then
                     'Si tiene funcionalidad y es Acreedor se muestra modal
                     If CveTipoProveedor.Contiene(2, 3) Then ' Acreedor
                         RegistraScript("$('#ModalIEPS').modal({ backdrop: 'static', keyboard: false },'show');")
@@ -2416,8 +2416,8 @@ Partial Class Compras_Compras
         HdnCompraSaldo.Value = TotalTemp.ToString
         CompraSaldo = TotalTemp
 
-        LblRetIVA.Text = If(RetIVATemp > 0, (TmpDT.MAX("RetIVAPorcentaje").ToDecimal() * 100).FormatoNumero(3), "")
-        LblRetISR.Text = If(RetISRTemp > 0, (TmpDT.MAX("RetISRPorcentaje").ToDecimal() * 100).FormatoNumero(3), "")
+        LblRetIVA.Text = If(RetIVATemp > 0, (TmpDT.MAX("RetIVAPorcentaje").ToDecimal() * 100).FormatoNumero(4), "")
+        LblRetISR.Text = If(RetISRTemp > 0, (TmpDT.MAX("RetISRPorcentaje").ToDecimal() * 100).FormatoNumero(4), "")
 
         'ASIGNA VALORES ORIGINALES PARA GUARDAR
         AsignaValoresOriginales(SubtotalTemp, Subtotal2Temp, IVATemp, RetIVATemp, RetISRTemp, Total)
@@ -2626,8 +2626,8 @@ Partial Class Compras_Compras
                 LblUsuarioCaptura.Text = dr("Usuario").ToString
                 LitFechCaptura.Text = dr("FechaIng").ToString.ToDate.ToShortDateString
                 LitFechCaptura.ToolTip = dr("FechaIng").ToString
-                LblRetIVA.Text = If(dr("RetIVA").ToString.ToDecimal > 0, TmpDT.MAX("RetIVAPorcentaje").ToDecimal * 100, 0).ToString.FormatoNumero(3) '(If(SubTotal2 > 0, (RetencionIVA / SubTotal2), 0) * 100).FormatoNumero(3) + "%"
-                LblRetISR.Text = If(dr("RetISR").ToString.ToDecimal > 0, TmpDT.MAX("RetISRPorcentaje").ToDecimal * 100, 0).ToString.FormatoNumero(3) '(If(SubTotal2 > 0, (RetencionISR / SubTotal2), 0) * 100).FormatoNumero(3)
+                LblRetIVA.Text = If(dr("RetIVA").ToString.ToDecimal > 0, TmpDT.MAX("RetIVAPorcentaje").ToDecimal * 100, 0).ToString.FormatoNumero(4) '(If(SubTotal2 > 0, (RetencionIVA / SubTotal2), 0) * 100).FormatoNumero(3) + "%"
+                LblRetISR.Text = If(dr("RetISR").ToString.ToDecimal > 0, TmpDT.MAX("RetISRPorcentaje").ToDecimal * 100, 0).ToString.FormatoNumero(4) '(If(SubTotal2 > 0, (RetencionISR / SubTotal2), 0) * 100).FormatoNumero(3)
                 If dr("TipoFactura").ToString <> "CFDi" Then LblTipoFact.Text = dr("TipoFactura").ToString : divTipoFactura.Visible = True
                 ViewState("CveFactura") = dr("CveFactura").ToString.ToEntero
                 ViewState("IdPoliza") = dr("IdPoliza").ToString.ToEntero
@@ -16286,8 +16286,8 @@ Partial Class Compras_Compras
             UpAnticipos.Update()
         End If
 
-        LblRetIVA.Text = TmpDT.MAX("RetIVAPorcentaje").ToString '(If(SubTotal2 > 0, (RetencionIVA / SubTotal2), 0) * 100).FormatoNumero(3) + "%"
-        LblRetISR.Text = TmpDT.MAX("RetISRPorcentaje").ToString '(If(SubTotal2 > 0, (RetencionISR / SubTotal2), 0) * 100).FormatoNumero(3)
+        LblRetIVA.Text = If(TxtRetIVA.Text.ToDecimal > 0, (TmpDT.MAX("RetIVAPorcentaje").ToDecimal() * 100).FormatoNumero(4), "")
+        LblRetISR.Text = If(TxtRetISR.Text.ToDecimal > 0, (TmpDT.MAX("RetISRPorcentaje").ToDecimal() * 100).FormatoNumero(4), "")
 
         'IMPORTES DE RESTRICCION
         TxtDocumentoImporteFE.Text = Total.ToString.FormatoNumero(2)
@@ -16641,12 +16641,7 @@ Partial Class Compras_Compras
             DdlProyecto.SelectedValueExist("-1")
         End If
 
-
         CargaSubProyecto()
-
-
-        'DdlProyecto.SelectedValueExist(GvRow.DataKey("CveProyecto"))
-
         DdlSubProyecto.SelectedValueExist(GvRow.DataKey("CveSubProyecto"))
 
         DdlSubProyecto_SelectedIndexChanged(Nothing, Nothing)
@@ -16661,7 +16656,6 @@ Partial Class Compras_Compras
             If PS("IVA").ToString.ToEntero() <> -1 Then
                 '  DdlIVA.Enabled = False
             Else
-
                 'DdlIVA.Enabled = If(CveCompra > 0 Or CveFactura > 0 Or OCVinculada, False, True)
             End If
         End If
@@ -16675,24 +16669,14 @@ Partial Class Compras_Compras
                 DdlIVA.SelectedValue = "1.08"
         End Select
 
-
-
-        'TxtIVAModal.Text = FormatoNumero(GvRow.DataKey("IVAPorcentaje").ToDouble * 100, 0)
-
-
-
-        TxtRetIVAModal.Text = FormatoNumero(GvRow.DataKey("RetIVAPorcentaje").ToDouble * 100, 2)
-        TxtRetISRModal.Text = FormatoNumero(GvRow.DataKey("RetISRPorcentaje").ToDouble * 100, 2)
+        TxtRetIVAModal.Text = FormatoNumero(GvRow.DataKey("RetIVAPorcentaje").ToDouble * 100, 4)
+        TxtRetISRModal.Text = FormatoNumero(GvRow.DataKey("RetISRPorcentaje").ToDouble * 100, 4)
         TxtIEPSModal.Text = FormatoNumero(GvRow.DataKey("IEPSPSPorcentaje").ToDouble * 100, 2)
-
         ViewState("RetIVA") = GvRow.DataKey("RetIVAPorcentaje").ToDouble
         ViewState("RetISR") = GvRow.DataKey("RetISRPorcentaje").ToDouble
 
-        'TxtRetIVAModal.Text = FormatoNumero(ViewState("RetIVA").ToString().ToDouble * 100, 0)
-        'TxtRetISRModal.Text = FormatoNumero(ViewState("RetISR").ToString().ToDouble * 100, 0)
-
-        TxtPrecio.Text = GvRow.DataKey("PU").FormatoNumero(6)
-        TxtDescuentoModal.Text = GvRow.DataKey("Descuento").FormatoNumero(6)
+        TxtPrecio.Text = GvRow.DataKey("PU").ToDecimal.ToString("#,##0.00####")
+        TxtDescuentoModal.Text = GvRow.DataKey("Descuento").ToDecimal.ToString("#,##0.00####")
         LblTotalPS.Text = GvRow.DataKey("Total").FormatoNumero
 
         'FUNCIONALIDAD DE SEGUIR AGREGANDO (NO CERRAR MODAL)