Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Compras/eFacturas.aspx

@@ -203,7 +203,45 @@
                 </asp:UpdatePanel>
                 <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
                     <ContentTemplate>
-                        <asp:GridView ID="GvD" runat="server" Width="100%" AutoGenerateColumns="False" DataKeyNames="CveFactura,CveCompra,CveProveedor,SerieFolio,NombreProveedor,UUID,RFCDe,RFCPara,TipoFactura,FueValidado,TipoComprobante,Version,RFCde,XML,PDF,BloquePorComplemento,Total"
+
+                         <div class="row" runat="server" id="DVRegistroFacturas">
+                            <div class="col-md-12">
+
+                                 <asp:UpdatePanel ID="UPPClasificacion" runat="server" UpdateMode="Conditional" RenderMode="Inline">
+                                            <ContentTemplate>
+
+                                                <div class="row">
+                                                    <div class="col-md-6">
+                                                        <div class="form-group form-md-line-input input-iconright">
+                                                            <asp:HiddenField runat="server" ID="HdnTipoPS" Value="-1" />
+                                                            <asp:DropDownList ID="DdlClasificacion" runat="server" CssClass=" form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="100%">
+                                                                <asp:ListItem Selected="True" Text="Seleccione la Clasificación (Todas)" Value="-1"></asp:ListItem>
+                                                            </asp:DropDownList>
+                                                            <label for="<%= DdlClasificacion.ClientID.ToString()%>">Clasificación:</label>
+                                                        </div>
+                                                    </div>
+
+                                                    <div class="col-md-6">
+                                                        <div class="form-group form-md-line-input input-iconright">
+                                                            <ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width:100%" CssClass="form-control input-sm DdlPS" CssClassDdl="select2me" DataTextField="PSCodigo" DataValueField="CvePS" />
+
+                                                            <label for="<%= DdlPS.ClientID.ToString()%>">
+                                                                Productos / Servicio:<label>
+                                                        </div>
+                                                    </div>
+
+                                                </div>
+
+                                                <br />
+                                            </ContentTemplate>
+                                        </asp:UpdatePanel>
+
+                            </div>
+                        </div>
+
+                        <div class="row">
+                            <div class="col-md-12">
+                                <asp:GridView ID="GvD" runat="server" Width="100%" AutoGenerateColumns="False" DataKeyNames="CveFactura,CveCompra,CveProveedor,SerieFolio,NombreProveedor,UUID,RFCDe,RFCPara,TipoFactura,FueValidado,TipoComprobante,Version,RFCde,XML,PDF,BloquePorComplemento,Total"
                             EmptyDataText="No se encontraron Registros con el filtro actual" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-sort="true" GridLines="None">
                             <Columns>
 
@@ -316,6 +354,12 @@
                             </Columns>
                             <HeaderStyle CssClass="Titulos" />
                         </asp:GridView>
+                            </div>
+                        </div>
+
+
+                        
+
                     </ContentTemplate>
                 </asp:UpdatePanel>
 

OC/OC.aspx

@@ -291,7 +291,7 @@
                                             <div class="row">
                                                 <label class="col-md-2">Proveedor:</label>
                                                 <div class="col-md-9">
-                                                    <ADS:Dropdownlost runat="server" ID="DdlProveedores" CssStyle="width: 100%;" CssClassDdl="select2me " DataTextField="NombreCortoProveedor" DataValueField="CveProveedor" />                                                                                                        
+                                                    <ADS:Dropdownlost runat="server" ID="DdlProveedores" CssStyle="width: 100%;" CssClassDdl="select2me " DataTextField="NombreCortoProveedor" DataValueField="CveProveedor" Onselectedindexchange="DdlProveedores_selectedindexchange" />                                                                                                        
                                                 </div>
                                                 <div class="col-md-1" style="padding-left: 0px;">
                                                     <asp:LinkButton runat="server" Visible="false" ID="ImgCambiaProv"  data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea actualizar proveedor?" data-btn-ok-label="si" Text="<i class='fa fa-check' style='color:green'></i>" CssClass="btn btn-default btn-circle btn-xs" ToolTip="Actualizar Proveedor" />
