Compras ret iva ret isr edcion y columnas en gridview, repcomplentos descarga de personalizado

Compras/Compras.aspx

@@ -716,6 +716,8 @@
                                                 <th style="width: 100px">P.U.&nbsp;</th>
                                                 <th style="width: 40px">IVA&nbsp;</th>
                                                 <th style="width: 40px" runat="server" id="TD_Gvps_IEPS" visible="false">IEPS&nbsp;</th>
+                                                <th style="width: 40px" runat="server" id="TdRetIVA" visible="false">Ret. IVA&nbsp;</th>
+                                                <th style="width: 40px" runat="server" id="TdRetISR" visible="false">Ret. ISR&nbsp;</th>
                                                 <th style="width: 110px">Total&nbsp;</th>
                                                 <div id="dvNoDeducible" runat="server" visible="false">
                                                     <th style="width: 80px">¿No Deducible?&nbsp;</th>
@@ -826,55 +828,69 @@
                                                 </ItemTemplate>
                                             </asp:TemplateField>
 
+                                                <%-- 10 --%>
+                                               <asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="53px" Visible="false">
+                                                   <ItemTemplate>                                                    
+                                                       <asp:Label ID="LtlRetIVA" runat="server" Text='<%# If(Eval("RetIVA").ToString.Length > 0, If((CDbl(Eval("RetIVA").ToString)) > 0, (CDbl(Eval("RetIVA").ToString)).ToString("###,####,###.00"), ""), "") %>'></asp:Label><br />
+                                                       <asp:Label ID="LtlRetIVAPorcentaje" runat="server" Text='<%# If(Eval("RetIVAPorcentaje").ToString.Length > 0, (CDbl(Eval("RetIVAPorcentaje").ToString) * 100).ToString("#####") & If(CDbl(Eval("RetIVAPorcentaje").ToString) * 100 > 0, "%", ""), "") %>'></asp:Label>                                                    
+                                                   </ItemTemplate>
+                                               </asp:TemplateField>
+                                                <%-- 11 --%>
+                                           <asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="53px" Visible="false">
+                                               <ItemTemplate>                                                    
+                                                   <asp:Label ID="LtlRetISR" runat="server" Text='<%# If(Eval("RetISR").ToString.Length > 0, If((CDbl(Eval("RetISR").ToString)) > 0, (CDbl(Eval("RetISR").ToString)).ToString("###,####,###.00"), ""), "") %>'></asp:Label><br />
+                                                   <asp:Label ID="LtlRetISRPorcentaje" runat="server" Text='<%# If(Eval("RetISRPorcentaje").ToString.Length > 0, (CDbl(Eval("RetISRPorcentaje").ToString) * 100).ToString("#####") & If(CDbl(Eval("RetISRPorcentaje").ToString) * 100 > 0, "%", ""), "") %>'></asp:Label>                                                    
+                                               </ItemTemplate>
+                                           </asp:TemplateField>
 
 
-                                            <%-- 10 --%>
+                                            <%-- 12 --%>
                                             <asp:BoundField DataField="Total" DataFormatString="{0:#,##0.00####}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="110px" />
 
-                                            <%-- 11 --%>
+                                            <%-- 13 --%>
                                             <asp:TemplateField ItemStyle-HorizontalAlign="Center" ControlStyle-Width="100px" Visible="false">
                                                 <ItemTemplate>
                                                     <asp:CheckBox ID="ChkEsNoDeduciblePS" runat="server" Checked='<%# If(Eval("NoDeducible").ToString = "", 0, Eval("NoDeducible")) %>' AutoPostBack="true" OnCheckedChanged="ChkEsNoDeduciblePS_CheckedChanged" />
                                                 </ItemTemplate>
                                             </asp:TemplateField>
 
-                                            <%-- 12 --%>
+                                            <%-- 14 --%>
                                             <asp:TemplateField ItemStyle-HorizontalAlign="Center"  ItemStyle-Width="40px">
                                                 <ItemTemplate>
                                                     <asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" OnClick="Edit_Click" Text="<i class='fa fa-pencil'></i>" />
                                                 </ItemTemplate>
                                             </asp:TemplateField>
-                                            <%-- 13 --%>
+                                            <%-- 15 --%>
                                             <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="40px">
                                                 <ItemTemplate>
                                                     <asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
                                                 </ItemTemplate>
                                             </asp:TemplateField>
