From 755d674f1a69ca310305e1b0ba4bab761b9f188a Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 29 Nov 2023 08:49:57 -0700 Subject: [PATCH] -- IVA Pendiente --- CxC/RepCxC.aspx | 12 ++++++++---- CxC/RepCxCDetalle.aspx | 14 +++++++++++++- CxC/RepCxCDetalle.aspx.vb | 20 +++++++++++++++++--- 3 files changed, 38 insertions(+), 8 deletions(-) diff --git a/CxC/RepCxC.aspx b/CxC/RepCxC.aspx index 594340d1c..7a3f3e01c 100644 --- a/CxC/RepCxC.aspx +++ b/CxC/RepCxC.aspx @@ -10,6 +10,10 @@ border-color: #DDD; } + .TextoGris { + color:gray; + } + .select2 .select2-selection__rendered { line-height: 1; color: #111; @@ -529,21 +533,21 @@ - + IVA Pend - + - + IEPS Pend - + diff --git a/CxC/RepCxCDetalle.aspx b/CxC/RepCxCDetalle.aspx index 156ab3415..a4cffc142 100644 --- a/CxC/RepCxCDetalle.aspx +++ b/CxC/RepCxCDetalle.aspx @@ -540,13 +540,15 @@ - + + + @@ -681,6 +683,16 @@ + + + + + + + + + + diff --git a/CxC/RepCxCDetalle.aspx.vb b/CxC/RepCxCDetalle.aspx.vb index a68d4d298..e083ef749 100644 --- a/CxC/RepCxCDetalle.aspx.vb +++ b/CxC/RepCxCDetalle.aspx.vb @@ -452,7 +452,8 @@ Partial Class RepCxCDetalle Dim DTCartera As New DataTable Dim ObjMovtos As New ClsMovimientos() - Dim FechaI, FechaF, FechaVI, FechaVF As String + Dim FechaI, FechaF As Date + Dim FechaVI, FechaVF As String If RblTipoCambio.SelectedValue.ToEntero = 3 And TxtEspecifico.Text <> "" Then TCEspecifico = TxtEspecifico.Text.ToDouble @@ -460,8 +461,8 @@ Partial Class RepCxCDetalle TCEspecifico = -1 End If - FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1") - FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1") + FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim.ToDate, MinFecha) + FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim.ToDate, MaxFecha) FechaVI = If(IsDate(txtFechaVI.Text.Trim()), txtFechaVI.Text.Trim(), "-1") FechaVF = If(IsDate(txtFechaVF.Text.Trim()), txtFechaVF.Text.Trim(), "-1") @@ -877,6 +878,19 @@ Partial Class RepCxCDetalle SePersonalizo = 1 Else GvDatos.Columns(47).Visible = False + End If + If ChkIVAPend.Checked Then + GvDatos.Columns(48).Visible = True + SePersonalizo = 1 + Else + GvDatos.Columns(48).Visible = False + End If + + If ChkIEPSPend.Checked Then + GvDatos.Columns(49).Visible = True + SePersonalizo = 1 + Else + GvDatos.Columns(49).Visible = False End If