@@ -768,6 +768,10 @@
                                                 <th scope="col">P.U.</th>
                                                 <th scope="col" id="THDescuento" visible="false" runat="server">Desc.</th>
                                                 <th scope="col">IVA</th>
+
+                                                <th scope="col" runat="server" id="ThRetIVA" visible="false" style="width:70px" >Ret. IVA</th>
+                                                <th scope="col" runat="server" id="ThRetISR" visible="false" style="width:70px">Ret. ISR</th>
+
                                                 <th scope="col">Total</th>
                                                 <th scope="col">Comandos</th>
                                                 <th scope="col">
@@ -872,6 +876,14 @@
                                                  <td style="text-align: right; padding-right: 7px;">
                                                  <%--    IVA--%>
                                                 </td>
+
+                                                <td style="text-align: right; padding-right: 7px; width:70px" runat="server" id="TdRetIVA" visible="false" >
+                                                    
+                                                </td>
+                                                <td style="text-align: right; padding-right: 7px; width:70px" runat="server" id="TdRetISR" visible="false">
+                                                    
+                                                </td>
+
                                                 <td style="text-align: right; padding-right: 7px;">
                                                     <asp:TextBox runat="server" ID="Total" ClientIDMode="Static" CssClass="alineanum" Width="55px" Height="24px" Enabled="false"></asp:TextBox>
                                                 </td>
@@ -927,7 +939,9 @@
                                                         <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                                                         <asp:ListItem Text="*** Actualizar listado de Productos o Servicios ***" Value="-2"></asp:ListItem>
                                                     </asp:DropDownList>
-                                                    <asp:RequiredFieldValidator ID="RFVPSEdit" runat="server" ControlToValidate="DdlPS" InitialValue="-1" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Producto o Servicio''</b> es necesario, por favor seleccione uno." ValidationGroup="grpEditar"></asp:RequiredFieldValidator>
+                                                    <asp:RequiredFieldValidator ID="RFVPSEdit" runat="server" ControlToValidate="DdlPS" InitialValue="-1"  Display="None"
+                                                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Producto o Servicio''</b> es necesario, por favor seleccione uno." 
+                                                        ValidationGroup="grpEditar"></asp:RequiredFieldValidator>
                                                     <ajax:ValidatorCalloutExtender ID="VCOPSEdit" runat="server" HighlightCssClass="vco" TargetControlID="RFVPSEdit" Width="300px"></ajax:ValidatorCalloutExtender>
                                                 </EditItemTemplate>
                                             </asp:TemplateField>
@@ -936,7 +950,8 @@
                                                 <EditItemTemplate>
                                                     <%--DataTextField--%>
                                                     <asp:DropDownList ID="CboUnidadMedidaEdit" runat="server" DataTextField="UnidadMedida" DataValueField="CveUnidadMedida" Style="width: 100%; max-width: 150px;"></asp:DropDownList>
-                                                    <asp:RequiredFieldValidator ID="RFVUnidadMedidaEdit" runat="server" InitialValue="-1" ControlToValidate="CboUnidadMedidaEdit" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Unidad de Medida''</b> es necesario, por favor ingréselo." ValidationGroup="grpEditar"></asp:RequiredFieldValidator>
+                                                    <asp:RequiredFieldValidator ID="RFVUnidadMedidaEdit" runat="server" InitialValue="-1" ControlToValidate="CboUnidadMedidaEdit"  Display="None"
+                                                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Unidad de Medida''</b> es necesario, por favor ingréselo." ValidationGroup="grpEditar"></asp:RequiredFieldValidator>
                                                     <ajax:ValidatorCalloutExtender ID="VCEUnidadMedidaEdit" runat="server" HighlightCssClass="vco" TargetControlID="RFVUnidadMedidaEdit" Width="300px"></ajax:ValidatorCalloutExtender>
                                                 </EditItemTemplate>
                                                 <ItemTemplate>