-                                            <%-- 14 --%>
+                                            <%-- 16 --%>
                                             <asp:TemplateField HeaderText="Clasificacion" Visible="false">
                                                 <ItemTemplate>
                                                     <asp:DropDownList runat="server" ID="DdlAC5" CssClass="form-control input-sm select2me" AutoPostBack="true" DataTextField="CodigoClasificacion" DataValueField="CveClasificacion" Width="150px" OnSelectedIndexChanged="CompruebaSaldoAC" Visible="true"></asp:DropDownList>
                                                 </ItemTemplate>
                                             </asp:TemplateField>
-                                            <%-- 15 --%>
+                                            <%-- 17 --%>
                                             <asp:TemplateField HeaderText="Programa Operativo" Visible="False">
                                                 <ItemTemplate>
                                                     <asp:DropDownList runat="server" ID="DdlAC1" CssClass="form-control input-sm select2me" AutoPostBack="true" DataTextField="ProgramaOperativo" DataValueField="CveProgramaOperativo" Width="150px" OnSelectedIndexChanged="CompruebaSaldoAC"></asp:DropDownList>
                                                 </ItemTemplate>
                                             </asp:TemplateField>
-                                            <%-- 16 --%>
+                                            <%-- 18 --%>
                                             <asp:TemplateField HeaderText="Unidad Administrativa" Visible="False">
                                                 <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>
-                                            <%-- 17 --%>
+                                            <%-- 19 --%>
                                             <asp:TemplateField HeaderText="Fuente Financiamiento" Visible="False">
                                                 <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>
-                                            <%-- 18 --%>
+                                            <%-- 12 --%>
                                             <asp:TemplateField HeaderText="Tipo Gasto" Visible="False">
                                                 <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>

Compras/Compras.aspx.vb

@@ -978,6 +978,36 @@ Partial Class Compras_Compras
         End Set
     End Property
 
+
+
+    Private Property ProvRetIVA As Decimal
+        Get
+            If ViewState("ProvRetIVA") Is Nothing Then
+                ViewState("ProvRetIVA") = 0
+            End If
+
+            Return ViewState("ProvRetIVA").ToString.ToDecimal
+        End Get
+        Set(value As Decimal)
+            ViewState("ProvRetIVA") = value
+        End Set
+    End Property
+
+    Private Property ProvRetISR As Decimal
+        Get
+            If ViewState("ProvRetISR") Is Nothing Then
+                ViewState("ProvRetISR") = 0
+            End If
+
+            Return ViewState("ProvRetISR").ToString.ToDecimal
+        End Get
+        Set(value As Decimal)
+            ViewState("ProvRetISR") = value
+        End Set
+    End Property
+
+
+
     Private Property TotalOriginal As Decimal
         Get
             If ViewState("TotalOriginal") Is Nothing Then
@@ -1787,7 +1817,7 @@ Partial Class Compras_Compras
 
         End If
 
-        MostrarOcultarColumnaIEPS()
+        MostrarOcultarColumnaIEPSRetIVARetISR()
 
     End Sub
 
@@ -1886,7 +1916,7 @@ Partial Class Compras_Compras
 
 #Region "C A R G A S"
 
-    Private Sub MostrarOcultarColumnaIEPS()
+    Private Sub MostrarOcultarColumnaIEPSRetIVARetISR()
 
 
         If TxtIEPS.Text.ToDecimal <> 0 And TmpDT.SUM("IEPSPS") <> 0 Then
@@ -1896,6 +1926,25 @@ Partial Class Compras_Compras
             GvPS.Columns(9).Visible = False
             TD_Gvps_IEPS.Visible = False
         End If
+
+        If TxtRetIVA.Text.ToDecimal <> 0 And TmpDT.SUM("RetIVA") <> 0 Then
+            GvPS.Columns(10).Visible = True
+            TdRetIVA.Visible = True
+        Else
+            GvPS.Columns(10).Visible = False
+            TdRetIVA.Visible = False
+        End If
+
+
+        If TxtRetISR.Text.ToDecimal <> 0 And TmpDT.SUM("RetISR") <> 0 Then
+            GvPS.Columns(11).Visible = True
+            TdRetISR.Visible = True
+        Else
+            GvPS.Columns(11).Visible = False
+            TdRetISR.Visible = False
+        End If
+
+
         UpPS.Update()
 
     End Sub
