From 1919c5d2f846e8289c9df12e53d2a1ca70363e5d Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 26 Mar 2024 12:09:34 -0700 Subject: [PATCH] -- mejora --- Bancos/RepCortes.aspx | 44 +++++++++++++++++++++++++++++----------- Bancos/RepCortes.aspx.vb | 9 +++++++- 2 files changed, 40 insertions(+), 13 deletions(-) diff --git a/Bancos/RepCortes.aspx b/Bancos/RepCortes.aspx index 911a9b276..9f69bd02b 100644 --- a/Bancos/RepCortes.aspx +++ b/Bancos/RepCortes.aspx @@ -143,13 +143,32 @@ - + + + + + + + + + + + + + + + + + + + + @@ -161,7 +180,7 @@ - + @@ -213,6 +232,15 @@ + + + + + + + + + @@ -240,15 +268,7 @@ - - - - - - - - - + @@ -277,7 +297,7 @@ - + diff --git a/Bancos/RepCortes.aspx.vb b/Bancos/RepCortes.aspx.vb index f42884560..d1354db5b 100644 --- a/Bancos/RepCortes.aspx.vb +++ b/Bancos/RepCortes.aspx.vb @@ -66,7 +66,8 @@ Partial Class Bancos_RepCortes txtFechaVI.Text = NowADS().ToShortDateString txtFechaVF.Text = NowADS().ToShortDateString Me.Form.DefaultButton = BtnConsultar.UniqueID - CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, LblSubProyecto) + CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, LblSubProyecto) + End If End Sub @@ -83,6 +84,12 @@ Partial Class Bancos_RepCortes End If ObjPuntoVenta.Dispose() + If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then + GvDatos.Columns(3).Visible = True + GvDatos.Columns(4).Visible = True + GvDatos.Columns(12).Visible = True + End If + GvDatos.DataSource = DtCortes GvDatos.DataBind() UPDatos.Update()