@@ -973,7 +988,8 @@
                                                         <asp:ListItem Selected="true" Text="Seleccione" Value="-1"></asp:ListItem>
                                                     </asp:DropDownList>
 
-                                                    <asp:RequiredFieldValidator ValidationGroup="grpEditar" ID="RFVSubProyecto" runat="server" InitialValue="-1" ControlToValidate="DdlSubProyectoEdit" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''SubProyecto''</b> es necesario, por favor ingréselo."></asp:RequiredFieldValidator>
+                                                    <asp:RequiredFieldValidator ValidationGroup="grpEditar" ID="RFVSubProyecto" runat="server" InitialValue="-1" ControlToValidate="DdlSubProyectoEdit" Display="None"
+                                                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''SubProyecto''</b> es necesario, por favor ingréselo."></asp:RequiredFieldValidator>
                                                     <ajax:ValidatorCalloutExtender ID="VCORFVSubProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RFVSubProyecto" Width="300px"></ajax:ValidatorCalloutExtender>
 
                                                   
@@ -1028,21 +1044,37 @@
 
                                             <%-- 8 --%>
                                             <asp:TemplateField>
-                                                <ItemTemplate>
+                                                <ItemTemplate>                                                    
-                                                    <%--<asp:Literal ID="LtlIva" runat="server" Text='<%#  If(Not IsDBNull(Eval("IVA")), If(Eval("IVA").ToString <> "0", String.Concat(Eval("IVA", "{0:#,##0.00####}"), "<br>", Eval("IVAPorcentaje", "{0:0.### %}")), ""), "")  %>'></asp:Literal>--%>
                                                     <asp:Literal ID="LtlIva" runat="server" Text='<%#  If(Not IsDBNull(Eval("IVA")), If(Eval("IVA").ToString <> "0", String.Concat(Eval("IVA", "{0:#,##0.00####}"), "<br>", If(Not IsDBNull(Eval("IVAPorcentaje")) AndAlso Decimal.Parse(Eval("IVAPorcentaje").ToString) > 0.10001, "16.00 %", Eval("IVAPorcentaje", "{0:0.### %}"))), ""), "")  %>'></asp:Literal>
                                                 </ItemTemplate>
                                                 <ItemStyle HorizontalAlign="Right" />
                                             </asp:TemplateField>
-                                        
+
                                             <%-- 9 --%>
-                                            <asp:TemplateField>
+                                            <asp:TemplateField HeaderStyle-Width="70px">
-                                                <ItemTemplate>
+                                                <ItemTemplate>                                                    
-                                                    <asp:Literal ID="LtlTotal" runat="server" Text='<%# If(Not IsDBNull(Eval("Importe")) AndAlso CDbl(Eval("Importe").ToString) <> -1, Eval("Total", "{0:#,##0.00####}"), "") %>'></asp:Literal>
+                                                    <asp:Literal ID="LtlRetIVA" runat="server" Text='<%#  If(Not IsDBNull(Eval("RetIVA")), If(Eval("RetIVA").ToString <> "0", String.Concat(Eval("RetIVA", "{0:#,##0.00}"), "<br>", If(Not IsDBNull(Eval("RetIVAPorcentaje")) AndAlso Decimal.Parse(Eval("RetIVAPorcentaje").ToString) > 0.10001, "16.00 %", Eval("RetIVAPorcentaje", "{0:0.## %}"))), ""), "")  %>'></asp:Literal>
                                                 </ItemTemplate>
                                                 <ItemStyle HorizontalAlign="Right" />
                                             </asp:TemplateField>
                                             <%-- 10 --%>