@@ -2954,6 +3003,11 @@ Partial Class Compras_Compras
                 TxtIVA.Text = dr("IVA").ToString.FormatoNumero(2)
                 TxtRetIVA.Text = dr("RetIVA").ToString.FormatoNumero(2)
                 TxtRetISR.Text = dr("RetISR").ToString.FormatoNumero(2)
+
+                RetIVAOriginal = dr("RetIVA").ToString.ToDecimal
+                RetISROriginal = dr("RetISR").ToString.ToDecimal
+
+
                 TxtIEPS.Text = dr("IEPS").ToString.FormatoNumero(2)
                 If dr("IEPS").ToString.ToDouble > 0 Then TrIEPS.Visible = True
                 If dr("RetIVA").ToString.ToDouble > 0 Then TrRetIVA.Visible = True
@@ -3777,6 +3831,9 @@ Partial Class Compras_Compras
                     End If
                 End If
 
+                ProvRetIVA = ObjProveedor.RetIVA.ToDecimal
+                ProvRetISR = ObjProveedor.RetISR.ToDecimal
+
                 If CveCompra <= 0 AndAlso CveFactura <= 0 Then 'si se está cargando una factura o compra no se carga
                     'LblRetIVA.Text = ObjProveedor.RetIVA.ToString.FormatoNumero(5)
                     'LblRetISR.Text = ObjProveedor.RetISR.ToString.FormatoNumero(5)
@@ -10739,12 +10796,12 @@ Partial Class Compras_Compras
                 If e.Row.RowIndex = 0 Then
 
                     If UsuarioActual.Empresa.UsaAC Then 'AndAlso (CveFactura > 0 Or CveCompra > 0) 
-                        e.Row.Cells(13).Width = Unit.Pixel(150)
-                        e.Row.Cells(14).Width = Unit.Pixel(150)
                         e.Row.Cells(15).Width = Unit.Pixel(150)
                         e.Row.Cells(16).Width = Unit.Pixel(150)
                         e.Row.Cells(17).Width = Unit.Pixel(150)
-                        e.Row.Cells(18).Width = Unit.Pixel(100)
+                        e.Row.Cells(18).Width = Unit.Pixel(150)
+                        e.Row.Cells(19).Width = Unit.Pixel(150)
+                        e.Row.Cells(20).Width = Unit.Pixel(100)
                     End If
                 End If
 
@@ -10847,11 +10904,11 @@ Partial Class Compras_Compras
 
                 'CargaPresupuestosEgresos
                 If UsuarioActual.Empresa.UsaAC Then
-                    e.Row.Cells(14).Visible = True
-                    e.Row.Cells(15).Visible = True
                     e.Row.Cells(16).Visible = True
                     e.Row.Cells(17).Visible = True
                     e.Row.Cells(18).Visible = True
+                    e.Row.Cells(19).Visible = True
+                    e.Row.Cells(20).Visible = True
 
                     e.Row.FCDropDownList("DdlAC1").Items.Clear()
                     e.Row.FCDropDownList("DdlAC1").DataSource = DtPresupuestos.FiltraParametros("", DistinctColumns:={"CveProgramaOperativo", "ProgramaOperativo"})
@@ -10882,19 +10939,19 @@ Partial Class Compras_Compras
                     'SI EL PRESUPUESTO DE EGRESOS VIENE DESDE LA OC, SE BLOQUEA PE
                     If e.Row.DBCampo("CveOrdenCompraDetalle").ToEntero > 0 AndAlso e.Row.DBCampo("CvePresupuestoEgreso").ToEntero > 0 Then
 
-                        e.Row.Cells(14).Enabled = False
-                        e.Row.Cells(15).Enabled = False
                         e.Row.Cells(16).Enabled = False
                         e.Row.Cells(17).Enabled = False
                         e.Row.Cells(18).Enabled = False
+                        e.Row.Cells(19).Enabled = False
+                        e.Row.Cells(20).Enabled = False
                     End If
                 Else
 
-                    e.Row.Cells(14).Visible = False
-                    e.Row.Cells(15).Visible = False
                     e.Row.Cells(16).Visible = False
                     e.Row.Cells(17).Visible = False
                     e.Row.Cells(18).Visible = False
