-visualizar quien registró la venta FNC109

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