+                                            <asp:TemplateField HeaderStyle-Width="70px">
+                                                <ItemTemplate>                                                    
+                                                    <asp:Literal ID="LtlRetISR" runat="server" Text='<%#  If(Not IsDBNull(Eval("RetISR")), If(Eval("RetISR").ToString <> "0", String.Concat(Eval("RetISR", "{0:#,##0.00}"), "<br>", If(Not IsDBNull(Eval("RetISRPorcentaje")) AndAlso Decimal.Parse(Eval("RetISRPorcentaje").ToString) > 0.10001, "16.00 %", Eval("RetISRPorcentaje", "{0:0.## %}"))), ""), "")  %>'></asp:Literal>
+                                                </ItemTemplate>
+                                                <ItemStyle HorizontalAlign="Right" />
+                                            </asp:TemplateField>
+
+
+                                        
+                                            <%-- 11 --%>
+                                            <asp:TemplateField>
+                                                <ItemTemplate>
+                                                    <asp:Literal ID="LtlTotal" runat="server" Text='<%# If(Not IsDBNull(Eval("Importe")) AndAlso CDbl(Eval("Importe").ToString) <> -1, Eval("Total", "{0:#,##0.00}"), "") %>'></asp:Literal>
+                                                </ItemTemplate>
+                                                <ItemStyle HorizontalAlign="Right" />
+                                            </asp:TemplateField>
+                                            <%-- 12 --%>
                                             <asp:TemplateField>
 
 
@@ -1064,27 +1096,27 @@
                                                    
                                                 </ItemTemplate>
                                             </asp:TemplateField>
-                                            <%-- 11 --%>
+                                            <%-- 13 --%>
                                             <asp:TemplateField Visible="false">
                                                 <ItemTemplate>                                                    
                                                     <asp:Literal ID="LtlLiga" runat="server"></asp:Literal>
                                                 </ItemTemplate>
                                             </asp:TemplateField>
-                                            <%-- 12  --%>
+                                            <%-- 14  --%>
                                             <asp:TemplateField Visible="false">
                                                 <ItemTemplate>
                                                     <asp:Literal ID="LtlCompra" runat="server" Visible='<%# Eval("CveCompra").ToString <> "" %>'></asp:Literal>
                                                     <asp:LinkButton OnClick="LnkCompra_Click" ID="LnkCompra" Visible="false" runat="server">   Ver</asp:LinkButton>
                                                 </ItemTemplate>
                                             </asp:TemplateField>
-                                            <%-- 13 --%>
+                                            <%-- 15 --%>
                                             <asp:TemplateField HeaderText="Clasificación" Visible="False" ShowHeader="true">
                                                 <ItemTemplate>
                                                     <asp:DropDownList runat="server" ID="DdlAC5" CssClass="form-control input-sm select2me" AutoPostBack="true" DataTextField="CodigoClasificacion" DataValueField="CveClasificacion" Width="150px" OnSelectedIndexChanged="CompruebaSaldoAC"></asp:DropDownList>
                                                 </ItemTemplate>
                                             </asp:TemplateField>
 
-                                            <%-- 14 --%>
+                                            <%-- 16 --%>
                                             <asp:TemplateField HeaderText="Programa Operativo" Visible="False" ShowHeader="true">
                                                 <ItemTemplate>
                                                     <asp:HiddenField runat="server" ID="HdnCvePresupuestoEgreso" Value="-1" />
@@ -1096,19 +1128,19 @@
                                                 </ItemTemplate>
                                             </asp:TemplateField>
 
-                                            <%-- 15 --%>
+                                            <%-- 17 --%>
                                             <asp:TemplateField HeaderText="Unidad Administrativa" Visible="False" ShowHeader="true">
                                                 <ItemTemplate>
                                                     <asp:DropDownList runat="server" ID="DdlAC2" CssClass="form-control input-sm select2me" AutoPostBack="true" DataTextField="UnidadAdministrativa" DataValueField="CveUnidadAdministrativa" Width="150px" OnSelectedIndexChanged="CompruebaSaldoAC"></asp:DropDownList>
                                                 </ItemTemplate>
                                             </asp:TemplateField>
