|
@@ -360,25 +396,35 @@
|
|
-
-
- |
- |
-
- |
-
-
- |
- |
|
|
- |
+
+
+ |
|
+
+ |
+ |
+
+ |
+
+
+ |
+ |
+
+ |
+
+
+ |
+ |
+
+ |
+
diff --git a/Compras/RepCxPDetalle.aspx.vb b/Compras/RepCxPDetalle.aspx.vb
index 8dab1f576..1627468e6 100644
--- a/Compras/RepCxPDetalle.aspx.vb
+++ b/Compras/RepCxPDetalle.aspx.vb
@@ -223,14 +223,15 @@ Partial Class RepCxPDetalle
Personalizo = 0
ViewState("Opcion") = IfNull(Request("Op"), "S")
+ MostrarOcultarColumnas()
CargaCombos()
If Request("Op") IsNot Nothing Then
CargaDatos()
End If
'ImgPersonalizar.Attributes.Add("onclick", "$('#DivPersonalizar').show(1000); PosicionaObjeto(this.id,'DivPersonalizar');")
End If
- End Sub
-
+ End Sub
+
#Region "CARGAS"
Private Sub CargaCombos()
DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
@@ -321,7 +322,6 @@ Partial Class RepCxPDetalle
End Sub
-
Private Function CargaCuentasContables(DT As DataTable) As DataTable
Dim ObjConpaq As New ClsContPAQi(UsuarioActual.Empresa)
@@ -441,10 +441,10 @@ Partial Class RepCxPDetalle
'Dim ObjEmpresa As New ClsEmpresas()
'If ObjEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
- If Opcion <> "S" Then
- If Not UsuarioActual.Empresa.MostrarRetIVA Then GvDatos.Columns(7).Visible = False
- If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(8).Visible = False
- End If
+ 'If Opcion <> "S" Then
+ ' If Not UsuarioActual.Empresa.MostrarRetIVA Then GvDatos.Columns(7).Visible = False
+ ' If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(8).Visible = False
+ 'End If
'End If
'ObjEmpresa.Dispose()
End Sub
@@ -516,14 +516,13 @@ Partial Class RepCxPDetalle
End If
End If
- End Sub
-
+ End Sub
+
#End Region
-
+
#Region "PERSONALIZAR"
-
- Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
-
+ Protected Sub MostrarOcultarColumnas()
+
If ChkFolio.Checked Then
GvDatos.Columns(1).Visible = True
Else
@@ -536,42 +535,72 @@ Partial Class RepCxPDetalle
GvDatos.Columns(2).Visible = False
End If
- If ChkSaldo.Checked Then
+ If ChkIVA.Checked Then
GvDatos.Columns(3).Visible = True
Else
GvDatos.Columns(3).Visible = False
End If
- If ChkFechaVencimiento.Checked Then
+ If ChkIEPS.Checked Then
GvDatos.Columns(4).Visible = True
Else
GvDatos.Columns(4).Visible = False
End If
- If ChkDiasVencidos.Checked Then
+ If ChkDescuento.Checked Then
GvDatos.Columns(5).Visible = True
Else
GvDatos.Columns(5).Visible = False
End If
- If ChkProveedor.Checked Then
+ If ChkTotal.Checked Then
GvDatos.Columns(6).Visible = True
Else
GvDatos.Columns(6).Visible = False
End If
- If ChkCuenta.Checked Then
+ If ChkSaldo.Checked Then
GvDatos.Columns(7).Visible = True
Else
GvDatos.Columns(7).Visible = False
End If
- If ChkObservaciones.Checked Then
+ If ChkFechaVencimiento.Checked Then
GvDatos.Columns(8).Visible = True
Else
GvDatos.Columns(8).Visible = False
End If
+ If ChkDiasVencidos.Checked Then
+ GvDatos.Columns(9).Visible = True
+ Else
+ GvDatos.Columns(9).Visible = False
+ End If
+
+ If ChkProveedor.Checked Then
+ GvDatos.Columns(10).Visible = True
+ Else
+ GvDatos.Columns(10).Visible = False
+ End If
+
+ If ChkCuenta.Checked Then
+ GvDatos.Columns(11).Visible = True
+ Else
+ GvDatos.Columns(11).Visible = False
+ End If
+
+ If ChkObservaciones.Checked Then
+ GvDatos.Columns(12).Visible = True
+ Else
+ GvDatos.Columns(12).Visible = False
+ End If
+
+ If UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Or UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0 Then
+ GvDatos.Columns(13).Visible = True
+ Else
+ GvDatos.Columns(13).Visible = False
+ End If
+
Personalizo = 1
If Personalizo = 1 Then
ImgExcelPersonalizado.Visible = True
@@ -579,9 +608,10 @@ Partial Class RepCxPDetalle
ImgExcelPersonalizado.Visible = False
End If
-
- UPDatos.Update()
-
+ UPDatos.Update()
+ End Sub
+ Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
+ MostrarOcultarColumnas()
RegistraScript("$('#DivPersonalizar').modal('hide');")
End Sub