<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
</head>
<body bgcolor="#ffffff" text="#000066">
<font size="-1"><font face="Verdana">Hola Ignacio,<br>
<br>
Estoy intentando cargar el Menu de la aplicaciÃn en un tree para poder
asignar los derechos de acceso a los usuarios mediante y no he podido ,
estoy un poco confundido con los submenu, podrÃas ayudarme un poco, es
algo parecido como lo hace el Editor de Menu del IDE quiero que las
opciones se carguen en un Tree.<br>
<br>
Mil gracias<br>
<br>
</font></font>
<div class="moz-signature">-- <br>
<meta http-equiv="CONTENT-TYPE" content="text/html; ">
<title>Josà David Angulo</title>
<meta name="GENERATOR" content="OpenOffice.org 2.0 (Win32)">
<meta name="CREATED" content="20061023;14550935">
<meta name="CHANGEDBY" content="Jose Angulo">
<meta name="CHANGED" content="20061023;14593800">
<meta name="ProgId" content="Word.Document">
<meta name="Originator" content="Microsoft Word 9">
<style>
<!--
P { color: #000000 }
-->
</style>
<p style="margin-bottom: 0cm;"><font size="2"><span
style="background: transparent none repeat scroll 0%; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;"><b><font
face="Century Gothic"><font color="#000080">JosÃ
David Angulo.</font></font></b></span><font face="Arial"><font
color="#0000ff"><br>
</font></font></font><font face="Arial"><font color="#0000ff"><b><font
style="font-size: 11pt;" size="2">A<span lang="en-GB">uditorÃa
y Sistemas Ltda. </span></font></b><br>
<font style="font-size: 8pt;" size="1">Tel.</font></font></font><font
size="1"><font face="Century Gothic"><font color="#808080">(57)
5- 6643022 – 6644555</font></font></font></p>
<p style="margin-bottom: 0cm;"><font size="1"><font
face="Century Gothic"><font color="#808080">Cartagena - Colombia</font></font></font><br>
<a href="mailto:Gerencia@microexpressltda.com"><font
style="font-size: 9pt;" size="2">jose.angulo@auditoriaysistemas.com</font></a></p>
<p style="margin-bottom: 0cm;"><br>
</p>
</div>
</body>
</html>
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Menú Principal
Menú Principal
Jose David Angulo Urzola
Auditoria y Sistemas Ltda.
Cartagena-Colombia
Auditoria y Sistemas Ltda.
Cartagena-Colombia
- ignacio
- Site Admin
- Mensajes: 9252
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
Menú Principal
José David AnguloJosé David,
Ejemplo utilizado en el propio IDE
sf_LoadItems( oTree, oMenu:aItems )
STATIC FUNCTION sf_LoadItems( oTree, aItems )
LOCAL oItem
LOCAL nFor, nLen
nLen := len( aItems )
FOR nFor := 1 TO nLen
oItem := aItems[ nFor ]
WITH OBJECT oTree:AddItem( oItem:cText )
IF lAnd( oItem:nType, MFT_SEPARATOR )
:cText := "-"
ENDIF
END WITH
IF oItem:oSubMenu != NIL .and. len( oItem:oSubMenu:aItems ) > 0
sf_LoadItems( Atail(oTree:aItems), oItem:oSubMenu:aItems )
ENDIF
NEXT
RETURN NIL
Saludos
--
Ignacio Ortiz de Zúñiga
[Soporte Xailer]
[Xailer support]
"José David Angulo" <gerencia@microexpressltda.com> escribió en el mensaje news:[email=48f752f9@ozsrv2.ozlan.local...]48f752f9@ozsrv2.ozlan.local...[/email]
Hola Ignacio,
Estoy intentando cargar el Menu de la aplicación en un tree para poder asignar los derechos de acceso a los usuarios mediante y no he podido , estoy un poco confundido con los submenu, podrías ayudarme un poco, es algo parecido como lo hace el Editor de Menu del IDE quiero que las opciones se carguen en un Tree.
Mil gracias
--
José David Angulo.
Auditoría y Sistemas Ltda.
Tel.(57) 5- 6643022 - 6644555
Cartagena - Colombia
jose.angulo@auditoriaysistemas.com
--
Ejemplo utilizado en el propio IDE
sf_LoadItems( oTree, oMenu:aItems )
STATIC FUNCTION sf_LoadItems( oTree, aItems )
LOCAL oItem
LOCAL nFor, nLen
nLen := len( aItems )
FOR nFor := 1 TO nLen
oItem := aItems[ nFor ]
WITH OBJECT oTree:AddItem( oItem:cText )
IF lAnd( oItem:nType, MFT_SEPARATOR )
:cText := "-"
ENDIF
END WITH
IF oItem:oSubMenu != NIL .and. len( oItem:oSubMenu:aItems ) > 0
sf_LoadItems( Atail(oTree:aItems), oItem:oSubMenu:aItems )
ENDIF
NEXT
RETURN NIL
Saludos
--
Ignacio Ortiz de Zúñiga
[Soporte Xailer]
[Xailer support]
"José David Angulo" <gerencia@microexpressltda.com> escribió en el mensaje news:[email=48f752f9@ozsrv2.ozlan.local...]48f752f9@ozsrv2.ozlan.local...[/email]
Hola Ignacio,
Estoy intentando cargar el Menu de la aplicación en un tree para poder asignar los derechos de acceso a los usuarios mediante y no he podido , estoy un poco confundido con los submenu, podrías ayudarme un poco, es algo parecido como lo hace el Editor de Menu del IDE quiero que las opciones se carguen en un Tree.
Mil gracias
--
José David Angulo.
Auditoría y Sistemas Ltda.
Tel.(57) 5- 6643022 - 6644555
Cartagena - Colombia
jose.angulo@auditoriaysistemas.com
--
Menú Principal
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
<title></title>
</head>
<body bgcolor="#ffffff" text="#000000">
Mil Gracias.<br>
<div class="moz-signature">-- <br>
<meta http-equiv="CONTENT-TYPE" content="text/html; ">
<title>Josà David Angulo</title>
<meta name="GENERATOR" content="OpenOffice.org 2.0 (Win32)">
<meta name="CREATED" content="20060220;11005750">
<meta name="CHANGED" content="20061028;16242395">
<meta name="ProgId" content="Word.Document">
<meta name="Originator" content="Microsoft Word 9">
<style>
<!--
P { color: #000000 }
A:link { color: #0000ff }
A:visited { color: #800080 }
-->
</style>
<p style="margin-bottom: 0cm;"><font size="2"><span
style="background: transparent none repeat scroll 0%; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;"><b><font
face="Century Gothic"><font color="#000080">JosÃ
David Angulo.</font></font></b></span><font face="Arial"><font
color="#0000ff"><br>
</font></font></font><font face="Arial"><font color="#0000ff"><b><font
style="font-size: 11pt;" size="2">A<span lang="en-GB">uditorÃa
y Sistemas Ltda. </span></font></b></font></font>
</p>
<p style="margin-bottom: 0cm;"><font style="font-size: 8pt;" size="1"><font
face="Arial"><font color="#0000ff">Cartagena
- Colombia</font></font></font></p>
</div>
</body>
</html>
<html>
<head>
<meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
<title></title>
</head>
<body bgcolor="#ffffff" text="#000000">
Mil Gracias.<br>
<div class="moz-signature">-- <br>
<meta http-equiv="CONTENT-TYPE" content="text/html; ">
<title>Josà David Angulo</title>
<meta name="GENERATOR" content="OpenOffice.org 2.0 (Win32)">
<meta name="CREATED" content="20060220;11005750">
<meta name="CHANGED" content="20061028;16242395">
<meta name="ProgId" content="Word.Document">
<meta name="Originator" content="Microsoft Word 9">
<style>
<!--
P { color: #000000 }
A:link { color: #0000ff }
A:visited { color: #800080 }
-->
</style>
<p style="margin-bottom: 0cm;"><font size="2"><span
style="background: transparent none repeat scroll 0%; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;"><b><font
face="Century Gothic"><font color="#000080">JosÃ
David Angulo.</font></font></b></span><font face="Arial"><font
color="#0000ff"><br>
</font></font></font><font face="Arial"><font color="#0000ff"><b><font
style="font-size: 11pt;" size="2">A<span lang="en-GB">uditorÃa
y Sistemas Ltda. </span></font></b></font></font>
</p>
<p style="margin-bottom: 0cm;"><font style="font-size: 8pt;" size="1"><font
face="Arial"><font color="#0000ff">Cartagena
- Colombia</font></font></font></p>
</div>
</body>
</html>