-                                            <%-- 16 --%>
+                                            <%-- 18 --%>
                                             <asp:TemplateField HeaderText="Fuente Financiamiento" Visible="False" ShowHeader="true">
                                                 <ItemTemplate>
                                                     <asp:DropDownList runat="server" ID="DdlAC3" CssClass="form-control input-sm select2me" AutoPostBack="true" DataTextField="FuenteFinanciamiento" DataValueField="CveFuenteFinanciamiento" Width="150px" OnSelectedIndexChanged="CompruebaSaldoAC"></asp:DropDownList>
                                                 </ItemTemplate>
                                             </asp:TemplateField>
-                                            <%-- 17 --%>
+                                            <%-- 19 --%>
                                             <asp:TemplateField HeaderText="Tipo Gasto" Visible="False" ShowHeader="true">
                                                 <ItemTemplate>
                                                     <asp:DropDownList runat="server" ID="DdlAC4" CssClass="form-control input-sm select2me" AutoPostBack="true" DataTextField="TipoGasto" DataValueField="CveTipoGasto" Width="100px" OnSelectedIndexChanged="CompruebaSaldoAC"></asp:DropDownList>
@@ -1211,7 +1243,9 @@
                                                             <tr runat="server" id="TrRetIVA" class="text-right" visible="false">
                                                                 <td><b>Ret IVA:</b></td>
                                                                 <td>
-                                                                    <asp:TextBox ID="TxtRetIVA" ClientIDMode="Static" onkeyup="FormatoMoneda(this);SumaTotal();" Width="100px" onblur="AplicaRetIVAGeneral();" Font-Size="10.5" BackColor="#f7f7f7" runat="server" BorderStyle="None" Style="text-align: right;" Text="0.00" />
+                                                                     
+                                                                    <asp:TextBox ID="TxtRetIVA" ClientIDMode="Static" Width="100px"  Enabled="false"   
+                                                                        Font-Size="10.5" BackColor="#eeeeee" runat="server" BorderStyle="None" Style="text-align: right;" Text="0.00" />
                                                                     <asp:Button Text="" Style="display: none" ClientIDMode="Static" ID="BtnLimpiarRetIVA" OnClick="BtnLimpiarRetIVA_Click" runat="server" />
                                                                     <asp:Button Text="" Style="display: none" ClientIDMode="Static" ID="BtnAplicarRetIVA" OnClick="BtnAplicarRetIVA_Click" runat="server" />
                                                                     <asp:HiddenField ClientIDMode="Static" Value="0" runat="server" ID="HdnRetIVA" />
@@ -1220,7 +1254,8 @@
                                                             <tr runat="server" id="TrRetISR" class="text-right" visible="false">
                                                                 <td><b>Ret ISR:</b></td>
                                                                 <td>
-                                                                    <asp:TextBox ID="TxtRetISR" ClientIDMode="Static" onkeyup="FormatoMoneda(this);SumaTotal();" Width="100px" onblur="AplicaRetISRGeneral();" Font-Size="10.5" BackColor="#f7f7f7" runat="server" BorderStyle="None" Style="text-align: right;" Text="0.00" />
+                                                                    <asp:TextBox ID="TxtRetISR" ClientIDMode="Static"   Width="100px"   Enabled="false"   
+                                                                        Font-Size="10.5" BackColor="#eeeeee" runat="server" BorderStyle="None" Style="text-align: right;" Text="0.00" />
                                                                     <asp:Button Text="" Style="display: none" ClientIDMode="Static" ID="BtnAplicarRetISR" OnClick="BtnAplicarRetISR_Click" runat="server" />
                                                                     <asp:HiddenField ClientIDMode="Static" Value="0" runat="server" ID="HdnRetISR" />
                                                                 </td>

OC/OC.aspx.vb

@@ -635,7 +635,7 @@ Partial Class OC_OC
                 End If
 
                 CargaDatos(CveOrdenCompra)
-
+                ConfiguraRetencionesProveedor()
             Else
                 LIContratos.Visible = True
                 EsNuevo = True
