From 118a89f0d88458a68040a88cf6cb5079a6687089 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 29 Oct 2024 15:17:59 -0700 Subject: [PATCH] =?UTF-8?q?-=20ver=20acumuladores=20accesos=20al=20portal?= =?UTF-8?q?=20para=20env=C3=ADo=20de=20p=C3=B3lizas=20virtuales?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Planeacion/CatSubProyectos.aspx | 18 ++++++++++++++++-- Planeacion/CatSubProyectos.aspx.vb | 3 +++ 2 files changed, 19 insertions(+), 2 deletions(-) diff --git a/Planeacion/CatSubProyectos.aspx b/Planeacion/CatSubProyectos.aspx index d308ceb0d..af0be3766 100644 --- a/Planeacion/CatSubProyectos.aspx +++ b/Planeacion/CatSubProyectos.aspx @@ -54,7 +54,7 @@
@@ -189,8 +189,22 @@
- +
+
+
+
+ + +
+
+
+
+ + +
+
+

diff --git a/Planeacion/CatSubProyectos.aspx.vb b/Planeacion/CatSubProyectos.aspx.vb index c180762b0..cda932202 100644 --- a/Planeacion/CatSubProyectos.aspx.vb +++ b/Planeacion/CatSubProyectos.aspx.vb @@ -64,6 +64,7 @@ Partial Class CatSubProyectos If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then DivCodigoSucursal.Visible = True + DivAcumPVirtual.Visible = True End If If UsuarioActual.Empresa.Funcionalidad(381).Trim() <> "" Then @@ -332,6 +333,8 @@ Partial Class CatSubProyectos 'AplicaComercio() ChkNoVerificaAlmacen.Checked = If(GvRow.DataKey("NoVerificaAlmacen").ToString = "True", True, False) TxtCodigoSucursal.Text = (GvRow.DataKey("CodigoSucursal")) + TxtAcumPortalUsuario.Text = (GvRow.DataKey("Acum_PortalUsuario")) + TxtAcumPortalContra.Text = (GvRow.DataKey("Acum_PortalContrasena")) ChkDeshabilitaAutorizaciones.Checked = CBool(GvRow.DataKey("DeshabilitaAutorizacion")) BtnGuardar.Text = "Actualizar"