+                    e.Row.Cells(19).Visible = False
+                    e.Row.Cells(20).Visible = False
                 End If
 
             End If
@@ -13049,12 +13106,12 @@ Partial Class Compras_Compras
 
         'Seccion Grid
         GvPS.Width = 1760
-        GvPS.Columns(13).Visible = True
-        GvPS.Columns(14).Visible = True
         GvPS.Columns(15).Visible = True
         GvPS.Columns(16).Visible = True
         GvPS.Columns(17).Visible = True
         GvPS.Columns(18).Visible = True
+        GvPS.Columns(19).Visible = True
+        GvPS.Columns(20).Visible = True
 
         'Panel General
         UpPresupuestosAC.Visible = True
@@ -17600,7 +17657,7 @@ Partial Class Compras_Compras
         CargaRetISRConcepto()
 
         Dim NumNoDed As Integer = TmpDT.COUNT("CvePS", "NoDeducible = True ")
-        If NumNoDed > 0 Then GvPS.Columns(11).Visible = True 'visualiza columnas de nodeducibles
+        If NumNoDed > 0 Then GvPS.Columns(13).Visible = True 'visualiza columnas de nodeducibles
 
         'If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") And CveFactura <= 0 Then
         '    InicializaAplicaNCFact()
@@ -18151,6 +18208,9 @@ Partial Class Compras_Compras
                     HdnPS.Value = PS("PSCodigo").ToString
                     LblUnidadMedida.Text = PS("UnidadMedida").ToString
 
+                    Dim PsRetIVA As Decimal = PS("RetIVA").ToString.ToDecimal
+                    Dim PsRetISR As Decimal = PS("RetISR").ToString.ToDecimal
+
                     ddlUM.Items.Clear()
                     If UsuarioActual.Empresa.UsaInventarios Then
                         ddlUM.DataSource = GlobalDTProductosServiciosEquivalencias(PS("CvePS").ToString.ToEntero, -1, UsuarioActual.CveEmpresa)
@@ -18230,6 +18290,19 @@ Partial Class Compras_Compras
                     TxtRetIVAModal.Text = FormatoNumero(ViewState("RetIVA").ToString().ToDouble * 100, 6)
                     TxtRetISRModal.Text = FormatoNumero(ViewState("RetISR").ToString().ToDouble * 100, 6)
 
+                    'OIC 2025-04-29 
+                    If CveCompra > 0 AndAlso Modalidad = "A" Then
+                        If ProvRetIVA > 0 Or ProvRetISR > 0 Then
+                            TxtRetIVAModal.Text = FormatoNumero(ProvRetIVA, 6)
+                            TxtRetISRModal.Text = FormatoNumero(ProvRetISR, 6)
+                        ElseIf PsRetIVA > 0 Or PsRetISR > 0 Then
+                            TxtRetIVAModal.Text = FormatoNumero(PsRetIVA, 6)
+                            TxtRetISRModal.Text = FormatoNumero(PsRetISR, 6)
+                        End If
+                    End If
+
+
+
                     If (CveFactura > 0 Or CveCompra > 0) And TxtIEPS.Text.ToDecimal = 0 And PS("IEPSPorcentaje").ToString.ToDecimal > 0 Then
                         TxtIEPSModal.Text = "0"
                         Alert("El producto seleccionado contiene IEPS, pero el acumulado de la factura no contiene IEPS, por lo que no se agregara el impuesto.", TipoMensaje.MsgAdvertencia)
@@ -18518,7 +18591,7 @@ Partial Class Compras_Compras
         UpPS.Update()
         CargaGvPersonal()
 
-        MostrarOcultarColumnaIEPS()
+        MostrarOcultarColumnaIEPSRetIVARetISR()
 
 
     End Sub
@@ -20300,7 +20373,7 @@ Partial Class Compras_Compras
             Alert("Debe seleccionar al menos un impuesto", TipoMensaje.MsgAdvertencia)
         End If
 
-        MostrarOcultarColumnaIEPS()
+        MostrarOcultarColumnaIEPSRetIVARetISR()
         AddPS2()
     End Sub
 #End Region
@@ -21156,12 +21229,12 @@ Partial Class Compras_Compras
         If ChkEsNoDeducible.Checked Then
             EsNoDeducible = True
             dvNoDeducible.Visible = True