@@ -880,7 +880,7 @@ Partial Class OC_OC
                 If (UsuarioActual.TienePermisoProceso(203)) AndAlso Dr("TipoTermino").ToString.ToEntero = 3 AndAlso Dr("Tipo").ToString = "OC" Then
                     CargaClasificaciones()
                     If Not UsuarioActual.TienePermisoProceso(131) Then DesHabilitar()
-                    GvD.Columns(10).Visible = True
+                    GvD.Columns(12).Visible = True
                     LbAgregar.Enabled = True
                     txtPrecioUnitario.Enabled = True
                     DdlProyecto.Enabled = True
@@ -1642,7 +1642,7 @@ Partial Class OC_OC
                             SubProyectosNoAutorizados.Add(Row("SubProyecto").ToString)
                             CboE.BackColor = Drawing.Color.Silver
                             CboE.Enabled = False
-                            GvD.Columns(10).Visible = False 'No permitir la edicion
+                            GvD.Columns(12).Visible = False 'No permitir la edicion
                             'GvD.Columns(9).Visible = True
                             ChkCotizacion.Enabled = False
                             TxtDescrip.Enabled = False
@@ -1678,7 +1678,7 @@ Partial Class OC_OC
             'EDICION
             'CUANDO EL LA REGISRO Y TIENE ACCESO A ESE ESTATUS
             If objOC.CveUsuario = UsuarioActual.CveUsuario AndAlso (DtEstatusUsuarios.FiltraParametros(String.Format(" CveEstatus = {0}", CveEstatus)).Rows.Count >= 1 Or CveEstatus = 0) Then
-                GvD.Columns(10).Visible = True 'No permitir la edicion
+                GvD.Columns(12).Visible = True 'No permitir la edicion
                 If ChkCotizacion.Checked AndAlso UsuarioActual.Empresa.Funcionalidad(565) = "1" Then
                     ChkCotizacion.Enabled = False
                 Else
@@ -1767,7 +1767,7 @@ Partial Class OC_OC
 
             If EditarOC Then
                 CboE.Enabled = True
-                GvD.Columns(10).Visible = True 'Permitir la edicion               
+                GvD.Columns(12).Visible = True 'Permitir la edicion               
                 ChkCotizacion.Enabled = True
                 TxtDescrip.Enabled = True
                 TxtJustificacion.Enabled = True
@@ -2321,9 +2321,9 @@ Partial Class OC_OC
             If IEPSPSIVA > 0 Then TotalGravado = Total * (1 + IEPSPSIVA) 'grava para iva, el importe del IEPS
             dr("IVA") = Math.Round(dr("IVAPorcentaje").ToString.ToDecimal * TotalGravado, 2)
             dr("RetIVAPorcentaje") = RetIVA
-            dr("RetIVA") = Math.Round(RetIVA * Total, 2)
+            dr("RetIVA") = (RetIVA * Total).RoundSQL(6)
             dr("RetISRPorcentaje") = RetISR
-            dr("RetISR") = Math.Round(RetISR * Total, 2)
+            dr("RetISR") = (RetISR * Total).RoundSQL(6)
             dr("CveClasificacion") = CveClasificacion
             dr("UM") = UM
             dr("Clasificacion") = Clasificacion
@@ -3785,11 +3785,11 @@ Partial Class OC_OC
                 'If DtEstatusUsuarios.FiltraParametros(String.Format("CveSubProyecto = {0}", e.Row.DBCampo("CveSubProyecto"))).Rows.Count = 0 Then e.Row.FCImageButton("ImgEdit").Visible = False : e.Row.FCImageButton("ImgDelete").Visible = False
 
                 If TipoOC = "OC" AndAlso Not IsDBNull(e.Row.DBCampo("CveOrdenCompraPadre")) AndAlso IsNumeric(e.Row.DBCampo("CveOrdenCompraPadre")) Then
