From b25b202c208b1aac92a57d553e1a166b39008189 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 16 Mar 2024 12:32:31 -0700 Subject: [PATCH] +- MEJORAS EN personalizar el saldo de las Retenciones pendientes --- Compras/RepCxP.aspx | 56 +++++++++++++++++------------------ Compras/RepCxP.aspx.vb | 19 ++++++++++-- Compras/RepCxPDetalle.aspx | 53 +++++++++++++++++++++------------ Compras/RepCxPDetalle.aspx.vb | 6 +++- 4 files changed, 83 insertions(+), 51 deletions(-) diff --git a/Compras/RepCxP.aspx b/Compras/RepCxP.aspx index 1d1e25ff5..c9371d679 100644 --- a/Compras/RepCxP.aspx +++ b/Compras/RepCxP.aspx @@ -476,66 +476,64 @@ - + - SubTotal Pend + SubTotal - + - IVA Pend + IVA - + - IEPS Pend + IEPS - - - - Ret IVA Pend - - - - - - - - - Ret ISR Pend - - - - - - - + + + - + - + - + + + + + + + + + + + + + + + + diff --git a/Compras/RepCxP.aspx.vb b/Compras/RepCxP.aspx.vb index c5782cf3e..0c06daa35 100644 --- a/Compras/RepCxP.aspx.vb +++ b/Compras/RepCxP.aspx.vb @@ -656,7 +656,6 @@ Partial Class Compras_RepCxP If e.Row.FCHyperLink("HplColumna14").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna14").Text = "-" If e.Row.FCHyperLink("HplColumna15").Text.ToDouble = 0 Then e.Row.FCHyperLink("HplColumna15").Text = "-" - If e.Row.FCHyperLink("LtlPorVencer").Text = "0.00" Then e.Row.FCHyperLink("LtlPorVencer").Text = "-" If e.Row.FCHyperLink("LtlVentas").Text = "0.00" Then e.Row.FCHyperLink("LtlVentas").Text = "-" If e.Row.FCHyperLink("LtlSaldo1").Text = "0.00" Then e.Row.FCHyperLink("LtlSaldo1").Text = "-" @@ -1009,6 +1008,16 @@ Partial Class Compras_RepCxP If e.Row.FCHyperLink("LtlVentas").Text = "0.00" Then e.Row.FCHyperLink("LtlVentas").Text = "-" If e.Row.FCHyperLink("LtlSaldo1").Text = "0.00" Then e.Row.FCHyperLink("LtlSaldo1").Text = "-" + If e.Row.FCLabel("LtlSubtotalP").Text = "0.00" Then e.Row.FCLabel("LtlSubtotalP").Text = "-" + If e.Row.FCLabel("LtlIVAP").Text = "0.00" Then e.Row.FCLabel("LtlIVAP").Text = "-" + If e.Row.FCLabel("LtlIEPSP").Text = "0.00" Then e.Row.FCLabel("LtlIEPSP").Text = "-" + If e.Row.FCLabel("LtlRETIVASerProf").Text = "0.00" Then e.Row.FCLabel("LtlRETIVASerProf").Text = "-" + If e.Row.FCLabel("LtlRETIVAFletes").Text = "0.00" Then e.Row.FCLabel("LtlRETIVAFletes").Text = "-" + If e.Row.FCLabel("LtlRETIVAArrend").Text = "0.00" Then e.Row.FCLabel("LtlRETIVAArrend").Text = "-" + If e.Row.FCLabel("LtlRETISRSerProf").Text = "0.00" Then e.Row.FCLabel("LtlRETISRSerProf").Text = "-" + If e.Row.FCLabel("LtlRETISRArrend").Text = "0.00" Then e.Row.FCLabel("LtlRETISRArrend").Text = "-" + If e.Row.FCLabel("LtlRETISRResico").Text = "0.00" Then e.Row.FCLabel("LtlRETISRResico").Text = "-" + e.Row.Cells(2).Width = Unit.Pixel(75) e.Row.Cells(3).Width = Unit.Pixel(75) e.Row.Cells(4).Width = Unit.Pixel(75) @@ -1895,7 +1904,13 @@ Partial Class Compras_RepCxP ActivaColumna(24, ChkIVAP.Checked) ActivaColumna(25, ChkIEPSP.Checked) ActivaColumna(26, ChkRetIVAPendiente.Checked) - ActivaColumna(27, ChkRetISRPendiente.Checked) + ActivaColumna(27, ChkRetIVAPendiente.Checked) + ActivaColumna(28, ChkRetIVAPendiente.Checked) + 'ActivaColumna(29, ChkRetIVAPendiente.Checked) + ActivaColumna(29, ChkRetISRPendiente.Checked) + ActivaColumna(30, ChkRetISRPendiente.Checked) + ActivaColumna(31, ChkRetISRPendiente.Checked) + 'ActivaColumna(33, ChkRetISRPendiente.Checked) If SePersonalizo = 1 Then ImgExcelPersonalizado.Visible = True diff --git a/Compras/RepCxPDetalle.aspx b/Compras/RepCxPDetalle.aspx index eb8f03b10..a7d940773 100644 --- a/Compras/RepCxPDetalle.aspx +++ b/Compras/RepCxPDetalle.aspx @@ -13,6 +13,9 @@ .tooltip-inner { max-width: 350px !important; } + .TextoGris { + color:gray; + } @@ -436,7 +439,7 @@ - SubTotal Pend + SubTotal @@ -445,7 +448,7 @@ - IVA Pend + IVA @@ -454,31 +457,43 @@ - IEPS Pend + IEPS - - - Ret IVA Pend - + - - - + + - - - Ret ISR Pend - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Compras/RepCxPDetalle.aspx.vb b/Compras/RepCxPDetalle.aspx.vb index bb867e3dd..7cea6cea1 100644 --- a/Compras/RepCxPDetalle.aspx.vb +++ b/Compras/RepCxPDetalle.aspx.vb @@ -566,7 +566,11 @@ Partial Class RepCxPDetalle ActivaColumna(18, ChkIVAPend.Checked) ActivaColumna(19, ChkIEPSPend.Checked) ActivaColumna(20, ChkRetIVAPendiente.Checked) - ActivaColumna(21, ChkRetISRPendiente.Checked) + ActivaColumna(21, ChkRetIVAPendiente.Checked) + ActivaColumna(22, ChkRetIVAPendiente.Checked) + ActivaColumna(23, ChkRetISRPendiente.Checked) + ActivaColumna(24, ChkRetISRPendiente.Checked) + ActivaColumna(25, ChkRetISRPendiente.Checked) If SePersonalizo = 1 Then ImgExcelPersonalizado.Visible = True