From be7d50c7e93699c18fddbf0f00ff211f70a4710b Mon Sep 17 00:00:00 2001
From: Oscar Irigoyen <rakcsle@outlook.com>
Date: Wed, 1 Mar 2023 16:27:20 -0700
Subject: [PATCH] OC ajuest etiqueta % de IVA en partidas

---
 App_Code/modExtensiones.vb | 26 ++++++++++++++++++++------
 Compras/eFacturas.aspx.vb  |  3 ++-
 CxC/RepCxCDetalle.aspx.vb  |  2 +-
 OC/OC.aspx                 |  3 ++-
 4 files changed, 25 insertions(+), 9 deletions(-)

diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb
index ed867167f..c9901fe10 100644
--- a/App_Code/modExtensiones.vb
+++ b/App_Code/modExtensiones.vb
@@ -2405,21 +2405,35 @@ Namespace Extensiones
                 Dim indexRowGV As Integer = 0
                 Dim cssClassRow As String = ""
 
+                Dim CountRowFiltros As Integer = -1
+                If DatosFiltros.Trim.Length > 0 Then
+                    CountRowFiltros = 0
+                End If
+
                 For indexRow = 8 To worksheet.Rows.Count - 4
 
                     Try
                         cssClassRow = GridView.Rows(indexRowGV).CssClass.Trim()
 
                         Select Case cssClassRow
+
+                            Case "Totales"
+                                worksheet.Cells.GetSubrangeRelative(indexRow + CountRowFiltros, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.FillPattern.SetSolid(System.Drawing.ColorTranslator.FromHtml("#67809f"))
+                                worksheet.Cells.GetSubrangeRelative(indexRow + CountRowFiltros, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Weight = 1000
+                                worksheet.Cells.GetSubrangeRelative(indexRow + CountRowFiltros, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Color = System.Drawing.ColorTranslator.FromHtml("#ddd")
+                                Exit Select
                             Case "SubTotales2"
-                                worksheet.Cells.GetSubrangeRelative(indexRow - 1, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.FillPattern.SetSolid(System.Drawing.ColorTranslator.FromHtml("#c0c0c0"))
-                                worksheet.Cells.GetSubrangeRelative(indexRow - 1, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Weight = 1000
-                                worksheet.Cells.GetSubrangeRelative(indexRow - 1, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Color = System.Drawing.ColorTranslator.FromHtml("#000077")
+                                worksheet.Cells.GetSubrangeRelative(indexRow + CountRowFiltros, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.FillPattern.SetSolid(System.Drawing.ColorTranslator.FromHtml("#c0c0c0"))
+                                worksheet.Cells.GetSubrangeRelative(indexRow + CountRowFiltros, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Weight = 1000
+                                worksheet.Cells.GetSubrangeRelative(indexRow + CountRowFiltros, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Color = System.Drawing.ColorTranslator.FromHtml("#000077")
+                                Exit Select
                             Case "SubTotales"
-                                worksheet.Cells.GetSubrangeRelative(indexRow - 1, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.FillPattern.SetSolid(System.Drawing.ColorTranslator.FromHtml("#dddddd"))
-                                worksheet.Cells.GetSubrangeRelative(indexRow - 1, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Weight = 1000
-                                worksheet.Cells.GetSubrangeRelative(indexRow - 1, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Color = System.Drawing.ColorTranslator.FromHtml("#67809F")
+                                worksheet.Cells.GetSubrangeRelative(indexRow + CountRowFiltros, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.FillPattern.SetSolid(System.Drawing.ColorTranslator.FromHtml("#dddddd"))
+                                worksheet.Cells.GetSubrangeRelative(indexRow + CountRowFiltros, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Weight = 1000
+                                worksheet.Cells.GetSubrangeRelative(indexRow + CountRowFiltros, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Color = System.Drawing.ColorTranslator.FromHtml("#67809F")
+                                Exit Select
                             Case Else
+                                Exit Select
                         End Select
 
                     Catch ex As Exception
diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb
index 8aa6f6ece..6f4633835 100644
--- a/Compras/eFacturas.aspx.vb
+++ b/Compras/eFacturas.aspx.vb
@@ -4276,11 +4276,12 @@ Partial Class Compras_eFacturas
                 Alert($"PDF  Error se genero nulo", TipoMensaje.MsgAdvertencia)
             End If
 
+            CargaDatos()
+
         Catch ex As Exception
             Alert($"PDF  Error {ex.Message} -- > {ex.StackTrace}", TipoMensaje.MsgAdvertencia)
         End Try
 
-        Alert("PDF  Finaliza", TipoMensaje.MsgAdvertencia)
 
 
 
diff --git a/CxC/RepCxCDetalle.aspx.vb b/CxC/RepCxCDetalle.aspx.vb
index a62db7b56..c598ec10f 100644
--- a/CxC/RepCxCDetalle.aspx.vb
+++ b/CxC/RepCxCDetalle.aspx.vb
@@ -922,7 +922,7 @@ Partial Class RepCxCDetalle
 
         Dim Filtro As String = $"{Cliente}{Sucursal}{Grupo}{Vendedor}{FechaIn}{FechaFn}{Registro}{Responsable}{TipoDocto}{EstatusCob}{FVI}{FVF}{ClasificacionCli}{CorteA}"
 
-        ExportToExcelGembox(GvDatos, "ReporteCxCDetalle", UsuarioActual, "REPORTE DE CUENTAS POR COBRAR DEL CLIENTE CON DETALLE", DatoTituloExtra:=$"", DatosFiltros:=Filtro)
+        GvDatos.ExportToExcelGembox("ReporteCxCDetalle", UsuarioActual, "REPORTE DE CUENTAS POR COBRAR DEL CLIENTE CON DETALLE", DatoTituloExtra:=$"", DatosFiltros:=Filtro)
         'GvDatos.ExportToExcelG("ReporteCxCDetalle", "REPORTE DE CUENTAS POR COBRAR DEL CLIENTE CON DETALLE", UsuarioActual, Filtro)
 
         'SpreadsheetInfo.SetLicense(SerialGemBoxSpreadsheet())
diff --git a/OC/OC.aspx b/OC/OC.aspx
index 4b0f83c28..437fa1ea0 100644
--- a/OC/OC.aspx
+++ b/OC/OC.aspx
@@ -1029,7 +1029,8 @@
                                             <%-- 8 --%>
                                             <asp:TemplateField>
                                                 <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>", 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(Decimal.Parse(Eval("IVAPorcentaje").ToString) > 0.10001, "16.00 %", Eval("IVAPorcentaje", "{0:0.### %}"))), ""), "")  %>'></asp:Literal>
                                                 </ItemTemplate>
                                                 <ItemStyle HorizontalAlign="Right" />
                                             </asp:TemplateField>