-                    GvD.Columns(11).Visible = True
+                    GvD.Columns(13).Visible = True
                     lblTipoPadreHijo.Visible = True
                     e.Row.FCLiteral("LtlLiga").Text = String.Format("<a class='Texto'  href='/OC/OC.aspx?OC={0}'>{1}</a>", e.Row.DBCampo("CveOrdenCompraPadre"), e.Row.DBCampo("FolioOrdenCompraPadre"))
                 ElseIf TipoOC = "REQ" AndAlso Not IsDBNull(e.Row.DBCampo("CveOrdenCompraHija")) AndAlso IsNumeric(e.Row.DBCampo("CveOrdenCompraHija")) Then
-                    GvD.Columns(11).Visible = True
+                    GvD.Columns(13).Visible = True
                     lblTipoPadreHijo.Visible = True
                     e.Row.FCLiteral("LtlLiga").Text = String.Format("<a class='Texto' href='/OC/OC.aspx?OC={0}'>{1}</a>", e.Row.DBCampo("CveOrdenCompraHija"), e.Row.DBCampo("FolioOrdenCompraHija"))
                 End If
@@ -3803,7 +3803,7 @@ Partial Class OC_OC
                     If ObjOC.DtResultados.Rows.Count = 1 Then
                         e.Row.FCLiteral("LtlCompra").Text = String.Format("<a class='Texto' target='_blank' href='../Compras/Compras.aspx?CveCompra={0}'>{1}</a>", ObjOC.DtResultados.FiltroPrimeroValor("CveCompra"), e.Row.DBCampo("FolioCompra"))
                         LblCompra.Visible = True
-                        GvD.Columns(12).Visible = True
+                        GvD.Columns(14).Visible = True
                     ElseIf ObjOC.DtResultados.Rows.Count > 1 Then
                         LblCompra.Visible = True
                         e.Row.FCLiteral("LtlCompra").Visible = False
@@ -3812,7 +3812,7 @@ Partial Class OC_OC
                         'e.Row.FCLinkButton("LnkCompra").CausesValidation = False
                         'e.Row.FCLinkButton("LnkCompra").OnClientClick = "return true;"  'return true;
                         e.Row.FCLinkButton("LnkCompra").CommandArgument = e.Row.DBCampo("CveOrdenCompraDetalle")
-                        GvD.Columns(12).Visible = True
+                        GvD.Columns(14).Visible = True
                     Else
                         e.Row.FCLiteral("LtlCompra").Text = ""
                         LblCompra.Visible = True
@@ -4183,9 +4183,9 @@ Partial Class OC_OC
         If IEPSPSIVA > 0 Then TotalGravado = Total * (1 + IEPSPSIVA) 'grava para iva, el importe del IEPS
         dr(0)("IVA") = Math.Round(dr(0)("IVAPorcentaje").ToString.ToDecimal * TotalGravado, 2)
 
-        dr(0)("RetIVA") = RetIVA * Total
+        dr(0)("RetIVA") = (RetIVA * Total).RoundSQL(6)
         dr(0)("RetIVAPorcentaje") = RetIVA
-        dr(0)("RetISR") = RetISR * Total
+        dr(0)("RetISR") = (RetISR * Total).RoundSQL(6)
         dr(0)("RetISRPorcentaje") = RetISR
 
 
@@ -4242,8 +4242,8 @@ Partial Class OC_OC
         DdlProveedorSucursal.Enabled = False
         DdlProveedorContacto.Enabled = False
 
-        GvD.Columns(10).Visible = False
+        GvD.Columns(12).Visible = False
-        GvD.Columns(11).Visible = True
+        GvD.Columns(13).Visible = True
 
         If Not (BtnCancelarPrevio.Enabled And (CveEstatus <> CveEstatusFinalError OrElse CveEstatus <> CveEstatusFinalOK OrElse UsuarioActual.TienePermisoProceso(148).ToEntero > 0)) Then
             BtnCancelarPrevio.Enabled = False
@@ -4407,11 +4407,11 @@ Partial Class OC_OC
         'Seccion Grid
         If VerificaPresupuesto Then
             GvD.Width = 1750
