From 586ea182d4dd68f511c503a9cd24f31293e885e5 Mon Sep 17 00:00:00 2001 From: rrene Date: Sun, 24 Mar 2024 09:30:19 -0700 Subject: [PATCH] =?UTF-8?q?-visualizar=20quien=20registr=C3=B3=20la=20vent?= =?UTF-8?q?a=20FNC109?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/EntregaAlmacen.aspx | 18 ++++++++++-------- Inventarios/EntregaAlmacen.aspx.vb | 5 +++++ 2 files changed, 15 insertions(+), 8 deletions(-) diff --git a/Inventarios/EntregaAlmacen.aspx b/Inventarios/EntregaAlmacen.aspx index 39ebbe52f..9d3e41e1a 100644 --- a/Inventarios/EntregaAlmacen.aspx +++ b/Inventarios/EntregaAlmacen.aspx @@ -130,22 +130,24 @@
- - + - + - diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index 56cf378a4..be1f33adf 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -382,6 +382,10 @@ Partial Class Inventarios_EntregaAlmacen End If + If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then + divUsuarioRegistra.Visible = True + End If + End If End Sub @@ -697,6 +701,7 @@ Partial Class Inventarios_EntregaAlmacen LbCliente.Text = DtDatos.Rows(0)("Nombre").ToString() HLFolio.Text = drE("SerieFolio").ToString() + LtlRegistra.Text = drE("UsuarioRegistra").ToString If UsuarioActual.TienePermisoProceso(201) Then HLFolio.NavigateUrl = $"/Ventas/Ventas.aspx?CveVenta={CveVenta}" End If
Cliente: + Cliente: - - -
Folio: + <%----%> - + +
+
Registró:
+
+
+