-- mejora

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()