-            GvD.Columns(13).Visible = True
-            GvD.Columns(14).Visible = True
             GvD.Columns(15).Visible = True
             GvD.Columns(16).Visible = True
             GvD.Columns(17).Visible = True
+            GvD.Columns(18).Visible = True
+            GvD.Columns(19).Visible = True
 
             'Panel General
             UpPresupuestosAC.Visible = True
@@ -4438,11 +4438,11 @@ Partial Class OC_OC
 
         Else
             'GvD.Width = Width.ToEntero
-            GvD.Columns(13).Visible = False
-            GvD.Columns(14).Visible = False
             GvD.Columns(15).Visible = False
             GvD.Columns(16).Visible = False
             GvD.Columns(17).Visible = False
+            GvD.Columns(18).Visible = False
+            GvD.Columns(19).Visible = False
 
             UpPresupuestosAC.Visible = False
         End If
@@ -6793,11 +6793,11 @@ Partial Class OC_OC
         CboE_SelectedIndexChanged(CboE, EventArgs.Empty)
 
 
-        GvD.Columns(10).Visible = True 'Permitir la edicion    
+        GvD.Columns(12).Visible = True 'Permitir la edicion    
         lblTipoPadreHijo.Visible = False
-        GvD.Columns(11).Visible = False
+        GvD.Columns(13).Visible = False
         LblCompra.Visible = False
-        GvD.Columns(12).Visible = False
+        GvD.Columns(14).Visible = False
 
         ChkCotizacion.Visible = True
         ChkCotizacion.Enabled = True
@@ -6926,7 +6926,7 @@ Partial Class OC_OC
         ScriptManager.RegisterStartupScript(Me, GetType(Page), "anioactual", script, True)
         VerificaPresupuesto = False
         RVSubProyecto.Enabled = If(RequiereSubProyecto = True, True, False)
-        GvD.Columns(11).Visible = False
+        GvD.Columns(13).Visible = False
         CargaComboCFDI()
         CargaMonedas()
         'CargaClasificaciones()
@@ -8859,4 +8859,67 @@ Partial Class OC_OC
         End If
 
     End Sub
+
+    Protected Sub DdlProveedores_selectedindexchange(sender As Object, e As EventArgs)
+        ConfiguraRetencionesProveedor()
+    End Sub
+
+    Private Sub ConfiguraRetencionesProveedor()
+        '9 y 10
+
+        ThRetIVA.Visible = False
+        ThRetISR.Visible = False
+
+        TdRetIVA.Visible = False
+        TdRetISR.Visible = False
+
+        GvD.Columns(9).Visible = False
+        GvD.Columns(10).Visible = False
+
+
+        Dim MostrarColRetIVA As Boolean = False
+        Dim MostrarColRetISR As Boolean = False
+
+        Dim CveProvedorSelecionado As Integer = DdlProveedores.SelectedValue.ToEntero
+
+        If CveProvedorSelecionado > 0 Then
+
+            Dim ObjProveedor As New ClsCompProveedores()
+
+            If ObjProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProvedorSelecionado, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
+
+
+                If ObjProveedor.CveRegimenFiscal = 23 Then
+
+                    If ObjProveedor.RetIVA > 0 Then
+                        MostrarColRetIVA = True
+                    End If
+
+                    If ObjProveedor.RetISR > 0 Then
+                        MostrarColRetISR = True
+                    End If
+
+                End If
+
+
+            End If
+
+            ObjProveedor.Dispose()
+
+        End If
+
+
+        ThRetIVA.Visible = MostrarColRetIVA
+        ThRetISR.Visible = MostrarColRetISR
+
+        TdRetIVA.Visible = MostrarColRetIVA
+        TdRetISR.Visible = MostrarColRetISR
+
+        GvD.Columns(9).Visible = MostrarColRetIVA
+        GvD.Columns(10).Visible = MostrarColRetISR
+
+        UPPDetalle.Update()
+
+    End Sub
+
 End Class