-- IVA Pendiente

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