-            GvPS.Columns(11).Visible = True
+            GvPS.Columns(13).Visible = True
             DivEsNoDeducible.Visible = True
         Else
             EsNoDeducible = False
             dvNoDeducible.Visible = False
-            GvPS.Columns(11).Visible = False
+            GvPS.Columns(13).Visible = False
             DivEsNoDeducible.Visible = False
         End If
 

Compras/RepComplementoPago.aspx

@@ -34,11 +34,15 @@
             <li>
                 <asp:HyperLink NavigateUrl="#" data-toggle="modal" data-target="#DivPersonalizar" ID="ImgPersonalizar" runat="server"> <i class="fa fa-pencil"></i>  Personalizar</asp:HyperLink>
             </li>
+            <li>
+                 <asp:LinkButton ID="ImgExcelPersonalizado" runat="server" Visible="false"> <i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel Personalizado</asp:LinkButton>
+             </li>
 
         </ContentTemplate>
         <Triggers>
             <asp:PostBackTrigger ControlID="LnkPDF" />
             <asp:PostBackTrigger ControlID="LnkExcel" />
+            <asp:PostBackTrigger ControlID="ImgExcelPersonalizado" />
         </Triggers>
     </asp:UpdatePanel>
 </asp:Content>

Compras/RepComplementoPago.aspx.vb

@@ -110,8 +110,6 @@ Partial Class Compras_RepComplementoPago
             GvDatos.Columns(0).ItemStyle.Width = 30%
         End If
 
-
-
         UpDatos.Update()
 
     End Sub
@@ -221,9 +219,30 @@ Partial Class Compras_RepComplementoPago
 #End Region
 
     Protected Sub BtnPersonalizar_Click(sender As Object, e As EventArgs)
-
-
         Personalizar()
+        ImgExcelPersonalizado.Visible = True
+        UpAcciones.Update()
     End Sub
 
+
+    Protected Sub ImgExcelPersonalizado_Click(sender As Object, e As EventArgs) Handles ImgExcelPersonalizado.Click
+
+        ' GvDatos.ExportToExcelGembox("RepComplementos_" & NowADS().ToShortDateString)
+        'GvDatos.ExportToExcelG("DetalleCompras_" & NowADS().ToShortDateString & ".xlsx")
+        Dim SubProyecto As String = ""
+
+        If DdlSubProyecto.SelectedValue.ToEntero > 0 Then
+            SubProyecto = DdlSubProyecto.SelectedItem.Text
+        End If
+
+        Dim SbFiltros As New StringBuilder()
+        SbFiltros.AppendFormat($"Fecha Inicio: {TxtFiltrosFechaInicio.Text} Fecha Fin: {TxtFiltrosFechaFin.Text}|")
+        SbFiltros.AppendFormat("SubProyecto: {0}|", SubProyecto)
+
+
+        GvDatos.ExportToExcelGembox("RepComplementos_" & NowADS().ToShortDateString, UsuarioActual, "Ordenes de Servicio Medicas", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString())
+    End Sub
+
+    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
+    End Sub
 End Class

RH/Personal.aspx

@@ -5041,16 +5041,17 @@
                                  <label for="<%= TxtNumeroSucursal.ClientID.ToString()%>">Numero de la Sucursal:</label>
                              </div>
                          </div>
+ <div class="col-md-6">
+     <div class="form-group form-md-line-input input-iconright">
+         <asp:TextBox ID="TxtCLABECB" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="18" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
+         <ajax:FilteredTextBoxExtender ID="SoloNumeros2" runat="server" TargetControlID="TxtCLABECB" FilterType="Numbers" />
+         <label for="<%= TxtCLABECB.ClientID.ToString()%>">CLABE:</label>
+     </div>
+ </div>
                      </div>
                      <div class="row">
                         
-                         <div class="col-md-6">
+                        
-                             <div class="form-group form-md-line-input input-iconright">
-                                 <asp:TextBox ID="TxtCLABECB" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="18" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
-                                 <ajax:FilteredTextBoxExtender ID="SoloNumeros2" runat="server" TargetControlID="TxtCLABECB" FilterType="Numbers" />
-                                 <label for="<%= TxtCLABECB.ClientID.ToString()%>">CLABE:</label>
-                             </div>
-                         </div>
                      </div>
                      <div class="row"  runat="server" visible="false">
                          <div class="col-md-6">